#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "empty field type", 17}; PRIVATE TXT txt2 = { 3, "open arrays may not used in record fields", 42};
PRIVATE TXT txt3 = { 3, "default is not a constant", 26}; PRIVATE TXT txt4 = { 3, "field declaration??", 20}; PRIVATE TXT txt5 = { 3, "FIELD ", 7};
PRIVATE TXT txt6 = { 3, " ", 2}; PRIVATE TXT txt7 = { 3, " := ", 5};
#line 16 "../Interfaces/Type.i3"
#define t2 ADDRESS
#define t80 void
typedef int t10;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t66;
#line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3"
#define t46 t66
#define TC2 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16 "../Interfaces/Type.i3"
IMPORT char VS_Type__Map__41dd9f4b33104fce; 
#define t13 ADDRESS
#define TC13 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; 
#define t26 ADDRESS
#define TC26 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; 
#define t27 ADDRESS
#define TC27 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44;
#line 14 "../Interfaces/Expr.i3"
#define t49 ADDRESS
#define t78 ADDRESS
 typedef struct { TYPE self; int private; } t78_methods; 
#define t78_msize (sizeof (t78_methods))
typedef struct { ADDRESS methods; } t78_fields; 
#define t78_size (sizeof (t78_fields))
#define TC78 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 16 "../Interfaces/M3.i3"
#define t12 ADDRESS
#define TC12 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t50 t66
#define TC49 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Type.i3"
#define t53 ADDRESS
#define t9 ADDRESS
#define TC9 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 { t53 _next; t9 _type; } t54; 
#define TC53 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t68 ADDRESS
 typedef struct { TYPE self; int private; } t68_methods; 
#define t68_msize (sizeof (t68_methods))
typedef struct { ADDRESS methods; } t68_fields; 
#define t68_size (sizeof (t68_fields))
#define TC68 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t68_MapProc TC_ROOT->mapProc
#define t1 ADDRESS
#define TC1 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t1_MapProc TC_Wr__T->mapProc
#define t3 ADDRESS

#line 32 "../Interfaces/Temp.i3"
typedef t80 (*t4)();
#line 18 "./Value.i3"
typedef unsigned char t7;
#line 43 "./ValueRep.i3"
typedef t7 (*t8)();
#line 19 "../Interfaces/M3.i3"
#define t29 ADDRESS
#define TC29 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 45 "./ValueRep.i3"
typedef t29 (*t30)();
#line 15 "../Interfaces/M3.i3"
#define t11 ADDRESS
#define TC11 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 47 "./ValueRep.i3"
typedef t11 (*t15)(); typedef unsigned char t5;



typedef t5 (*t6)();
typedef t12 (*t31)();
typedef t9 (*t39)();
#line 16 "Field.m3"
typedef struct { int filler; } t3_methods; 
#define t3_msize (sizeof (t3_methods))
typedef struct {
#line 16
 t10 _offset; t9 _tipe; t12 _default; } t3_fields; 
#define t3_size (sizeof (t3_fields))
PRIVATE void t3_InitProc ();
#line 16
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 16
  t3_size, t3_msize, NIL, 0, 0, t3_InitProc,   t3_SetupProc,   t3_PrintProc, "Field#$%^_0002", -1477635477, 660360512}; PRIVATE TYPE TC3 = &t3_TC;
#line 16

#line 13 "../Interfaces/String.i3"
#define t14 ADDRESS
#define TC14 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee;
#line 35 "Field.m3"
typedef t3 (*t16)(); 
#define t17 ADDRESS
#define TC17 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t17_MapProc TC_TEXT->mapProc
#define t18 t66
typedef t17 (*t19)();
#line 13 ".ROOT/.boots/corelib/Interfaces/Fmt.i3"
typedef unsigned char t20; typedef unsigned char t21; typedef int t22; typedef double t23; typedef float t24;
typedef signed_char t25;
typedef unsigned char t28;
#line 18 "../Interfaces/AssignStmt.i3"
typedef unsigned char t32;
#line 17 "../Interfaces/M3.i3"
#define t33 ADDRESS
#define TC33 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 16 "../Interfaces/AssignStmt.i3"
typedef t33 (*t34)();
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t56;
#line 45
typedef struct { int elts[4]; } t35;
#line 16 "../Interfaces/Stmt.i3"
typedef unsigned char t38;
typedef struct { int elts[1]; } t36;









