#include "M3Runtime.h"

#define t5 ADDRESS
#define t63 void
#define t59 ADDRESS
 typedef struct { TYPE self; int private; } t59_methods; 
#define t59_msize (sizeof (t59_methods))
typedef struct { ADDRESS methods; } t59_fields; 
#define t59_size (sizeof (t59_fields))
#define TC59 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 16 "../Interfaces/M3.i3"
#define t7 ADDRESS
#define TC7 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t46;
#line 14 "../Interfaces/Expr.i3"
#define t20 t46
#define TC5 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 16 "../Interfaces/Type.i3"
#define t14 ADDRESS
typedef int t2;
#line 16
#define t28 t46
#define TC14 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce;
#define t26 ADDRESS
#define t8 ADDRESS
#define TC8 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 { t26 _next; t8 _type; } t27; 
#define TC26 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t41 ADDRESS
#define TC41 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; 
#define t48 ADDRESS
#define TC48 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; 
#define t64 ADDRESS
#define TC64 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; typedef unsigned char t1;
#line 15 "../Interfaces/M3.i3"
#define t3 ADDRESS
#define TC3 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 25 "Formal.i3"
#define t4 t46
typedef t1 (*t6)();
#line 13
typedef unsigned char 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 15 "Formal.i3"
typedef t3 (*t11)();
#line 76 "../Interfaces/Expr.i3"
typedef t63 (*t12)(); 
#define t49 ADDRESS
 typedef struct { TYPE self; int private; } t49_methods; 
#define t49_msize (sizeof (t49_methods))
typedef struct { ADDRESS methods; } t49_fields; 
#define t49_size (sizeof (t49_fields))
#define TC49 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t49_MapProc TC_ROOT->mapProc
#define t13 ADDRESS
#define TC13 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t13_MapProc TC_Wr__T->mapProc
#define t15 ADDRESS
#define TC15 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19 "../Interfaces/M3.i3"
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 63 "../Interfaces/Expr.i3"
typedef t15 (*t16)();
#line 36
typedef t7 (*t17)();
#line 31
typedef t8 (*t18)();
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t30;
#line 45
typedef struct { int elts[4]; } t19;
#line 18 "./Value.i3"
typedef unsigned char t21;
#line 40
typedef t21 (*t22)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t38;
#line 65 "../Interfaces/Token.i3"
#define t29 t46
typedef struct { t10 elts[100]; } t39;
#line 17 "../Interfaces/String.i3"
typedef struct { t2 _top; t39 _stk; } t23;
#line 121 "../Interfaces/Type.i3"
typedef t14 (*t24)();
#line 97
typedef t2 (*t25)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t10 elts[97]; } t31; typedef int t32; 
#define t33 ADDRESS
#define TC33 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t33_MapProc TC_TEXT->mapProc
typedef t33 (*t34)();
#line 34 "../Interfaces/String.i3"
typedef t10 (*t35)(); typedef unsigned char t36;
#line 28
#define t37 t46
typedef struct {
#line 14
 t10 _module; t10 _item; } t40;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t42; typedef t42 (*t43)();
#line 26
typedef t32 (*t44)();
#line 23
typedef t36 (*t45)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t47;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t50 ADDRESS
#define TC50 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t50_MapProc TC_Thread__T->mapProc
typedef t48 (*t51)();



#define t52 ADDRESS
#define TC52 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t52_MapProc TC_Thread__Condition->mapProc
#define t53 ADDRESS
#define TC53 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t53_MapProc TC_MUTEX->mapProc
typedef t50 (*t54)();
#line 23
#define t55 ADDRESS

#line 23
typedef struct { t51 _apply; } t55_methods; 
#define t55_msize (sizeof (t55_methods))
typedef struct {
#line 23
 int filler; } t55_fields; 
#define t55_size (sizeof (t55_fields))
#define TC55 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t55_MapProc TC_Thread__Closure->mapProc
typedef t52 (*t56)();





typedef t53 (*t57)();
#line 28
#define t58 ADDRESS

#line 28
typedef struct { int filler; } t58_methods; 
#define t58_msize (sizeof (t58_methods))
typedef struct {
#line 28
 t32 _stackSize; } t58_fields; 
#define t58_size (sizeof (t58_fields))
#define TC58 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t58_MapProc TC_Thread__SizedClosure->mapProc
#define t60 ADDRESS
#define TC60 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17 "../Interfaces/M3.i3"
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 14
#define t61 ADDRESS
#define TC61 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d; typedef CLOSURE t62; typedef double t65; typedef float t66;
#line 9 "Formal.i3"
IMPORT INITLINK* Expr__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Value__init; IMPORT INITLINK* Type__init; EXPORT INITLINK* Formal__init = (INITLINK*) 0;
#line 9
 IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5;     IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5;
#line 9
  IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5;   IMPORT t3 _Formal__New (); IMPORT char VS_Formal__New__ba6f8854395f1ba4;
#line 9
IMPORT t1 _Formal__Split (); IMPORT char VS_Formal__Split__dd8860c23cba8174; IMPORT t1 _Formal__HasClosure (); IMPORT char VS_Formal__HasClosure__f787b78320096703;
#line 9
IMPORT t1 _Formal__CheckArgs (); IMPORT char VS_Formal__CheckArgs__53fce8d22f93abb5;   PRIVATE int init_done = -1;
#line 9 "Formal.i3"
 PRIVATE void Formal__initProc (g) int g; { 
#line 9 "Formal.i3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Expr__init); INITIALIZE (& String__init); INITIALIZE (& Value__init);
#line 9
INITIALIZE (& Type__init); };   PRIVATE INITLINK me = {(INITLINK*)NIL, 1, Formal__initProc }; static char* VSimports[] = {
&VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_String__T__3a6c7dc12615e4ee, &VS_Value__T__2446b70b3f7780a5,
&VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Formal__New__ba6f8854395f1ba4,
&VS_Formal__Split__dd8860c23cba8174, &VS_Formal__HasClosure__f787b78320096703, &VS_Formal__CheckArgs__53fce8d22f93abb5, NIL
 };  void Formal__ILink (phase) int phase; { switch (phase) { case 0: { me.link = Formal__init; Formal__init = & me; break; };
      case 1: { break; }; case 2: { break; }; }; };