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

Fix check for duplicate CASE and updates images

Browse Source
This commit is contained in:
David Schmenk 2018-03-16 16:57:42 -07:00
parent 423ca66fc0
commit 5c9bc34844
6 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
PLASMA-BLD2.PO
View File

Binary file not shown.

BIN
PLASMA-DEM2.PO
View File

Binary file not shown.

BIN
PLASMA-SOS2.PO
View File

Binary file not shown.

BIN
PLASMA-SYS2.PO
View File

Binary file not shown.

2
src/toolsrc/parse.c
View File

@ -1069,7 +1069,7 @@ int parse_stmnt(void)
casetag[i] = casetag[i-1]; casetag[i] = casetag[i-1];
i--; i--;
} }
if (casecnt && (caseval[i] == constval)) if ((i < casecnt) && (caseval[i] == constval))
parse_error("Duplicate CASE"); parse_error("Duplicate CASE");
caseval[i] = constval; caseval[i] = constval;
casetag[i] = tag_of; casetag[i] = tag_of;

2
src/toolsrc/parse.pla
View File

@ -821,7 +821,7 @@ def parse_stmnt
casetag=>[i] = casetag=>[i-1] casetag=>[i] = casetag=>[i-1]
i-- i--
loop loop
if casecnt and caseval=>[i] == caseconst; exit_err(ERR_DUP|ERR_STATE); fin if i < casecnt and caseval=>[i] == caseconst; exit_err(ERR_DUP|ERR_STATE); fin
caseval=>[i] = caseconst caseval=>[i] = caseconst
casetag=>[i] = tag_of casetag=>[i] = tag_of
casecnt++ casecnt++