#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "expression doesn\047t have a value", 32};
#line 16 "../Interfaces/Type.i3"
#define t18 ADDRESS
#define t70 void
typedef int t22;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t58;
#line 16 "../Interfaces/Type.i3"
#define t47 t58
#define TC18 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce; 
#define t38 ADDRESS
#define TC38 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a;
#line 14 "../Interfaces/Expr.i3"
#define t40 ADDRESS
#define t50 ADDRESS
 typedef struct { TYPE self; int private; } t50_methods; 
#define t50_msize (sizeof (t50_methods))
typedef struct { ADDRESS methods; } t50_fields; 
#define t50_size (sizeof (t50_fields))
#define TC50 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 16 "../Interfaces/M3.i3"
#define t9 ADDRESS
#define TC9 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t41 t58
#define TC40 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Type.i3"
#define t45 ADDRESS
#define t10 ADDRESS
#define TC10 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 { t45 _next; t10 _type; } t46; 
#define TC45 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t49 ADDRESS
#define TC49 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; 
#define t71 ADDRESS
#define TC71 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc;
#line 19 "../Interfaces/M3.i3"
#define t1 ADDRESS
#define TC1 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 16 "./Stmt.i3"
typedef unsigned char t48;
typedef struct { int elts[1]; } t2;
#line 15 "EvalStmt.m3"
#define t3 ADDRESS

#line 14 "../Interfaces/Void.i3"
typedef t70 (*t5)();
#line 20 "./StmtRep.i3"
typedef void (*t4)();
#line 17 "../Interfaces/M3.i3"
#define t6 ADDRESS
#define TC6 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 15 "EvalStmt.m3"
typedef struct { int filler; } t3_methods; 
#define t3_msize (sizeof (t3_methods))
typedef struct {
#line 15
 t9 _e; } 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, "", 837878434, 613314701}; PRIVATE TYPE TC3 = &t3_TC; 
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t29;
#line 45
typedef struct { int elts[4]; } t7;
#line 24 "EvalStmt.m3"
typedef t6 (*t8)(); typedef unsigned char t11;
#line 26 "../Interfaces/Temp.i3"
typedef t11 (*t12)();
#line 15 "../Interfaces/M3.i3"
#define t13 ADDRESS
#define TC13 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 24 "../Interfaces/Temp.i3"
typedef t1 (*t14)();
#line 45 "../Interfaces/Value.i3"
typedef t10 (*t15)();
#line 44
typedef t9 (*t16)(); 
#define t39 ADDRESS
 typedef struct { TYPE self; int private; } t39_methods; 
#define t39_msize (sizeof (t39_methods))
typedef struct { ADDRESS methods; } t39_fields; 
#define t39_size (sizeof (t39_fields))
#define TC39 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t39_MapProc TC_ROOT->mapProc
#define t17 ADDRESS
#define TC17 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t17_MapProc TC_Wr__T->mapProc
typedef unsigned char t19;
#line 40 "../Interfaces/Value.i3"
typedef t19 (*t20)();
#line 27
typedef t13 (*t21)(); 
#define t23 ADDRESS
#define TC23 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t23_MapProc TC_TEXT->mapProc
#define t24 ADDRESS
#define TC24 TC_String__T
IMPORT TYPE TC_String__T;
#line 13 "../Interfaces/String.i3"
IMPORT char VS_String__T__3a6c7dc12615e4ee;
typedef struct { t24 _module; t24 _item; } t25;
#line 13 "./StmtRep.i3"
#define t26 ADDRESS

#line 13
typedef struct { t5 _bind; t5 _check; t5 _precompile; t4 _compile; } t26_methods; 
#define t26_msize (sizeof (t26_methods))
typedef struct {
#line 13
 t6 _next; t22 _origin; } t26_fields; 
#define t26_size (sizeof (t26_fields))
#define TC26 TC_M3__Stmt
#define t27 ADDRESS
#define TC27 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t27_MapProc TC_Rd__T->mapProc
typedef t24 (*t28)();
#line 13 "../Interfaces/Scanner.i3"
typedef struct { t29 _token; t24 _string; t22 _value; t22 _offset; } t30; typedef int t31;
#line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t31 (*t32)();
#line 220
typedef t23 (*t33)(); typedef unsigned char t34;
#line 189
#define t35 t58
typedef t34 (*t36)();
#line 84
typedef unsigned char t37;
#line 19 "../Interfaces/String.i3"
typedef signed_char t54;
#line 65 "../Interfaces/Token.i3"
#define t52 t58
typedef struct { t24 elts[100]; } t55;
#line 17 "../Interfaces/String.i3"
typedef struct { t22 _top; t55 _stk; } t42;
#line 121 "../Interfaces/Type.i3"
typedef t18 (*t43)();
#line 97
typedef t22 (*t44)();
#line 14 "../Interfaces/M3.i3"
#define t51 ADDRESS
#define TC51 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 65 "../Interfaces/Token.i3"
typedef struct { t24 elts[97]; } t53;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t56; typedef t56 (*t57)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t59;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t60 ADDRESS
#define TC60 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t60_MapProc TC_Thread__T->mapProc
typedef t38 (*t61)();