typedef void (*t37)();
#line 29 "../Interfaces/ArrayType.i3"
typedef t10 (*t40)();
#line 14 "../Interfaces/String.i3"
typedef struct { t14 _module; t14 _item; } t41;
#line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3"
typedef signed_char t48; typedef struct { t10 elts[2]; } t42;
#line 16 "./ValueRep.i3"
typedef t5 t43;
#line 14 "../Interfaces/M3.i3"
#define t44 ADDRESS
#define TC44 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 19 "./ValueRep.i3"
#define t45 ADDRESS

#line 19
typedef struct { t4 _bind; t4 _typeCheck; t8 _class; t4 _fingerprint; t30 _load; t4 _write; t15 _select; t6 _declare0; t4 _declare1;
#line 19
   t4 _declare2; t6 _needsDecl; t31 _toExpr; t39 _toType; } t45_methods; 
#define t45_msize (sizeof (t45_methods))
typedef struct {
#line 19
 t10 _origin; t14 _name; t14 _extName; t44 _scope; t9 _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; t42 _fprint;
#line 19
 } t45_fields; 
#define t45_size (sizeof (t45_fields))
#define TC45 TC_M3__Value
typedef void (*t47)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t60;
#line 65 "../Interfaces/Token.i3"
#define t55 t66
typedef struct { t14 elts[100]; } t61;
#line 17 "../Interfaces/String.i3"
typedef struct { t10 _top; t61 _stk; } t51;
#line 121 "../Interfaces/Type.i3"
typedef t2 (*t52)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t14 elts[97]; } t57;
#line 34 "../Interfaces/String.i3"
typedef t14 (*t58)();
#line 28
#define t59 t66
typedef signed_char t62;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef t62 (*t63)();
#line 26
typedef t22 (*t64)();
#line 23
typedef t21 (*t65)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t67;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t69 ADDRESS
#define TC69 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t69_MapProc TC_Thread__T->mapProc
typedef t26 (*t70)();



#define t71 ADDRESS
#define TC71 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t71_MapProc TC_Thread__Condition->mapProc
#define t72 ADDRESS
#define TC72 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t72_MapProc TC_MUTEX->mapProc
typedef t69 (*t73)();
#line 23
#define t74 ADDRESS

#line 23
typedef struct { t70 _apply; } t74_methods; 
#define t74_msize (sizeof (t74_methods))
typedef struct {
#line 23
 int filler; } t74_fields; 
#define t74_size (sizeof (t74_fields))
#define TC74 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t74_MapProc TC_Thread__Closure->mapProc
typedef t71 (*t75)();





typedef t72 (*t76)();
#line 28
#define t77 ADDRESS

#line 28
typedef struct { int filler; } t77_methods; 
#define t77_msize (sizeof (t77_methods))
typedef struct {
#line 28
 t22 _stackSize; } t77_fields; 
#define t77_size (sizeof (t77_fields))
#define TC77 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t77_MapProc TC_Thread__SizedClosure->mapProc
typedef CLOSURE t79;
#line 10 "Field.m3"
IMPORT INITLINK* Fmt__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Temp__init; IMPORT INITLINK* AssignStmt__init; IMPORT INITLINK* ArrayType__init;
#line 10
IMPORT INITLINK* Error__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* ValueRep__init;
#line 10
IMPORT INITLINK* Value__init; IMPORT INITLINK* Field__init;  IMPORT t17 _Fmt__Int (); IMPORT char VS_Fmt__Int__6e220fa1366cffbc;
#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 t80 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846;   IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee;
#line 10
  IMPORT t12 _AssignStmt__CheckRHS (); IMPORT char VS_AssignStmt__CheckRHS__9aaea40f392f387e;   IMPORT t5 _ArrayType__Split ();
#line 10
IMPORT char VS_ArrayType__Split__b3402f88270f8053;   IMPORT t80 _Error__Str (); IMPORT char VS_Error__Str__2bd0723e3872e90c;
#line 10
  IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; IMPORT t80 _Expr__Bind (); IMPORT char VS_Expr__Bind__7e2752da3eaf56eb;
