6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-12 06:39:51 +00:00
Code Issues Projects Releases Wiki Activity

Uppercase symbol names

Browse Source
This commit is contained in:
David Schmenk 2024-07-06 07:46:16 -07:00
parent cf8d13f067
commit 04146f954a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/toolsrc/drawl.pla
View File

@ -126,7 +126,7 @@ def new_sym(symstr)
symptr=>natv = NULL
symptr=>lambda = NULL
memcpy(symptr + name, symstr + 1, ^symstr)
//puts("New symbol: "); puts(symstr); putln
puts("New symbol: "); puts(symstr); putln
return symptr
end
@ -269,6 +269,7 @@ def parse_sym(evalptr)#2 // return evalptr, symptr
var symstr
symstr = evalptr - 1
while is_alphasym(^evalptr)
^evalptr = toupper(^evalptr)
evalptr++
loop
^symstr = evalptr - symstr - 1