#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "Expression is not a statement", 30};
#line 16 "../Interfaces/Type.i3"
#define t17 ADDRESS
#define t67 void
typedef int t21;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t51;
#line 16 "../Interfaces/Type.i3"
#define t35 t51
#define TC17 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce;
#line 14 "../Interfaces/Expr.i3"
#define t28 ADDRESS
#define t64 ADDRESS
 typedef struct { TYPE self; int private; } t64_methods; 
#define t64_msize (sizeof (t64_methods))
typedef struct { ADDRESS methods; } t64_fields; 
#define t64_size (sizeof (t64_fields))
#define TC64 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 16 "../Interfaces/M3.i3"
#define t8 ADDRESS
#define TC8 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t29 t51
#define TC28 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Type.i3"
#define t33 ADDRESS
#define t6 ADDRESS
#define TC6 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 { t33 _next; t6 _type; } t34; 
#define TC33 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t46 ADDRESS
#define TC46 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; 
#define t53 ADDRESS
#define TC53 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; 
#define t68 ADDRESS
#define TC68 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 t27;
typedef struct { int elts[1]; } t2;
#line 15 "CallStmt.m3"
#define t3 ADDRESS

#line 32 "../Interfaces/Temp.i3"
typedef t67 (*t5)();
#line 20 "./StmtRep.i3"
typedef void (*t4)();
#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 15 "CallStmt.m3"
typedef struct { int filler; } t3_methods; 
#define t3_msize (sizeof (t3_methods))
typedef struct {
#line 15
 t8 _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, "", -1548265798, 546272627}; PRIVATE TYPE TC3 = &t3_TC; 








typedef t7 (*t9)(); typedef unsigned char t10;
#line 26 "../Interfaces/Temp.i3"
typedef t10 (*t11)();
#line 15 "../Interfaces/M3.i3"
#define t12 ADDRESS
#define TC12 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 24 "../Interfaces/Temp.i3"
typedef t1 (*t13)();
#line 45 "../Interfaces/Value.i3"
typedef t6 (*t14)();
#line 44
typedef t8 (*t15)(); 
#define t54 ADDRESS
 typedef struct { TYPE self; int private; } t54_methods; 
#define t54_msize (sizeof (t54_methods))
typedef struct { ADDRESS methods; } t54_fields; 
#define t54_size (sizeof (t54_fields))
#define TC54 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t54_MapProc TC_ROOT->mapProc
#define t16 ADDRESS
#define TC16 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t16_MapProc TC_Wr__T->mapProc
typedef unsigned char t18;
#line 40 "../Interfaces/Value.i3"
typedef t18 (*t19)();
#line 27
typedef t12 (*t20)(); 
#define t22 ADDRESS
#define TC22 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t22_MapProc TC_TEXT->mapProc
#define t23 ADDRESS
#define TC23 TC_String__T
IMPORT TYPE TC_String__T;
#line 13 "../Interfaces/String.i3"
IMPORT char VS_String__T__3a6c7dc12615e4ee;
typedef struct { t23 _module; t23 _item; } t24;
#line 13 "./StmtRep.i3"
#define t25 ADDRESS

#line 13
typedef struct { t5 _bind; t5 _check; t5 _precompile; t4 _compile; } t25_methods; 
#define t25_msize (sizeof (t25_methods))
typedef struct {
#line 13
 t7 _next; t21 _origin; } t25_fields; 
#define t25_size (sizeof (t25_fields))
#define TC25 TC_M3__Stmt
typedef unsigned char t37;
#line 45 "../Interfaces/Token.i3"
typedef struct { int elts[4]; } t26;
#line 19 "../Interfaces/String.i3"
typedef signed_char t44;
#line 65 "../Interfaces/Token.i3"
#define t36 t51
typedef struct { t23 elts[100]; } t45;
#line 17 "../Interfaces/String.i3"
typedef struct { t21 _top; t45 _stk; } t30;
#line 121 "../Interfaces/Type.i3"
typedef t17 (*t31)();
#line 97
typedef t21 (*t32)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t23 elts[97]; } t38; typedef int t39;
#line 37 "../Interfaces/String.i3"
typedef t22 (*t40)();
#line 34
typedef t23 (*t41)(); typedef unsigned char t42;
#line 28
#define t43 t51
typedef signed_char t47;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef t47 (*t48)();
#line 26
typedef t39 (*t49)();
#line 23
typedef t42 (*t50)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t52;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t55 ADDRESS
#define TC55 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t55_MapProc TC_Thread__T->mapProc
typedef t53 (*t56)();



