#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "loop_exit_", 11}; PRIVATE TXT txt2 = { 3, "loop_@:;\012\001", 11};
PRIVATE TXT txt3 = { 3, "goto loop_@;\012", 14}; PRIVATE TXT txt4 = { 3, "\002", 2}; PRIVATE TXT txt5 = { 3, "@@: /**/;\012", 11};
#define t27 ADDRESS
#define t79 void
#define TC27 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a;
#line 17 "../Interfaces/Scope.i3"
#define t39 ADDRESS
#define t60 ADDRESS
 typedef struct { TYPE self; int private; } t60_methods; 
#define t60_msize (sizeof (t60_methods))
typedef struct { ADDRESS methods; } t60_fields; 
#define t60_size (sizeof (t60_fields))
#define TC60 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 15 "../Interfaces/M3.i3"
#define t33 ADDRESS
#define TC33 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t67;
#line 17 "../Interfaces/Scope.i3"
#define t43 t67
#define TC39 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 16 "../Interfaces/Type.i3"
#define t48 ADDRESS
typedef int t2;
#line 16
#define t57 t67
#define TC48 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce;
#line 14 "../Interfaces/Expr.i3"
#define t51 ADDRESS
#define t44 ADDRESS
#define TC44 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16 "../Interfaces/M3.i3"
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t52 t67
#define TC51 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Type.i3"
#define t55 ADDRESS
#define t12 ADDRESS
#define TC12 TC_M3__Type
IMPORT TYPE TC_M3__Type;
#line 18 "../Interfaces/M3.i3"
IMPORT char VS_M3__Type__4d87bc25311f81d2;
#line 17 "../Interfaces/Type.i3"
typedef struct { t55 _next; t12 _type; } t56; 
#define TC55 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t59 ADDRESS
#define TC59 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; 
#define t80 ADDRESS
#define TC80 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc;
#line 16 "./Stmt.i3"
typedef unsigned char t58;
typedef struct { int elts[1]; } t1;
#line 15 "LoopStmt.m3"
#define t3 ADDRESS

#line 17 "../Interfaces/M3.i3"
#define t7 ADDRESS
#define TC7 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 47 "../Interfaces/Marker.i3"
typedef t79 (*t5)();
#line 20 "./StmtRep.i3"
typedef void (*t4)();
#line 15 "LoopStmt.m3"
typedef struct { int filler; } t3_methods; 
#define t3_msize (sizeof (t3_methods))
typedef struct {
#line 15
 t7 _body; } t3_fields; 
#define t3_size (sizeof (t3_fields))
PRIVATE void t3_InitProc ();
#line 15
PRIVATE void t3_SetupProc (); PRIVATE void t3_PrintProc (); PRIVATE typecell t3_TC; PRIVATE typecell t3_TC_init = {0, 0, 0, 0, 0, (PROC)NIL,
#line 15
  t3_size, t3_msize, NIL, 0, 0, t3_InitProc,   t3_SetupProc,   t3_PrintProc, "", -879513955, 699287839}; PRIVATE TYPE TC3 = &t3_TC; 
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t6;
#line 45
typedef struct { int elts[4]; } t8;
#line 28 "LoopStmt.m3"
typedef t7 (*t9)();
#line 13 "../Interfaces/String.i3"
#define t10 ADDRESS
#define TC10 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee;
#line 16 "../Interfaces/Variable.i3"
#define t11 ADDRESS
#define TC11 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef unsigned char t13;
#line 43 "../Interfaces/Marker.i3"
typedef t13 (*t14)();
#line 13 "./StmtRep.i3"
#define t15 ADDRESS

#line 13
typedef struct { t5 _bind; t5 _check; t5 _precompile; t4 _compile; } t15_methods; 
#define t15_msize (sizeof (t15_methods))
typedef struct {
#line 13
 t7 _next; t2 _origin; } t15_fields; 
#define t15_size (sizeof (t15_fields))
#define TC15 TC_M3__Stmt
#define t28 ADDRESS
 typedef struct { TYPE self; int private; } t28_methods; 
