6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-03-28 10:31:35 +00:00
Code Issues Projects Releases Wiki Activity

Can't initialize function pointers yet

Browse Source
This commit is contained in:
David Schmenk 2014-11-22 22:43:41 -08:00
parent 2199a1e5c1
commit 938e9fb52f
1 changed files with 17 additions and 10 deletions

27
src/toolsrc/sb.pla

@ -2869,7 +2869,6 @@ def parse_constval(valptr, sizeptr)
mod = 0
type = 0
*valptr = 0
while !parse_term
when token
is SUB_TKN
@ -2894,7 +2893,7 @@ def parse_constval(valptr, sizeptr)
if mod; return parse_err(@bad_op); fin
break
is CHR_TKN
*valptr = constval
^valptr = constval
^sizeptr = 1
type = BYTE_TYPE
break
@ -2915,11 +2914,7 @@ def parse_constval(valptr, sizeptr)
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
return parse_err(@bad_cnst)
fin
else
*valptr = idptr=>idval + codebuff
@ -2932,13 +2927,25 @@ def parse_constval(valptr, sizeptr)
return parse_err(@bad_cnst)
wend
if mod & 1
*valptr = -*valptr
if type == BYTE_TYPE
^valptr = -^valptr
else
*valptr = -*valptr
fin
fin
if mod & 2
*valptr = ~*valptr
if type == BYTE_TYPE
^valptr = ~^valptr
else
*valptr = ~*valptr
fin
fin
if mod & 4
*valptr = !*valptr
if type == BYTE_TYPE
^valptr = !^valptr
else
*valptr = !*valptr
fin
fin
return type
end