#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "a constant cannot be external", 30}; PRIVATE TXT txt2 = { 3, "a constant cannot be inline", 28};
PRIVATE TXT txt3 = { 3, "constant cannot be procedures", 30}; PRIVATE TXT txt4 = { 3, "value is not a legal constant", 30};
PRIVATE TXT txt5 = { 3, "constant has empty value", 25}; PRIVATE TXT txt6 = { 3, "@", 2}; PRIVATE TXT txt7 = { 3, "EXPORT t@ ", 11};
PRIVATE TXT txt8 = { 3, "@ = ", 5}; PRIVATE TXT txt9 = { 3, ";\012", 3}; PRIVATE TXT txt10 = { 3, "IMPORT t@ ", 11}; PRIVATE TXT txt11 = { 3, "@;\012", 4};
PRIVATE TXT txt12 = { 3, "PRIVATE t@ ", 12}; PRIVATE TXT txt13 = { 3, "CONST ", 7}; PRIVATE TXT txt14 = { 3, " = ", 4};
#line 16 "../Interfaces/Type.i3"
#define t2 ADDRESS
#define t89 void
typedef int t22;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t76;
#line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3"
#define t64 t76
#define TC2 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16 "../Interfaces/Type.i3"
IMPORT char VS_Type__Map__41dd9f4b33104fce; 
#define t32 ADDRESS
#define TC32 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a;
#line 18 "../Interfaces/ProcType.i3"
#define t39 ADDRESS
#define t45 ADDRESS
#define TC45 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44;
#line 13 "../Interfaces/String.i3"
#define t15 ADDRESS
#define TC15 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee;
typedef struct { t15 _module; t15 _item; } t42; 
#define t87 ADDRESS
 typedef struct { TYPE self; int private; } t87_methods; 
#define t87_msize (sizeof (t87_methods))
typedef struct { ADDRESS methods; } t87_fields; 
#define t87_size (sizeof (t87_fields))
#define TC87 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 15 "../Interfaces/M3.i3"
#define t20 ADDRESS
#define TC20 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 14 "../Interfaces/ProcType.i3"
typedef struct { t39 _next; t42 _name; t20 _except; } t43;



#define TC39 TC_ProcType__Raisee
IMPORT TYPE TC_ProcType__Raisee;
#line 18
IMPORT char VS_ProcType__Raisee__5fe771ff27c179d9;
#line 14 "../Interfaces/Expr.i3"
#define t44 ADDRESS
#define t5 ADDRESS
#define TC5 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16 "../Interfaces/M3.i3"
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t66 t76
#define TC44 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Scope.i3"
#define t59 ADDRESS
#define t35 t76
#define TC59 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 17 "../Interfaces/Type.i3"
#define t68 ADDRESS
#define t13 ADDRESS
#define TC13 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 { t68 _next; t13 _type; } t69; 
#define TC68 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t90 ADDRESS
#define TC90 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; 
#define t33 ADDRESS
 typedef struct { TYPE self; int private; } t33_methods; 
#define t33_msize (sizeof (t33_methods))
typedef struct { ADDRESS methods; } t33_fields; 
#define t33_size (sizeof (t33_fields))
#define TC33 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t33_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
 typedef unsigned char t9;
#line 38 "../Interfaces/Scanner.i3"
typedef t89 (*t4)();
#line 18 "./Value.i3"
typedef unsigned char t7;
#line 43 "./ValueRep.i3"
typedef t7 (*t8)();
#line 19 "../Interfaces/M3.i3"
#define t11 ADDRESS
#define TC11 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 31 "../Interfaces/ExprRep.i3"
typedef t11 (*t12)();
#line 47 "./ValueRep.i3"
typedef t20 (*t60)();
#line 28 "../Interfaces/ExprRep.i3"
typedef t9 (*t10)();
#line 24
typedef t5 (*t6)();
#line 53 "./ValueRep.i3"
typedef t13 (*t36)();
#line 14 "Constant.m3"
typedef struct { int filler; } t3_methods; 
#define t3_msize (sizeof (t3_methods))
typedef struct {
#line 14
 t13 _tipe; t5 _value; t9 _explicit; t9 _written; } t3_fields; 
#define t3_size (sizeof (t3_fields))
PRIVATE void t3_InitProc ();
#line 14
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 14
  t3_size, t3_msize, NIL, 0, 0, t3_InitProc,   t3_SetupProc,   t3_PrintProc, "Constant#$%^_0003", -1359001292, 766093318}; PRIVATE TYPE TC3 = &t3_TC;
#line 14
 
