#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "\047from\047 and \047to\047 expressions are incompatible", 45};
PRIVATE TXT txt2 = { 3, "\047from\047 and \047to\047 expressions must be compatible ordinals", 56 }; PRIVATE TXT txt3 = { 3, "\047by\047 expression must be an integer", 35};
PRIVATE TXT txt4 = { 3, "for_", 5}; PRIVATE TXT txt5 = { 3, "{\001\012", 4}; PRIVATE TXT txt6 = { 3, "int from, to, index;\012", 22};
PRIVATE TXT txt7 = { 3, "int by;\012", 9}; PRIVATE TXT txt8 = { 3, "from = @;\012", 11}; PRIVATE TXT txt9 = { 3, "to = @;\012", 9};
PRIVATE TXT txt10 = { 3, "for (index = from; ", 20}; PRIVATE TXT txt11 = { 3, "index >= to; ", 14}; PRIVATE TXT txt12 = { 3, "index <= to; ", 14};
PRIVATE TXT txt13 = { 3, "index += ", 10}; PRIVATE TXT txt14 = { 3, "@) {\001\012", 7}; PRIVATE TXT txt15 = { 3, "by = @;\012", 9};
PRIVATE TXT txt16 = { 3, "((by<0)?(index>=to):", 21}; PRIVATE TXT txt17 = { 3, "(index<=to)); ", 15}; PRIVATE TXT txt18 = { 3, "index += by) {\001\012", 17};
PRIVATE TXT txt19 = { 3, "@ = ", 5}; PRIVATE TXT txt20 = { 3, "(t@) index;\012", 13}; PRIVATE TXT txt21 = { 3, "\002};\012\002};\012", 9};
PRIVATE TXT txt22 = { 3, "@@: /**/;\012", 11}; 
#define t30 ADDRESS
#define t80 void
#define TC30 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a;
#line 17 "../Interfaces/Scope.i3"
#define t43 ADDRESS
#define t61 ADDRESS
 typedef struct { TYPE self; int private; } t61_methods; 
#define t61_msize (sizeof (t61_methods))
typedef struct { ADDRESS methods; } t61_fields; 
#define t61_size (sizeof (t61_fields))
#define TC61 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]; } t68;
#line 17 "../Interfaces/Scope.i3"
#define t47 t68
#define TC43 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 16 "../Interfaces/Type.i3"
#define t49 ADDRESS
typedef int t5;
#line 16
#define t58 t68
#define TC49 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce;
#line 14 "../Interfaces/Expr.i3"
#define t52 ADDRESS
#define t6 ADDRESS
#define TC6 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 t53 t68
#define TC52 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Type.i3"
#define t56 ADDRESS
#define t2 ADDRESS
#define TC2 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 { t56 _next; t2 _type; } t57; 
#define TC56 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t60 ADDRESS
#define TC60 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; 
#define t81 ADDRESS
#define TC81 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; typedef unsigned char t1;
#line 16 "./Stmt.i3"
typedef unsigned char t59;
typedef struct { int elts[1]; } t3;
#line 19 "../Interfaces/M3.i3"
#define t4 ADDRESS
#define TC4 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 43 "ForStmt.m3"
#define t7 ADDRESS

#line 14 "../Interfaces/M3.i3"
#define t18 ADDRESS
#define TC18 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 16 "../Interfaces/Variable.i3"
#define t17 ADDRESS
#define TC17 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5;
#line 17 "../Interfaces/M3.i3"
#define t14 ADDRESS
#define TC14 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 38 "../Interfaces/Scanner.i3"
typedef t80 (*t9)();
#line 20 "./StmtRep.i3"
typedef void (*t8)();
#line 43 "ForStmt.m3"
typedef struct { int filler; } t7_methods; 
#define t7_msize (sizeof (t7_methods))
typedef struct {
#line 43
 t18 _scope; t17 _var; t6 _from; t6 _limit; t6 _step; t14 _body; } t7_fields; 
#define t7_size (sizeof (t7_fields))
PRIVATE void t7_InitProc ();
#line 43
PRIVATE void t7_SetupProc (); PRIVATE void t7_PrintProc (); PRIVATE typecell t7_TC; PRIVATE typecell t7_TC_init = {0, 0, 0, 0, 0, (PROC)NIL,
#line 43
  t7_size, t7_msize, NIL, 0, 0, t7_InitProc,   t7_SetupProc,   t7_PrintProc, "", 462566091, 689506969}; PRIVATE TYPE TC7 = &t7_TC; 
#line 141
typedef t1 (*t10)();
#line 91
typedef signed_char t11;
#line 13 "../Interfaces/String.i3"
#define t12 ADDRESS
#define TC12 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee;
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t13;
#line 45
typedef struct { int elts[4]; } t15;
#line 61 "ForStmt.m3"
typedef t14 (*t16)(); 
#define t31 ADDRESS
 typedef struct { TYPE self; int private; } t31_methods; 