#line 10
IMPORT t9 _Expr__TypeOf (); IMPORT char VS_Expr__TypeOf__fef0a11b388c64fa; IMPORT t12 _Expr__ConstValue (); IMPORT char VS_Expr__ConstValue__ce4fd448218fe483;
#line 10
IMPORT t80 _Expr__TypeCheck (); IMPORT char VS_Expr__TypeCheck__af9aa9073729e7f7; IMPORT t80 _Expr__Fingerprint (); IMPORT char VS_Expr__Fingerprint__50ce687c31d90a5b;
#line 10
    IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; IMPORT t9 _Type__Bind (); IMPORT char VS_Type__Bind__3443ccd12eedb9e8;
#line 10
IMPORT t5 _Type__IsEmpty (); IMPORT char VS_Type__IsEmpty__dfa43388210ba9ab; IMPORT t80 _Type__Check (); IMPORT char VS_Type__Check__3c8ceb09206ee440;
#line 10
IMPORT t80 _Type__Compile (); IMPORT char VS_Type__Compile__b35af2d633205d32; IMPORT t80 _Type__Fingerprint (); IMPORT char VS_Type__Fingerprint__0d24a3463c25e166;
#line 10
  IMPORT TYPE TC_ValueRep__V; IMPORT char VS_ValueRep__V__f28699153c608442; IMPORT t80 _ValueRep__Init (); IMPORT char VS_ValueRep__Init__ba99dff739390f9a;
#line 10
IMPORT t11 _ValueRep__NoDuplicates (); IMPORT char VS_ValueRep__NoDuplicates__ed93f73a247eb7b4; IMPORT t12 _ValueRep__NoExpr ();
#line 10
IMPORT char VS_ValueRep__NoExpr__1297c63d2e046c2c; IMPORT t9 _ValueRep__NoType (); IMPORT char VS_ValueRep__NoType__4061f01226f55ca3;
#line 10
IMPORT t29 _ValueRep__NoLoader (); IMPORT char VS_ValueRep__NoLoader__9a7f0c5b24f526c1; IMPORT t80 _ValueRep__NoWriter ();
#line 10
IMPORT char VS_ValueRep__NoWriter__3b24d43c367f7122; IMPORT t80 _ValueRep__NoDeclarer (); IMPORT char VS_ValueRep__NoDeclarer__22db283420635bde;
#line 10
IMPORT t5 _ValueRep__Never (); IMPORT char VS_ValueRep__Never__39b6ab0628d97589; IMPORT t5 _ValueRep__Always (); IMPORT char VS_ValueRep__Always__1b0a9bbf2173b8b3;
#line 10
  IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5;   EXPORT t11 _Field__New (); EXPORT char VS_Field__New__aea7f76e2205b828 = '\0';
#line 10
EXPORT t80 _Field__SetOffset (); EXPORT char VS_Field__SetOffset__d1a2a57a2ce38895 = '\0'; EXPORT t5 _Field__Split (); EXPORT char VS_Field__Split__2f17aa55376061e0 = '\0';
#line 10
EXPORT t80 _Field__SplitX (); EXPORT char VS_Field__SplitX__434cc2b3264ce2d7 = '\0'; PRIVATE TYPE TC_Field__T; PRIVATE t3 _Field__Create ();
#line 10
PRIVATE t80 _Field__TypeCheck (); PRIVATE t80 _Field__Bind (); PRIVATE t80 _Field__Compile (); PRIVATE t7 _Field__MyClass ();
#line 10
PRIVATE t5 _Field__Declarer (); PRIVATE t80 _Field__FPrinter ();  IMPORT char VS_M3__Value__c975bdb53a08f518;    
#line 35 "Field.m3"
 PRIVATE t3 _Field__Create (_name) t14 _name; { t3 z0; t3 z2;
#line 35 "Field.m3"
{ auto t3 _t; auto t3 __result; {
      ZERO1  (& _t);
#line 35
      ZERO1  (& __result); CHECKSTACKOVERFLOW;


      { register char** ptr = (char**) UNEWOBJ (TC3); z0 = (t3) ptr; }; _t = z0;
      _ValueRep__Init (_t, _name);
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t45_size+t78_size)))->_offset) =  0 ;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe) = (t9) 0;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t45_size+t78_size)))->_default) = (t12) 0;
      __result = _t; return __result; } } };
