libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2025-02-09 04:16:34 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

DIRECTOR: LINGO: Fixed code generation for repeat..with

Browse Source
This commit is contained in:
Eugene Sandulenko 2020-02-18 22:37:55 +02:00
parent 277d807168
commit a99b9d78b0
2 changed files with 590 additions and 588 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1172
engines/director/lingo/lingo-gr.cpp
View File

File diff suppressed because it is too large Load Diff

6
engines/director/lingo/lingo-gr.y
View File

@ -252,7 +252,7 @@ stmt: stmtoneliner
// statements
// end repeat
//
| repeatwith tEQ expr[init] end tTO expr[finish] end stmtlist end[end3] tENDREPEAT {
| repeatwith tEQ begin[init] expr end tTO expr[finish] end stmtlist end[end3] tENDREPEAT {
inst init = 0, finish = 0, body = 0, end = 0, inc = 0;
WRITE_UINT32(&init, $init - $repeatwith);
WRITE_UINT32(&finish, $finish - $repeatwith);
@ -269,7 +269,7 @@ stmt: stmtoneliner
// statements
// end repeat
//
| repeatwith tEQ expr[init] end tDOWN tTO expr[finish] end stmtlist end[end3] tENDREPEAT {
| repeatwith tEQ begin[init] expr end tDOWN tTO expr[finish] end stmtlist end[end3] tENDREPEAT {
inst init = 0, finish = 0, body = 0, end = 0, inc = 0;
WRITE_UINT32(&init, $init - $repeatwith);
WRITE_UINT32(&finish, $finish - $repeatwith);
@ -281,7 +281,7 @@ stmt: stmtoneliner
(*g_lingo->_currentScript)[$repeatwith + 3] = body; /* body of loop */
(*g_lingo->_currentScript)[$repeatwith + 4] = inc; /* increment */
(*g_lingo->_currentScript)[$repeatwith + 5] = end; } /* end, if cond fails */
| repeatwith tIN expr[list] end stmtlist end[end3] tENDREPEAT {
| repeatwith tIN begin[list] expr end stmtlist end[end3] tENDREPEAT {
inst list = 0, body = 0, end = 0;
WRITE_UINT32(&list, $list - $repeatwith);
WRITE_UINT32(&body, $stmtlist - $repeatwith);