#define t31_msize (sizeof (t31_methods))
typedef struct { ADDRESS methods; } t31_fields; 
#define t31_size (sizeof (t31_fields))
#define TC31 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t31_MapProc TC_ROOT->mapProc
#define t19 ADDRESS
#define TC19 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t19_MapProc TC_Rd__T->mapProc
#define t20 ADDRESS
#define TC20 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t20_MapProc TC_TEXT->mapProc
typedef t12 (*t21)();
#line 13 "../Interfaces/Scanner.i3"
typedef struct { t13 _token; t12 _string; t5 _value; t5 _offset; } t22; typedef int t23;
#line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t23 (*t24)();
#line 220
typedef t20 (*t25)(); typedef unsigned char t26;
#line 189
#define t27 t68
typedef t26 (*t28)();
#line 84
typedef unsigned char t29;
#line 13 "../Interfaces/EnumExpr.i3"
typedef t6 (*t32)();
#line 15 "../Interfaces/EnumType.i3"
typedef t2 (*t34)();
#line 13 "./StmtRep.i3"
#define t35 ADDRESS

#line 13
typedef struct { t9 _bind; t9 _check; t9 _precompile; t8 _compile; } t35_methods; 
#define t35_msize (sizeof (t35_methods))
typedef struct {
#line 13
 t14 _next; t5 _origin; } t35_fields; 
#define t35_size (sizeof (t35_fields))
#define TC35 TC_M3__Stmt
typedef signed_char t36;
#line 63 "../Interfaces/Emit.i3"
typedef t36 (*t37)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t64;
#line 65 "../Interfaces/Token.i3"
#define t62 t68
typedef struct { t12 elts[100]; } t65;
#line 17 "../Interfaces/String.i3"
typedef struct { t5 _top; t65 _stk; } t38; typedef double t39;
#line 38 "../Interfaces/Variable.i3"
typedef t4 (*t40)();
#line 24
typedef t17 (*t41)();
#line 14 "../Interfaces/Decl.i3"
typedef struct { t12 _alias; t1 _isExternal; t1 _isInline; t1 _isUnused; t1 _isObsolete; } t42;
#line 14 "../Interfaces/String.i3"
typedef struct { t12 _module; t12 _item; } t44;
#line 38 "../Interfaces/Scope.i3"
typedef t33 (*t45)();
#line 31
typedef t18 (*t46)();
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
#define t48 ADDRESS
#define TC48 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t48_MapProc TC_Wr__T->mapProc
typedef unsigned char t50;
#line 40 "../Interfaces/Value.i3"
typedef t50 (*t51)();
#line 121 "../Interfaces/Type.i3"
typedef t49 (*t54)();
#line 97
typedef t5 (*t55)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t12 elts[97]; } t63;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t66; typedef t66 (*t67)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t69;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t70 ADDRESS
#define TC70 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t70_MapProc TC_Thread__T->mapProc
typedef t30 (*t71)();



#define t72 ADDRESS
#define TC72 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t72_MapProc TC_Thread__Condition->mapProc
#define t73 ADDRESS
#define TC73 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t73_MapProc TC_MUTEX->mapProc
typedef t70 (*t74)();
#line 23
#define t75 ADDRESS

#line 23
typedef struct { t71 _apply; } t75_methods; 
#define t75_msize (sizeof (t75_methods))
typedef struct {
#line 23
 int filler; } t75_fields; 
#define t75_size (sizeof (t75_fields))
#define TC75 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t75_MapProc TC_Thread__Closure->mapProc
typedef t72 (*t76)();





typedef t73 (*t77)();
#line 28
#define t78 ADDRESS

#line 28
typedef struct { int filler; } t78_methods; 
#define t78_msize (sizeof (t78_methods))
typedef struct {
#line 28
 t23 _stackSize; } t78_fields; 
#define t78_size (sizeof (t78_fields))
#define TC78 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t78_MapProc TC_Thread__SizedClosure->mapProc
typedef CLOSURE t79; typedef float t82;
#line 11 "ForStmt.m3"
IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Marker__init; IMPORT INITLINK* Token__init; IMPORT INITLINK* Temp__init;
#line 11
IMPORT INITLINK* EnumExpr__init; IMPORT INITLINK* IntegerExpr__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Variable__init;
#line 11
IMPORT INITLINK* Int__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* EnumType__init; IMPORT INITLINK* Value__init; IMPORT INITLINK* StmtRep__init;
#line 11
IMPORT INITLINK* Stmt__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* SubrangeType__init; IMPORT INITLINK* Scope__init;
#line 11
IMPORT INITLINK* Emit__init; IMPORT INITLINK* Error__init; IMPORT INITLINK* ForStmt__init;  IMPORT t22 _Scanner__cur; IMPORT char VS_Scanner__cur__929fa6f8367ea415;
#line 11
IMPORT t80 _Scanner__Match (); IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8; IMPORT t12 _Scanner__MatchID (); IMPORT char VS_Scanner__MatchID__4fb3c66f3429afd9;
#line 11
IMPORT t80 _Scanner__GetToken (); IMPORT char VS_Scanner__GetToken__192100a32c7e576d;   IMPORT TYPE TC_Marker__Prefix; IMPORT char VS_Marker__Prefix__819dde3f21a97326;
#line 11
IMPORT t80 _Marker__Pop (); IMPORT char VS_Marker__Pop__e998f6f7244b0f3e; IMPORT t80 _Marker__PushExit (); IMPORT char VS_Marker__PushExit__cc7dd98132c2b6e7;
#line 11
  IMPORT t15 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t15 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02;
