6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-10 06:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Fix CFA pointer to PFA in DEFER for PBC words

Browse Source
This commit is contained in:
David Schmenk 2024-02-07 09:17:42 -08:00
parent 9b749d6f99
commit 80c8cd4e6a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/toolsrc/plforth.pla
View File

@ -1336,7 +1336,7 @@ def _is_(a)#0
*_cfa_(dentry) = @_dodefer_
*_pfa_(dentry) = a
else // comp_pbc_flag
*_cfa_(dentry) = _cfa_(dentry)
*_cfa_(dentry) = _pfa_(dentry)
^_pfa_(dentry) = JMP
*(_pfa_(dentry) + 1) = *_cfa_(a)
fin
@ -1883,7 +1883,7 @@ def _see_#0
break
otherwise // ???
pfa = @d_exit
wend
wend
putc('$'); puth(pfa); putc(' ')
w = *pfa
while w