#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "a type cannot be external", 26}; PRIVATE TXT txt2 = { 3, "a type cannot be inline", 24};
PRIVATE TXT txt3 = { 3, "missing \047=\047 or \047<:\047", 20}; PRIVATE TXT txt4 = { 3, "TC@ = ", 7}; PRIVATE TXT txt5 = { 3, "TC@;\012", 6};
PRIVATE TXT txt6 = { 3, "TYPE TC@ = ", 12}; PRIVATE TXT txt7 = { 3, "&t@_TC;\012", 9}; PRIVATE TXT txt8 = { 3, "TYPE TC@ = (TYPE) 0;\012", 22};
PRIVATE TXT txt9 = { 3, "TYPE TC@;\012", 11}; PRIVATE TXT txt10 = { 3, "TYPE ", 6};
#line 16 "../Interfaces/Type.i3"
#define t5 ADDRESS
#define t79 void
typedef int t18;
#line 37 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef struct { char* elts; int size[1]; } t75;
#line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3"
#define t52 t75
#define TC5 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16 "../Interfaces/Type.i3"
IMPORT char VS_Type__Map__41dd9f4b33104fce; 
#define t29 ADDRESS
#define TC29 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a;
#line 14 "../Interfaces/Expr.i3"
#define t42 ADDRESS
#define t73 ADDRESS
 typedef struct { TYPE self; int private; } t73_methods; 
#define t73_msize (sizeof (t73_methods))
typedef struct { ADDRESS methods; } t73_fields; 
#define t73_size (sizeof (t73_fields))
#define TC73 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 16 "../Interfaces/M3.i3"
#define t40 ADDRESS
#define TC40 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t43 t75
#define TC42 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Scope.i3"
#define t45 ADDRESS
#define t10 ADDRESS
#define TC10 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15 "../Interfaces/M3.i3"
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 17 "../Interfaces/Scope.i3"
#define t48 t75
#define TC45 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 17 "../Interfaces/Type.i3"
#define t56 ADDRESS
#define t1 ADDRESS
#define TC1 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; t1 _type; } t57; 
#define TC56 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t62 ADDRESS
#define TC62 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 18 "Tipe.m3"
#define t2 ADDRESS

#line 38 "../Interfaces/Scanner.i3"
typedef t79 (*t6)();
#line 18 "./Value.i3"
typedef unsigned char t11;
#line 43 "./ValueRep.i3"
typedef t11 (*t12)();
#line 19 "../Interfaces/M3.i3"
#define t34 ADDRESS
#define TC34 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 45 "./ValueRep.i3"
typedef t34 (*t38)();

typedef t10 (*t46)(); typedef unsigned char t7;



typedef t7 (*t8)();
typedef t40 (*t41)();
typedef t1 (*t3)();
#line 18 "Tipe.m3"
typedef struct { int filler; } t2_methods; 
#define t2_msize (sizeof (t2_methods))
typedef struct {
#line 18
 t1 _value; } t2_fields; 
#define t2_size (sizeof (t2_fields))
PRIVATE void t2_InitProc ();
#line 18
PRIVATE void t2_SetupProc (); PRIVATE void t2_PrintProc (); PRIVATE typecell t2_TC; PRIVATE typecell t2_TC_init = {0, 0, 0, 0, 0, (PROC)NIL,
#line 18
  t2_size, t2_msize, NIL, 0, 0, t2_InitProc,   t2_SetupProc,   t2_PrintProc, "Tipe#$%^_0002", 1250381919, 790662953}; PRIVATE TYPE TC2 = &t2_TC;
#line 18
 
#define t30 ADDRESS
 typedef struct { TYPE self; int private; } t30_methods; 