#line 46 "Field.m3"
 EXPORT t11 _Field__New (_name, _offset, _type, _default) t14 _name; t10 _offset; t9 _type; t12 _default; { t3 z2;
#line 46 "Field.m3"
{ auto t3 _t; auto t11 __result; {

      ZERO1  (& _t);
#line 46
      CHECKSTACKOVERFLOW;



      z2 = _Field__Create (_name); _t = z2;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t45_size+t78_size)))->_offset) = _offset;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe) = _type;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t45_size+t78_size)))->_default) = _default;
      __result = _t; return __result; } } };
#line 57 "Field.m3"
 EXPORT t5 _Field__Split (_field, _offset, _type, _default) t11 _field; t10 * _offset; t9 * _type; t12 * _default; { t3 z1;
#line 57 "Field.m3"
{ auto t5 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;


      { register ADDRESS ref = (ADDRESS) _field; register int tc = TYPECODE (ref); if (tc == 0) goto tc0_0; if (ISSUBTYPE (tc, TC3)) goto tc0_1;
#line 60
         goto tc0_else; tc0_0:; __result =  0 ;
            return __result; tc0_1:; { auto t3 _t; {

                  ZERO1  (& _t);
#line 61
                  _t = (t3) ref;

                  NILCHECKA (z1 = _t); (*_offset) = (((t3_fields*)(z1+(0+t45_size+t78_size)))->_offset);
                  NILCHECKA (z1 = _t); (*_type) = (((t3_fields*)(z1+(0+t45_size+t78_size)))->_tipe);
                  NILCHECKA (z1 = _t); (*_default) = (((t3_fields*)(z1+(0+t45_size+t78_size)))->_default);
                  __result =  1 ; return __result; } } tc0_else:; __result =  0 ;

            return __result; tc0_exit:; }; } } };
#line 72 "Field.m3"
 EXPORT t80 _Field__SplitX (_field, _offset, _type, _default) t11 _field; t10 * _offset; t9 * _type; t12 * _default; { t5 z5;
#line 72 "Field.m3"
{ auto t5 _b; {

      ZERO1B (& _b);
#line 72
      CHECKSTACKOVERFLOW;



      z5 = _Field__Split (_field, &(*_offset), &(*_type), &(*_default)); _b = z5;
      if (!_b) ASSERTFAULT; } } };
#line 80 "Field.m3"
 EXPORT t80 _Field__SetOffset (_field, _newOffset) t11 _field; t10 _newOffset; { t3 z2; t3 z1;
#line 80 "Field.m3"
{ { CHECKSTACKOVERFLOW;

      z2 = NARROW (_field, t3, TC3, z2); NILCHECKA (z1 = z2); (((t3_fields*)(z1+(0+t45_size+t78_size)))->_offset) = _newOffset;
#line 82
      } } };
#line 85 "Field.m3"
 PRIVATE t80 _Field__TypeCheck (_t) t3 _t; { t3 z2; t5 z3; t5 z5; t5 z0; t3 z1; t12 z6; t12 z4;
#line 85 "Field.m3"
{ auto t9 _index; auto t9 _elt; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _t); _Type__Check ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe));
      NILCHECKA (z2 = _t); z3 = _Type__IsEmpty ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe)); if (z3) {
         NILCHECKA (z2 = _t); _Error__Str ((((t45_fields*)(z2+(0+t78_size)))->_name), ((ADDRESS)(& txt1.str))); goto if_1_end;
#line 90
 }; if_1_end: /**/;

      NILCHECKA (z2 = _t); z5 = _ArrayType__Split ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe), &_index, &_elt); z0 = 0;
#line 92
      if (z5) { z3 = (_index == 0); z0 = z3; }; if (z0) {
         NILCHECKA (z2 = _t); _Error__Str ((((t45_fields*)(z2+(0+t78_size)))->_name), ((ADDRESS)(& txt2.str))); goto if_2_end;
#line 93
 }; if_2_end: /**/;

      NILCHECKA (z1 = _t); z3 = ((((t3_fields*)(z1+(0+t45_size+t78_size)))->_default) != 0); if (z3) {

         NILCHECKA (z2 = _t); _Expr__TypeCheck ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_default));
         NILCHECKA (z2 = _t); z6 = _AssignStmt__CheckRHS ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe), (((t3_fields*)(z2+(0+t45_size+t78_size)))->_default),  0 );
