diff --git a/src/vmsrc/apple/sossys.pla b/src/vmsrc/apple/sossys.pla index 077efc6..3042737 100755 --- a/src/vmsrc/apple/sossys.pla +++ b/src/vmsrc/apple/sossys.pla @@ -28,6 +28,12 @@ struc t_defentry byte bytecodesize end // +// JIT compiler values +// +const jitcomp = $B7F0 +const jitcodeptr = $B7F2 +const codemax = $A000 +// // Pedefined functions. // predef syscall(cmd,params)#1, call(addr,areg,xreg,yreg,status)#1 @@ -1270,16 +1276,18 @@ def loadmod(mod)#1 end def execmod(modfile)#1 byte moddci[17] - word saveheap, savesym, saveflags + word saveheap, savesym, saveflags, savejit perr = 1 if stodci(modfile, @moddci) - saveheap = heap - savesym = lastsym - saveflags = systemflags + saveheap = heap + savesym = lastsym + saveflags = systemflags + savejit = *jitcodeptr if loadmod(@moddci) < modkeep - lastsym = savesym - heap = saveheap + lastsym = savesym + heap = saveheap + *jitcodeptr = savejit while modid modid-- seg_release(modseg[modid])