#define t30_msize (sizeof (t30_methods))
typedef struct { ADDRESS methods; } t30_fields; 
#define t30_size (sizeof (t30_fields))
#define TC30 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t30_MapProc TC_ROOT->mapProc
#define t4 ADDRESS
#define TC4 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t4_MapProc TC_Wr__T->mapProc
#define t9 ADDRESS
#define TC9 TC_String__T
IMPORT TYPE TC_String__T;
#line 13 "../Interfaces/String.i3"
IMPORT char VS_String__T__3a6c7dc12615e4ee; 
#define t13 ADDRESS
#define TC13 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t13_MapProc TC_TEXT->mapProc
typedef t2 (*t14)();
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t20;
#line 45
typedef struct { int elts[4]; } t15;
#line 14 "./Decl.i3"
typedef struct { t9 _alias; t7 _isExternal; t7 _isInline; t7 _isUnused; t7 _isObsolete; } t16;
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
#define t17 ADDRESS
#define TC17 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t17_MapProc TC_Rd__T->mapProc
typedef t9 (*t19)();
#line 13 "../Interfaces/Scanner.i3"
typedef struct { t20 _token; t9 _string; t18 _value; t18 _offset; } t21; typedef int t22;
#line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t22 (*t23)();
#line 220
typedef t13 (*t24)(); typedef unsigned char t25;
#line 189
#define t26 t75
typedef t25 (*t27)();
#line 84
typedef unsigned char t28;
#line 27 "../Interfaces/Emit.i3"
typedef signed_char t31;
#line 63
typedef t31 (*t32)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t60;
#line 65 "../Interfaces/Token.i3"
#define t58 t75
typedef struct { t9 elts[100]; } t61;
#line 17 "../Interfaces/String.i3"
typedef struct { t18 _top; t61 _stk; } t33;
#line 16 "./Variable.i3"
#define t35 ADDRESS
#define TC35 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef double t36;
#line 14 "../Interfaces/M3.i3"
#define t37 ADDRESS
#define TC37 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 24 "./Variable.i3"
typedef t35 (*t39)();
#line 14 "../Interfaces/String.i3"
typedef struct { t9 _module; t9 _item; } t44;
#line 31 "../Interfaces/Scope.i3"
typedef t37 (*t47)();
#line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3"
typedef struct { t18 elts[2]; } t49;
#line 16 "./ValueRep.i3"
typedef t7 t50;


#define t51 ADDRESS

#line 19
typedef struct { t6 _bind; t6 _typeCheck; t12 _class; t6 _fingerprint; t38 _load; t6 _write; t46 _select; t8 _declare0; t6 _declare1;
#line 19
   t6 _declare2; t8 _needsDecl; t41 _toExpr; t3 _toType; } t51_methods; 
#define t51_msize (sizeof (t51_methods))
typedef struct {
#line 19
 t18 _origin; t9 _name; t9 _extName; t37 _scope; t1 _type; unsigned _checked : 1; unsigned _incheck : 1; unsigned _readonly : 1;
#line 19
   unsigned _declared : 1; unsigned _bound : 1; unsigned _compiled : 1; unsigned _imported : 1; unsigned _exported : 1; unsigned _external : 1;
#line 19
   unsigned _used : 1; unsigned _usedAtTop : 1; unsigned _unused : 1; unsigned _obsolete : 1; unsigned _inFrame : 1; t49 _fprint;
#line 19
 } t51_fields; 
#define t51_size (sizeof (t51_fields))
#define TC51 TC_M3__Value
typedef void (*t53)();
#line 121 "../Interfaces/Type.i3"
typedef t5 (*t54)();
#line 97
typedef t18 (*t55)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t9 elts[97]; } t59;
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t63;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t64 ADDRESS
#define TC64 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t64_MapProc TC_Thread__T->mapProc
typedef t29 (*t65)();



#define t66 ADDRESS
#define TC66 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t66_MapProc TC_Thread__Condition->mapProc
#define t67 ADDRESS
#define TC67 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t67_MapProc TC_MUTEX->mapProc
typedef t64 (*t68)();
#line 23
#define t69 ADDRESS

#line 23
typedef struct { t65 _apply; } t69_methods; 
#define t69_msize (sizeof (t69_methods))
typedef struct {
#line 23
 int filler; } t69_fields; 
#define t69_size (sizeof (t69_fields))
#define TC69 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t69_MapProc TC_Thread__Closure->mapProc
typedef t66 (*t70)();





typedef t67 (*t71)();
#line 28
#define t72 ADDRESS