#define t14 ADDRESS
#define TC14 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t14_MapProc TC_TEXT->mapProc
typedef t3 (*t16)();
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t17;
#line 14 "./Decl.i3"
typedef struct { t15 _alias; t9 _isExternal; t9 _isInline; t9 _isUnused; t9 _isObsolete; } t18;
#line 45 "../Interfaces/Token.i3"
typedef struct { int elts[4]; } t19;
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
#define t21 ADDRESS
#define TC21 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t21_MapProc TC_Rd__T->mapProc
typedef t15 (*t23)();
#line 13 "../Interfaces/Scanner.i3"
typedef struct { t17 _token; t15 _string; t22 _value; t22 _offset; } t24; typedef int t25;
#line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t25 (*t26)();
#line 220
typedef t14 (*t27)(); typedef unsigned char t28;
#line 189
#define t29 t76
typedef t28 (*t30)();
#line 84
typedef unsigned char t31;
#line 17 "../Interfaces/CallExpr.i3"
#define t34 ADDRESS
#define TC34 TC_CallExpr__MethodList
IMPORT TYPE TC_CallExpr__MethodList;
#line 17
IMPORT char VS_CallExpr__MethodList__7e87c2d720444b71;
#line 28 "../Interfaces/ProcType.i3"
typedef t22 (*t37)();
#line 27
typedef t34 (*t38)();
#line 14 "../Interfaces/M3.i3"
#define t40 ADDRESS
#define TC40 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 24 "../Interfaces/ProcType.i3"
typedef t40 (*t41)();
#line 27 "../Interfaces/Emit.i3"
typedef signed_char t46;
#line 63
typedef t46 (*t47)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t72;
#line 65 "../Interfaces/Token.i3"
#define t70 t76
typedef struct { t15 elts[100]; } t73;
#line 17 "../Interfaces/String.i3"
typedef struct { t22 _top; t73 _stk; } t48;
#line 16 "./Variable.i3"
#define t49 ADDRESS
#define TC49 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef double t50;







typedef t49 (*t51)();
#line 13 "../Interfaces/ExprRep.i3"
#define t52 ADDRESS

#line 13
typedef struct { t4 _bind; t4 _check; t4 _write; t10 _isEqual; t6 _evaluate; t4 _getBounds; t10 _isWritable; t10 _isDesignator;
#line 13
   t10 _isZeroes; t4 _genLiteral; t4 _fprint; t12 _compile; } t52_methods; 
#define t52_msize (sizeof (t52_methods))
typedef struct {
#line 13
 t22 _origin; t13 _type; t9 _bound; t9 _inCheck; t9 _checked; } t52_fields; 
#define t52_size (sizeof (t52_fields))
#define TC52 TC_M3__Expr
typedef unsigned char t53;
#line 17 "../Interfaces/M3.i3"
#define t54 ADDRESS
#define TC54 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 16 "../Interfaces/AssignStmt.i3"
typedef t54 (*t55)();
#line 16 "../Interfaces/Stmt.i3"
typedef unsigned char t58;
typedef struct { int elts[1]; } t56;









typedef void (*t57)();
#line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3"
typedef struct { t22 elts[2]; } t61;
#line 16 "./ValueRep.i3"
typedef t9 t62;


#define t63 ADDRESS

#line 19
typedef struct { t4 _bind; t4 _typeCheck; t8 _class; t4 _fingerprint; t12 _load; t4 _write; t60 _select; t10 _declare0; t4 _declare1;
#line 19
   t4 _declare2; t10 _needsDecl; t6 _toExpr; t36 _toType; } t63_methods; 
#define t63_msize (sizeof (t63_methods))
typedef struct {
#line 19
 t22 _origin; t15 _name; t15 _extName; t40 _scope; t13 _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; t61 _fprint;
#line 19
 } t63_fields; 
#define t63_size (sizeof (t63_fields))
#define TC63 TC_M3__Value
typedef void (*t65)();
#line 121 "../Interfaces/Type.i3"
typedef t2 (*t67)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t15 elts[97]; } t71;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t74; typedef t74 (*t75)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t77;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t78 ADDRESS
#define TC78 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t78_MapProc TC_Thread__T->mapProc
typedef t32 (*t79)();



#define t80 ADDRESS
#define TC80 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t80_MapProc TC_Thread__Condition->mapProc
#define t81 ADDRESS
#define TC81 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t81_MapProc TC_MUTEX->mapProc
typedef t78 (*t82)();
#line 23
#define t83 ADDRESS

#line 23
typedef struct { t79 _apply; } t83_methods; 
#define t83_msize (sizeof (t83_methods))
typedef struct {
#line 23
 int filler; } t83_fields; 
#define t83_size (sizeof (t83_fields))
#define TC83 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t83_MapProc TC_Thread__Closure->mapProc
typedef t80 (*t84)();





typedef t81 (*t85)();
#line 28
#define t86 ADDRESS

#line 28
typedef struct { int filler; } t86_methods; 
#define t86_msize (sizeof (t86_methods))
typedef struct {
#line 28
 t25 _stackSize; } t86_fields; 