#define t62 ADDRESS
#define TC62 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t62_MapProc TC_Thread__Condition->mapProc
#define t63 ADDRESS
#define TC63 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t63_MapProc TC_MUTEX->mapProc
typedef t60 (*t64)();
#line 23
#define t65 ADDRESS

#line 23
typedef struct { t61 _apply; } t65_methods; 
#define t65_msize (sizeof (t65_methods))
typedef struct {
#line 23
 int filler; } t65_fields; 
#define t65_size (sizeof (t65_fields))
#define TC65 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t65_MapProc TC_Thread__Closure->mapProc
typedef t62 (*t66)();





typedef t63 (*t67)();
#line 28
#define t68 ADDRESS

#line 28
typedef struct { int filler; } t68_methods; 
#define t68_msize (sizeof (t68_methods))
typedef struct {
#line 28
 t31 _stackSize; } t68_fields; 
#define t68_size (sizeof (t68_fields))
#define TC68 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t68_MapProc TC_Thread__SizedClosure->mapProc
typedef CLOSURE t69; typedef double t72; typedef float t73;
#line 10 "EvalStmt.m3"
IMPORT INITLINK* Type__init; IMPORT INITLINK* Void__init; IMPORT INITLINK* Temp__init; IMPORT INITLINK* Error__init; IMPORT INITLINK* StmtRep__init;
#line 10
IMPORT INITLINK* Stmt__init; IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Token__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* EvalStmt__init;
#line 10
 IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; IMPORT t11 _Type__IsEqual (); IMPORT char VS_Type__IsEqual__4098bc3f32325d05;
#line 10
  IMPORT t10 _Void__T; IMPORT char VS_Void__T__d44caf853dc63223;   IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee;
#line 10
IMPORT t70 _Temp__Free (); IMPORT char VS_Temp__Free__3b952a2225c26846;   IMPORT t70 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f;
#line 10
  IMPORT t70 _StmtRep__Init (); IMPORT char VS_StmtRep__Init__fe14377c36e397de;   IMPORT TYPE TC_Stmt__T; IMPORT char VS_Stmt__T__2446b70b3f7780a5;
#line 10
  IMPORT t70 _Scanner__Match (); IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8;   IMPORT t7 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8;
#line 10
IMPORT t7 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; IMPORT t7 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836;
#line 10
  IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; IMPORT t9 _Expr__Parse (); IMPORT char VS_Expr__Parse__193c41662e6da77f;
#line 10
IMPORT t70 _Expr__Bind (); IMPORT char VS_Expr__Bind__7e2752da3eaf56eb; IMPORT t10 _Expr__TypeOf (); IMPORT char VS_Expr__TypeOf__fef0a11b388c64fa;
#line 10
IMPORT t70 _Expr__TypeCheck (); IMPORT char VS_Expr__TypeCheck__af9aa9073729e7f7; IMPORT t1 _Expr__Compile (); IMPORT char VS_Expr__Compile__a7e0cc4029a2ec76;
#line 10
  EXPORT t6 _EvalStmt__Parse (); EXPORT char VS_EvalStmt__Parse__346b04652c9ea776 = '\0'; PRIVATE TYPE TC_EvalStmt__P; PRIVATE t70 _EvalStmt__Bind ();
#line 10
PRIVATE t70 _EvalStmt__Check (); PRIVATE t70 _EvalStmt__Precompile (); PRIVATE void _EvalStmt__Compile ();  IMPORT char VS_M3__Stmt__8851da472c4ee5cd;
#line 10
   
#line 24 "EvalStmt.m3"
 EXPORT t6 _EvalStmt__Parse (_fail) t7 * _fail; { t3 z0; t7 z4; t9 z2; t3 z1;
#line 24 "EvalStmt.m3"
{ auto t3 _p; auto t6 __result; {
      ZERO1  (& _p);
#line 24
      CHECKSTACKOVERFLOW;


      { register char** ptr = (char**) UNEWOBJ (TC3); z0 = (t3) ptr; }; _p = z0;
      _StmtRep__Init (_p);
      z4 = _Token__ExprStart; _Scanner__Match ( 54 , &(*_fail), &z4);
      z2 = _Expr__Parse (&(*_fail)); NILCHECKA (z1 = _p); (((t3_fields*)(z1+(0+t26_size+t50_size)))->_e) = z2;
      __result = _p; return __result; } } };