#line 28
typedef struct { int filler; } t72_methods; 
#define t72_msize (sizeof (t72_methods))
typedef struct {
#line 28
 t22 _stackSize; } t72_fields; 
#define t72_size (sizeof (t72_fields))
#define TC72 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t72_MapProc TC_Thread__SizedClosure->mapProc
#define t74 ADDRESS
#define TC74 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17 "../Interfaces/M3.i3"
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t76; typedef t76 (*t77)(); typedef CLOSURE t78; typedef float t81;
#line 10 "Tipe.m3"
IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Decl__init; IMPORT INITLINK* NamedType__init; IMPORT INITLINK* RefType__init;
#line 10
IMPORT INITLINK* Text__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* Token__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Temp__init;
#line 10
IMPORT INITLINK* Address__init; IMPORT INITLINK* Refany__init; IMPORT INITLINK* Void__init; IMPORT INITLINK* OpaqueType__init;
#line 10
IMPORT INITLINK* Emit__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Error__init; IMPORT INITLINK* Scope__init;
#line 10
IMPORT INITLINK* ValueRep__init; IMPORT INITLINK* Value__init; IMPORT INITLINK* Tipe__init;  IMPORT t21 _Scanner__cur; IMPORT char VS_Scanner__cur__929fa6f8367ea415;
#line 10
IMPORT t79 _Scanner__Match (); IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8; IMPORT t9 _Scanner__MatchID (); IMPORT char VS_Scanner__MatchID__4fb3c66f3429afd9;
#line 10
IMPORT t79 _Scanner__GetToken (); IMPORT char VS_Scanner__GetToken__192100a32c7e576d; IMPORT t79 _Scanner__Fail (); IMPORT char VS_Scanner__Fail__a15a8cf32391aa62;
#line 10
        IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd;   IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5;
#line 10
IMPORT t1 _Type__Parse (); IMPORT char VS_Type__Parse__603df5e3247e0b72; IMPORT t79 _Type__NoteDeclaration (); IMPORT char VS_Type__NoteDeclaration__363e372920d41f99;
#line 10
IMPORT t1 _Type__Bind (); IMPORT char VS_Type__Bind__3443ccd12eedb9e8; IMPORT t79 _Type__Check (); IMPORT char VS_Type__Check__3c8ceb09206ee440;
#line 10
IMPORT t18 _Type__Name (); IMPORT char VS_Type__Name__f99416972257a869; IMPORT t7 _Type__IsSubtype (); IMPORT char VS_Type__IsSubtype__8591fba5245cb882;
#line 10
IMPORT t79 _Type__Compile (); IMPORT char VS_Type__Compile__b35af2d633205d32; IMPORT t10 _Type__ExternalDecl (); IMPORT char VS_Type__ExternalDecl__6de7fc352a3fe0da;
#line 10
IMPORT t79 _Type__Fingerprint (); IMPORT char VS_Type__Fingerprint__0d24a3463c25e166;   IMPORT t15 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8;
#line 10
IMPORT t15 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; IMPORT t15 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836;
#line 10
  IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure;
#line 10
IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15;
#line 10
IMPORT t79 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846;   IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee;
#line 10
  IMPORT t1 _Address__T; IMPORT char VS_Address__T__8a8b518c29ea7c1d;   IMPORT t1 _Refany__T; IMPORT char VS_Refany__T__f1d580683a3395ec;
#line 10
  IMPORT t1 _Void__T; IMPORT char VS_Void__T__d44caf853dc63223;   IMPORT t1 _OpaqueType__New (); IMPORT char VS_OpaqueType__New__ad2ae07426f5c4e4;
#line 10
  IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3; IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7;
#line 10
IMPORT t79 _Emit__OpI (); IMPORT char VS_Emit__OpI__02cb878634bb9f49; IMPORT t79 _Emit__OpN (); IMPORT char VS_Emit__OpN__a3f6e37c396e144c;
#line 10
  IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5;   IMPORT t9 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63;
#line 10
  IMPORT t79 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f;   IMPORT TYPE TC_Scope__T; IMPORT char VS_Scope__T__3a6c7dc12615e4ee;