#define t86_size (sizeof (t86_fields))
#define TC86 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t86_MapProc TC_Thread__SizedClosure->mapProc
typedef CLOSURE t88; typedef float t91;
#line 5 "Constant.m3"
IMPORT INITLINK* Scanner__init; IMPORT INITLINK* ProcType__init; IMPORT INITLINK* Decl__init; IMPORT INITLINK* ArrayType__init;
#line 5
IMPORT INITLINK* Emit__init; IMPORT INITLINK* ExprRep__init; IMPORT INITLINK* Text__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Temp__init;
#line 5
IMPORT INITLINK* AssignStmt__init; IMPORT INITLINK* Token__init; IMPORT INITLINK* Target__init; IMPORT INITLINK* Error__init;
#line 5
IMPORT INITLINK* Scope__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* String__init; IMPORT INITLINK* ValueRep__init;
#line 5
IMPORT INITLINK* Value__init; IMPORT INITLINK* Constant__init;  IMPORT t24 _Scanner__cur; IMPORT char VS_Scanner__cur__929fa6f8367ea415;
#line 5
IMPORT t89 _Scanner__Match (); IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8; IMPORT t15 _Scanner__MatchID (); IMPORT char VS_Scanner__MatchID__4fb3c66f3429afd9;
#line 5
IMPORT t89 _Scanner__GetToken (); IMPORT char VS_Scanner__GetToken__192100a32c7e576d; IMPORT t89 _Scanner__Fail (); IMPORT char VS_Scanner__Fail__a15a8cf32391aa62;
#line 5
  IMPORT t9 _ProcType__Is (); IMPORT char VS_ProcType__Is__3d26c6f7230f52c6;     IMPORT t9 _ArrayType__Split (); IMPORT char VS_ArrayType__Split__b3402f88270f8053;
#line 5
  IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3; IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7;
#line 5
IMPORT t89 _Emit__Op (); IMPORT char VS_Emit__Op__072646cc27c8ae10; IMPORT t89 _Emit__OpI (); IMPORT char VS_Emit__OpI__02cb878634bb9f49;
#line 5
IMPORT t89 _Emit__OpN (); IMPORT char VS_Emit__OpN__a3f6e37c396e144c;   IMPORT t89 _ExprRep__NoBind (); IMPORT char VS_ExprRep__NoBind__e7d0d3dd3d703c08;
#line 5
IMPORT t89 _ExprRep__NoCheck (); IMPORT char VS_ExprRep__NoCheck__c11b54bc361794fa; IMPORT t5 _ExprRep__NoValue (); IMPORT char VS_ExprRep__NoValue__8ccc143224598a66;
#line 5
IMPORT t89 _ExprRep__NoBounds (); IMPORT char VS_ExprRep__NoBounds__b64bb146289ee4f0; IMPORT t9 _ExprRep__IsNever (); IMPORT char VS_ExprRep__IsNever__8f1a069b301903c8;
#line 5
IMPORT t9 _ExprRep__NeverEq (); IMPORT char VS_ExprRep__NeverEq__dfdc2412249ccb65; IMPORT t89 _ExprRep__NoWriter (); IMPORT char VS_ExprRep__NoWriter__a97bb1a23bbf506e;
#line 5
IMPORT t89 _ExprRep__NoLiteral (); IMPORT char VS_ExprRep__NoLiteral__6c9c90073f496f67;   IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd;
#line 5
  IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure;
#line 5
IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15;
#line 5
IMPORT t89 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846;   IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee;
#line 5
IMPORT t11 _Temp__FromValue (); IMPORT char VS_Temp__FromValue__c79a4f6f291f20ac;   IMPORT t5 _AssignStmt__CheckRHS (); IMPORT char VS_AssignStmt__CheckRHS__9aaea40f392f387e;
#line 5
  IMPORT t19 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t19 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02;
#line 5
IMPORT t19 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836;   IMPORT char VS_Target__INTSIZE__6d9548032b40710f;
#line 5
  IMPORT t89 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f; IMPORT t89 _Error__Str (); IMPORT char VS_Error__Str__2bd0723e3872e90c;
#line 5
IMPORT t89 _Error__WarnNonStandard (); IMPORT char VS_Error__WarnNonStandard__28b127cf2d45026a;   IMPORT TYPE TC_Scope__T;
#line 5
IMPORT char VS_Scope__T__3a6c7dc12615e4ee; IMPORT t89 _Scope__Insert (); IMPORT char VS_Scope__Insert__ef77c00626575764; 
#line 5
 IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; IMPORT t5 _Expr__Parse (); IMPORT char VS_Expr__Parse__193c41662e6da77f;
