Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2025-01-27 16:36:17 +00:00
Code Issues Projects Releases Wiki Activity

Clean up 'when/is/otherwise' code contructs.

Browse Source
This commit is contained in:
David Schmenk 2014-07-05 12:39:12 -07:00
parent 3b0e951e34
commit 8a909055dd
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
PLASMA/src/parse.c
View File

@ -639,11 +639,10 @@ int parse_stmnt(void)
char *idptr; char *idptr;
/* /*
* Optimization for last function LEAVE * Optimization for last function LEAVE and OF clause.
*/ */
if (scantoken != END_TOKEN && scantoken != DONE_TOKEN) if (scantoken != END_TOKEN && scantoken != DONE_TOKEN && scantoken != OF_TOKEN && scantoken != DEFAULT_TOKEN)
prevstmnt = scantoken; prevstmnt = scantoken;
switch (scantoken) switch (scantoken)
{ {
case IF_TOKEN: case IF_TOKEN:
@ -822,17 +821,17 @@ int parse_stmnt(void)
emit_brne(tag_choice); emit_brne(tag_choice);
emit_codetag(tag_of); emit_codetag(tag_of);
while (parse_stmnt()) next_line(); while (parse_stmnt()) next_line();
//emit_brnch(break_tag);
tag_of = tag_new(BRANCH_TYPE); tag_of = tag_new(BRANCH_TYPE);
if (prevstmnt != BREAK_TOKEN) // Fall through to next OF if no break
emit_brnch(tag_of); emit_brnch(tag_of);
emit_codetag(tag_choice); emit_codetag(tag_choice);
tag_choice = tag_new(BRANCH_TYPE); tag_choice = tag_new(BRANCH_TYPE);
} }
else if (scantoken == DEFAULT_TOKEN) else if (scantoken == DEFAULT_TOKEN)
{ {
scan();
emit_codetag(tag_of); emit_codetag(tag_of);
tag_of = 0; tag_of = 0;
scan();
while (parse_stmnt()) next_line(); while (parse_stmnt()) next_line();
if (scantoken != ENDCASE_TOKEN) if (scantoken != ENDCASE_TOKEN)
{ {