6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-09 19:31:13 +00:00
Code Issues Projects Releases Wiki Activity

Fix DLW TOSL_DIRTY

Browse Source
This commit is contained in:
David Schmenk 2018-03-23 16:05:39 -07:00
parent 3c72bb9df3
commit 8b1ca4bf1e
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/libsrc/apple/jit.pla
View File

@ -1266,6 +1266,7 @@ def compiler(defptr)#0
if not A_IS_TOSL
^codeptr = $B5; codeptr++ // LDA zp,X
^codeptr = $D0+VX; codeptr++ // ESTKL
A_IS_TOSL = TOSL_CLEAN
fin
^codeptr = $8D; codeptr++ // STA abs
*codeptr = *(bytecode+i); codeptr = codeptr + 2
@ -1275,7 +1276,6 @@ def compiler(defptr)#0
*codeptr = *(bytecode+i)+1; codeptr = codeptr + 2
^codeptr = $A0; codeptr++ // LDY #imm
^codeptr = $00; codeptr++ // $00
A_IS_TOSL = TOSL_CLEAN
i++
break
// LNOT,ADD,SUB,MUL,DIV,MOD,INCR,DECR ; 80 82 84 86 88 8A 8C 8E

3
src/toolsrc/codegen.pla
View File

@ -435,6 +435,9 @@ def idmatch(nameptr, len, idptr, idcnt)
//for i = 1 to len
// if nameptr->[i - 1] <> idptr->idname.[i]; break; fin
//next
puts(@idptr->idname);putln
puti(i); putln
puti(len); putln
if i > len; return idptr; fin
fin
idptr = idptr + idptr->idname + t_id