#line 5
IMPORT t89 _Expr__Bind (); IMPORT char VS_Expr__Bind__7e2752da3eaf56eb; IMPORT t13 _Expr__TypeOf (); IMPORT char VS_Expr__TypeOf__fef0a11b388c64fa;
#line 5
IMPORT t5 _Expr__ConstValue (); IMPORT char VS_Expr__ConstValue__ce4fd448218fe483; IMPORT t89 _Expr__TypeCheck (); IMPORT char VS_Expr__TypeCheck__af9aa9073729e7f7;
#line 5
IMPORT t11 _Expr__Compile (); IMPORT char VS_Expr__Compile__a7e0cc4029a2ec76; IMPORT t89 _Expr__Fingerprint (); IMPORT char VS_Expr__Fingerprint__50ce687c31d90a5b;
#line 5
IMPORT t89 _Expr__GenLiteral (); IMPORT char VS_Expr__GenLiteral__5d3c8414307dac94;   IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5;
#line 5
IMPORT t13 _Type__Parse (); IMPORT char VS_Type__Parse__603df5e3247e0b72; IMPORT t13 _Type__Bind (); IMPORT char VS_Type__Bind__3443ccd12eedb9e8;
#line 5
IMPORT t22 _Type__Size (); IMPORT char VS_Type__Size__2f4d980e28adf05b; IMPORT t89 _Type__Check (); IMPORT char VS_Type__Check__3c8ceb09206ee440;
#line 5
IMPORT t22 _Type__Name (); IMPORT char VS_Type__Name__f99416972257a869; IMPORT t89 _Type__Fingerprint (); IMPORT char VS_Type__Fingerprint__0d24a3463c25e166;
#line 5
  IMPORT t15 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63;   IMPORT TYPE TC_ValueRep__V; IMPORT char VS_ValueRep__V__f28699153c608442;
#line 5
IMPORT t89 _ValueRep__Init (); IMPORT char VS_ValueRep__Init__ba99dff739390f9a; IMPORT t20 _ValueRep__NoDuplicates (); IMPORT char VS_ValueRep__NoDuplicates__ed93f73a247eb7b4;
#line 5
IMPORT t5 _ValueRep__NoExpr (); IMPORT char VS_ValueRep__NoExpr__1297c63d2e046c2c; IMPORT t13 _ValueRep__NoType (); IMPORT char VS_ValueRep__NoType__4061f01226f55ca3;
#line 5
IMPORT t11 _ValueRep__NoLoader (); IMPORT char VS_ValueRep__NoLoader__9a7f0c5b24f526c1; IMPORT t89 _ValueRep__NoWriter ();
#line 5
IMPORT char VS_ValueRep__NoWriter__3b24d43c367f7122; IMPORT t89 _ValueRep__NoDeclarer (); IMPORT char VS_ValueRep__NoDeclarer__22db283420635bde;
#line 5
IMPORT t9 _ValueRep__Never (); IMPORT char VS_ValueRep__Never__39b6ab0628d97589; IMPORT t9 _ValueRep__Always (); IMPORT char VS_ValueRep__Always__1b0a9bbf2173b8b3;
#line 5
  IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5;   EXPORT t89 _Constant__ParseDecl (); EXPORT char VS_Constant__ParseDecl__8ef8496430ac80e6 = '\0';
#line 5
EXPORT t89 _Constant__Declare (); EXPORT char VS_Constant__Declare__c4f92520211d20db = '\0'; PRIVATE TYPE TC_Constant__T;
#line 5
PRIVATE t3 _Constant__Create (); PRIVATE t89 _Constant__Bind (); PRIVATE t89 _Constant__Check (); PRIVATE t11 _Constant__Load ();
#line 5
PRIVATE t89 _Constant__Write (); PRIVATE t9 _Constant__Declarer (); PRIVATE t89 _Constant__Compile (); PRIVATE t7 _Constant__MyClass ();
#line 5
PRIVATE t5 _Constant__ToExpr (); PRIVATE t89 _Constant__FPrinter ();  IMPORT char VS_M3__Value__c975bdb53a08f518; IMPORT char VS_M3__Expr__478658af3615b076;
#line 5
   
