#include "M3Runtime.h" typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "symbol redefined", 17}; PRIVATE TXT txt2 = { 3, "recursive declaration", 22}; PRIVATE TXT txt3 = { 3, "char VS@__", 11}; PRIVATE TXT txt4 = { 3, "@@", 3}; PRIVATE TXT txt5 = { 3, " = \047\1340\047", 8}; PRIVATE TXT txt6 = { 3, ";\012", 3}; PRIVATE TXT txt7 = { 3, "&VS@__", 7}; PRIVATE TXT txt8 = { 3, "@@,\012", 5}; PRIVATE TXT txt9 = { 3, "<", 2}; PRIVATE TXT txt10 = { 3, ": ", 3}; PRIVATE TXT txt11 = { 3, ">", 2}; PRIVATE TXT txt12 = { 3, "IMPORT ", 8}; PRIVATE TXT txt13 = { 3, "EXPORT ", 8}; PRIVATE TXT txt14 = { 3, "PRIVATE ", 9}; PRIVATE TXT txt15 = { 3, "auto ", 6}; #line 16 "../Interfaces/Type.i3" #define t14 ADDRESS #define t95 void typedef int t15; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t81; #line 17 "./Ident.i3" #define t44 t81 #define TC14 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 "../Interfaces/Type.i3" IMPORT char VS_Type__Map__41dd9f4b33104fce; #define t24 ADDRESS #define t92 ADDRESS typedef struct { TYPE self; int private; } t92_methods; #define t92_msize (sizeof (t92_methods)) typedef struct { ADDRESS methods; } t92_fields; #define t92_size (sizeof (t92_fields)) #define TC92 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 18 "../Interfaces/M3.i3" #define t7 ADDRESS #define TC7 TC_M3__Type IMPORT TYPE TC_M3__Type; #line 18 IMPORT char VS_M3__Type__4d87bc25311f81d2; #line 17 "../Interfaces/Type.i3" typedef struct { t24 _next; t7 _type; } t75; #define TC24 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t30 ADDRESS #define TC30 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t42 ADDRESS #define TC42 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #line 14 "../Interfaces/Expr.i3" #define t56 ADDRESS #define t9 ADDRESS #define TC9 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 t69 t81 #define TC56 TC_Expr__List IMPORT TYPE TC_Expr__List; #line 14 IMPORT char VS_Expr__List__3f87eceb2b9a246a; #line 17 "../Interfaces/Scope.i3" #define t67 ADDRESS #define t2 ADDRESS #define TC2 TC_M3__Value IMPORT TYPE TC_M3__Value; #line 15 "../Interfaces/M3.i3" IMPORT char VS_M3__Value__6f64cf9c2cae25fb; #line 25 "./Formal.i3" #define t55 t81 #define TC67 TC_Scope__ValueList IMPORT TYPE TC_Scope__ValueList; #line 17 "../Interfaces/Scope.i3" IMPORT char VS_Scope__ValueList__64bf053e22e4e53c; #define t96 ADDRESS #define TC96 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; typedef unsigned char t1; #line 291 "Value.m3" typedef t1 (*t3)(); #line 285 typedef t95 (*t4)(); #line 19 "../Interfaces/M3.i3" #define t5 ADDRESS #define TC5 TC_M3__Temp IMPORT TYPE TC_M3__Temp; #line 19 IMPORT char VS_M3__Temp__450b691937f03dae; #line 261 "Value.m3" typedef t5 (*t6)(); #line 256 typedef t7 (*t8)(); #line 251 typedef t9 (*t10)(); #line 245 typedef t2 (*t11)(); #line 13 "../Interfaces/String.i3" #define t12 ADDRESS #define TC12 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; #define t43 ADDRESS typedef struct { TYPE self; int private; } t43_methods; #define t43_msize (sizeof (t43_methods)) typedef struct { ADDRESS methods; } t43_fields; #define t43_size (sizeof (t43_fields)) #define TC43 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t43_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 t16 ADDRESS #define TC16 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t16_MapProc TC_TEXT->mapProc typedef signed_char t17; #line 96 "Value.m3" typedef t17 (*t18)(); #line 18 "./Value.i3" typedef unsigned char t19; #line 90 "Value.m3" typedef t19 (*t20)(); #line 23 ".ROOT/.boots/corelib/Interfaces/TextWr.i3" #define t21 ADDRESS #define TC21 TC_TextWr__T IMPORT TYPE TC_TextWr__T; #line 23 IMPORT char VS_TextWr__T__aa7fbe4a3afd8be5; #define t21_MapProc TC_TextWr__T->mapProc typedef t16 (*t22)(); typedef t21 (*t23)(); #line 32 "./Revelation.i3" typedef t24 (*t25)(); #line 14 #define t26 ADDRESS #define TC26 TC_Revelation__Set IMPORT TYPE TC_Revelation__Set; #line 14 IMPORT char VS_Revelation__Set__d30dba392ce2e71e; #line 14 "./Decl.i3" typedef struct { t12 _alias; t1 _isExternal; t1 _isInline; t1 _isUnused; t1 _isObsolete; } t27; #line 15 "../Interfaces/Token.i3" typedef unsigned char t34; #line 45 typedef struct { int elts[4]; } t28; #line 16 "./Revelation.i3" typedef t26 (*t29)(); #line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3" #define t31 ADDRESS #define TC31 TC_Rd__T IMPORT TYPE TC_Rd__T; #line 83 IMPORT char VS_Rd__T__2555b70b3f7780b1; #define t31_MapProc TC_Rd__T->mapProc typedef t31 (*t32)(); #line 26 "../Interfaces/Scanner.i3" typedef t12 (*t33)(); #line 13 typedef struct { t34 _token; t12 _string; t15 _value; t15 _offset; } t35; typedef int t36; #line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3" typedef t36 (*t37)(); typedef unsigned char t38; #line 189 #define t39 t81 typedef t38 (*t40)(); #line 84 typedef unsigned char t41; #line 16 "./Ident.i3" #define t45 t81 typedef t15 (*t46)(); typedef unsigned char t47; typedef struct { t15 elts[201]; } t48; #line 16 typedef struct { t12 elts[201]; } t49; #line 27 "../Interfaces/Emit.i3" typedef signed_char t50; #line 63 typedef t50 (*t51)(); #line 19 "../Interfaces/String.i3" typedef signed_char t77; typedef struct { t12 elts[100]; } t78; #line 17 typedef struct { t15 _top; t78 _stk; } t52; #line 16 "./Variable.i3" #define t53 ADDRESS #define TC53 TC_Variable__T IMPORT TYPE TC_Variable__T; #line 16 IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef double t54; #line 13 "./Formal.i3" typedef unsigned char t57; #line 37 "./Procedure.i3" #define t58 t81 #define t59 ADDRESS #define TC59 TC_Procedure__T IMPORT TYPE TC_Procedure__T; #line 15 IMPORT char VS_Procedure__T__be7ead4a3afd8be5; #line 17 "../Interfaces/CallExpr.i3" #define t60 ADDRESS #define TC60 TC_CallExpr__MethodList IMPORT TYPE TC_CallExpr__MethodList; #line 17 IMPORT char VS_CallExpr__MethodList__7e87c2d720444b71; typedef t60 (*t61)(); #line 14 "../Interfaces/M3.i3" #define t62 ADDRESS #define TC62 TC_M3__Scope IMPORT TYPE TC_M3__Scope; #line 14 IMPORT char VS_M3__Scope__6e6d8848308d8a2d; #line 24 "./Variable.i3" typedef t53 (*t63)(); #line 14 "./Module.i3" #define t64 ADDRESS #define TC64 TC_Module__T IMPORT TYPE TC_Module__T; #line 14 IMPORT char VS_Module__T__be7ead4a3afd8be5; #line 30 typedef t62 (*t65)(); #line 18 typedef t64 (*t66)(); #line 14 "../Interfaces/String.i3" typedef struct { t12 _module; t12 _item; } t68; #line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3" typedef struct { t15 elts[2]; } t70; #line 16 "./ValueRep.i3" typedef t1 t71; #define t72 ADDRESS #line 19 typedef struct { t4 _bind; t4 _typeCheck; t20 _class; t4 _fingerprint; t6 _load; t4 _write; t11 _select; t3 _declare0; t4 _declare1; #line 19 t4 _declare2; t3 _needsDecl; t10 _toExpr; t8 _toType; } t72_methods; #define t72_msize (sizeof (t72_methods)) typedef struct { #line 19 t15 _origin; t12 _name; t12 _extName; t62 _scope; t7 _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; t70 _fprint; #line 19 } t72_fields; #define t72_size (sizeof (t72_fields)) #define TC72 TC_M3__Value typedef void (*t73)(); #line 121 "../Interfaces/Type.i3" typedef t14 (*t74)(); #line 65 "../Interfaces/Token.i3" typedef struct { t12 elts[97]; } t76; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t79; typedef t79 (*t80)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t82; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t83 ADDRESS #define TC83 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t83_MapProc TC_Thread__T->mapProc typedef t42 (*t84)(); #define t85 ADDRESS #define TC85 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t85_MapProc TC_Thread__Condition->mapProc #define t86 ADDRESS #define TC86 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t86_MapProc TC_MUTEX->mapProc typedef t83 (*t87)(); #line 23 #define t88 ADDRESS #line 23 typedef struct { t84 _apply; } t88_methods; #define t88_msize (sizeof (t88_methods)) typedef struct { #line 23 int filler; } t88_fields; #define t88_size (sizeof (t88_fields)) #define TC88 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t88_MapProc TC_Thread__Closure->mapProc typedef t85 (*t89)(); typedef t86 (*t90)(); #line 28 #define t91 ADDRESS #line 28 typedef struct { int filler; } t91_methods; #define t91_msize (sizeof (t91_methods)) typedef struct { #line 28 t36 _stackSize; } t91_fields; #define t91_size (sizeof (t91_fields)) #define TC91 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t91_MapProc TC_Thread__SizedClosure->mapProc #define t93 ADDRESS #define TC93 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 "../Interfaces/M3.i3" IMPORT char VS_M3__Stmt__376b307627fc1f2f; typedef CLOSURE t94; typedef float t97; #line 11 "Value.m3" IMPORT INITLINK* Scope__init; IMPORT INITLINK* TextWr__init; IMPORT INITLINK* Revelation__init; IMPORT INITLINK* String__init; #line 11 IMPORT INITLINK* FPrint__init; IMPORT INITLINK* Host__init; IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Void__init; IMPORT INITLINK* Token__init; #line 11 IMPORT INITLINK* Ident__init; IMPORT INITLINK* Variable__init; IMPORT INITLINK* Tipe__init; IMPORT INITLINK* Emit__init; IMPORT INITLINK* Temp__init; #line 11 IMPORT INITLINK* Formal__init; IMPORT INITLINK* Procedure__init; IMPORT INITLINK* Module__init; IMPORT INITLINK* Method__init; #line 11 IMPORT INITLINK* Field__init; IMPORT INITLINK* Text__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* EnumElt__init; IMPORT INITLINK* Exceptionz__init; #line 11 IMPORT INITLINK* Constant__init; IMPORT INITLINK* Error__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* ValueRep__init; #line 11 IMPORT INITLINK* Value__init; IMPORT TYPE TC_Scope__T; IMPORT char VS_Scope__T__3a6c7dc12615e4ee; IMPORT t1 _Scope__OuterMost (); #line 11 IMPORT char VS_Scope__OuterMost__dc5751683db412a5; IMPORT t21 _TextWr__New (); IMPORT char VS_TextWr__New__b2aced2f341cea58; #line 11 IMPORT t16 _TextWr__ToText (); IMPORT char VS_TextWr__ToText__07606fcd3a0c5476; IMPORT t95 _Revelation__Initialize (); IMPORT char VS_Revelation__Initialize__a4fefaa52844954c; #line 11 IMPORT t95 _String__Put (); IMPORT char VS_String__Put__2457561e210725b3; IMPORT void _FPrint__FromText (); IMPORT char VS_FPrint__FromText__0bb4e38c3c08e10e; #line 11 IMPORT t1 _Host__verbose; IMPORT char VS_Host__verbose__446e4df03fef5543; IMPORT t1 _Host__versionStamps; IMPORT char VS_Host__versionStamps__349a7ae73215b586; #line 11 IMPORT t15 _Host__incrementalVersion; IMPORT char VS_Host__incrementalVersion__1798bcf82af0e178; IMPORT t15 _Scanner__offset; #line 11 IMPORT char VS_Scanner__offset__dfc05f042d8347f4; IMPORT t7 _Void__T; IMPORT char VS_Void__T__d44caf853dc63223; IMPORT t28 _Token__DeclStart; #line 11 IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t28 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; #line 11 IMPORT t28 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836; IMPORT char VS_Ident__MaxIDs__008b1dc032f417a4; #line 11 IMPORT t95 _Variable__Initialize (); IMPORT char VS_Variable__Initialize__c598741624c6585b; IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3; #line 11 IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7; IMPORT t95 _Emit__Op (); IMPORT char VS_Emit__Op__072646cc27c8ae10; #line 11 IMPORT t95 _Emit__OpN (); IMPORT char VS_Emit__OpN__a3f6e37c396e144c; IMPORT t95 _Emit__OpHH (); IMPORT char VS_Emit__OpHH__5077280930ca83a5; #line 11 IMPORT t95 _Emit__Comment (); IMPORT char VS_Emit__Comment__fa6bac093f4e04bf; IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee; #line 11 IMPORT t5 _Temp__FromValue (); IMPORT char VS_Temp__FromValue__c79a4f6f291f20ac; IMPORT t1 _Procedure__HasBody (); IMPORT char VS_Procedure__HasBody__0f7fcb6134b4267e; #line 11 IMPORT t15 _Module__depth; IMPORT char VS_Module__depth__a65bb56937bd5d03; IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd; #line 11 IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure; #line 11 IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; #line 11 IMPORT t95 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846; IMPORT t95 _Error__Str (); IMPORT char VS_Error__Str__2bd0723e3872e90c; #line 11 IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; #line 11 IMPORT t14 _Type__NewMap (); IMPORT char VS_Type__NewMap__910bd76d2e20a383; IMPORT TYPE TC_ValueRep__V; IMPORT char VS_ValueRep__V__f28699153c608442; #line 11 EXPORT t95 _ValueRep__Init (); EXPORT char VS_ValueRep__Init__ba99dff739390f9a = '\0'; EXPORT t2 _ValueRep__NoDuplicates (); #line 11 EXPORT char VS_ValueRep__NoDuplicates__ed93f73a247eb7b4 = '\0'; EXPORT t9 _ValueRep__NoExpr (); EXPORT char VS_ValueRep__NoExpr__1297c63d2e046c2c = '\0'; #line 11 EXPORT t7 _ValueRep__NoType (); EXPORT char VS_ValueRep__NoType__4061f01226f55ca3 = '\0'; EXPORT t5 _ValueRep__NoLoader (); #line 11 EXPORT char VS_ValueRep__NoLoader__9a7f0c5b24f526c1 = '\0'; EXPORT t95 _ValueRep__NoWriter (); EXPORT char VS_ValueRep__NoWriter__3b24d43c367f7122 = '\0'; #line 11 EXPORT t95 _ValueRep__NoDeclarer (); EXPORT char VS_ValueRep__NoDeclarer__22db283420635bde = '\0'; EXPORT t1 _ValueRep__Never (); #line 11 EXPORT char VS_ValueRep__Never__39b6ab0628d97589 = '\0'; EXPORT t1 _ValueRep__Always (); EXPORT char VS_ValueRep__Always__1b0a9bbf2173b8b3 = '\0'; #line 11 IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5; EXPORT t95 _Value__Bind (); EXPORT char VS_Value__Bind__6439d03d3a1be824 = '\0'; #line 11 EXPORT t7 _Value__TypeOf (); EXPORT char VS_Value__TypeOf__5fe9c10426934d60 = '\0'; EXPORT t95 _Value__TypeCheck (); EXPORT char VS_Value__TypeCheck__917dc8a02c0b0de4 = '\0'; #line 11 EXPORT t5 _Value__Load (); EXPORT char VS_Value__Load__d08505ae2a4de8ff = '\0'; EXPORT t95 _Value__Write (); EXPORT char VS_Value__Write__d355e5303c98d83c = '\0'; #line 11 EXPORT t2 _Value__SelectOne (); EXPORT char VS_Value__SelectOne__b8e1cec72d87aada = '\0'; EXPORT t95 _Value__Declare0 (); #line 11 EXPORT char VS_Value__Declare0__c5e792dc3048d136 = '\0'; EXPORT t95 _Value__Declare1 (); EXPORT char VS_Value__Declare1__08863c5030bbeb06 = '\0'; #line 11 EXPORT t95 _Value__Declare2 (); EXPORT char VS_Value__Declare2__5f24cfc431aea557 = '\0'; EXPORT t95 _Value__NoteUse (); EXPORT char VS_Value__NoteUse__ddcc76892c46c97c = '\0'; #line 11 EXPORT t19 _Value__ClassOf (); EXPORT char VS_Value__ClassOf__9c68d87829345fcf = '\0'; EXPORT t95 _Value__Fingerprint (); #line 11 EXPORT char VS_Value__Fingerprint__709226fa2fc0e2e1 = '\0'; EXPORT t95 _Value__GenStorageClass (); EXPORT char VS_Value__GenStorageClass__fc0c1a1823c9d008 = '\0'; #line 11 EXPORT t1 _Value__IsExternal (); EXPORT char VS_Value__IsExternal__6b014286200e2bab = '\0'; EXPORT t9 _Value__ToExpr (); EXPORT char VS_Value__ToExpr__2e95c32e3f1d1895 = '\0'; #line 11 EXPORT t7 _Value__ToType (); EXPORT char VS_Value__ToType__360f3f043a5eeebd = '\0'; EXPORT t95 _Value__Initialize (); EXPORT char VS_Value__Initialize__4d66177121450696 = '\0'; #line 11 PRIVATE t17 _Value__StorageClass (); PRIVATE t14 _Value__typeMap; PRIVATE t13 _Value__fpWriter; PRIVATE t1 _Value__fpBusy; #line 11 IMPORT char VS_M3__Value__c975bdb53a08f518; void Value__MMap (p) void (*p) (); { ADDRESS r = NIL; ADDRESS c = NIL; CHECKSTACKOVERFLOW; #line 11 p (& (_Value__fpWriter), r, c); }; #line 18 "Value.m3" EXPORT t95 _Value__Bind (_t) t2 _t; { t1 z2; t2 z1; t2 z3; t2 z0; t4 z4; #line 18 "Value.m3" { auto t15 _save; { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { return; }; NILCHECKA (z1 = _t); if ((((t72_fields*)(z1+(0+t92_size)))->_bound)) { return; }; NILCHECKA (z3 = _t); (((t72_fields*)(z3+(0+t92_size)))->_bound) = 1 ; _save = _Scanner__offset; NILCHECKA (z1 = _t); _Scanner__offset = (((t72_fields*)(z1+(0+t92_size)))->_origin); NILCHECKA (z1 = _t); z0 = (*(char**)z1); z4 = ((t72_methods*) (z0+(0+t92_msize)))->_bind; z4 (z1); _Scanner__offset = _save; } } }; #line 30 "Value.m3" EXPORT t7 _Value__TypeOf (_t) t2 _t; { t1 z2; t2 z1; #line 30 "Value.m3" { auto t7 __result; { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { __result = _Void__T; return __result; }; NILCHECKA (z1 = _t); if (!(((t72_fields*)(z1+(0+t92_size)))->_bound)) ASSERTFAULT; NILCHECKA (z1 = _t); __result = (((t72_fields*)(z1+(0+t92_size)))->_type); return __result; } } }; #line 37 "Value.m3" EXPORT t95 _Value__TypeCheck (_t) t2 _t; { t1 z2; t2 z1; t2 z3; t2 z0; t4 z4; #line 37 "Value.m3" { auto t15 _save; { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { return; }; NILCHECKA (z1 = _t); if ((((t72_fields*)(z1+(0+t92_size)))->_checked)) { return; }; NILCHECKA (z1 = _t); if ((((t72_fields*)(z1+(0+t92_size)))->_incheck)) { NILCHECKA (z3 = _t); _Error__Str ((((t72_fields*)(z3+(0+t92_size)))->_name), ((ADDRESS)(& txt2.str))); return; }; _save = _Scanner__offset; NILCHECKA (z1 = _t); _Scanner__offset = (((t72_fields*)(z1+(0+t92_size)))->_origin); NILCHECKA (z3 = _t); (((t72_fields*)(z3+(0+t92_size)))->_incheck) = 1 ; NILCHECKA (z1 = _t); z0 = (*(char**)z1); z4 = ((t72_methods*) (z0+(0+t92_msize)))->_typeCheck; z4 (z1); NILCHECKA (z3 = _t); (((t72_fields*)(z3+(0+t92_size)))->_incheck) = 0 ; NILCHECKA (z3 = _t); (((t72_fields*)(z3+(0+t92_size)))->_checked) = 1 ; _Scanner__offset = _save; } } }; #line 55 "Value.m3" EXPORT t5 _Value__Load (_t) t2 _t; { t1 z2; t5 z3; t2 z1; t2 z0; t6 z4; #line 55 "Value.m3" { auto t5 __result; { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { z3 = _Temp__FromValue (0, 0 ); __result = z3; return __result; }; NILCHECKA (z1 = _t); if (!(((t72_fields*)(z1+(0+t92_size)))->_checked)) ASSERTFAULT; NILCHECKA (z1 = _t); z0 = (*(char**)z1); z4 = ((t72_methods*) (z0+(0+t92_msize)))->_load; z3 = z4 (z1); __result = z3; #line 59 return __result; } } }; #line 62 "Value.m3" EXPORT t95 _Value__Write (_t) t2 _t; { t1 z2; t2 z1; t2 z0; t4 z3; #line 62 "Value.m3" { { CHECKSTACKOVERFLOW; z2 = (_t != 0); if (z2) { NILCHECKA (z1 = _t); if (!(((t72_fields*)(z1+(0+t92_size)))->_checked)) ASSERTFAULT; NILCHECKA (z1 = _t); z0 = (*(char**)z1); z3 = ((t72_methods*) (z0+(0+t92_msize)))->_write; z3 (z1); goto if_8_end; #line 66 }; if_8_end: /**/; } } }; #line 70 "Value.m3" EXPORT t2 _Value__SelectOne (_a, _b) t2 _a; t2 _b; { t1 z2; t2 z1; t2 z0; t11 z3; t2 z4; #line 70 "Value.m3" { auto t2 __result; { CHECKSTACKOVERFLOW; z2 = (_a == 0); if (z2) { __result = _b; return __result; }; z2 = (_b == 0); if (z2) { __result = _a; return __result; }; NILCHECKA (z1 = _b); _Scanner__offset = (((t72_fields*)(z1+(0+t92_size)))->_origin); NILCHECKA (z1 = _a); z0 = (*(char**)z1); z3 = ((t72_methods*) (z0+(0+t92_msize)))->_select; z4 = z3 (z1, _b); __result = z4; #line 75 return __result; } } }; #line 78 "Value.m3" EXPORT t9 _Value__ToExpr (_t) t2 _t; { t1 z2; t2 z1; t2 z0; t10 z3; t9 z4; #line 78 "Value.m3" { auto t9 __result; { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { __result = 0; return __result; }; NILCHECKA (z1 = _t); z0 = (*(char**)z1); z3 = ((t72_methods*) (z0+(0+t92_msize)))->_toExpr; z4 = z3 (z1); __result = z4; #line 81 return __result; } } }; #line 84 "Value.m3" EXPORT t7 _Value__ToType (_t) t2 _t; { t1 z2; t2 z1; t2 z0; t8 z3; t7 z4; #line 84 "Value.m3" { auto t7 __result; { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { __result = 0; return __result; }; NILCHECKA (z1 = _t); z0 = (*(char**)z1); z3 = ((t72_methods*) (z0+(0+t92_msize)))->_toType; z4 = z3 (z1); __result = z4; #line 87 return __result; } } }; #line 90 "Value.m3" EXPORT t19 _Value__ClassOf (_t) t2 _t; { t1 z2; t2 z1; t2 z0; t20 z3; t19 z4; #line 90 "Value.m3" { auto t19 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { __result = 9 ; return __result; }; NILCHECKA (z1 = _t); z0 = (*(char**)z1); z3 = ((t72_methods*) (z0+(0+t92_msize)))->_class; z4 = z3 (z1); __result = z4; #line 93 return __result; } } }; #line 96 "Value.m3" PRIVATE t17 _Value__StorageClass (_t) t2 _t; { t2 z1; t1 z2; t2 z0; t20 z3; t19 z4; t1 z5; t59 z6; t2 z7; #line 96 "Value.m3" { auto t17 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; NILCHECKA (z1 = _t); if ((((t72_fields*)(z1+(0+t92_size)))->_imported)) { NILCHECKA (z1 = _t); z2 = ! (((t72_fields*)(z1+(0+t92_size)))->_exported); if (!z2) ASSERTFAULT; __result = 1 ; return __result; }; NILCHECKA (z1 = _t); if ((((t72_fields*)(z1+(0+t92_size)))->_exported)) { NILCHECKA (z1 = _t); z2 = ! (((t72_fields*)(z1+(0+t92_size)))->_imported); if (!z2) ASSERTFAULT; NILCHECKA (z1 = _t); z0 = (*(char**)z1); z3 = ((t72_methods*) (z0+(0+t92_msize)))->_class; z4 = z3 (z1); z2 = (z4 != 4 ); #line 103 z5 = 1; if (! z2) { z6 = NARROW (_t, t59, TC59, z6); z2 = _Procedure__HasBody (z6); z5 = z2; }; if (z5) { __result = 0 ; return __result; }; __result = 1 ; return __result; }; NILCHECKA (z7 = _t); z2 = _Scope__OuterMost ((((t72_fields*)(z7+(0+t92_size)))->_scope)); #line 105 if (z2) { __result = 2 ; return __result; }; __result = 3 ; return __result; } } }; #line 114 "Value.m3" EXPORT t95 _Value__GenStorageClass (_t, _considerExternal) t2 _t; t1 _considerExternal; { t2 z1; t1 z2; t1 z3; t17 z4; t2 z0; t20 z5; t19 z6; #line 114 "Value.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z1 = _t); if ((((t72_fields*)(z1+(0+t92_size)))->_external)) { z2 = 1; if (! _considerExternal) { NILCHECKA (z1 = _t); z3 = ! (((t72_fields*)(z1+(0+t92_size)))->_exported); z2 = z3; #line 117 }; if (z2) { _Emit__Op (((ADDRESS)(& txt12.str))); goto if_17_end; }; _Emit__Op (((ADDRESS)(& txt13.str))); if_17_end: /**/; goto if_16_end; }; z4 = _Value__StorageClass (_t); switch (z4) { case 0: z2 = (_Host__incrementalVersion > 0 ); if (z2) { _Emit__Op (((ADDRESS)(& txt14.str))); goto if_18_end; }; _Emit__Op (((ADDRESS)(& txt13.str))); if_18_end: /**/; break; case 1: _Emit__Op (((ADDRESS)(& txt12.str))); break; case 2: _Emit__Op (((ADDRESS)(& txt14.str))); break; case 3: NILCHECKA (z1 = _t); z0 = (*(char**)z1); z5 = ((t72_methods*) (z0+(0+t92_msize)))->_class; z6 = z5 (z1); z2 = (z6 == 4 ); if (z2) { _Emit__Op (((ADDRESS)(& txt14.str))); goto if_19_end; }; _Emit__Op (((ADDRESS)(& txt15.str))); if_19_end: /**/; break; default: /**/; }; if_16_end: /**/; } } }; #line 143 "Value.m3" EXPORT t95 _Value__Declare0 (_t) t2 _t; { t1 z2; t2 z1; t17 z3; t1 z0; t1 z4; t2 z5; t3 z6; t14 z7; t21 z8; t15 z9; t15 z10; t16 z11; t70 z12; #line 143 "Value.m3" { auto t15 _class; auto t16 _fpText; { ZERO1 (& _fpText); #line 143 CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { return; }; NILCHECKA (z1 = _t); if ((((t72_fields*)(z1+(0+t92_size)))->_declared)) { return; }; z3 = _Value__StorageClass (_t); _class = z3; NILCHECKA (z1 = _t); z2 = ! (((t72_fields*)(z1+(0+t92_size)))->_used); z0 = 0; if (z2) { z4 = (_class == 1 ); z0 = z4; #line 149 }; if (z0) { return; }; NILCHECKA (z5 = _t); (((t72_fields*)(z5+(0+t92_size)))->_declared) = 1 ; NILCHECKA (z1 = _t); z5 = (*(char**)z1); z6 = ((t72_methods*) (z5+(0+t92_msize)))->_declare0; z0 = z6 (z1); z2 = 0; #line 151 if (z0) { z4 = (_class != 2 ); z2 = z4; }; z0 = 0; if (z2) { z4 = (_class != 3 ); z0 = z4; }; z2 = 0; if (z0) { z2 = _Host__versionStamps; #line 151 }; if (z2) { z2 = ! _Value__fpBusy; if (!z2) ASSERTFAULT; _Value__fpBusy = 1 ; z2 = (_Value__typeMap == 0); if (z2) { z7 = _Type__NewMap (); _Value__typeMap = z7; z8 = _TextWr__New (); _Value__fpWriter = (t13) z8; goto if_24_end; }; if_24_end: /**/; { int from, to, index; from = 0 ; NILCHECKB (z7 = _Value__typeMap); z9 = (*((t44*) z7)).size[0] - 1; to = z9; { #line 159 auto t15 _i; { for (index = from; index <= to; index += 1) { _i = (t15) index; NILCHECKB (z7 = _Value__typeMap); #line 159 { register t81* array = & (*((t44*) z7)); z10 = _i; if (z10 >= (array->size[0])) RANGEFAULT; z9 = (int)(array->elts + (z10 * 4)); #line 159 }; (*(t15*)z9) = 0 ; } } }; }; _Value__Fingerprint (_t, _Value__typeMap, _Value__fpWriter); z8 = NARROW (_Value__fpWriter, t21, TC21, z8); z11 = _TextWr__ToText (z8); _fpText = z11; _FPrint__FromText (_fpText, &z12); NILCHECKA (z1 = _t); (((t72_fields*)(z1+(0+t92_size)))->_fprint) = z12; _Value__GenStorageClass (_t, 0 ); _Emit__OpN (((ADDRESS)(& txt3.str)), _t); NILCHECKA (z5 = _t); _Emit__OpHH (((ADDRESS)(& txt4.str)), ((((t72_fields*)(z5+(0+t92_size)))->_fprint).elts[ 0 ]), ((((t72_fields*)(z5+(0+t92_size)))->_fprint).elts[ 1 ])); z2 = (_class == 0 ); if (z2) { _Emit__Op (((ADDRESS)(& txt5.str))); goto if_25_end; }; if_25_end: /**/; _Emit__Op (((ADDRESS)(& txt6.str))); if (_Host__verbose) { _Emit__Comment (_fpText); goto if_26_end; }; if_26_end: /**/; _Value__fpBusy = 0 ; goto if_23_end; }; if_23_end: /**/; } } }; #line 175 "Value.m3" EXPORT t95 _Value__Declare1 (_t) t2 _t; { t1 z2; t2 z1; t2 z3; t2 z0; t4 z4; #line 175 "Value.m3" { auto t15 _save; { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { return; }; NILCHECKA (z1 = _t); if ((((t72_fields*)(z1+(0+t92_size)))->_compiled)) { return; }; NILCHECKA (z1 = _t); if (!(((t72_fields*)(z1+(0+t92_size)))->_checked)) ASSERTFAULT; NILCHECKA (z3 = _t); (((t72_fields*)(z3+(0+t92_size)))->_compiled) = 1 ; _save = _Scanner__offset; NILCHECKA (z1 = _t); _Scanner__offset = (((t72_fields*)(z1+(0+t92_size)))->_origin); NILCHECKA (z1 = _t); z0 = (*(char**)z1); z4 = ((t72_methods*) (z0+(0+t92_msize)))->_declare1; z4 (z1); _Scanner__offset = _save; } } }; #line 188 "Value.m3" EXPORT t95 _Value__Declare2 (_t) t2 _t; { t1 z2; t2 z1; t2 z0; t4 z3; #line 188 "Value.m3" { auto t15 _save; { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { return; }; _save = _Scanner__offset; NILCHECKA (z1 = _t); _Scanner__offset = (((t72_fields*)(z1+(0+t92_size)))->_origin); NILCHECKA (z1 = _t); z0 = (*(char**)z1); z3 = ((t72_methods*) (z0+(0+t92_msize)))->_declare2; z3 (z1); _Scanner__offset = _save; } } }; #line 198 "Value.m3" EXPORT t95 _Value__Fingerprint (_t, _map, _wr) t2 _t; t14 _map; t13 _wr; { t1 z2; t2 z3; t2 z1; t2 z0; t4 z4; #line 198 "Value.m3" { { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { return; }; _Wr__PutText (_wr, ((ADDRESS)(& txt9.str))); NILCHECKA (z3 = _t); _String__Put (_wr, (((t72_fields*)(z3+(0+t92_size)))->_name)); _Wr__PutText (_wr, ((ADDRESS)(& txt10.str))); NILCHECKA (z1 = _t); z0 = (*(char**)z1); z4 = ((t72_methods*) (z0+(0+t92_msize)))->_fingerprint; z4 (z1, _map, _wr); _Wr__PutText (_wr, ((ADDRESS)(& txt11.str))); } } }; #line 208 "Value.m3" EXPORT t95 _Value__NoteUse (_t) t2 _t; { t1 z2; t2 z1; t1 z3; t1 z0; t17 z4; t2 z5; t3 z6; #line 208 "Value.m3" { { CHECKSTACKOVERFLOW; z2 = (_t == 0); if (z2) { return; }; NILCHECKA (z1 = _t); z2 = 0; if ((((t72_fields*)(z1+(0+t92_size)))->_used)) { NILCHECKA (z1 = _t); z3 = ! (((t72_fields*)(z1+(0+t92_size)))->_external); #line 211 z2 = z3; }; z0 = 0; if (z2) { z4 = _Value__StorageClass (_t); z2 = (z4 == 1 ); z0 = z2; }; z2 = 0; if (z0) { NILCHECKA (z1 = _t); #line 211 z5 = (*(char**)z1); z6 = ((t72_methods*) (z5+(0+t92_msize)))->_needsDecl; z0 = z6 (z1); z2 = z0; }; z0 = 0; if (z2) { #line 211 z0 = _Host__versionStamps; }; if (z0) { _Emit__OpN (((ADDRESS)(& txt7.str)), _t); NILCHECKA (z5 = _t); _Emit__OpHH (((ADDRESS)(& txt8.str)), ((((t72_fields*)(z5+(0+t92_size)))->_fprint).elts[ 0 ]), ((((t72_fields*)(z5+(0+t92_size)))->_fprint).elts[ 1 ])); #line 218 goto if_32_end; }; if_32_end: /**/; } } }; #line 222 "Value.m3" EXPORT t95 _ValueRep__Init (_t, _name) t2 _t; t12 _name; { t2 z2; t1 z3; t2 z1; #line 222 "Value.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_origin) = _Scanner__offset; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_name) = _name; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_scope) = (t62) 0; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_checked) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_incheck) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_readonly) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_declared) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_bound) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_compiled) = 0 ; z3 = (_Module__depth != 1 ); NILCHECKA (z1 = _t); (((t72_fields*)(z1+(0+t92_size)))->_imported) = z3; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_external) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_exported) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_used) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_usedAtTop) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_unused) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_obsolete) = 0 ; NILCHECKA (z2 = _t); (((t72_fields*)(z2+(0+t92_size)))->_inFrame) = 0 ; NILCHECKA (z2 = _t); ((((t72_fields*)(z2+(0+t92_size)))->_fprint).elts[ 0 ]) = 0 ; NILCHECKA (z2 = _t); ((((t72_fields*)(z2+(0+t92_size)))->_fprint).elts[ 1 ]) = 0 ; } } }; #line 245 "Value.m3" EXPORT t2 _ValueRep__NoDuplicates (_a, _b) t2 _a; t2 _b; { t2 z2; #line 245 "Value.m3" { auto t2 __result; { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _b); _Error__Str ((((t72_fields*)(z2+(0+t92_size)))->_name), ((ADDRESS)(& txt1.str))); __result = _a; return __result; } } }; #line 251 "Value.m3" EXPORT t9 _ValueRep__NoExpr (_t) t2 _t; { #line 251 "Value.m3" { auto t9 __result; { CHECKSTACKOVERFLOW; if (! 0 ) ASSERTFAULT; } } }; #line 256 "Value.m3" EXPORT t7 _ValueRep__NoType (_t) t2 _t; { #line 256 "Value.m3" { auto t7 __result; { CHECKSTACKOVERFLOW; if (! 0 ) ASSERTFAULT; } } }; #line 261 "Value.m3" EXPORT t5 _ValueRep__NoLoader (_t) t2 _t; { #line 261 "Value.m3" { auto t5 __result; { CHECKSTACKOVERFLOW; if (! 0 ) ASSERTFAULT; } } }; #line 266 "Value.m3" EXPORT t95 _ValueRep__NoWriter (_t) t2 _t; { #line 266 "Value.m3" { { CHECKSTACKOVERFLOW; if (! 0 ) ASSERTFAULT; } } }; #line 271 "Value.m3" EXPORT t95 _ValueRep__NoDeclarer (_t) t2 _t; { #line 271 "Value.m3" { { CHECKSTACKOVERFLOW; } } }; #line 275 "Value.m3" EXPORT t1 _ValueRep__Never (_t) t2 _t; { #line 275 "Value.m3" { auto t1 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; __result = 0 ; return __result; } } }; #line 280 "Value.m3" EXPORT t1 _ValueRep__Always (_t) t2 _t; { #line 280 "Value.m3" { auto t1 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; __result = 1 ; return __result; } } }; #line 285 "Value.m3" EXPORT t95 _Value__Initialize () { #line 285 "Value.m3" { { CHECKSTACKOVERFLOW; _Variable__Initialize (); _Revelation__Initialize (); } } }; #line 291 "Value.m3" EXPORT t1 _Value__IsExternal (_t) t2 _t; { t2 z1; #line 291 "Value.m3" { auto t1 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; NILCHECKA (z1 = _t); __result = (((t72_fields*)(z1+(0+t92_size)))->_external); return __result; } } }; PRIVATE int init_done = -1; #line 293 "Value.m3" PRIVATE void Value__initProc (g) int g; { #line 293 "Value.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& ValueRep__init); INITIALIZE (& Value__init); INITIALIZE (& Scope__init); #line 293 INITIALIZE (& TextWr__init); INITIALIZE (& Revelation__init); INITIALIZE (& String__init); INITIALIZE (& FPrint__init); INITIALIZE (& Host__init); #line 293 INITIALIZE (& Scanner__init); INITIALIZE (& Void__init); INITIALIZE (& Token__init); INITIALIZE (& Ident__init); INITIALIZE (& Variable__init); #line 293 INITIALIZE (& Tipe__init); INITIALIZE (& Emit__init); INITIALIZE (& Temp__init); INITIALIZE (& Formal__init); INITIALIZE (& Procedure__init); #line 293 INITIALIZE (& Module__init); INITIALIZE (& Method__init); INITIALIZE (& Field__init); INITIALIZE (& Text__init); INITIALIZE (& Wr__init); #line 293 INITIALIZE (& EnumElt__init); INITIALIZE (& Exceptionz__init); INITIALIZE (& Constant__init); INITIALIZE (& Error__init); #line 293 INITIALIZE (& Expr__init); INITIALIZE (& Type__init); #line 140 ZERO1 (& _Value__fpWriter); ZERO1B (& _Value__fpBusy); #line 139 ZERO1 ((& _Value__typeMap)); #line 293 return; }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Value__initProc}; PRIVATE INITLINK me_1 ={(INITLINK*)NIL, 0, Value__initProc}; static char* VSimports[] = { &VS_Scope__T__3a6c7dc12615e4ee, &VS_Scope__ValueList__64bf053e22e4e53c, &VS_Scope__OuterMost__dc5751683db412a5, &VS_TextWr__T__aa7fbe4a3afd8be5, &VS_TextWr__New__b2aced2f341cea58, &VS_TextWr__ToText__07606fcd3a0c5476, &VS_Revelation__Set__d30dba392ce2e71e, &VS_Revelation__Initialize__a4fefaa52844954c, &VS_String__T__3a6c7dc12615e4ee, &VS_String__Put__2457561e210725b3, &VS_FPrint__FromText__0bb4e38c3c08e10e, &VS_Host__verbose__446e4df03fef5543, &VS_Host__versionStamps__349a7ae73215b586, &VS_Host__incrementalVersion__1798bcf82af0e178, &VS_Scanner__offset__dfc05f042d8347f4, &VS_Void__T__d44caf853dc63223, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &VS_Ident__MaxIDs__008b1dc032f417a4, &VS_Variable__T__be7ead4a3afd8be5, &VS_Variable__Initialize__c598741624c6585b, &VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Op__072646cc27c8ae10, &VS_Emit__OpN__a3f6e37c396e144c, &VS_Emit__OpHH__5077280930ca83a5, &VS_Emit__Comment__fa6bac093f4e04bf, &VS_Temp__T__3a6c7dc12615e4ee, &VS_Temp__FromValue__c79a4f6f291f20ac, &VS_Procedure__T__be7ead4a3afd8be5, &VS_Procedure__HasBody__0f7fcb6134b4267e, &VS_Module__T__be7ead4a3afd8be5, &VS_Module__depth__a65bb56937bd5d03, &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_Error__Str__2bd0723e3872e90c, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Type__NewMap__910bd76d2e20a383, &VS_ValueRep__V__f28699153c608442, &VS_Value__T__2446b70b3f7780a5, NIL }; void Value__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = ValueRep__init; ValueRep__init = & me_0; me_1.link = Value__init; Value__init = & me_1; break; }; case 1: { break; }; case 2: { break; }; }; };