#line 11
IMPORT t15 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836; IMPORT t15 _Token__StmtStart; IMPORT char VS_Token__StmtStart__d5f1dc8e390e874c;
#line 11
  IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee; IMPORT t80 _Temp__Free (); IMPORT char VS_Temp__Free__3b952a2225c26846;
#line 11
  IMPORT t1 _EnumExpr__Split (); IMPORT char VS_EnumExpr__Split__cac875982d1549f5;   IMPORT t6 _IntegerExpr__New (); IMPORT char VS_IntegerExpr__New__864172512ee81acd;
#line 11
IMPORT t1 _IntegerExpr__Split (); IMPORT char VS_IntegerExpr__Split__132919062838cba6;   IMPORT t12 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63;
#line 11
  IMPORT t17 _Variable__New (); IMPORT char VS_Variable__New__7401d5b22f8881d4; IMPORT t80 _Variable__BindType (); IMPORT char VS_Variable__BindType__6a32007d2a79f302;
#line 11
IMPORT t80 _Variable__Split (); IMPORT char VS_Variable__Split__a3645c3f2dacdc61; IMPORT t80 _Variable__SetBounds (); IMPORT char VS_Variable__SetBounds__efaf20b320566597;
#line 11
  IMPORT t2 _Int__T; IMPORT char VS_Int__T__1062912139372387;   IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5;
#line 11
IMPORT t2 _Type__Base (); IMPORT char VS_Type__Base__2bebd0333659a92c; IMPORT t1 _Type__IsEqual (); IMPORT char VS_Type__IsEqual__4098bc3f32325d05;
#line 11
IMPORT t5 _Type__Name (); IMPORT char VS_Type__Name__f99416972257a869; IMPORT t1 _Type__IsSubtype (); IMPORT char VS_Type__IsSubtype__8591fba5245cb882;
#line 11
  IMPORT t1 _EnumType__Is (); IMPORT char VS_EnumType__Is__2cef67ea2861a0e7;   IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5;
#line 11
  IMPORT t80 _StmtRep__Init (); IMPORT char VS_StmtRep__Init__fe14377c36e397de;   IMPORT TYPE TC_Stmt__T; IMPORT char VS_Stmt__T__2446b70b3f7780a5;
#line 11
IMPORT t14 _Stmt__Parse (); IMPORT char VS_Stmt__Parse__35df10ad3fd1dfe6; IMPORT t80 _Stmt__Bind (); IMPORT char VS_Stmt__Bind__55f2c79a304c25df;
#line 11
IMPORT t80 _Stmt__TypeCheck (); IMPORT char VS_Stmt__TypeCheck__e228c94928564a9d; IMPORT t80 _Stmt__Precompile (); IMPORT char VS_Stmt__Precompile__68dddedb3aa69659;
#line 11
IMPORT void _Stmt__Compile (); IMPORT char VS_Stmt__Compile__53f9f2c43edb087a;   IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5;
#line 11
IMPORT t6 _Expr__Parse (); IMPORT char VS_Expr__Parse__193c41662e6da77f; IMPORT t80 _Expr__Bind (); IMPORT char VS_Expr__Bind__7e2752da3eaf56eb;
#line 11
IMPORT t2 _Expr__TypeOf (); IMPORT char VS_Expr__TypeOf__fef0a11b388c64fa; IMPORT t6 _Expr__ConstValue (); IMPORT char VS_Expr__ConstValue__ce4fd448218fe483;
#line 11
IMPORT t80 _Expr__TypeCheck (); IMPORT char VS_Expr__TypeCheck__af9aa9073729e7f7; IMPORT t4 _Expr__Compile (); IMPORT char VS_Expr__Compile__a7e0cc4029a2ec76;
#line 11
    IMPORT TYPE TC_Scope__T; IMPORT char VS_Scope__T__3a6c7dc12615e4ee; IMPORT t80 _Scope__PopNew (); IMPORT char VS_Scope__PopNew__3afab09a31bee774;
#line 11
IMPORT t18 _Scope__New1 (); IMPORT char VS_Scope__New1__2600045021ca1fda; IMPORT t80 _Scope__Push (); IMPORT char VS_Scope__Push__ff579fe72573f581;
#line 11
IMPORT t80 _Scope__Pop (); IMPORT char VS_Scope__Pop__cfcd8a43301536dd; IMPORT t80 _Scope__Bind (); IMPORT char VS_Scope__Bind__344f0d6129e368d1;
#line 11
IMPORT t80 _Scope__TypeCheck (); IMPORT char VS_Scope__TypeCheck__f0c8e8c4224804fd; IMPORT t80 _Scope__Enter (); IMPORT char VS_Scope__Enter__86781a4c2d3f0a08;
#line 11
IMPORT t80 _Scope__Exit (); IMPORT char VS_Scope__Exit__71e6b79c26940459;   IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3;
#line 11
IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7; IMPORT t80 _Emit__Op (); IMPORT char VS_Emit__Op__072646cc27c8ae10;
#line 11
IMPORT t80 _Emit__OpSI (); IMPORT char VS_Emit__OpSI__ab1965f432d76dc2; IMPORT t80 _Emit__OpI (); IMPORT char VS_Emit__OpI__02cb878634bb9f49;
#line 11
IMPORT t80 _Emit__OpV (); IMPORT char VS_Emit__OpV__330b9ba039cee040; IMPORT t80 _Emit__OpT (); IMPORT char VS_Emit__OpT__764bdffe21d249e8;
#line 11
  IMPORT t80 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f;   EXPORT t14 _ForStmt__Parse (); EXPORT char VS_ForStmt__Parse__40c444c73101a32b = '\0';