#line 34 "Constant.m3"
 EXPORT t89 _Constant__ParseDecl (_fail, _att) t19 * _fail; t18 _att; { t19 z3; t22 z4; t19 z5; t9 z6; t19 z2; t15 z7; t3 z8;
t19 z1; t13 z9; t5 z10;
#line 34 "Constant.m3"
{ auto t3 _t; auto t15 _id; {

      ZERO1  (& _t);
#line 34
      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] = 0x00000002; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 48 , &(*_fail), &z5);
      z6 = ((_Scanner__cur._token) ==  1 ); if (z6) do { z2.elts [0] = 0x08100000;
         z2.elts [1] = 0; z2.elts [2] = 0; z2.elts [3] = 0; z5.elts[0] = z2.elts[0] | _Token__ExprStart.elts[0]; z5.elts[1] = z2.elts[1] | _Token__ExprStart.elts[1];
#line 43
         z5.elts[2] = z2.elts[2] | _Token__ExprStart.elts[2]; z5.elts[3] = z2.elts[3] | _Token__ExprStart.elts[3]; z2 = z5;
#line 43
         z7 = _Scanner__MatchID (&(*_fail), &z2); _id = z7;

         z8 = _Constant__Create (_id); _t = z8;
         NILCHECKA (z8 = _t); (((t63_fields*)(z8+(0+t87_size)))->_unused) = (_att._isUnused);
         NILCHECKA (z8 = _t); (((t63_fields*)(z8+(0+t87_size)))->_obsolete) = (_att._isObsolete);
         z6 = ((_Scanner__cur._token) ==  27 ); if (z6) {
            _Scanner__GetToken ();
            z2.elts [0] = 0x00100000; z2.elts [1] = 0; z2.elts [2] = 0; z2.elts [3] = 0; z3.elts[0] = (*_fail).elts[0] | z2.elts[0];
#line 50
            z3.elts[1] = (*_fail).elts[1] | z2.elts[1]; z3.elts[2] = (*_fail).elts[2] | z2.elts[2]; z3.elts[3] = (*_fail).elts[3] | z2.elts[3];
#line 50
            z2.elts[0] = z3.elts[0] | _Token__ExprStart.elts[0]; z2.elts[1] = z3.elts[1] | _Token__ExprStart.elts[1]; z2.elts[2] = z3.elts[2] | _Token__ExprStart.elts[2];
#line 50
            z2.elts[3] = z3.elts[3] | _Token__ExprStart.elts[3]; z1 = z2; z9 = _Type__Parse (&z1); NILCHECKA (z8 = _t); (((t3_fields*)(z8+(0+t63_size+t87_size)))->_tipe) = z9;
#line 50
            goto if_3_end; }; if_3_end: /**/;

         z5 = _Token__ExprStart; _Scanner__Match ( 20 , &(*_fail), &z5);
         z10 = _Expr__Parse (&(*_fail)); NILCHECKA (z8 = _t); (((t3_fields*)(z8+(0+t63_size+t87_size)))->_value) = z10;
         _Scope__Insert (_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 55
         z6 = ((_Scanner__cur._token) ==  1 ); } while (z6); } } };
#line 59 "Constant.m3"
 PRIVATE t3 _Constant__Create (_name) t15 _name; { t3 z0; t3 z2;
#line 59 "Constant.m3"
{ auto t3 _t; auto t3 __result; {
      ZERO1  (& _t);
#line 59
      ZERO1  (& __result); CHECKSTACKOVERFLOW;


      { register char** ptr = (char**) UNEWOBJ (TC3); z0 = (t3) ptr; }; _t = z0;
      _ValueRep__Init (_t, _name);
      NILCHECKA (z2 = _t); (((t63_fields*)(z2+(0+t87_size)))->_readonly) =  1 ;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t63_size+t87_size)))->_tipe) = (t13) 0;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t63_size+t87_size)))->_value) = (t5) 0;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t63_size+t87_size)))->_explicit) =  0 ;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t63_size+t87_size)))->_written) =  0 ;
      __result = _t; return __result; } } };
#line 72 "Constant.m3"
 EXPORT t89 _Constant__Declare (_name, _value) t14 _name; t5 _value; { t15 z4; t3 z1; t5 z2; t3 z3;
#line 72 "Constant.m3"
{ auto t3 _t; {
      ZERO1  (& _t);
#line 72
      CHECKSTACKOVERFLOW;


      z4 = _String__Add (_name,  999999 ); z1 = _Constant__Create (z4); _t = z1;
      NILCHECKA (z2 = _value); NILCHECKA (z3 = _t); (((t63_fields*)(z3+(0+t87_size)))->_type) = (((t52_fields*)(z2+(0+t87_size)))->_type);
      NILCHECKA (z2 = _value); NILCHECKA (z3 = _t); (((t3_fields*)(z3+(0+t63_size+t87_size)))->_tipe) = (((t52_fields*)(z2+(0+t87_size)))->_type);
      NILCHECKA (z3 = _t); (((t3_fields*)(z3+(0+t63_size+t87_size)))->_value) = _value;
      _Scope__Insert (_t); } } };
#line 82 "Constant.m3"
 PRIVATE t89 _Constant__Bind (_t) t3 _t; { t3 z2; t3 z1; t9 z3; t13 z4;
#line 82 "Constant.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Expr__Bind ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_value));
      NILCHECKA (z1 = _t); z3 = ((((t3_fields*)(z1+(0+t63_size+t87_size)))->_tipe) != 0); if (z3) {
         NILCHECKA (z2 = _t); z4 = _Type__Bind ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_tipe)); NILCHECKA (z1 = _t); (((t3_fields*)(z1+(0+t63_size+t87_size)))->_tipe) = z4;
