mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-08-23 04:29:07 +00:00
Re-org VM ZP for more efficient fiber state swapping
This commit is contained in:
parent
ea1c4003e4
commit
94a3482e49
@ -31,9 +31,9 @@ byte fbrRunning = 0
|
||||
struc t_vm
|
||||
byte estklo[$10]
|
||||
byte estkhi[$10]
|
||||
byte esp
|
||||
word ifp
|
||||
word pp
|
||||
byte esp
|
||||
byte hwsp
|
||||
byte fill[9]
|
||||
byte drop
|
||||
@ -294,6 +294,7 @@ def fbrTest(fid, param)
|
||||
next
|
||||
end
|
||||
|
||||
//puts("fbrSwap = "); puth(@fbrSwap); putln
|
||||
fbrInit(4)
|
||||
fbrStart(@fbrTest, 3)
|
||||
fbrStart(@fbrTest, 2)
|
||||
|
@ -14,15 +14,15 @@ ESTK = $C0
|
||||
ESTKL = ESTK
|
||||
ESTKH = ESTK+ESTKSZ/2
|
||||
VMZP = ESTK+ESTKSZ
|
||||
IFP = VMZP
|
||||
ESP = VMZP
|
||||
DVSIGN = VMZP
|
||||
IFP = ESP+1
|
||||
IFPL = IFP
|
||||
IFPH = IFP+1
|
||||
PP = IFP+2
|
||||
PPL = PP
|
||||
PPH = PP+1
|
||||
DVSIGN = PP+2
|
||||
ESP = PP+2
|
||||
IPY = ESP+1
|
||||
IPY = PP+2
|
||||
TMP = IPY+1
|
||||
TMPL = TMP
|
||||
TMPH = TMP+1
|
||||
|
Loading…
Reference in New Issue
Block a user