#line 98
         NILCHECKA (z1 = _t); (((t3_fields*)(z1+(0+t45_size+t78_size)))->_default) = z6;
         NILCHECKA (z2 = _t); z4 = _Expr__ConstValue ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_default)); z3 = (z4 == 0);
#line 99
         if (z3) {
            NILCHECKA (z2 = _t); _Error__Str ((((t45_fields*)(z2+(0+t78_size)))->_name), ((ADDRESS)(& txt3.str))); goto if_4_end;
#line 100
 }; if_4_end: /**/; goto if_3_end; }; if_3_end: /**/; } } };
#line 105 "Field.m3"
 PRIVATE t80 _Field__Bind (_t) t3 _t; { t3 z2; t3 z1; t5 z3; t9 z4;
#line 105 "Field.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Expr__Bind ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_default));
      NILCHECKA (z1 = _t); z3 = ((((t3_fields*)(z1+(0+t45_size+t78_size)))->_tipe) != 0); if (z3) {
         NILCHECKA (z2 = _t); z4 = _Type__Bind ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe)); NILCHECKA (z1 = _t); (((t3_fields*)(z1+(0+t45_size+t78_size)))->_tipe) = z4;
#line 109
         goto if_5_end; }; NILCHECKA (z2 = _t);
         z4 = _Expr__TypeOf ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_default)); NILCHECKA (z1 = _t); (((t3_fields*)(z1+(0+t45_size+t78_size)))->_tipe) = z4;
#line 110
 if_5_end: /**/;

      NILCHECKA (z1 = _t); (((t45_fields*)(z1+(0+t78_size)))->_type) = (((t3_fields*)(z1+(0+t45_size+t78_size)))->_tipe);
#line 112
      } } };
#line 115 "Field.m3"
 PRIVATE t80 _Field__Compile (_t) t3 _t; { t3 z2;
#line 115 "Field.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Type__Compile ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe)); } } };
#line 120 "Field.m3"
 PRIVATE t7 _Field__MyClass (_t) t3 _t; {
#line 120 "Field.m3"
{ auto t7 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      __result =  6 ; return __result; } } };
#line 125 "Field.m3"
 PRIVATE t5 _Field__Declarer (_t) t3 _t; { t3 z2;
#line 125 "Field.m3"
{ auto t5 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Error__Str ((((t45_fields*)(z2+(0+t78_size)))->_name), ((ADDRESS)(& txt4.str)));
      if (! 0 ) ASSERTFAULT; } } };
#line 132 "Field.m3"
 PRIVATE t80 _Field__FPrinter (_t, _map, _wr) t3 _t; t2 _map; t1 _wr; { t3 z5; t17 z7; t17 z3; t17 z4; t3 z2; t3 z1; t5 z6;
t12 z8;
#line 132 "Field.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z5 = _t); z7 = _Fmt__Int ((((t3_fields*)(z5+(0+t45_size+t78_size)))->_offset),  10 ); z3 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt5.str)), z7);
#line 134
      z4 = (ADDRESS) _Text__Cat (z3, ((ADDRESS)(& txt6.str))); _Wr__PutText (_wr, z4);
      NILCHECKA (z2 = _t); _Type__Fingerprint ((((t3_fields*)(z2+(0+t45_size+t78_size)))->_tipe), _map, _wr);
      NILCHECKA (z1 = _t); z6 = ((((t3_fields*)(z1+(0+t45_size+t78_size)))->_default) != 0); if (z6) {
         _Wr__PutText (_wr, ((ADDRESS)(& txt7.str)));
         NILCHECKA (z5 = _t); z8 = _Expr__ConstValue ((((t3_fields*)(z5+(0+t45_size+t78_size)))->_default)); _Expr__Fingerprint (z8, _map, _wr);
#line 138
         goto if_6_end; }; if_6_end: /**/; } } };  PRIVATE int init_done = -1;