#define t28_msize (sizeof (t28_methods))
typedef struct { ADDRESS methods; } t28_fields; 
#define t28_size (sizeof (t28_fields))
#define TC28 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t28_MapProc TC_ROOT->mapProc
#define t16 ADDRESS
#define TC16 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t16_MapProc TC_Rd__T->mapProc
#define t17 ADDRESS
#define TC17 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t17_MapProc TC_TEXT->mapProc
typedef t10 (*t18)();
#line 13 "../Interfaces/Scanner.i3"
typedef struct { t6 _token; t10 _string; t2 _value; t2 _offset; } t19; typedef int t20;
#line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t20 (*t21)();
#line 220
typedef t17 (*t22)(); typedef unsigned char t23;
#line 189
#define t24 t67
typedef t23 (*t25)();
#line 84
typedef unsigned char t26;
#line 27 "../Interfaces/Emit.i3"
typedef signed_char t29;
#line 63
typedef t29 (*t30)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t63;
#line 65 "../Interfaces/Token.i3"
#define t61 t67
typedef struct { t10 elts[100]; } t64;
#line 17 "../Interfaces/String.i3"
typedef struct { t2 _top; t64 _stk; } t31;
#line 19 "../Interfaces/M3.i3"
#define t32 ADDRESS
#define TC32 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae; typedef double t34;
#line 14
#define t35 ADDRESS
#define TC35 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 38 "../Interfaces/Variable.i3"
typedef t32 (*t36)();
#line 24
typedef t11 (*t37)();
#line 14 "../Interfaces/Decl.i3"
typedef struct { t10 _alias; t13 _isExternal; t13 _isInline; t13 _isUnused; t13 _isObsolete; } t38;
#line 14 "../Interfaces/String.i3"
typedef struct { t10 _module; t10 _item; } t40;
#line 38 "../Interfaces/Scope.i3"
typedef t33 (*t41)();
#line 31
typedef t35 (*t42)();
#line 45 "../Interfaces/Value.i3"
typedef t12 (*t45)();
#line 44
typedef t44 (*t46)();
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
#define t47 ADDRESS
#define TC47 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t47_MapProc TC_Wr__T->mapProc
typedef unsigned char t49;
#line 40 "../Interfaces/Value.i3"
typedef t49 (*t50)();
#line 121 "../Interfaces/Type.i3"
typedef t48 (*t53)();
#line 97
typedef t2 (*t54)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t10 elts[97]; } t62;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t65; typedef t65 (*t66)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t68;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t69 ADDRESS
#define TC69 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t69_MapProc TC_Thread__T->mapProc
typedef t27 (*t70)();



#define t71 ADDRESS
#define TC71 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t71_MapProc TC_Thread__Condition->mapProc
#define t72 ADDRESS
#define TC72 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t72_MapProc TC_MUTEX->mapProc
typedef t69 (*t73)();
#line 23
#define t74 ADDRESS

#line 23
typedef struct { t70 _apply; } t74_methods; 
#define t74_msize (sizeof (t74_methods))
typedef struct {
#line 23
 int filler; } t74_fields; 
#define t74_size (sizeof (t74_fields))
#define TC74 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t74_MapProc TC_Thread__Closure->mapProc
typedef t71 (*t75)();





typedef t72 (*t76)();
#line 28
#define t77 ADDRESS

#line 28
typedef struct { int filler; } t77_methods; 
#define t77_msize (sizeof (t77_methods))
typedef struct {
#line 28
 t20 _stackSize; } t77_fields; 
#define t77_size (sizeof (t77_fields))
#define TC77 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t77_MapProc TC_Thread__SizedClosure->mapProc
typedef CLOSURE t78; typedef float t81;
#line 10 "LoopStmt.m3"
IMPORT INITLINK* Token__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Marker__init; IMPORT INITLINK* StmtRep__init;
#line 10
IMPORT INITLINK* Stmt__init; IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Emit__init; IMPORT INITLINK* Error__init; IMPORT INITLINK* LoopStmt__init;
#line 10
 IMPORT t8 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t8 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02;
#line 10
IMPORT t8 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836;   IMPORT t10 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63;
#line 10
  IMPORT TYPE TC_Marker__Prefix; IMPORT char VS_Marker__Prefix__819dde3f21a97326; IMPORT t79 _Marker__Pop (); IMPORT char VS_Marker__Pop__e998f6f7244b0f3e;
#line 10
IMPORT t79 _Marker__PushExit (); IMPORT char VS_Marker__PushExit__cc7dd98132c2b6e7;   IMPORT t79 _StmtRep__Init (); IMPORT char VS_StmtRep__Init__fe14377c36e397de;
#line 10
  IMPORT TYPE TC_Stmt__T; IMPORT char VS_Stmt__T__2446b70b3f7780a5; IMPORT t7 _Stmt__Parse (); IMPORT char VS_Stmt__Parse__35df10ad3fd1dfe6;
#line 10
IMPORT t79 _Stmt__Bind (); IMPORT char VS_Stmt__Bind__55f2c79a304c25df; IMPORT t79 _Stmt__TypeCheck (); IMPORT char VS_Stmt__TypeCheck__e228c94928564a9d;
#line 10
IMPORT t79 _Stmt__Precompile (); IMPORT char VS_Stmt__Precompile__68dddedb3aa69659; IMPORT void _Stmt__Compile (); IMPORT char VS_Stmt__Compile__53f9f2c43edb087a;
#line 10
  IMPORT t79 _Scanner__Match (); IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8;   IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3;