#line 10
IMPORT t79 _Scope__Insert (); IMPORT char VS_Scope__Insert__ef77c00626575764;   IMPORT TYPE TC_ValueRep__V; IMPORT char VS_ValueRep__V__f28699153c608442;
#line 10
IMPORT t79 _ValueRep__Init (); IMPORT char VS_ValueRep__Init__ba99dff739390f9a; IMPORT t10 _ValueRep__NoDuplicates (); IMPORT char VS_ValueRep__NoDuplicates__ed93f73a247eb7b4;
#line 10
IMPORT t40 _ValueRep__NoExpr (); IMPORT char VS_ValueRep__NoExpr__1297c63d2e046c2c; IMPORT t1 _ValueRep__NoType (); IMPORT char VS_ValueRep__NoType__4061f01226f55ca3;
#line 10
IMPORT t34 _ValueRep__NoLoader (); IMPORT char VS_ValueRep__NoLoader__9a7f0c5b24f526c1; IMPORT t79 _ValueRep__NoWriter ();
#line 10
IMPORT char VS_ValueRep__NoWriter__3b24d43c367f7122; IMPORT t79 _ValueRep__NoDeclarer (); IMPORT char VS_ValueRep__NoDeclarer__22db283420635bde;
#line 10
IMPORT t7 _ValueRep__Never (); IMPORT char VS_ValueRep__Never__39b6ab0628d97589; IMPORT t7 _ValueRep__Always (); IMPORT char VS_ValueRep__Always__1b0a9bbf2173b8b3;
#line 10
  IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5; IMPORT t79 _Value__GenStorageClass (); IMPORT char VS_Value__GenStorageClass__fc0c1a1823c9d008;
#line 10
  EXPORT t79 _Tipe__Parse (); EXPORT char VS_Tipe__Parse__48dca175242a6fa1 = '\0'; EXPORT t79 _Tipe__Define (); EXPORT char VS_Tipe__Define__854eebc939cd686c = '\0';
#line 10
EXPORT t79 _Tipe__InitializeExport (); EXPORT char VS_Tipe__InitializeExport__a4a492ab35e21ee0 = '\0'; PRIVATE TYPE TC_Tipe__T;
#line 10
PRIVATE t2 _Tipe__Create (); PRIVATE t79 _Tipe__Bind (); PRIVATE t79 _Tipe__Check (); PRIVATE t79 _Tipe__Compile (); PRIVATE t11 _Tipe__MyClass ();
#line 10
PRIVATE t7 _Tipe__Declarer (); PRIVATE t7 _Tipe__IsExported (); PRIVATE t79 _Tipe__FPrinter (); PRIVATE t1 _Tipe__ToType ();
#line 10
 IMPORT char VS_M3__Value__c975bdb53a08f518;    