#line 11
PRIVATE TYPE TC_ForStmt__P; PRIVATE t12 _ForStmt__labelPrefix; PRIVATE t5 _ForStmt__nextID; PRIVATE t80 _ForStmt__Bind ();
#line 11
PRIVATE t1 _ForStmt__Reduce (); PRIVATE t80 _ForStmt__Check (); PRIVATE t80 _ForStmt__Precompile (); PRIVATE void _ForStmt__Compile ();
#line 11
 IMPORT char VS_M3__Stmt__8851da472c4ee5cd;    
#line 61 "ForStmt.m3"
 EXPORT t14 _ForStmt__Parse (_fail) t15 * _fail; { t7 z0; t15 z4; t15 z3; t12 z2; t15 z1; t6 z5; t7 z6; t5 z7; t1 z8; t17 z9;
t18 z10; t15 z11; t14 z12;
#line 61 "ForStmt.m3"
{ PRIVATE t15 _Markers = {{ 0x00000802, 0x00244000, 0x00400000 }}; auto t12 _id; auto t7 _p; auto t14 __result; {


      ZERO1  (& _p);
#line 61
      CHECKSTACKOVERFLOW;




      { register char** ptr = (char**) UNEWOBJ (TC7); z0 = (t7) ptr; }; _p = z0;
      _StmtRep__Init (_p);
      z4 = _Markers; _Scanner__Match ( 60 , &(*_fail), &z4);
      z3 = _Markers; z2 = _Scanner__MatchID (&(*_fail), &z3); _id = z2;
      z4 = _Markers; _Scanner__Match ( 11 , &(*_fail), &z4);
      z3.elts[0] = (*_fail).elts[0] | _Markers.elts[0]; z3.elts[1] = (*_fail).elts[1] | _Markers.elts[1]; z3.elts[2] = (*_fail).elts[2] | _Markers.elts[2];
#line 71
      z3.elts[3] = (*_fail).elts[3] | _Markers.elts[3]; z1 = z3; z5 = _Expr__Parse (&z1); NILCHECKA (z6 = _p); (((t7_fields*)(z6+(0+t35_size+t61_size)))->_from) = z5;
      z4 = _Markers; _Scanner__Match ( 86 , &(*_fail), &z4);
      z3.elts [0] = 0; z3.elts [1] = 0x00244000; z3.elts [2] = 0; z3.elts [3] = 0; z4.elts[0] = (*_fail).elts[0] | z3.elts[0];
#line 73
      z4.elts[1] = (*_fail).elts[1] | z3.elts[1]; z4.elts[2] = (*_fail).elts[2] | z3.elts[2]; z4.elts[3] = (*_fail).elts[3] | z3.elts[3];
#line 73
      z1 = z4; z5 = _Expr__Parse (&z1); NILCHECKA (z6 = _p); (((t7_fields*)(z6+(0+t35_size+t61_size)))->_limit) = z5;
      NILCHECKA (z6 = _p); (((t7_fields*)(z6+(0+t35_size+t61_size)))->_step) = (t6) 0;
      z8 = ((_Scanner__cur._token) ==  46 ); if (z8) {
         _Scanner__GetToken ();
         z3.elts [0] = 0; z3.elts [1] = 0x00240000; z3.elts [2] = 0; z3.elts [3] = 0; z4.elts[0] = (*_fail).elts[0] | z3.elts[0];
#line 77
         z4.elts[1] = (*_fail).elts[1] | z3.elts[1]; z4.elts[2] = (*_fail).elts[2] | z3.elts[2]; z4.elts[3] = (*_fail).elts[3] | z3.elts[3];
#line 77
         z3.elts[0] = z4.elts[0] | _Token__StmtStart.elts[0]; z3.elts[1] = z4.elts[1] | _Token__StmtStart.elts[1]; z3.elts[2] = z4.elts[2] | _Token__StmtStart.elts[2];
#line 77
         z3.elts[3] = z4.elts[3] | _Token__StmtStart.elts[3]; z1 = z3; z5 = _Expr__Parse (&z1); NILCHECKA (z6 = _p); (((t7_fields*)(z6+(0+t35_size+t61_size)))->_step) = z5;
#line 77
         goto if_1_end; }; z5 = _IntegerExpr__New ( 1 );

         NILCHECKA (z6 = _p); (((t7_fields*)(z6+(0+t35_size+t61_size)))->_step) = z5; if_1_end: /**/;

      z9 = _Variable__New (_id,  1 ); NILCHECKA (z6 = _p); (((t7_fields*)(z6+(0+t35_size+t61_size)))->_var) = z9;
      NILCHECKA (z6 = _p); z10 = _Scope__New1 ((((t7_fields*)(z6+(0+t35_size+t61_size)))->_var)); NILCHECKA (z6 = _p); (((t7_fields*)(z6+(0+t35_size+t61_size)))->_scope) = z10;
      z3.elts [0] = 0; z3.elts [1] = 0x00200000; z3.elts [2] = 0; z3.elts [3] = 0; z11.elts[0] = z3.elts[0] | _Token__StmtStart.elts[0];
#line 83
      z11.elts[1] = z3.elts[1] | _Token__StmtStart.elts[1]; z11.elts[2] = z3.elts[2] | _Token__StmtStart.elts[2]; z11.elts[3] = z3.elts[3] | _Token__StmtStart.elts[3];
#line 83
      z3 = z11; _Scanner__Match ( 50 , &(*_fail), &z3);
      z3.elts [0] = 0; z3.elts [1] = 0x00200000; z3.elts [2] = 0; z3.elts [3] = 0; z4.elts[0] = (*_fail).elts[0] | z3.elts[0];
#line 84
      z4.elts[1] = (*_fail).elts[1] | z3.elts[1]; z4.elts[2] = (*_fail).elts[2] | z3.elts[2]; z4.elts[3] = (*_fail).elts[3] | z3.elts[3];
#line 84
      z1 = z4; z12 = _Stmt__Parse (&z1); NILCHECKA (z6 = _p); (((t7_fields*)(z6+(0+t35_size+t61_size)))->_body) = z12;
      z3.elts [0] = 0; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z4 = z3; _Scanner__Match ( 53 , &(*_fail), &z4);
      _Scope__PopNew ();
      __result = _p; return __result; } } };