#define t57 ADDRESS
#define TC57 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t57_MapProc TC_Thread__Condition->mapProc
#define t58 ADDRESS
#define TC58 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t58_MapProc TC_MUTEX->mapProc
typedef t55 (*t59)();
#line 23
#define t60 ADDRESS

#line 23
typedef struct { t56 _apply; } t60_methods; 
#define t60_msize (sizeof (t60_methods))
typedef struct {
#line 23
 int filler; } t60_fields; 
#define t60_size (sizeof (t60_fields))
#define TC60 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t60_MapProc TC_Thread__Closure->mapProc
typedef t57 (*t61)();





typedef t58 (*t62)();
#line 28
#define t63 ADDRESS

#line 28
typedef struct { int filler; } t63_methods; 
#define t63_msize (sizeof (t63_methods))
typedef struct {
#line 28
 t39 _stackSize; } t63_fields; 
#define t63_size (sizeof (t63_fields))
#define TC63 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t63_MapProc TC_Thread__SizedClosure->mapProc
#define t65 ADDRESS
#define TC65 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14 "../Interfaces/M3.i3"
IMPORT char VS_M3__Scope__6e6d8848308d8a2d; typedef CLOSURE t66; typedef double t69; typedef float t70;
#line 10 "CallStmt.m3"
IMPORT INITLINK* Temp__init; IMPORT INITLINK* Void__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* Error__init; IMPORT INITLINK* StmtRep__init;
#line 10
IMPORT INITLINK* Stmt__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* CallStmt__init;  IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee;
#line 10
  IMPORT t6 _Void__T; IMPORT char VS_Void__T__d44caf853dc63223;   IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5;
#line 10
IMPORT t6 _Type__Base (); IMPORT char VS_Type__Base__2bebd0333659a92c;   IMPORT t67 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f;
#line 10
  IMPORT t67 _StmtRep__Init (); IMPORT char VS_StmtRep__Init__fe14377c36e397de;   IMPORT TYPE TC_Stmt__T; IMPORT char VS_Stmt__T__2446b70b3f7780a5;
#line 10
  IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; IMPORT t67 _Expr__Bind (); IMPORT char VS_Expr__Bind__7e2752da3eaf56eb;
#line 10
IMPORT t6 _Expr__TypeOf (); IMPORT char VS_Expr__TypeOf__fef0a11b388c64fa; IMPORT t67 _Expr__TypeCheck (); IMPORT char VS_Expr__TypeCheck__af9aa9073729e7f7;
#line 10
IMPORT t1 _Expr__Compile (); IMPORT char VS_Expr__Compile__a7e0cc4029a2ec76;   EXPORT t7 _CallStmt__New (); EXPORT char VS_CallStmt__New__4fcb64892cd81b88 = '\0';
#line 10
PRIVATE TYPE TC_CallStmt__P; PRIVATE t67 _CallStmt__Bind (); PRIVATE t67 _CallStmt__Check (); PRIVATE t67 _CallStmt__Precompile ();
#line 10
PRIVATE void _CallStmt__Compile ();  IMPORT char VS_M3__Stmt__8851da472c4ee5cd;    
#line 24 "CallStmt.m3"
 EXPORT t7 _CallStmt__New (_e) t8 _e; { t3 z0; t3 z2;
#line 24 "CallStmt.m3"
{ auto t3 _p; auto t7 __result; {
      ZERO1  (& _p);
#line 24
      CHECKSTACKOVERFLOW;


      { register char** ptr = (char**) UNEWOBJ (TC3); z0 = (t3) ptr; }; _p = z0;
      _StmtRep__Init (_p);
      NILCHECKA (z2 = _p); (((t3_fields*)(z2+(0+t25_size+t64_size)))->_e) = _e;
      __result = _p; return __result; } } };
#line 33 "CallStmt.m3"
 PRIVATE t67 _CallStmt__Bind (_p) t3 _p; { t3 z2;
#line 33 "CallStmt.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _p); _Expr__Bind ((((t3_fields*)(z2+(0+t25_size+t64_size)))->_e)); } } };
#line 38 "CallStmt.m3"
 PRIVATE t67 _CallStmt__Check (_p) t3 _p; { t3 z2; t3 z3; t6 z4; t6 z1; t10 z5; t10 z0;
#line 38 "CallStmt.m3"
{ auto t6 _t; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _p); _Expr__TypeCheck ((((t3_fields*)(z2+(0+t25_size+t64_size)))->_e));
      NILCHECKA (z3 = _p); z4 = _Expr__TypeOf ((((t3_fields*)(z3+(0+t25_size+t64_size)))->_e)); z1 = _Type__Base (z4); _t = z1;
      z5 = (_t != 0); z0 = 0; if (z5) { z5 = (_t != _Void__T); z0 = z5; }; if (z0) {
         _Error__Msg (((ADDRESS)(& txt1.str))); goto if_1_end; }; if_1_end: /**/; } } };