#line 86
         goto if_4_end; }; NILCHECKA (z2 = _t);
         z4 = _Expr__TypeOf ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_value)); NILCHECKA (z1 = _t); (((t3_fields*)(z1+(0+t63_size+t87_size)))->_tipe) = z4;
#line 87
 if_4_end: /**/;

      NILCHECKA (z2 = _t); z3 = _ProcType__Is ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_tipe)); if (z3) {
         _Error__WarnNonStandard (((ADDRESS)(& txt3.str))); goto if_5_end; }; if_5_end: /**/;

      NILCHECKA (z1 = _t); (((t63_fields*)(z1+(0+t87_size)))->_type) = (((t3_fields*)(z1+(0+t63_size+t87_size)))->_tipe);
#line 92
      } } };
#line 95 "Constant.m3"
 PRIVATE t89 _Constant__Check (_t) t3 _t; { t3 z2; t5 z5; t3 z1; t5 z3; t9 z4; t9 z0; t9 z6; t22 z7; t22 z8;
#line 95 "Constant.m3"
{ auto t5 _e; auto t13 _index; auto t13 _elt; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _t); _Type__Check ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_tipe));
      NILCHECKA (z2 = _t); _Expr__TypeCheck ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_value));
      NILCHECKA (z2 = _t); z5 = _AssignStmt__CheckRHS ((((t63_fields*)(z2+(0+t87_size)))->_type), (((t3_fields*)(z2+(0+t63_size+t87_size)))->_value),  0 );
#line 100
      NILCHECKA (z1 = _t); (((t3_fields*)(z1+(0+t63_size+t87_size)))->_value) = z5;
      NILCHECKA (z2 = _t); z3 = _Expr__ConstValue ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_value)); _e = z3;
      NILCHECKA (z1 = _t); z4 = ((((t3_fields*)(z1+(0+t63_size+t87_size)))->_value) != 0); z0 = 0; if (z4) { z4 = (_e == 0);
#line 102
         z0 = z4; }; if (z0) {
         _Error__Msg (((ADDRESS)(& txt4.str))); goto if_6_end; }; NILCHECKA (z2 = _t);
         (((t3_fields*)(z2+(0+t63_size+t87_size)))->_value) = _e; if_6_end: /**/;

      NILCHECKA (z2 = _t); z6 = _ArrayType__Split ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_tipe), &_index, &_elt); z0 = 0;
#line 106
      if (z6) { z4 = (_index == 0); z0 = z4; }; if (z0) {
         NILCHECKA (z2 = _t); _Error__Str ((((t63_fields*)(z2+(0+t87_size)))->_name), ((ADDRESS)(& txt5.str))); goto if_7_end;
#line 107
 }; if_7_end: /**/;

      NILCHECKA (z2 = _t); z7 = _Type__Size ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_tipe)); z8 =  2  *  32 ; z0 = (z7 >= z8);
#line 109
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t63_size+t87_size)))->_explicit) = z0; } } };
#line 112 "Constant.m3"
 PRIVATE t11 _Constant__Load (_t) t3 _t; { t3 z1; t11 z3; t3 z2;
#line 112 "Constant.m3"
{ auto t11 __result; { CHECKSTACKOVERFLOW;

      NILCHECKA (z1 = _t); if ((((t3_fields*)(z1+(0+t63_size+t87_size)))->_explicit)) {
         z3 = _Temp__FromValue (_t,  0 ); __result = z3; return __result; }; NILCHECKA (z2 = _t);
         z3 = _Expr__Compile ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_value)); __result = z3; return __result; } } };
#line 120 "Constant.m3"
 PRIVATE t89 _Constant__Write (_t) t3 _t; {
#line 120 "Constant.m3"
{ { CHECKSTACKOVERFLOW;

      _Emit__OpN (((ADDRESS)(& txt6.str)), _t); } } };
#line 125 "Constant.m3"
 PRIVATE t9 _Constant__Declarer (_t) t3 _t; { t3 z1; t3 z4; t22 z5; t3 z2;
#line 125 "Constant.m3"
{ auto t9 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      NILCHECKA (z1 = _t); if ((((t3_fields*)(z1+(0+t63_size+t87_size)))->_explicit)) {
         NILCHECKA (z1 = _t); if ((((t63_fields*)(z1+(0+t87_size)))->_exported)) {
            NILCHECKA (z4 = _t); z5 = _Type__Name ((((t3_fields*)(z4+(0+t63_size+t87_size)))->_tipe)); _Emit__OpI (((ADDRESS)(& txt7.str)), z5);
            _Emit__OpN (((ADDRESS)(& txt8.str)), _t);
            NILCHECKA (z2 = _t); _Expr__GenLiteral ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_value));
            _Emit__Op (((ADDRESS)(& txt9.str))); goto if_10_end; }; NILCHECKA (z1 = _t); if ((((t63_fields*)(z1+(0+t87_size)))->_imported)) {

            NILCHECKA (z4 = _t); z5 = _Type__Name ((((t3_fields*)(z4+(0+t63_size+t87_size)))->_tipe)); _Emit__OpI (((ADDRESS)(& txt10.str)), z5);
            _Emit__OpN (((ADDRESS)(& txt11.str)), _t); goto if_10_end; }; NILCHECKA (z4 = _t);

            z5 = _Type__Name ((((t3_fields*)(z4+(0+t63_size+t87_size)))->_tipe)); _Emit__OpI (((ADDRESS)(& txt12.str)), z5);
            _Emit__OpN (((ADDRESS)(& txt8.str)), _t);
            NILCHECKA (z2 = _t); _Expr__GenLiteral ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_value));
            _Emit__Op (((ADDRESS)(& txt9.str))); if_10_end: /**/; goto if_9_end; }; if_9_end: /**/;


      __result =  1 ; return __result; } } };