#line 90 "ForStmt.m3"
 PRIVATE t80 _ForStmt__Bind (_p) t7 _p; { t7 z2; t2 z6; t2 z4; t1 z5; t1 z3; t5 z7; t5 z8; t5 z9;
#line 90 "ForStmt.m3"
{ auto t5 _iFrom; auto t5 _iLimit; auto t5 _iStep; auto t11 _z; {
      ZERO1B (& _z);
#line 90
      CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _p); _Expr__Bind ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_from));
      NILCHECKA (z2 = _p); _Expr__Bind ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_limit));
      NILCHECKA (z2 = _p); _Expr__Bind ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_step));
      NILCHECKA (z2 = _p); z6 = _Expr__TypeOf ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_from)); z4 = _Type__Base (z6);
#line 96
      _Variable__BindType ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var), z4,  0 ,  1 ,  0 );


      _z =  0 ;
      NILCHECKA (z2 = _p); z5 = _ForStmt__Reduce (&(((t7_fields*)(z2+(0+t35_size+t61_size)))->_step), &_iStep); if (z5) {
#line 100
         _z =  1 ; goto if_2_end; }; if_2_end: /**/;
      NILCHECKA (z2 = _p); z5 = _ForStmt__Reduce (&(((t7_fields*)(z2+(0+t35_size+t61_size)))->_from), &_iFrom); if (z5) {
#line 101
         if ((_z +=  2 ) > 7) RANGEFAULT; goto if_3_end; }; if_3_end: /**/;
      NILCHECKA (z2 = _p); z5 = _ForStmt__Reduce (&(((t7_fields*)(z2+(0+t35_size+t61_size)))->_limit), &_iLimit); if (z5) {
#line 102
         if ((_z +=  4 ) > 7) RANGEFAULT; goto if_4_end; }; if_4_end: /**/;



      switch (_z) { case 0: case 1: case 2: case 4: break; case 3: z3 = (_iStep >=  0 );







         if (z3) {
            NILCHECKA (z2 = _p); _Variable__SetBounds ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var), _iFrom,  2147483647 ); goto if_5_end;
#line 115
 }; NILCHECKA (z2 = _p);
            _Variable__SetBounds ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var),  -2147483648 , _iFrom); if_5_end: /**/; break;
#line 116
 case 5: z3 = (_iStep >=  0 );



         if (z3) {
            NILCHECKA (z2 = _p); _Variable__SetBounds ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var),  -2147483648 , _iLimit);
#line 121
            goto if_6_end; }; NILCHECKA (z2 = _p);
            _Variable__SetBounds ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var), _iLimit,  2147483647 ); if_6_end: /**/; break;
#line 122
 case 6: NILCHECKA (z2 = _p);



         z7 = _iLimit; z8 = _iFrom; if (z7 > z8) z7 = z8; z8 = _iLimit; z9 = _iFrom; if (z8 < z9) z8 = z9; _Variable__SetBounds ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var), z7, z8);
#line 126
         break; case 7: z3 = (_iStep >=  0 );


         if (z3) {
            NILCHECKA (z2 = _p); _Variable__SetBounds ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var), _iFrom, _iLimit);
#line 130
            goto if_7_end; }; NILCHECKA (z2 = _p);
            _Variable__SetBounds ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var), _iLimit, _iFrom); if_7_end: /**/; break;
