Apple-2gs-SW
/
ORCALib
mirror of https://github.com/byteworksinc/ORCALib.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Call atexit functions with correct data bank in large memory model 

Previously, the functions registered with atexit() would be called with data bank corresponding to the blank segment, which is correct in the small memory model but not necessarily in the large memory model. This could cause memory corruption or misbehavior for certain operations accessing global variables.
This commit is contained in:
Stephen Heumann 2023-03-28 18:52:14 -05:00
parent 48371dc669
commit a4ba2403fe
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cc.asm
View File

@ -522,10 +522,7 @@ ptr equ 3 pointer to exit routines
; ;
; Set up our stack frame ; Set up our stack frame
; ;
phb ph4 >~ExitList set up our stack frame
phk
plb
ph4 ~ExitList set up our stack frame
phd phd
tsc tsc
tcd tcd
@ -574,7 +571,6 @@ lb3 lda >stderr+6 while there is a next file
lb4 pld return lb4 pld return
pla pla
pla pla
plb
rts rts
end end
@ -592,10 +588,7 @@ ptr equ 3 pointer to exit routines
; ;
; Set up our stack frame ; Set up our stack frame
; ;
phb ph4 >~QuickExitList set up our stack frame
phk
plb
ph4 ~QuickExitList set up our stack frame
phd phd
tsc tsc
tcd tcd
@ -632,7 +625,6 @@ lb2 ldy #2 dereference the pointer
lb3 pld return lb3 pld return
pla pla
pla pla
plb
rts rts
end end