#line 35 "Tipe.m3"
 EXPORT t79 _Tipe__Parse (_fail, _att) t15 * _fail; t16 _att; { t15 z3; t18 z4; t15 z5; t15 z1; t18 z2; t7 z6; t9 z7; t2 z8;
t1 z9; t1 z10;
#line 35 "Tipe.m3"
{ auto t2 _t; auto t15 _fail2; auto t9 _id; {
      ZERO1  (& _t);
#line 35
      CHECKSTACKOVERFLOW;


      if ((_att._isExternal)) { _Error__Msg (((ADDRESS)(& txt1.str))); goto if_1_end; }; if_1_end: /**/;
      if ((_att._isInline)) { _Error__Msg (((ADDRESS)(& txt2.str))); goto if_2_end; }; if_2_end: /**/;

      z3.elts [0] = 0x00008000; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 88 , &(*_fail), &z5);
      z1.elts [0] = 0x00008000; z1.elts [1] = 0; z1.elts [2] = 0; z1.elts [3] = 0; z3.elts[0] = (*_fail).elts[0] | z1.elts[0];
#line 42
      z3.elts[1] = (*_fail).elts[1] | z1.elts[1]; z3.elts[2] = (*_fail).elts[2] | z1.elts[2]; z3.elts[3] = (*_fail).elts[3] | z1.elts[3];
#line 42
      _fail2.elts[0] = z3.elts[0]; _fail2.elts[1] = z3.elts[1]; _fail2.elts[2] = z3.elts[2]; _fail2.elts[3] = z3.elts[3];

      z6 = ((_Scanner__cur._token) ==  1 ); if (z6) do { z3.elts [0] = 0x00102000;
         z3.elts [1] = 0x00000001; z3.elts [2] = 0; z3.elts [3] = 0; z5.elts[0] = _Token__TypeStart.elts[0] | z3.elts[0];
#line 45
         z5.elts[1] = _Token__TypeStart.elts[1] | z3.elts[1]; z5.elts[2] = _Token__TypeStart.elts[2] | z3.elts[2]; z5.elts[3] = _Token__TypeStart.elts[3] | z3.elts[3];
#line 45
         z3 = z5; z7 = _Scanner__MatchID (&_fail2, &z3); _id = z7;

         z8 = _Tipe__Create (_id); _t = z8;
         NILCHECKA (z8 = _t); (((t51_fields*)(z8+(0+t73_size)))->_unused) = (_att._isUnused);
         NILCHECKA (z8 = _t); (((t51_fields*)(z8+(0+t73_size)))->_obsolete) = (_att._isObsolete);
         { register t20 e = (_Scanner__cur._token); if (e < 20) goto c1_else; if (e <= 20) goto c1_0; if (e < 32) goto c1_else;
#line 50
            if (e <= 32) goto c1_1; goto c1_else; c1_0:; _Scanner__GetToken ();


               z9 = _Type__Parse (&_fail2); NILCHECKA (z8 = _t); (((t2_fields*)(z8+(0+t51_size+t73_size)))->_value) = z9;
#line 53
               goto c1_exit; c1_1:; _Scanner__GetToken ();


               z9 = _Type__Parse (&_fail2); z10 = _OpaqueType__New (z9); NILCHECKA (z8 = _t); (((t2_fields*)(z8+(0+t51_size+t73_size)))->_value) = z10;
#line 56
               goto c1_exit; c1_else:; _Scanner__Fail (((ADDRESS)(& txt3.str)), &(*_fail));

 c1_exit: /* exit */; };

         _Scope__Insert (_t);
         NILCHECKA (z8 = _t); _Type__NoteDeclaration ((((t2_fields*)(z8+(0+t51_size+t73_size)))->_value), _t);
         z3.elts [0] = 0; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 15 , &(*_fail), &z5);
#line 62
         z6 = ((_Scanner__cur._token) ==  1 ); } while (z6); } } };
#line 67 "Tipe.m3"
 PRIVATE t2 _Tipe__Create (_name) t9 _name; { t2 z0; t2 z2;
#line 67 "Tipe.m3"
{ auto t2 _t; auto t2 __result; {
      ZERO1  (& _t);
#line 67
      ZERO1  (& __result); CHECKSTACKOVERFLOW;


      { register char** ptr = (char**) UNEWOBJ (TC2); z0 = (t2) ptr; }; _t = z0;
      _ValueRep__Init (_t, _name);
      NILCHECKA (z2 = _t); (((t51_fields*)(z2+(0+t73_size)))->_type) = _Void__T;
      NILCHECKA (z2 = _t); (((t51_fields*)(z2+(0+t73_size)))->_readonly) =  1 ;
      NILCHECKA (z2 = _t); (((t2_fields*)(z2+(0+t51_size+t73_size)))->_value) = (t1) 0;
      __result = _t; return __result; } } };
#line 78 "Tipe.m3"
 EXPORT t79 _Tipe__Define (_name, _type) t13 _name; t1 _type; { t9 z4; t2 z1; t2 z2;
#line 78 "Tipe.m3"
{ auto t2 _t; {
      ZERO1  (& _t);
#line 78
      CHECKSTACKOVERFLOW;


      z4 = _String__Add (_name,  999999 ); z1 = _Tipe__Create (z4); _t = z1;
      NILCHECKA (z2 = _t); (((t2_fields*)(z2+(0+t51_size+t73_size)))->_value) = _type;
      _Scope__Insert (_t);
      _Type__NoteDeclaration (_type, _t); } } };