#line 138 "Field.m3"
 PRIVATE void Field__initProc (g) int g; {
#line 138 "Field.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Field__init); INITIALIZE (& Fmt__init); INITIALIZE (& Wr__init);
#line 138
INITIALIZE (& Temp__init); INITIALIZE (& AssignStmt__init); INITIALIZE (& ArrayType__init); INITIALIZE (& Error__init); INITIALIZE (& Expr__init);
#line 138
INITIALIZE (& String__init); INITIALIZE (& Type__init); INITIALIZE (& ValueRep__init); INITIALIZE (& Value__init); return;
#line 138
}; 
#line 138 "Field.m3"
PRIVATE void t3_InitProc (obj) char* obj; { register t3_fields* p;
#line 138 "Field.m3"
CHECKSTACKOVERFLOW; p = (t3_fields*) (obj + TC11->datasize); }; 
#line 138 "Field.m3"
PRIVATE void t3_SetupProc () { register int* p;
#line 138 "Field.m3"
t3_TC.datasize += TC11->datasize; t3_TC.methodsize += TC11->methodsize; p = (int*) UALLOC (t3_TC.methodsize); COPY (TC11->defaultMethods, p, (TC11->methodsize));
#line 138
p[0] = (int)(& t3_TC); p[1] = 0; ((t45_methods*) (((char*)p) + TC78->methodsize))->_bind = _Field__Bind; ((t45_methods*) (((char*)p) + TC78->methodsize))->_typeCheck = _Field__TypeCheck;
#line 138
((t45_methods*) (((char*)p) + TC78->methodsize))->_class = _Field__MyClass; ((t45_methods*) (((char*)p) + TC78->methodsize))->_fingerprint = _Field__FPrinter;
#line 138
((t45_methods*) (((char*)p) + TC78->methodsize))->_load = _ValueRep__NoLoader; ((t45_methods*) (((char*)p) + TC78->methodsize))->_write = _ValueRep__NoWriter;
#line 138
((t45_methods*) (((char*)p) + TC78->methodsize))->_select = _ValueRep__NoDuplicates; ((t45_methods*) (((char*)p) + TC78->methodsize))->_declare0 = _Field__Declarer;
#line 138
((t45_methods*) (((char*)p) + TC78->methodsize))->_declare1 = _Field__Compile; ((t45_methods*) (((char*)p) + TC78->methodsize))->_needsDecl = _ValueRep__Never;
#line 138
((t45_methods*) (((char*)p) + TC78->methodsize))->_toExpr = _ValueRep__NoExpr; ((t45_methods*) (((char*)p) + TC78->methodsize))->_toType = _ValueRep__NoType;
#line 138
t3_TC.defaultMethods = (char*) p; }; 
#line 138 "Field.m3"
PRIVATE void t3_PrintProc (obj) char *obj; { t3_fields* o;
#line 138 "Field.m3"
CHECKSTACKOVERFLOW; if (TC11->printProc != 0) {TC11->printProc (obj); } fprintf (stderr, "{%s} ", TC3->brand); o = (t3_fields*) (obj + TC11->datasize);
#line 138
fprintf (stderr, "offset = %d", o->_offset); fprintf (stderr, ", "); fprintf (stderr, "tipe = %#x", o->_tipe); fprintf (stderr, ", ");
#line 138
fprintf (stderr, "default = %#x", o->_default); fprintf (stderr, ", "); };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Field__initProc};
static char* VSimports[] = { &VS_Fmt__Int__6e220fa1366cffbc, &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_AssignStmt__CheckRHS__9aaea40f392f387e, &VS_ArrayType__Split__b3402f88270f8053, &VS_Error__Str__2bd0723e3872e90c, &VS_Expr__T__2446b70b3f7780a5,
&VS_Expr__List__3f87eceb2b9a246a, &VS_Expr__Bind__7e2752da3eaf56eb, &VS_Expr__TypeOf__fef0a11b388c64fa, &VS_Expr__ConstValue__ce4fd448218fe483,
&VS_Expr__TypeCheck__af9aa9073729e7f7, &VS_Expr__Fingerprint__50ce687c31d90a5b, &VS_String__T__3a6c7dc12615e4ee, &VS_Type__T__2446b70b3f7780a5,
&VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Type__Bind__3443ccd12eedb9e8, &VS_Type__IsEmpty__dfa43388210ba9ab,
&VS_Type__Check__3c8ceb09206ee440, &VS_Type__Compile__b35af2d633205d32, &VS_Type__Fingerprint__0d24a3463c25e166, &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, NIL };  void Field__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Field__init; Field__init = & me_0; t3_TC = t3_TC_init;
         REGISTERTYPE (TC3); break; }; case 1: { t3_TC.parent = TC_M3__Value; break; }; case 2: { break; }; }; };