#include "M3Runtime.h" typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, " @ ", 4}; PRIVATE TXT txt2 = { 3, "enumeration element declared??", 31}; #line 16 "../Interfaces/Type.i3" #define t2 ADDRESS #define t81 void typedef int t13; #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 t50 t66 #define TC2 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 "../Interfaces/Type.i3" IMPORT char VS_Type__Map__41dd9f4b33104fce; #line 17 "../Interfaces/Scope.i3" #define t31 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 15 "../Interfaces/M3.i3" #define t14 ADDRESS #define TC14 TC_M3__Value IMPORT TYPE TC_M3__Value; #line 15 IMPORT char VS_M3__Value__6f64cf9c2cae25fb; #line 17 "../Interfaces/Scope.i3" #define t34 t66 #define TC31 TC_Scope__ValueList IMPORT TYPE TC_Scope__ValueList; #line 17 IMPORT char VS_Scope__ValueList__64bf053e22e4e53c; #define t41 ADDRESS #define TC41 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t42 ADDRESS #define TC42 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #line 14 "../Interfaces/Expr.i3" #define t45 ADDRESS #define t7 ADDRESS #define TC7 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 t46 t66 #define TC45 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 t16 ADDRESS #define TC16 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; t16 _type; } t54; #define TC53 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t82 ADDRESS #define TC82 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #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 65 "../Interfaces/Emit.i3" typedef t81 (*t4)(); #line 18 "./Value.i3" typedef unsigned char t9; #line 43 "./ValueRep.i3" typedef t9 (*t10)(); #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 45 "./ValueRep.i3" typedef t11 (*t12)(); typedef t14 (*t18)(); typedef unsigned char t5; typedef t5 (*t6)(); typedef t7 (*t8)(); typedef t16 (*t44)(); #line 16 "EnumElt.m3" typedef struct { int filler; } t3_methods; #define t3_msize (sizeof (t3_methods)) typedef struct { #line 16 t13 _value; t16 _parent; } 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, "EnumElt#$%^_0002", 1985859583, 579684001}; PRIVATE TYPE TC3 = &t3_TC; #line 16 #line 55 typedef t13 (*t15)(); #line 13 "../Interfaces/String.i3" #define t17 ADDRESS #define TC17 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; #line 34 "EnumElt.m3" typedef t3 (*t19)(); #line 27 "../Interfaces/Emit.i3" typedef signed_char t20; #line 63 typedef t20 (*t21)(); #define t22 ADDRESS #define TC22 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t22_MapProc TC_TEXT->mapProc typedef signed_char t60; #line 65 "../Interfaces/Token.i3" #define t55 t66 typedef struct { t17 elts[100]; } t61; #line 17 "../Interfaces/String.i3" typedef struct { t13 _top; t61 _stk; } t23; #line 16 "./Variable.i3" #define t24 ADDRESS #define TC24 TC_Variable__T IMPORT TYPE TC_Variable__T; #line 16 IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef double t25; typedef unsigned char t26; #line 14 "../Interfaces/M3.i3" #define t27 ADDRESS #define TC27 TC_M3__Scope IMPORT TYPE TC_M3__Scope; #line 14 IMPORT char VS_M3__Scope__6e6d8848308d8a2d; #line 24 "./Variable.i3" typedef t24 (*t28)(); #line 14 "./Decl.i3" typedef struct { t17 _alias; t5 _isExternal; t5 _isInline; t5 _isUnused; t5 _isObsolete; } t29; #line 15 "../Interfaces/Token.i3" typedef unsigned char t56; #line 45 typedef struct { int elts[4]; } t30; #line 14 "../Interfaces/String.i3" typedef struct { t17 _module; t17 _item; } t32; #line 31 "../Interfaces/Scope.i3" typedef t27 (*t33)(); #line 111 ".ROOT/.boots/corelib/Interfaces/Fmt.i3" #define t35 t66 typedef t22 (*t36)(); #line 13 typedef unsigned char t37; typedef int t38; typedef float t39; typedef signed_char t40; typedef unsigned char t43; #line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3" typedef struct { t13 elts[2]; } t47; #line 16 "./ValueRep.i3" typedef t5 t48; #define t49 ADDRESS #line 19 typedef struct { t4 _bind; t4 _typeCheck; t10 _class; t4 _fingerprint; t12 _load; t4 _write; t18 _select; t6 _declare0; t4 _declare1; #line 19 t4 _declare2; t6 _needsDecl; t8 _toExpr; t44 _toType; } t49_methods; #define t49_msize (sizeof (t49_methods)) typedef struct { #line 19 t13 _origin; t17 _name; t17 _extName; t27 _scope; t16 _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; t47 _fprint; #line 19 } t49_fields; #define t49_size (sizeof (t49_fields)) #define TC49 TC_M3__Value typedef void (*t51)(); #line 121 "../Interfaces/Type.i3" typedef t2 (*t52)(); #line 65 "../Interfaces/Token.i3" typedef struct { t17 elts[97]; } t57; #line 34 "../Interfaces/String.i3" typedef t17 (*t58)(); #line 28 #define t59 t66 typedef signed_char t62; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef t62 (*t63)(); #line 26 typedef t38 (*t64)(); #line 23 typedef t26 (*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 t41 (*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 t38 _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 #define t79 ADDRESS #define TC79 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 "../Interfaces/M3.i3" IMPORT char VS_M3__Stmt__376b307627fc1f2f; typedef CLOSURE t80; #line 10 "EnumElt.m3" IMPORT INITLINK* Wr__init; IMPORT INITLINK* Temp__init; IMPORT INITLINK* EnumExpr__init; IMPORT INITLINK* Emit__init; IMPORT INITLINK* Fmt__init; #line 10 IMPORT INITLINK* Error__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* ValueRep__init; IMPORT INITLINK* Value__init; #line 10 IMPORT INITLINK* String__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* EnumElt__init; IMPORT EXCEPTION_NAME _Thread__Alerted; #line 10 IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; #line 10 IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; IMPORT t81 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846; #line 10 IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee; IMPORT t11 _Temp__FromValue (); IMPORT char VS_Temp__FromValue__c79a4f6f291f20ac; #line 10 IMPORT t7 _EnumExpr__New (); IMPORT char VS_EnumExpr__New__4dc38ae92c11d10f; IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3; #line 10 IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7; IMPORT t81 _Emit__OpI (); IMPORT char VS_Emit__OpI__02cb878634bb9f49; #line 10 IMPORT t22 _Fmt__Int (); IMPORT char VS_Fmt__Int__6e220fa1366cffbc; IMPORT t81 _Error__Str (); IMPORT char VS_Error__Str__2bd0723e3872e90c; #line 10 IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; IMPORT TYPE TC_ValueRep__V; IMPORT char VS_ValueRep__V__f28699153c608442; #line 10 IMPORT t81 _ValueRep__Init (); IMPORT char VS_ValueRep__Init__ba99dff739390f9a; IMPORT t14 _ValueRep__NoDuplicates (); IMPORT char VS_ValueRep__NoDuplicates__ed93f73a247eb7b4; #line 10 IMPORT t7 _ValueRep__NoExpr (); IMPORT char VS_ValueRep__NoExpr__1297c63d2e046c2c; IMPORT t16 _ValueRep__NoType (); IMPORT char VS_ValueRep__NoType__4061f01226f55ca3; #line 10 IMPORT t11 _ValueRep__NoLoader (); IMPORT char VS_ValueRep__NoLoader__9a7f0c5b24f526c1; IMPORT t81 _ValueRep__NoWriter (); #line 10 IMPORT char VS_ValueRep__NoWriter__3b24d43c367f7122; IMPORT t81 _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; IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; #line 10 EXPORT t14 _EnumElt__New (); EXPORT char VS_EnumElt__New__5a0018912e166970 = '\0'; EXPORT t13 _EnumElt__OrdValue (); EXPORT char VS_EnumElt__OrdValue__a3673e1c34bd1964 = '\0'; #line 10 PRIVATE TYPE TC_EnumElt__T; PRIVATE t3 _EnumElt__Create (); PRIVATE t81 _EnumElt__Bind (); PRIVATE t81 _EnumElt__Check (); #line 10 PRIVATE t11 _EnumElt__Load (); PRIVATE t81 _EnumElt__Write (); PRIVATE t81 _EnumElt__Compile (); PRIVATE t9 _EnumElt__MyClass (); #line 10 PRIVATE t7 _EnumElt__ToExpr (); PRIVATE t5 _EnumElt__Declarer (); PRIVATE t81 _EnumElt__FPrinter (); IMPORT char VS_M3__Value__c975bdb53a08f518; #line 10 #line 34 "EnumElt.m3" PRIVATE t3 _EnumElt__Create (_name) t17 _name; { t3 z0; t3 z2; #line 34 "EnumElt.m3" { auto t3 _t; auto t3 __result; { ZERO1 (& _t); #line 34 ZERO1 (& __result); CHECKSTACKOVERFLOW; { register char** ptr = (char**) UNEWOBJ (TC3); z0 = (t3) ptr; }; _t = z0; _ValueRep__Init (_t, _name); NILCHECKA (z2 = _t); (((t49_fields*)(z2+(0+t78_size)))->_readonly) = 1 ; NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t49_size+t78_size)))->_value) = 0 ; NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t49_size+t78_size)))->_parent) = (t16) 0; __result = _t; return __result; } } }; #line 45 "EnumElt.m3" EXPORT t14 _EnumElt__New (_name, _value, _parent) t17 _name; t13 _value; t16 _parent; { t3 z2; #line 45 "EnumElt.m3" { auto t3 _t; auto t14 __result; { ZERO1 (& _t); #line 45 CHECKSTACKOVERFLOW; z2 = _EnumElt__Create (_name); _t = z2; NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t49_size+t78_size)))->_value) = _value; NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t49_size+t78_size)))->_parent) = _parent; NILCHECKA (z2 = _t); (((t49_fields*)(z2+(0+t78_size)))->_type) = _parent; __result = _t; return __result; } } }; #line 55 "EnumElt.m3" EXPORT t13 _EnumElt__OrdValue (_v) t14 _v; { t3 z1; t3 z0; #line 55 "EnumElt.m3" { auto t13 __result; { CHECKSTACKOVERFLOW; z1 = NARROW (_v, t3, TC3, z1); NILCHECKA (z0 = z1); __result = (((t3_fields*)(z0+(0+t49_size+t78_size)))->_value); return __result; #line 57 } } }; #line 60 "EnumElt.m3" PRIVATE t81 _EnumElt__Bind (_t) t3 _t; { #line 60 "EnumElt.m3" { { CHECKSTACKOVERFLOW; } } }; #line 65 "EnumElt.m3" PRIVATE t81 _EnumElt__Check (_t) t3 _t; { #line 65 "EnumElt.m3" { { CHECKSTACKOVERFLOW; } } }; #line 70 "EnumElt.m3" PRIVATE t11 _EnumElt__Load (_t) t3 _t; { t11 z3; #line 70 "EnumElt.m3" { auto t11 __result; { CHECKSTACKOVERFLOW; z3 = _Temp__FromValue (_t, 0 ); __result = z3; return __result; } } }; #line 75 "EnumElt.m3" PRIVATE t81 _EnumElt__Write (_t) t3 _t; { t3 z3; #line 75 "EnumElt.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z3 = _t); _Emit__OpI (((ADDRESS)(& txt1.str)), (((t3_fields*)(z3+(0+t49_size+t78_size)))->_value)); } } }; #line 80 "EnumElt.m3" PRIVATE t81 _EnumElt__Compile (_t) t3 _t; { #line 80 "EnumElt.m3" { { CHECKSTACKOVERFLOW; } } }; #line 84 "EnumElt.m3" PRIVATE t9 _EnumElt__MyClass (_t) t3 _t; { #line 84 "EnumElt.m3" { auto t9 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; __result = 0 ; return __result; } } }; #line 89 "EnumElt.m3" PRIVATE t7 _EnumElt__ToExpr (_t) t3 _t; { t3 z2; t7 z4; #line 89 "EnumElt.m3" { auto t7 __result; { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _t); z4 = _EnumExpr__New ((((t3_fields*)(z2+(0+t49_size+t78_size)))->_parent), (((t3_fields*)(z2+(0+t49_size+t78_size)))->_value)); #line 91 __result = z4; return __result; } } }; #line 94 "EnumElt.m3" PRIVATE t5 _EnumElt__Declarer (_t) t3 _t; { t3 z2; #line 94 "EnumElt.m3" { auto t5 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; NILCHECKA (z2 = _t); _Error__Str ((((t49_fields*)(z2+(0+t78_size)))->_name), ((ADDRESS)(& txt2.str))); if (! 0 ) ASSERTFAULT; } } }; #line 101 "EnumElt.m3" PRIVATE t81 _EnumElt__FPrinter (_t, _map, _wr) t3 _t; t2 _map; t1 _wr; { t3 z4; t22 z6; #line 101 "EnumElt.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z4 = _t); z6 = _Fmt__Int ((((t3_fields*)(z4+(0+t49_size+t78_size)))->_value), 10 ); _Wr__PutText (_wr, z6); #line 103 } } }; PRIVATE int init_done = -1; #line 103 "EnumElt.m3" PRIVATE void EnumElt__initProc (g) int g; { #line 103 "EnumElt.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& EnumElt__init); INITIALIZE (& Wr__init); INITIALIZE (& Temp__init); #line 103 INITIALIZE (& EnumExpr__init); INITIALIZE (& Emit__init); INITIALIZE (& Fmt__init); INITIALIZE (& Error__init); INITIALIZE (& Expr__init); #line 103 INITIALIZE (& ValueRep__init); INITIALIZE (& Value__init); INITIALIZE (& String__init); INITIALIZE (& Type__init); return; #line 103 }; #line 103 "EnumElt.m3" PRIVATE void t3_InitProc (obj) char* obj; { register t3_fields* p; #line 103 "EnumElt.m3" CHECKSTACKOVERFLOW; p = (t3_fields*) (obj + TC14->datasize); }; #line 103 "EnumElt.m3" PRIVATE void t3_SetupProc () { register int* p; #line 103 "EnumElt.m3" t3_TC.datasize += TC14->datasize; t3_TC.methodsize += TC14->methodsize; p = (int*) UALLOC (t3_TC.methodsize); COPY (TC14->defaultMethods, p, (TC14->methodsize)); #line 103 p[0] = (int)(& t3_TC); p[1] = 0; ((t49_methods*) (((char*)p) + TC78->methodsize))->_bind = _EnumElt__Bind; ((t49_methods*) (((char*)p) + TC78->methodsize))->_typeCheck = _EnumElt__Check; #line 103 ((t49_methods*) (((char*)p) + TC78->methodsize))->_class = _EnumElt__MyClass; ((t49_methods*) (((char*)p) + TC78->methodsize))->_fingerprint = _EnumElt__FPrinter; #line 103 ((t49_methods*) (((char*)p) + TC78->methodsize))->_load = _EnumElt__Load; ((t49_methods*) (((char*)p) + TC78->methodsize))->_write = _EnumElt__Write; #line 103 ((t49_methods*) (((char*)p) + TC78->methodsize))->_select = _ValueRep__NoDuplicates; ((t49_methods*) (((char*)p) + TC78->methodsize))->_declare0 = _EnumElt__Declarer; #line 103 ((t49_methods*) (((char*)p) + TC78->methodsize))->_declare1 = _EnumElt__Compile; ((t49_methods*) (((char*)p) + TC78->methodsize))->_needsDecl = _ValueRep__Never; #line 103 ((t49_methods*) (((char*)p) + TC78->methodsize))->_toExpr = _EnumElt__ToExpr; ((t49_methods*) (((char*)p) + TC78->methodsize))->_toType = _ValueRep__NoType; #line 103 t3_TC.defaultMethods = (char*) p; }; #line 103 "EnumElt.m3" PRIVATE void t3_PrintProc (obj) char *obj; { t3_fields* o; #line 103 "EnumElt.m3" CHECKSTACKOVERFLOW; if (TC14->printProc != 0) {TC14->printProc (obj); } fprintf (stderr, "{%s} ", TC3->brand); o = (t3_fields*) (obj + TC14->datasize); #line 103 fprintf (stderr, "value = %d", o->_value); fprintf (stderr, ", "); fprintf (stderr, "parent = %#x", o->_parent); fprintf (stderr, ", "); #line 103 }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, EnumElt__initProc}; static char* VSimports[] = { &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_EnumExpr__New__4dc38ae92c11d10f, &VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__OpI__02cb878634bb9f49, &VS_Fmt__Int__6e220fa1366cffbc, &VS_Error__Str__2bd0723e3872e90c, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &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_String__T__3a6c7dc12615e4ee, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, NIL }; void EnumElt__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = EnumElt__init; EnumElt__init = & me_0; t3_TC = t3_TC_init; REGISTERTYPE (TC3); break; }; case 1: { t3_TC.parent = TC_M3__Value; break; }; case 2: { break; }; }; };