#line 87 "Tipe.m3"
 PRIVATE t79 _Tipe__Bind (_t) t2 _t; { t2 z2; t1 z3; t2 z1;
#line 87 "Tipe.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); z3 = _Type__Bind ((((t2_fields*)(z2+(0+t51_size+t73_size)))->_value)); NILCHECKA (z1 = _t); (((t2_fields*)(z1+(0+t51_size+t73_size)))->_value) = z3;
#line 89
      } } };
#line 92 "Tipe.m3"
 PRIVATE t79 _Tipe__Check (_t) t2 _t; { t2 z2;
#line 92 "Tipe.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Type__Check ((((t2_fields*)(z2+(0+t51_size+t73_size)))->_value)); } } };
#line 97 "Tipe.m3"
 PRIVATE t79 _Tipe__Compile (_t) t2 _t; { t2 z2;
#line 97 "Tipe.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Type__Compile ((((t2_fields*)(z2+(0+t51_size+t73_size)))->_value)); } } };
#line 102 "Tipe.m3"
 PRIVATE t11 _Tipe__MyClass (_t) t2 _t; {
#line 102 "Tipe.m3"
{ auto t11 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      __result =  2 ; return __result; } } };
#line 107 "Tipe.m3"
 PRIVATE t7 _Tipe__Declarer (_t) t2 _t; { t7 z2; t2 z1; t2 z3; t10 z4; t2 z5; t18 z6;
#line 107 "Tipe.m3"
{ auto t10 _v; auto t7 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;


      z2 = _Tipe__IsExported (_t); if (z2) {
         _Value__GenStorageClass (_t,  1 );
         NILCHECKA (z1 = _t); if ((((t51_fields*)(z1+(0+t73_size)))->_exported)) {
            NILCHECKA (z3 = _t); z4 = _Type__ExternalDecl ((((t2_fields*)(z3+(0+t51_size+t73_size)))->_value)); _v = z4;
            z2 = (_v == 0); if (z2) {
               _Emit__OpN (((ADDRESS)(& txt6.str)), _t);
               NILCHECKA (z5 = _t); z6 = _Type__Name ((((t2_fields*)(z5+(0+t51_size+t73_size)))->_value)); _Emit__OpI (((ADDRESS)(& txt7.str)), z6);
#line 116
               goto if_5_end; }; _Emit__OpN (((ADDRESS)(& txt8.str)), _t);

 if_5_end: /**/; goto if_4_end; }; _Emit__OpN (((ADDRESS)(& txt9.str)), _t);


 if_4_end: /**/;

         __result =  1 ; return __result; };

      __result =  0 ; return __result; } } };
#line 128 "Tipe.m3"
 EXPORT t79 _Tipe__InitializeExport (_v, _module) t10 _v; t9 _module; { t10 z1; t2 z2; t7 z3; t7 z0; t2 z4; t10 z5; t18 z6;
#line 128 "Tipe.m3"
{ auto t2 _t; {
      ZERO1  (& _t);
#line 128
      CHECKSTACKOVERFLOW;


      NILCHECKA (z1 = _v); if ((((t51_fields*)(z1+(0+t73_size)))->_imported)) {

         return; };

      z2 = NARROW (_v, t2, TC2, z2); _t = z2;
      z3 = _Tipe__IsExported (_t); z0 = 0; if (z3) { NILCHECKA (z4 = _t); z5 = _Type__ExternalDecl ((((t2_fields*)(z4+(0+t51_size+t73_size)))->_value));
#line 136
         z3 = (z5 != 0); z0 = z3; }; if (z0) {
         _Emit__OpN (((ADDRESS)(& txt4.str)), _t);
         NILCHECKA (z4 = _t); z6 = _Type__Name ((((t2_fields*)(z4+(0+t51_size+t73_size)))->_value)); _Emit__OpI (((ADDRESS)(& txt5.str)), z6);
#line 138
         goto if_7_end; }; if_7_end: /**/; } } };