#line 48 "CallStmt.m3"
 PRIVATE t67 _CallStmt__Precompile (_p) t3 _p; {
#line 48 "CallStmt.m3"
{ { CHECKSTACKOVERFLOW; } } };
#line 52 "CallStmt.m3"
 PRIVATE void _CallStmt__Compile (_p, _return) t3 _p; t2* _return; { t3 z2; t1 z3; t2 z0; t21 z1;
#line 52 "CallStmt.m3"
{ auto t1 _t; auto t2 __result; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _p); z3 = _Expr__Compile ((((t3_fields*)(z2+(0+t25_size+t64_size)))->_e)); _t = z3;


      z0.elts [0] = 0x00000001; __result = z0; *_return = __result; return; } } };  PRIVATE int init_done = -1;
#line 58 "CallStmt.m3"
 PRIVATE void CallStmt__initProc (g) int g; {
#line 58 "CallStmt.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& CallStmt__init); INITIALIZE (& Temp__init); INITIALIZE (& Void__init);
#line 58
INITIALIZE (& Type__init); INITIALIZE (& Error__init); INITIALIZE (& StmtRep__init); INITIALIZE (& Stmt__init); INITIALIZE (& Expr__init);
#line 58
return; }; 
#line 58 "CallStmt.m3"
PRIVATE void t3_InitProc (obj) char* obj; { register t3_fields* p;
#line 58 "CallStmt.m3"
CHECKSTACKOVERFLOW; p = (t3_fields*) (obj + TC7->datasize); }; 
#line 58 "CallStmt.m3"
PRIVATE void t3_SetupProc () { register int* p;
#line 58 "CallStmt.m3"
t3_TC.datasize += TC7->datasize; t3_TC.methodsize += TC7->methodsize; p = (int*) UALLOC (t3_TC.methodsize); COPY (TC7->defaultMethods, p, (TC7->methodsize));
#line 58
p[0] = (int)(& t3_TC); p[1] = 0; ((t25_methods*) (((char*)p) + TC64->methodsize))->_bind = _CallStmt__Bind; ((t25_methods*) (((char*)p) + TC64->methodsize))->_check = _CallStmt__Check;
#line 58
((t25_methods*) (((char*)p) + TC64->methodsize))->_precompile = _CallStmt__Precompile; ((t25_methods*) (((char*)p) + TC64->methodsize))->_compile = _CallStmt__Compile;
#line 58
t3_TC.defaultMethods = (char*) p; }; 
#line 58 "CallStmt.m3"
PRIVATE void t3_PrintProc (obj) char *obj; { t3_fields* o;
#line 58 "CallStmt.m3"
CHECKSTACKOVERFLOW; if (TC7->printProc != 0) {TC7->printProc (obj); } fprintf (stderr, "{%s} ", TC3->brand); o = (t3_fields*) (obj + TC7->datasize);
#line 58
fprintf (stderr, "e = %#x", o->_e); fprintf (stderr, ", "); };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, CallStmt__initProc};
static char* VSimports[] = { &VS_Temp__T__3a6c7dc12615e4ee, &VS_Void__T__d44caf853dc63223, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce,
&VS_Type__List__5791758e343becc1, &VS_Type__Base__2bebd0333659a92c, &VS_Error__Msg__4d119a332467757f, &VS_StmtRep__Init__fe14377c36e397de,
&VS_Stmt__T__2446b70b3f7780a5, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_Expr__Bind__7e2752da3eaf56eb,
&VS_Expr__TypeOf__fef0a11b388c64fa, &VS_Expr__TypeCheck__af9aa9073729e7f7, &VS_Expr__Compile__a7e0cc4029a2ec76, NIL };  void CallStmt__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = CallStmt__init; CallStmt__init = & me_0;
         t3_TC = t3_TC_init; REGISTERTYPE (TC3); break; }; case 1: { t3_TC.parent = TC_M3__Stmt; break; }; case 2: { break; }; };
 };