#line 131
 default: /**/; };



      NILCHECKA (z2 = _p); _Scope__Push ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope));
      NILCHECKA (z2 = _p); _Scope__Bind ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope),  1 );
      NILCHECKA (z2 = _p); _Stmt__Bind ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_body));
      _Scope__Pop (); } } };
#line 141 "ForStmt.m3"
 PRIVATE t1 _ForStmt__Reduce (_expr, _i) t6 * _expr; t5 * _i; { t6 z2; t1 z3; t1 z0; t1 z5;
#line 141 "ForStmt.m3"
{ auto t6 _e; auto t2 _t; auto t1 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;


      z2 = _Expr__ConstValue ((*_expr)); _e = z2;
      z3 = (_e == 0); if (z3) { __result =  0 ; return __result; };
      (*_expr) = _e;
      z3 = _IntegerExpr__Split (_e, &(*_i)); z0 = 1; if (! z3) { z5 = _EnumExpr__Split (_e, &(*_i), &_t); z0 = z5; }; __result = z0;
#line 147
      return __result; } } };
#line 150 "ForStmt.m3"
 PRIVATE t80 _ForStmt__Check (_p) t7 _p; { t7 z2; t7 z3; t2 z4; t2 z1; t1 z5; t1 z0;
#line 150 "ForStmt.m3"
{ auto t2 _tFrom; auto t2 _tTo; auto t2 _tStep; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _p); _Expr__TypeCheck ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_from));
      NILCHECKA (z2 = _p); _Expr__TypeCheck ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_limit));
      NILCHECKA (z2 = _p); _Expr__TypeCheck ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_step));
      NILCHECKA (z3 = _p); z4 = _Expr__TypeOf ((((t7_fields*)(z3+(0+t35_size+t61_size)))->_from)); z1 = _Type__Base (z4);
#line 156
      _tFrom = z1;
      NILCHECKA (z3 = _p); z4 = _Expr__TypeOf ((((t7_fields*)(z3+(0+t35_size+t61_size)))->_limit)); z1 = _Type__Base (z4);
#line 157
      _tTo = z1;
      NILCHECKA (z2 = _p); z4 = _Expr__TypeOf ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_step)); _tStep = z4;

      z5 = _EnumType__Is (_tFrom); if (z5) {
         z5 = _Type__IsEqual (_tFrom, _tTo); z0 = ! z5; if (z0) {
            _Error__Msg (((ADDRESS)(& txt1.str))); goto if_10_end; }; if_10_end: /**/; goto if_9_end; }; z5 = (_tFrom != _Int__T);
#line 162
      z0 = 1; if (! z5) { z5 = (_tTo != _Int__T); z0 = z5; }; if (z0) {


         _Error__Msg (((ADDRESS)(& txt2.str))); goto if_9_end; }; if_9_end: /**/;

      z5 = _Type__IsSubtype (_tStep, _Int__T); z0 = ! z5; if (z0) {
         _Error__Msg (((ADDRESS)(& txt3.str))); goto if_11_end; }; if_11_end: /**/;


      NILCHECKA (z2 = _p); _Scope__Push ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope));
      NILCHECKA (z2 = _p); _Scope__TypeCheck ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope),  1 );
      _Marker__PushExit (0,  0 );
      NILCHECKA (z2 = _p); _Stmt__TypeCheck ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_body));
      _Marker__Pop ();
      _Scope__Pop (); } } };
#line 179 "ForStmt.m3"
 PRIVATE t80 _ForStmt__Precompile (_p) t7 _p; { t7 z2;
#line 179 "ForStmt.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _p); _Scope__Push ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope));
      _Marker__PushExit (0,  0 );
      NILCHECKA (z2 = _p); _Stmt__Precompile ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_body));
      _Marker__Pop ();
      _Scope__Pop (); } } };