#line 142 "Tipe.m3"
 PRIVATE t7 _Tipe__IsExported (_t) t2 _t; { t2 z2; t7 z4; t7 z0; t2 z3; t7 z5;
#line 142 "Tipe.m3"
{ auto t7 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); z4 = _Type__IsSubtype ((((t2_fields*)(z2+(0+t51_size+t73_size)))->_value), _Refany__T); z0 = 1;
#line 144
      if (! z4) { NILCHECKA (z3 = _t); z5 = _Type__IsSubtype ((((t2_fields*)(z3+(0+t51_size+t73_size)))->_value), _Address__T);
#line 144
         z0 = z5; }; __result = z0; return __result; } } };
#line 148 "Tipe.m3"
 PRIVATE t79 _Tipe__FPrinter (_t, _map, _wr) t2 _t; t5 _map; t4 _wr; { t2 z2;
#line 148 "Tipe.m3"
{ { CHECKSTACKOVERFLOW;

      _Wr__PutText (_wr, ((ADDRESS)(& txt10.str)));
      NILCHECKA (z2 = _t); _Type__Fingerprint ((((t2_fields*)(z2+(0+t51_size+t73_size)))->_value), _map, _wr); } } };
#line 154 "Tipe.m3"
 PRIVATE t1 _Tipe__ToType (_t) t2 _t; { t2 z1;
#line 154 "Tipe.m3"
{ auto t1 __result; { CHECKSTACKOVERFLOW;

      NILCHECKA (z1 = _t); __result = (((t2_fields*)(z1+(0+t51_size+t73_size)))->_value); return __result; } } };  PRIVATE int init_done = -1;