#line 10
IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7; IMPORT t79 _Emit__Op (); IMPORT char VS_Emit__Op__072646cc27c8ae10;
#line 10
IMPORT t79 _Emit__OpSI (); IMPORT char VS_Emit__OpSI__ab1965f432d76dc2; IMPORT t79 _Emit__OpI (); IMPORT char VS_Emit__OpI__02cb878634bb9f49;
#line 10
    EXPORT t7 _LoopStmt__Parse (); EXPORT char VS_LoopStmt__Parse__6c02386e20f5bcda = '\0'; PRIVATE TYPE TC_LoopStmt__P; PRIVATE t10 _LoopStmt__labelPrefix;
#line 10
PRIVATE t2 _LoopStmt__nextID; PRIVATE t79 _LoopStmt__Bind (); PRIVATE t79 _LoopStmt__Check (); PRIVATE t79 _LoopStmt__Precompile ();
#line 10
PRIVATE void _LoopStmt__Compile ();  IMPORT char VS_M3__Stmt__8851da472c4ee5cd;    
#line 28 "LoopStmt.m3"
 EXPORT t7 _LoopStmt__Parse (_fail) t8 * _fail; { t3 z0; t8 z3; t2 z4; t8 z5; t8 z2; t8 z1; t7 z6; t3 z7;
#line 28 "LoopStmt.m3"
{ auto t3 _p; auto t7 __result; {

      ZERO1  (& _p);
#line 28
      CHECKSTACKOVERFLOW;



      { register char** ptr = (char**) UNEWOBJ (TC3); z0 = (t3) ptr; }; _p = z0;
      _StmtRep__Init (_p);
      z3.elts [0] = 0; z3.elts [1] = 0x00200000; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 67 , &(*_fail), &z5);
      z2.elts [0] = 0; z2.elts [1] = 0x00200000; z2.elts [2] = 0; z2.elts [3] = 0; z3.elts[0] = (*_fail).elts[0] | z2.elts[0];
#line 35
      z3.elts[1] = (*_fail).elts[1] | z2.elts[1]; z3.elts[2] = (*_fail).elts[2] | z2.elts[2]; z3.elts[3] = (*_fail).elts[3] | z2.elts[3];
#line 35
      z1 = z3; z6 = _Stmt__Parse (&z1); NILCHECKA (z7 = _p); (((t3_fields*)(z7+(0+t15_size+t60_size)))->_body) = z6;
      z3.elts [0] = 0; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 53 , &(*_fail), &z5);
      __result = _p; return __result; } } };