#line 146 "Constant.m3"
 PRIVATE t89 _Constant__Compile (_t) t3 _t; {
#line 146 "Constant.m3"
{ { CHECKSTACKOVERFLOW; } } };
#line 150 "Constant.m3"
 PRIVATE t7 _Constant__MyClass (_t) t3 _t; {
#line 150 "Constant.m3"
{ auto t7 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      __result =  0 ; return __result; } } };
#line 155 "Constant.m3"
 PRIVATE t5 _Constant__ToExpr (_t) t3 _t; { t3 z1;
#line 155 "Constant.m3"
{ auto t5 __result; { CHECKSTACKOVERFLOW;

      NILCHECKA (z1 = _t); __result = (((t3_fields*)(z1+(0+t63_size+t87_size)))->_value); return __result; } } };
#line 160 "Constant.m3"
 PRIVATE t89 _Constant__FPrinter (_t, _map, _wr) t3 _t; t2 _map; t1 _wr; { t3 z2; t3 z3; t5 z4;
#line 160 "Constant.m3"
{ { CHECKSTACKOVERFLOW;

      _Wr__PutText (_wr, ((ADDRESS)(& txt13.str)));
      NILCHECKA (z2 = _t); _Type__Fingerprint ((((t3_fields*)(z2+(0+t63_size+t87_size)))->_tipe), _map, _wr);
      _Wr__PutText (_wr, ((ADDRESS)(& txt14.str)));
      NILCHECKA (z3 = _t); z4 = _Expr__ConstValue ((((t3_fields*)(z3+(0+t63_size+t87_size)))->_value)); _Expr__Fingerprint (z4, _map, _wr);
#line 165
      } } };  PRIVATE int init_done = -1;
#line 165 "Constant.m3"
 PRIVATE void Constant__initProc (g) int g; {
#line 165 "Constant.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Constant__init); INITIALIZE (& Scanner__init); INITIALIZE (& ProcType__init);
#line 165
INITIALIZE (& Decl__init); INITIALIZE (& ArrayType__init); INITIALIZE (& Emit__init); INITIALIZE (& ExprRep__init); INITIALIZE (& Text__init);
#line 165
INITIALIZE (& Wr__init); INITIALIZE (& Temp__init); INITIALIZE (& AssignStmt__init); INITIALIZE (& Token__init); INITIALIZE (& Target__init);
#line 165
INITIALIZE (& Error__init); INITIALIZE (& Scope__init); INITIALIZE (& Expr__init); INITIALIZE (& Type__init); INITIALIZE (& String__init);
#line 165
INITIALIZE (& ValueRep__init); INITIALIZE (& Value__init); return; }; 
#line 165 "Constant.m3"
PRIVATE void t3_InitProc (obj) char* obj; { register t3_fields* p;
#line 165 "Constant.m3"
CHECKSTACKOVERFLOW; p = (t3_fields*) (obj + TC20->datasize); }; 
#line 165 "Constant.m3"
PRIVATE void t3_SetupProc () { register int* p;
#line 165 "Constant.m3"
t3_TC.datasize += TC20->datasize; t3_TC.methodsize += TC20->methodsize; p = (int*) UALLOC (t3_TC.methodsize); COPY (TC20->defaultMethods, p, (TC20->methodsize));
#line 165
p[0] = (int)(& t3_TC); p[1] = 0; ((t63_methods*) (((char*)p) + TC87->methodsize))->_bind = _Constant__Bind; ((t63_methods*) (((char*)p) + TC87->methodsize))->_typeCheck = _Constant__Check;
#line 165
((t63_methods*) (((char*)p) + TC87->methodsize))->_class = _Constant__MyClass; ((t63_methods*) (((char*)p) + TC87->methodsize))->_fingerprint = _Constant__FPrinter;
#line 165
((t63_methods*) (((char*)p) + TC87->methodsize))->_load = _Constant__Load; ((t63_methods*) (((char*)p) + TC87->methodsize))->_write = _Constant__Write;
#line 165
((t63_methods*) (((char*)p) + TC87->methodsize))->_select = _ValueRep__NoDuplicates; ((t63_methods*) (((char*)p) + TC87->methodsize))->_declare0 = _Constant__Declarer;
#line 165
((t63_methods*) (((char*)p) + TC87->methodsize))->_declare1 = _Constant__Compile; ((t63_methods*) (((char*)p) + TC87->methodsize))->_needsDecl = _ValueRep__Always;
#line 165
((t63_methods*) (((char*)p) + TC87->methodsize))->_toExpr = _Constant__ToExpr; ((t63_methods*) (((char*)p) + TC87->methodsize))->_toType = _ValueRep__NoType;
#line 165
t3_TC.defaultMethods = (char*) p; }; 
#line 165 "Constant.m3"
PRIVATE void t3_PrintProc (obj) char *obj; { t3_fields* o;
#line 165 "Constant.m3"
CHECKSTACKOVERFLOW; if (TC20->printProc != 0) {TC20->printProc (obj); } fprintf (stderr, "{%s} ", TC3->brand); o = (t3_fields*) (obj + TC20->datasize);
#line 165
fprintf (stderr, "tipe = %#x", o->_tipe); fprintf (stderr, ", "); fprintf (stderr, "value = %#x", o->_value); fprintf (stderr, ", ");
#line 165
fprintf (stderr, "explicit = %d", o->_explicit); fprintf (stderr, ", "); fprintf (stderr, "written = %d", o->_written); fprintf (stderr, ", ");
#line 165
 };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Constant__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_ProcType__Raisee__5fe771ff27c179d9, &VS_ProcType__Is__3d26c6f7230f52c6, &VS_ArrayType__Split__b3402f88270f8053, &VS_Emit__MaxStream__cf0a0e8934c9c9f3,
&VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Op__072646cc27c8ae10, &VS_Emit__OpI__02cb878634bb9f49, &VS_Emit__OpN__a3f6e37c396e144c,
&VS_ExprRep__NoBind__e7d0d3dd3d703c08, &VS_ExprRep__NoCheck__c11b54bc361794fa, &VS_ExprRep__NoValue__8ccc143224598a66, &VS_ExprRep__NoBounds__b64bb146289ee4f0,
&VS_ExprRep__IsNever__8f1a069b301903c8, &VS_ExprRep__NeverEq__dfdc2412249ccb65, &VS_ExprRep__NoWriter__a97bb1a23bbf506e, &VS_ExprRep__NoLiteral__6c9c90073f496f67,
&VS_Text__T__fc4b369f3ab271fd, &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_Temp__FromValue__c79a4f6f291f20ac,
&VS_AssignStmt__CheckRHS__9aaea40f392f387e, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02,
&VS_Token__ExprStart__21dc8a0a27344836, &VS_Target__INTSIZE__6d9548032b40710f, &VS_Error__Msg__4d119a332467757f, &VS_Error__Str__2bd0723e3872e90c,
&VS_Error__WarnNonStandard__28b127cf2d45026a, &VS_Scope__T__3a6c7dc12615e4ee, &VS_Scope__ValueList__64bf053e22e4e53c, &VS_Scope__Insert__ef77c00626575764,
&VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_Expr__Parse__193c41662e6da77f, &VS_Expr__Bind__7e2752da3eaf56eb,
&VS_Expr__TypeOf__fef0a11b388c64fa, &VS_Expr__ConstValue__ce4fd448218fe483, &VS_Expr__TypeCheck__af9aa9073729e7f7, &VS_Expr__Compile__a7e0cc4029a2ec76,
&VS_Expr__Fingerprint__50ce687c31d90a5b, &VS_Expr__GenLiteral__5d3c8414307dac94, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce,
&VS_Type__List__5791758e343becc1, &VS_Type__Parse__603df5e3247e0b72, &VS_Type__Bind__3443ccd12eedb9e8, &VS_Type__Size__2f4d980e28adf05b,
&VS_Type__Check__3c8ceb09206ee440, &VS_Type__Name__f99416972257a869, &VS_Type__Fingerprint__0d24a3463c25e166, &VS_String__T__3a6c7dc12615e4ee,
&VS_String__Add__0f5e21cc3d204b63, &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_Scanner__cur__929fa6f8367ea415, &VS_Scanner__MatchID__4fb3c66f3429afd9,
&VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__Fail__a15a8cf32391aa62, &VS_Scanner__GetToken__192100a32c7e576d, NIL };  void Constant__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Constant__init; Constant__init = & me_0;
         t3_TC = t3_TC_init; REGISTERTYPE (TC3); break; }; case 1: { t3_TC.parent = TC_M3__Value; break; }; case 2: { break; }; };
 };