#line 156 "Tipe.m3"
 PRIVATE void Tipe__initProc (g) int g; {
#line 156 "Tipe.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Tipe__init); INITIALIZE (& Scanner__init); INITIALIZE (& Decl__init);
#line 156
INITIALIZE (& NamedType__init); INITIALIZE (& RefType__init); INITIALIZE (& Text__init); INITIALIZE (& Type__init); INITIALIZE (& Token__init);
#line 156
INITIALIZE (& Wr__init); INITIALIZE (& Temp__init); INITIALIZE (& Address__init); INITIALIZE (& Refany__init); INITIALIZE (& Void__init);
#line 156
INITIALIZE (& OpaqueType__init); INITIALIZE (& Emit__init); INITIALIZE (& Expr__init); INITIALIZE (& String__init); INITIALIZE (& Error__init);
#line 156
INITIALIZE (& Scope__init); INITIALIZE (& ValueRep__init); INITIALIZE (& Value__init); return; }; 
#line 156 "Tipe.m3"
PRIVATE void t2_InitProc (obj) char* obj; { register t2_fields* p;
#line 156 "Tipe.m3"
CHECKSTACKOVERFLOW; p = (t2_fields*) (obj + TC10->datasize); }; 
#line 156 "Tipe.m3"
PRIVATE void t2_SetupProc () { register int* p;
#line 156 "Tipe.m3"
t2_TC.datasize += TC10->datasize; t2_TC.methodsize += TC10->methodsize; p = (int*) UALLOC (t2_TC.methodsize); COPY (TC10->defaultMethods, p, (TC10->methodsize));
#line 156
p[0] = (int)(& t2_TC); p[1] = 0; ((t51_methods*) (((char*)p) + TC73->methodsize))->_bind = _Tipe__Bind; ((t51_methods*) (((char*)p) + TC73->methodsize))->_typeCheck = _Tipe__Check;
#line 156
((t51_methods*) (((char*)p) + TC73->methodsize))->_class = _Tipe__MyClass; ((t51_methods*) (((char*)p) + TC73->methodsize))->_fingerprint = _Tipe__FPrinter;
#line 156
((t51_methods*) (((char*)p) + TC73->methodsize))->_load = _ValueRep__NoLoader; ((t51_methods*) (((char*)p) + TC73->methodsize))->_write = _ValueRep__NoWriter;
#line 156
((t51_methods*) (((char*)p) + TC73->methodsize))->_select = _ValueRep__NoDuplicates; ((t51_methods*) (((char*)p) + TC73->methodsize))->_declare0 = _Tipe__Declarer;
#line 156
((t51_methods*) (((char*)p) + TC73->methodsize))->_declare1 = _Tipe__Compile; ((t51_methods*) (((char*)p) + TC73->methodsize))->_needsDecl = _Tipe__IsExported;
#line 156
((t51_methods*) (((char*)p) + TC73->methodsize))->_toExpr = _ValueRep__NoExpr; ((t51_methods*) (((char*)p) + TC73->methodsize))->_toType = _Tipe__ToType;
#line 156
t2_TC.defaultMethods = (char*) p; }; 
#line 156 "Tipe.m3"
PRIVATE void t2_PrintProc (obj) char *obj; { t2_fields* o;
#line 156 "Tipe.m3"
CHECKSTACKOVERFLOW; if (TC10->printProc != 0) {TC10->printProc (obj); } fprintf (stderr, "{%s} ", TC2->brand); o = (t2_fields*) (obj + TC10->datasize);
#line 156
fprintf (stderr, "value = %#x", o->_value); fprintf (stderr, ", "); };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Tipe__initProc};
static char* VSimports[] = { &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__MatchID__4fb3c66f3429afd9,
&VS_Scanner__GetToken__192100a32c7e576d, &VS_Scanner__Fail__a15a8cf32391aa62, &VS_Text__T__fc4b369f3ab271fd, &VS_Type__T__2446b70b3f7780a5,
&VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Type__Parse__603df5e3247e0b72, &VS_Type__NoteDeclaration__363e372920d41f99,
&VS_Type__Bind__3443ccd12eedb9e8, &VS_Type__Check__3c8ceb09206ee440, &VS_Type__Name__f99416972257a869, &VS_Type__IsSubtype__8591fba5245cb882,
&VS_Type__Compile__b35af2d633205d32, &VS_Type__ExternalDecl__6de7fc352a3fe0da, &VS_Type__Fingerprint__0d24a3463c25e166, &VS_Token__DeclStart__730c82bc2c2001b8,
&VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1,
&VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15, &VS_Wr__PutText__e034dab73a793846, &VS_Temp__T__3a6c7dc12615e4ee,
&VS_Address__T__8a8b518c29ea7c1d, &VS_Refany__T__f1d580683a3395ec, &VS_Void__T__d44caf853dc63223, &VS_OpaqueType__New__ad2ae07426f5c4e4,
&VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__OpI__02cb878634bb9f49, &VS_Emit__OpN__a3f6e37c396e144c,
&VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_String__T__3a6c7dc12615e4ee, &VS_String__Add__0f5e21cc3d204b63,
&VS_Error__Msg__4d119a332467757f, &VS_Scope__T__3a6c7dc12615e4ee, &VS_Scope__ValueList__64bf053e22e4e53c, &VS_Scope__Insert__ef77c00626575764,
&VS_ValueRep__V__f28699153c608442, &VS_ValueRep__Init__ba99dff739390f9a, &VS_ValueRep__NoDuplicates__ed93f73a247eb7b4, &VS_ValueRep__NoExpr__1297c63d2e046c2c,
&VS_ValueRep__NoType__4061f01226f55ca3, &VS_ValueRep__NoLoader__9a7f0c5b24f526c1, &VS_ValueRep__NoWriter__3b24d43c367f7122,
&VS_ValueRep__NoDeclarer__22db283420635bde, &VS_ValueRep__Never__39b6ab0628d97589, &VS_ValueRep__Always__1b0a9bbf2173b8b3,
&VS_Value__T__2446b70b3f7780a5, &VS_Value__GenStorageClass__fc0c1a1823c9d008, &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__MatchID__4fb3c66f3429afd9,
&VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__Fail__a15a8cf32391aa62, &VS_Scanner__GetToken__192100a32c7e576d, NIL };  void Tipe__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Tipe__init; Tipe__init = & me_0; t2_TC = t2_TC_init;
         REGISTERTYPE (TC2); break; }; case 1: { t2_TC.parent = TC_M3__Value; break; }; case 2: { break; }; }; };