6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-07-03 05:29:30 +00:00
Code Issues Projects Releases Wiki Activity

PLASM type override bug :-(

Browse Source
This commit is contained in:
David Schmenk 2018-02-09 20:17:13 -08:00
parent c786d4aaf8
commit 474f0a9017
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/toolsrc/parse.pla
View File

@ -402,7 +402,7 @@ def parse_value(codeseq, r_val)#2
else
deref++
fin
type = (type & PTR_TYPE) | token == PTRB_TKN ?? BYTE_TYPE :: WORD_TYPE
type = token == PTRB_TKN ?? BYTE_TYPE :: WORD_TYPE
if not parse_const(@const_offset)
rewind(tknptr) // Setting type override for following operations
elsif const_offset <> 0
@ -421,7 +421,7 @@ def parse_value(codeseq, r_val)#2
elsif not (type & VAR_TYPE)
deref++
fin
type = (type & VAR_TYPE) | (token == DOT_TKN ?? BYTE_TYPE :: WORD_TYPE)
type = token == DOT_TKN ?? BYTE_TYPE :: WORD_TYPE
if not parse_const(@const_offset)
rewind(tknptr) // Setting type override for following operations
elsif const_offset <> 0

2
src/toolsrc/plasm.pla
View File

@ -411,7 +411,7 @@ include "toolsrc/parse.pla"
//
// Look at command line arguments and compile module
//
puts("PLASMA Compiler, Version 1.01\n")
puts("PLASMA Compiler, Version 1.02\n")
arg = argNext(argFirst)
if ^arg and ^(arg + 1) == '-'
opt = arg + 2

3
src/vmsrc/soscmd.pla
View File

@ -29,7 +29,7 @@ predef execmod(modfile)#1
//
// Exported CMDSYS table
//
word version = $0101 // 01.01
word version = $0102 // 01.02
word syspath
word cmdlnptr
word = @execmod
@ -1500,6 +1500,7 @@ while 1
saveX
execmod(striptrail(cmdptr))
restoreX
//close(0)
init_cons
break
otherwise