#line 188 "ForStmt.m3"
 PRIVATE void _ForStmt__Compile (_p, _return) t7 _p; t3* _return; { t7 z2; t6 z3; t1 z4; t12 z5; t4 z6; t1 z0; t1 z7; t7 z8;
t5 z9; t3 z10; t3 z1;
#line 188 "ForStmt.m3"
{ auto t6 _step; auto t5 _i; auto t5 _label; auto t2 _t; auto t4 _x; auto t3 _oc; auto t3 __result; { CHECKSTACKOVERFLOW;



      NILCHECKA (z2 = _p); z3 = _Expr__ConstValue ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_step)); _step = z3;
      _label = _ForStmt__nextID; _ForStmt__nextID +=  1 ;
      z4 = (_ForStmt__labelPrefix == 0); if (z4) { z5 = _String__Add (((ADDRESS)(& txt4.str)),  999999 ); _ForStmt__labelPrefix = z5;
#line 194
         goto if_12_end; }; if_12_end: /**/;
      _Emit__Op (((ADDRESS)(& txt5.str)));
      _Emit__Op (((ADDRESS)(& txt6.str)));
      z4 = (_step == 0); if (z4) { _Emit__Op (((ADDRESS)(& txt7.str))); goto if_13_end; }; if_13_end: /**/;
      NILCHECKA (z2 = _p); z6 = _Expr__Compile ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_from)); _x = z6;
      _Emit__OpT (((ADDRESS)(& txt8.str)), _x); _Temp__Free (_x);
      NILCHECKA (z2 = _p); z6 = _Expr__Compile ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_limit)); _x = z6;
      _Emit__OpT (((ADDRESS)(& txt9.str)), _x); _Temp__Free (_x);

      z4 = (_step != 0); if (z4) {

         NILCHECKA (z2 = _p); _Scope__Enter ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope));
         _i =  0 ;
         z4 = _IntegerExpr__Split (_step, &_i); z0 = 1; if (! z4) { z7 = _EnumExpr__Split (_step, &_i, &_t); z0 = z7; }; if (z0) {
#line 207
            goto if_15_end; }; if_15_end: /**/;
         _Emit__Op (((ADDRESS)(& txt10.str)));
         z4 = (_i <  0 ); if (z4) {

            _Emit__Op (((ADDRESS)(& txt11.str))); goto if_16_end; }; _Emit__Op (((ADDRESS)(& txt12.str)));

 if_16_end: /**/;
         _Emit__Op (((ADDRESS)(& txt13.str)));
         _Emit__OpI (((ADDRESS)(& txt14.str)), _i); goto if_14_end; }; NILCHECKA (z2 = _p);


         z6 = _Expr__Compile ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_step)); _x = z6;
         _Emit__OpT (((ADDRESS)(& txt15.str)), _x); _Temp__Free (_x);
         NILCHECKA (z2 = _p); _Scope__Enter ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope));
         _Emit__Op (((ADDRESS)(& txt10.str)));
         _Emit__Op (((ADDRESS)(& txt16.str)));
         _Emit__Op (((ADDRESS)(& txt17.str)));
         _Emit__Op (((ADDRESS)(& txt18.str))); if_14_end: /**/;


      NILCHECKA (z2 = _p); _Scope__Push ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope));
      _Marker__PushExit (_ForStmt__labelPrefix, _label);
      { { auto t2 _type; auto t1 _indirect; auto t1 _readonly; {
               ZERO1B (& _indirect); ZERO1B (& _readonly);

               NILCHECKA (z2 = _p); _Variable__Split ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_var), &_type, &_indirect, &_readonly);
               NILCHECKA (z8 = _p); _Emit__OpV (((ADDRESS)(& txt19.str)), (((t7_fields*)(z8+(0+t35_size+t61_size)))->_var));
               z9 = _Type__Name (_type); _Emit__OpI (((ADDRESS)(& txt20.str)), z9); } } };

      NILCHECKA (z2 = _p); _Stmt__Compile ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_body), &z10); _oc.elts[0] = z10.elts[0];
      NILCHECKA (z2 = _p); _Scope__Exit ((((t7_fields*)(z2+(0+t35_size+t61_size)))->_scope));
      _Emit__Op (((ADDRESS)(& txt21.str)));
      z0 = ((_oc.elts [0]  &  (1<<1)) != 0); if (z0) {
         _Emit__OpSI (((ADDRESS)(& txt22.str)), _ForStmt__labelPrefix, _label);
         z1.elts [0] = 0x00000002; z10.elts[0] = _oc.elts[0] & ~ z1.elts[0]; _oc.elts[0] = z10.elts[0]; goto if_17_end; };
#line 241
      if_17_end: /**/;

      _Marker__Pop ();
      _Scope__Pop ();


      z1.elts [0] = 0x00000001; z10.elts[0] = _oc.elts[0] | z1.elts[0]; __result = z10; *_return = __result; return; } } };
#line 247
 PRIVATE int init_done = -1;
