6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-10-01 14:57:08 +00:00
Code Issues Projects Releases Wiki Activity

Fix initializers of addresses in variables

Browse Source
This commit is contained in:
David Schmenk 2014-11-22 22:22:23 -08:00
parent 0233506dfb
commit 2199a1e5c1
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/toolsrc/sb.pla
View File

@ -2865,7 +2865,7 @@ def parse_term
end
def parse_constval(valptr, sizeptr)
byte mod, type
word idptr
word idptr, ctag
mod = 0
type = 0
@ -2908,9 +2908,26 @@ def parse_constval(valptr, sizeptr)
idptr = id_lookup(tknptr, tknlen)
if !idptr; return parse_err(@bad_cnst); fin
type = idptr->idtype
*valptr = idptr=>idval
if type & VAR_TYPE and !(mod & 8); return parse_err(@bad_cnst); fin
break
if type & VAR_TYPE
if !(mod & 8); return parse_err(@bad_cnst); fin
if idptr=>idval & IS_CTAG
ctag = idptr=>idval & MASK_CTAG
if ctag_tbl:[ctag] & IS_RESOLVED
*valptr = (ctag_tbl:[ctag] & MASK_CTAG) + codebuff
else
//
// Add to list of tags needing resolution
//
*valptr = ctag_tbl:[ctag] & MASK_CTAG
ctag_tbl:[ctag] = valptr - codebuff
fin
else
*valptr = idptr=>idval + codebuff
fin
else
*valptr = idptr=>idval
fin
break
otherwise
return parse_err(@bad_cnst)
wend