#line 40 "LoopStmt.m3"
 PRIVATE t79 _LoopStmt__Bind (_p) t3 _p; { t3 z2;
#line 40 "LoopStmt.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _p); _Stmt__Bind ((((t3_fields*)(z2+(0+t15_size+t60_size)))->_body)); } } };
#line 45 "LoopStmt.m3"
 PRIVATE t79 _LoopStmt__Check (_p) t3 _p; { t3 z2;
#line 45 "LoopStmt.m3"
{ { CHECKSTACKOVERFLOW;

      _Marker__PushExit (0,  0 );
      NILCHECKA (z2 = _p); _Stmt__TypeCheck ((((t3_fields*)(z2+(0+t15_size+t60_size)))->_body));
      _Marker__Pop (); } } };
#line 52 "LoopStmt.m3"
 PRIVATE t79 _LoopStmt__Precompile (_p) t3 _p; { t3 z2;
#line 52 "LoopStmt.m3"
{ { CHECKSTACKOVERFLOW;

      _Marker__PushExit (0,  0 );
      NILCHECKA (z2 = _p); _Stmt__Precompile ((((t3_fields*)(z2+(0+t15_size+t60_size)))->_body));
      _Marker__Pop (); } } };
#line 59 "LoopStmt.m3"
 PRIVATE void _LoopStmt__Compile (_p, _return) t3 _p; t1* _return; { t13 z2; t10 z3; t3 z4; t1 z5; t13 z0; t1 z1; t2 z6; t1 z7;
#line 59 "LoopStmt.m3"
{ auto t2 _label; auto t1 _oc; auto t1 __result; { CHECKSTACKOVERFLOW;


      _label = _LoopStmt__nextID; _LoopStmt__nextID +=  1 ;
      z2 = (_LoopStmt__labelPrefix == 0); if (z2) { z3 = _String__Add (((ADDRESS)(& txt1.str)),  999999 ); _LoopStmt__labelPrefix = z3;
#line 63
         goto if_1_end; }; if_1_end: /**/;
      _Marker__PushExit (_LoopStmt__labelPrefix, _label);
      _Emit__OpI (((ADDRESS)(& txt2.str)), _label);
      NILCHECKA (z4 = _p); _Stmt__Compile ((((t3_fields*)(z4+(0+t15_size+t60_size)))->_body), &z5); _oc.elts[0] = z5.elts[0];
      _Marker__Pop ();
      z0 = ((_oc.elts [0]  &  (1<<0)) != 0); if (z0) {
         _Emit__OpI (((ADDRESS)(& txt3.str)), _label);
         z1.elts [0] = 0x00000001; z5.elts[0] = _oc.elts[0] & ~ z1.elts[0]; _oc.elts[0] = z5.elts[0]; goto if_2_end; }; if_2_end: /**/;

      _Emit__Op (((ADDRESS)(& txt4.str)));
      z0 = ((_oc.elts [0]  &  (1<<1)) != 0); if (z0) {
         _Emit__OpSI (((ADDRESS)(& txt5.str)), _LoopStmt__labelPrefix, _label);
         z1.elts [0] = 0x00000001; z5.elts[0] = _oc.elts[0] | z1.elts[0]; z1.elts [0] = 0x00000002; z7.elts[0] = z5.elts[0] & ~ z1.elts[0];
#line 75
         _oc.elts[0] = z7.elts[0]; goto if_3_end; }; if_3_end: /**/;


      __result = _oc; *_return = __result; return; } } };  PRIVATE int init_done = -1;
#line 78 "LoopStmt.m3"
 PRIVATE void LoopStmt__initProc (g) int g; {
#line 78 "LoopStmt.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& LoopStmt__init); INITIALIZE (& Token__init); INITIALIZE (& String__init);
#line 78
INITIALIZE (& Marker__init); INITIALIZE (& StmtRep__init); INITIALIZE (& Stmt__init); INITIALIZE (& Scanner__init); INITIALIZE (& Emit__init);
#line 78
INITIALIZE (& Error__init);
#line 25
ZERO1  ((& _LoopStmt__labelPrefix));
ZERO1  ((& _LoopStmt__nextID));
#line 78
return; }; 
#line 78 "LoopStmt.m3"
PRIVATE void t3_InitProc (obj) char* obj; { register t3_fields* p;
#line 78 "LoopStmt.m3"
CHECKSTACKOVERFLOW; p = (t3_fields*) (obj + TC7->datasize); }; 
#line 78 "LoopStmt.m3"
PRIVATE void t3_SetupProc () { register int* p;
#line 78 "LoopStmt.m3"
t3_TC.datasize += TC7->datasize; t3_TC.methodsize += TC7->methodsize; p = (int*) UALLOC (t3_TC.methodsize); COPY (TC7->defaultMethods, p, (TC7->methodsize));
#line 78
p[0] = (int)(& t3_TC); p[1] = 0; ((t15_methods*) (((char*)p) + TC60->methodsize))->_bind = _LoopStmt__Bind; ((t15_methods*) (((char*)p) + TC60->methodsize))->_check = _LoopStmt__Check;
#line 78
((t15_methods*) (((char*)p) + TC60->methodsize))->_precompile = _LoopStmt__Precompile; ((t15_methods*) (((char*)p) + TC60->methodsize))->_compile = _LoopStmt__Compile;
#line 78
t3_TC.defaultMethods = (char*) p; }; 
#line 78 "LoopStmt.m3"
PRIVATE void t3_PrintProc (obj) char *obj; { t3_fields* o;
#line 78 "LoopStmt.m3"
CHECKSTACKOVERFLOW; if (TC7->printProc != 0) {TC7->printProc (obj); } fprintf (stderr, "{%s} ", TC3->brand); o = (t3_fields*) (obj + TC7->datasize);
#line 78
fprintf (stderr, "body = %#x", o->_body); fprintf (stderr, ", "); };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, LoopStmt__initProc};
static char* VSimports[] = { &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836,
&VS_String__T__3a6c7dc12615e4ee, &VS_String__Add__0f5e21cc3d204b63, &VS_Marker__Prefix__819dde3f21a97326, &VS_Marker__Pop__e998f6f7244b0f3e,
&VS_Marker__PushExit__cc7dd98132c2b6e7, &VS_StmtRep__Init__fe14377c36e397de, &VS_Stmt__T__2446b70b3f7780a5, &VS_Stmt__Parse__35df10ad3fd1dfe6,
&VS_Stmt__Bind__55f2c79a304c25df, &VS_Stmt__TypeCheck__e228c94928564a9d, &VS_Stmt__Precompile__68dddedb3aa69659, &VS_Stmt__Compile__53f9f2c43edb087a,
&VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Op__072646cc27c8ae10,
&VS_Emit__OpSI__ab1965f432d76dc2, &VS_Emit__OpI__02cb878634bb9f49, NIL };  void LoopStmt__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = LoopStmt__init; LoopStmt__init = & me_0;
         t3_TC = t3_TC_init; REGISTERTYPE (TC3); break; }; case 1: { t3_TC.parent = TC_M3__Stmt; break; }; case 2: { break; }; };
 };