artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Prepare for M2-Planet: continue.

Browse source 
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 (janneke) Nieuwenhuizen 2020-07-18 20:40:06 +02:00
parent dfe8d3c16c
commit a3038a694e
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

@ -884,6 +884,7 @@ begin_expand:
x = cell_unspecified; x = cell_unspecified;
while (R1 != cell_nil) while (R1 != cell_nil)
{ {
begin_expand_while:
gc_check (); gc_check ();
if (TYPE (R1) == TPAIR) if (TYPE (R1) == TPAIR)
@ -921,7 +922,8 @@ begin_expand:
R1 = cons (cell_symbol_begin, R1); R1 = cons (cell_symbol_begin, R1);
CAR (R2) = R1; CAR (R2) = R1;
R1 = R2; R1 = R2;
continue; goto begin_expand_while;
continue; /* FIXME: M2-PLanet */
} }
} }
@ -932,7 +934,8 @@ begin_expand:
{ {
CAR (R2) = R1; CAR (R2) = R1;
R1 = R2; R1 = R2;
continue; goto begin_expand_while;
continue; /* FIXME: M2-PLanet */
} }
R1 = R2; R1 = R2;
expand_variable (CAR (R1), cell_nil); expand_variable (CAR (R1), cell_nil);