#line 34 "EvalStmt.m3"
 PRIVATE t70 _EvalStmt__Bind (_p) t3 _p; { t3 z2;
#line 34 "EvalStmt.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _p); _Expr__Bind ((((t3_fields*)(z2+(0+t26_size+t50_size)))->_e)); } } };
#line 39 "EvalStmt.m3"
 PRIVATE t70 _EvalStmt__Check (_p) t3 _p; { t3 z2; t3 z3; t10 z4; t11 z5;
#line 39 "EvalStmt.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _p); _Expr__TypeCheck ((((t3_fields*)(z2+(0+t26_size+t50_size)))->_e));
      NILCHECKA (z3 = _p); z4 = _Expr__TypeOf ((((t3_fields*)(z3+(0+t26_size+t50_size)))->_e)); z5 = _Type__IsEqual (z4, _Void__T);
#line 42
      if (z5) {
         _Error__Msg (((ADDRESS)(& txt1.str))); goto if_1_end; }; if_1_end: /**/; } } };
#line 47 "EvalStmt.m3"
 PRIVATE t70 _EvalStmt__Precompile (_p) t3 _p; {
#line 47 "EvalStmt.m3"
{ { CHECKSTACKOVERFLOW; } } };
#line 51 "EvalStmt.m3"
 PRIVATE void _EvalStmt__Compile (_p, _return) t3 _p; t2* _return; { t3 z2; t1 z3; t2 z0; t22 z1;
#line 51 "EvalStmt.m3"
{ auto t1 _t; auto t2 __result; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _p); z3 = _Expr__Compile ((((t3_fields*)(z2+(0+t26_size+t50_size)))->_e)); _t = z3;
      _Temp__Free (_t);
      z0.elts [0] = 0x00000001; __result = z0; *_return = __result; return; } } };  PRIVATE int init_done = -1;
#line 56 "EvalStmt.m3"
 PRIVATE void EvalStmt__initProc (g) int g; {
#line 56 "EvalStmt.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& EvalStmt__init); INITIALIZE (& Type__init); INITIALIZE (& Void__init);
#line 56
INITIALIZE (& Temp__init); INITIALIZE (& Error__init); INITIALIZE (& StmtRep__init); INITIALIZE (& Stmt__init); INITIALIZE (& Scanner__init);
#line 56
INITIALIZE (& Token__init); INITIALIZE (& Expr__init); return; }; 
#line 56 "EvalStmt.m3"
PRIVATE void t3_InitProc (obj) char* obj; { register t3_fields* p;
#line 56 "EvalStmt.m3"
CHECKSTACKOVERFLOW; p = (t3_fields*) (obj + TC6->datasize); }; 
#line 56 "EvalStmt.m3"
PRIVATE void t3_SetupProc () { register int* p;
#line 56 "EvalStmt.m3"
t3_TC.datasize += TC6->datasize; t3_TC.methodsize += TC6->methodsize; p = (int*) UALLOC (t3_TC.methodsize); COPY (TC6->defaultMethods, p, (TC6->methodsize));
#line 56
p[0] = (int)(& t3_TC); p[1] = 0; ((t26_methods*) (((char*)p) + TC50->methodsize))->_bind = _EvalStmt__Bind; ((t26_methods*) (((char*)p) + TC50->methodsize))->_check = _EvalStmt__Check;
#line 56
((t26_methods*) (((char*)p) + TC50->methodsize))->_precompile = _EvalStmt__Precompile; ((t26_methods*) (((char*)p) + TC50->methodsize))->_compile = _EvalStmt__Compile;
#line 56
t3_TC.defaultMethods = (char*) p; }; 
#line 56 "EvalStmt.m3"
PRIVATE void t3_PrintProc (obj) char *obj; { t3_fields* o;
#line 56 "EvalStmt.m3"
CHECKSTACKOVERFLOW; if (TC6->printProc != 0) {TC6->printProc (obj); } fprintf (stderr, "{%s} ", TC3->brand); o = (t3_fields*) (obj + TC6->datasize);
#line 56
fprintf (stderr, "e = %#x", o->_e); fprintf (stderr, ", "); };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, EvalStmt__initProc};
static char* VSimports[] = { &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1,
&VS_Type__IsEqual__4098bc3f32325d05, &VS_Void__T__d44caf853dc63223, &VS_Temp__T__3a6c7dc12615e4ee, &VS_Temp__Free__3b952a2225c26846,
&VS_Error__Msg__4d119a332467757f, &VS_StmtRep__Init__fe14377c36e397de, &VS_Stmt__T__2446b70b3f7780a5, &VS_Scanner__Match__aaf5b32f2f19a6d8,
&VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &VS_Expr__T__2446b70b3f7780a5,
&VS_Expr__List__3f87eceb2b9a246a, &VS_Expr__Parse__193c41662e6da77f, &VS_Expr__Bind__7e2752da3eaf56eb, &VS_Expr__TypeOf__fef0a11b388c64fa,
&VS_Expr__TypeCheck__af9aa9073729e7f7, &VS_Expr__Compile__a7e0cc4029a2ec76, NIL };  void EvalStmt__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = EvalStmt__init; EvalStmt__init = & me_0;
         t3_TC = t3_TC_init; REGISTERTYPE (TC3); break; }; case 1: { t3_TC.parent = TC_M3__Stmt; break; }; case 2: { break; }; };
 };