#line 247 "ForStmt.m3"
 PRIVATE void ForStmt__initProc (g) int g; {
#line 247 "ForStmt.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& ForStmt__init); INITIALIZE (& Scanner__init); INITIALIZE (& Marker__init);
#line 247
INITIALIZE (& Token__init); INITIALIZE (& Temp__init); INITIALIZE (& EnumExpr__init); INITIALIZE (& IntegerExpr__init); INITIALIZE (& String__init);
#line 247
INITIALIZE (& Variable__init); INITIALIZE (& Int__init); INITIALIZE (& Type__init); INITIALIZE (& EnumType__init); INITIALIZE (& Value__init);
#line 247
INITIALIZE (& StmtRep__init); INITIALIZE (& Stmt__init); INITIALIZE (& Expr__init); INITIALIZE (& SubrangeType__init); INITIALIZE (& Scope__init);
#line 247
INITIALIZE (& Emit__init); INITIALIZE (& Error__init);
#line 58
ZERO1  ((& _ForStmt__labelPrefix));
ZERO1  ((& _ForStmt__nextID));
#line 247
return; }; 
#line 247 "ForStmt.m3"
PRIVATE void t7_InitProc (obj) char* obj; { register t7_fields* p;
#line 247 "ForStmt.m3"
CHECKSTACKOVERFLOW; p = (t7_fields*) (obj + TC14->datasize); }; 
#line 247 "ForStmt.m3"
PRIVATE void t7_SetupProc () { register int* p;
#line 247 "ForStmt.m3"
t7_TC.datasize += TC14->datasize; t7_TC.methodsize += TC14->methodsize; p = (int*) UALLOC (t7_TC.methodsize); COPY (TC14->defaultMethods, p, (TC14->methodsize));
#line 247
p[0] = (int)(& t7_TC); p[1] = 0; ((t35_methods*) (((char*)p) + TC61->methodsize))->_bind = _ForStmt__Bind; ((t35_methods*) (((char*)p) + TC61->methodsize))->_check = _ForStmt__Check;
#line 247
((t35_methods*) (((char*)p) + TC61->methodsize))->_precompile = _ForStmt__Precompile; ((t35_methods*) (((char*)p) + TC61->methodsize))->_compile = _ForStmt__Compile;
#line 247
t7_TC.defaultMethods = (char*) p; }; 
#line 247 "ForStmt.m3"
PRIVATE void t7_PrintProc (obj) char *obj; { t7_fields* o;
#line 247 "ForStmt.m3"
CHECKSTACKOVERFLOW; if (TC14->printProc != 0) {TC14->printProc (obj); } fprintf (stderr, "{%s} ", TC7->brand); o = (t7_fields*) (obj + TC14->datasize);
#line 247
fprintf (stderr, "scope = %#x", o->_scope); fprintf (stderr, ", "); fprintf (stderr, "var = %#x", o->_var); fprintf (stderr, ", ");
#line 247
fprintf (stderr, "from = %#x", o->_from); fprintf (stderr, ", "); fprintf (stderr, "limit = %#x", o->_limit); fprintf (stderr, ", ");
#line 247
fprintf (stderr, "step = %#x", o->_step); fprintf (stderr, ", "); fprintf (stderr, "body = %#x", o->_body); fprintf (stderr, ", ");
#line 247
 };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, ForStmt__initProc}; static char* VSimports[] = { &VS_Scanner__cur__929fa6f8367ea415,
&VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__MatchID__4fb3c66f3429afd9, &VS_Scanner__GetToken__192100a32c7e576d, &VS_Marker__Prefix__819dde3f21a97326,
&VS_Marker__Pop__e998f6f7244b0f3e, &VS_Marker__PushExit__cc7dd98132c2b6e7, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02,
&VS_Token__ExprStart__21dc8a0a27344836, &VS_Token__StmtStart__d5f1dc8e390e874c, &VS_Temp__T__3a6c7dc12615e4ee, &VS_Temp__Free__3b952a2225c26846,
&VS_EnumExpr__Split__cac875982d1549f5, &VS_IntegerExpr__New__864172512ee81acd, &VS_IntegerExpr__Split__132919062838cba6, &VS_String__T__3a6c7dc12615e4ee,
&VS_String__Add__0f5e21cc3d204b63, &VS_Variable__T__be7ead4a3afd8be5, &VS_Variable__New__7401d5b22f8881d4, &VS_Variable__BindType__6a32007d2a79f302,
&VS_Variable__Split__a3645c3f2dacdc61, &VS_Variable__SetBounds__efaf20b320566597, &VS_Int__T__1062912139372387, &VS_Type__T__2446b70b3f7780a5,
&VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Type__Base__2bebd0333659a92c, &VS_Type__IsEqual__4098bc3f32325d05,
&VS_Type__Name__f99416972257a869, &VS_Type__IsSubtype__8591fba5245cb882, &VS_EnumType__Is__2cef67ea2861a0e7, &VS_Value__T__2446b70b3f7780a5,
&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_Expr__T__2446b70b3f7780a5,
&VS_Expr__List__3f87eceb2b9a246a, &VS_Expr__Parse__193c41662e6da77f, &VS_Expr__Bind__7e2752da3eaf56eb, &VS_Expr__TypeOf__fef0a11b388c64fa,
&VS_Expr__ConstValue__ce4fd448218fe483, &VS_Expr__TypeCheck__af9aa9073729e7f7, &VS_Expr__Compile__a7e0cc4029a2ec76, &VS_Scope__T__3a6c7dc12615e4ee,
&VS_Scope__ValueList__64bf053e22e4e53c, &VS_Scope__PopNew__3afab09a31bee774, &VS_Scope__New1__2600045021ca1fda, &VS_Scope__Push__ff579fe72573f581,
&VS_Scope__Pop__cfcd8a43301536dd, &VS_Scope__Bind__344f0d6129e368d1, &VS_Scope__TypeCheck__f0c8e8c4224804fd, &VS_Scope__Enter__86781a4c2d3f0a08,
&VS_Scope__Exit__71e6b79c26940459, &VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Op__072646cc27c8ae10,
&VS_Emit__OpSI__ab1965f432d76dc2, &VS_Emit__OpI__02cb878634bb9f49, &VS_Emit__OpV__330b9ba039cee040, &VS_Emit__OpT__764bdffe21d249e8,
&VS_Error__Msg__4d119a332467757f, &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__GetToken__192100a32c7e576d, &VS_Scanner__MatchID__4fb3c66f3429afd9,
&VS_Scanner__Match__aaf5b32f2f19a6d8, NIL };  void ForStmt__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = ForStmt__init; ForStmt__init = & me_0; t7_TC = t7_TC_init;
         REGISTERTYPE (TC7); break; }; case 1: { t7_TC.parent = TC_M3__Stmt; break; }; case 2: { break; }; }; };