andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: Prepare for M2-Planet: continue. 

Rewrite C-constructs not supported by M2-Planet

    continue              -> goto LABEL

* src/eval-apply.c (eval_apply): Add label: begin_expand_while.  Use it
instead of continue.
This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 20:40:06 +02:00
parent c43a16e168
commit 45256476e9
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/eval-apply.c
View File

@ -888,6 +888,7 @@ begin_expand:
x = cell_unspecified;
while (R1 != cell_nil)
{
begin_expand_while:
gc_check ();
if (TYPE (R1) == TPAIR)
@ -925,7 +926,8 @@ begin_expand:
R1 = cons (cell_symbol_begin, R1);
CAR (R2) = R1;
R1 = R2;
continue;
goto begin_expand_while;
continue; /* FIXME: M2-PLanet */
}
}
@ -936,7 +938,8 @@ begin_expand:
{
CAR (R2) = R1;
R1 = R2;
continue;
goto begin_expand_while;
continue; /* FIXME: M2-PLanet */
}
R1 = R2;
expand_variable (CAR (R1), cell_nil);