#include "M3Runtime.h" #define t14 ADDRESS #define t64 void typedef int t20; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t50; #line 16 "../Interfaces/Type.i3" #define t28 t50 #define TC14 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 IMPORT char VS_Type__Map__41dd9f4b33104fce; #define t26 ADDRESS #define t42 ADDRESS typedef struct { TYPE self; int private; } t42_methods; #define t42_msize (sizeof (t42_methods)) typedef struct { ADDRESS methods; } t42_fields; #define t42_size (sizeof (t42_fields)) #define TC42 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 { t26 _next; t7 _type; } t27; #define TC26 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t41 ADDRESS #define TC41 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t52 ADDRESS #define TC52 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t65 ADDRESS #define TC65 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; typedef unsigned char t1; #line 15 "../Interfaces/M3.i3" #define t2 ADDRESS #define TC2 TC_M3__Value IMPORT TYPE TC_M3__Value; #line 15 IMPORT char VS_M3__Value__6f64cf9c2cae25fb; #line 80 "ValueRep.i3" typedef t1 (*t3)(); #line 74 typedef t64 (*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 68 "ValueRep.i3" typedef t5 (*t6)(); #line 65 typedef t7 (*t8)(); #line 16 "../Interfaces/M3.i3" #define t9 ADDRESS #define TC9 TC_M3__Expr IMPORT TYPE TC_M3__Expr; #line 16 IMPORT char VS_M3__Expr__8ae39aaa2d432477; #line 62 "ValueRep.i3" typedef t9 (*t10)(); #line 59 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 t53 ADDRESS typedef struct { TYPE self; int private; } t53_methods; #define t53_msize (sizeof (t53_methods)) typedef struct { ADDRESS methods; } t53_fields; #define t53_size (sizeof (t53_fields)) #define TC53 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t53_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 typedef unsigned char t15; #line 43 "ValueRep.i3" typedef t15 (*t16)(); #line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3" typedef signed_char t45; typedef struct { t20 elts[2]; } t17; #line 16 "ValueRep.i3" typedef t1 t18; #line 14 "../Interfaces/M3.i3" #define t19 ADDRESS #define TC19 TC_M3__Scope IMPORT TYPE TC_M3__Scope; #line 14 IMPORT char VS_M3__Scope__6e6d8848308d8a2d; #line 19 "ValueRep.i3" #define t21 ADDRESS #line 19 typedef struct { t4 _bind; t4 _typeCheck; t16 _class; t4 _fingerprint; t6 _load; t4 _write; t11 _select; t3 _declare0; t4 _declare1; #line 19 t4 _declare2; t3 _needsDecl; t10 _toExpr; t8 _toType; } t21_methods; #define t21_msize (sizeof (t21_methods)) typedef struct { #line 19 t20 _origin; t12 _name; t12 _extName; t19 _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; t17 _fprint; #line 19 } t21_fields; #define t21_size (sizeof (t21_fields)) PRIVATE void t21_InitProc (); #line 19 PRIVATE void t21_SetupProc (); PRIVATE void t21_PrintProc (); PRIVATE typecell t21_TC; PRIVATE typecell t21_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, #line 19 t21_size, t21_msize, NIL, 0, 0, t21_InitProc, t21_SetupProc, t21_PrintProc, "ValueRep#$%^_0001", 1591541329, 582498879}; PRIVATE TYPE TC21 = &t21_TC; #line 19 #line 19 "../Interfaces/String.i3" typedef signed_char t38; #line 65 "../Interfaces/Token.i3" #define t29 t50 typedef struct { t12 elts[100]; } t39; #line 17 "../Interfaces/String.i3" typedef struct { t20 _top; t39 _stk; } t22; #line 121 "../Interfaces/Type.i3" typedef t14 (*t23)(); #line 97 typedef t20 (*t24)(); #line 15 "../Interfaces/Token.i3" typedef unsigned char t30; #line 45 typedef struct { int elts[4]; } t25; #line 65 typedef struct { t12 elts[97]; } t31; typedef int t32; #define t33 ADDRESS #define TC33 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t33_MapProc TC_TEXT->mapProc typedef t33 (*t34)(); #line 34 "../Interfaces/String.i3" typedef t12 (*t35)(); typedef unsigned char t36; #line 28 #define t37 t50 typedef struct { #line 14 t12 _module; t12 _item; } t40; #line 17 "../Interfaces/M3.i3" #define t43 ADDRESS #define TC43 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 IMPORT char VS_M3__Stmt__376b307627fc1f2f; #line 17 ".ROOT/.boots/corelib/Interfaces/FPrint.i3" typedef void (*t44)(); #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t46; typedef t46 (*t47)(); #line 26 typedef t32 (*t48)(); #line 23 typedef t36 (*t49)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t51; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t54 ADDRESS #define TC54 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t54_MapProc TC_Thread__T->mapProc typedef t52 (*t55)(); #define t56 ADDRESS #define TC56 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t56_MapProc TC_Thread__Condition->mapProc #define t57 ADDRESS #define TC57 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t57_MapProc TC_MUTEX->mapProc typedef t54 (*t58)(); #line 23 #define t59 ADDRESS #line 23 typedef struct { t55 _apply; } t59_methods; #define t59_msize (sizeof (t59_methods)) typedef struct { #line 23 int filler; } t59_fields; #define t59_size (sizeof (t59_fields)) #define TC59 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t59_MapProc TC_Thread__Closure->mapProc typedef t56 (*t60)(); typedef t57 (*t61)(); #line 28 #define t62 ADDRESS #line 28 typedef struct { int filler; } t62_methods; #define t62_msize (sizeof (t62_methods)) typedef struct { #line 28 t32 _stackSize; } t62_fields; #define t62_size (sizeof (t62_fields)) #define TC62 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t62_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t63; typedef double t66; typedef float t67; #line 10 "ValueRep.i3" IMPORT INITLINK* Value__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* String__init; IMPORT INITLINK* M3__init; IMPORT INITLINK* FPrint__init; #line 10 IMPORT INITLINK* Wr__init; EXPORT INITLINK* ValueRep__init = (INITLINK*) 0; IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5; #line 10 IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; #line 10 IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; #line 10 EXPORT TYPE TC_ValueRep__V = (TYPE) 0; EXPORT char VS_ValueRep__V__f28699153c608442 = '\0'; IMPORT t64 _ValueRep__Init (); #line 10 IMPORT char VS_ValueRep__Init__ba99dff739390f9a; IMPORT t2 _ValueRep__NoDuplicates (); IMPORT char VS_ValueRep__NoDuplicates__ed93f73a247eb7b4; #line 10 IMPORT t9 _ValueRep__NoExpr (); IMPORT char VS_ValueRep__NoExpr__1297c63d2e046c2c; IMPORT t7 _ValueRep__NoType (); IMPORT char VS_ValueRep__NoType__4061f01226f55ca3; #line 10 IMPORT t5 _ValueRep__NoLoader (); IMPORT char VS_ValueRep__NoLoader__9a7f0c5b24f526c1; IMPORT t64 _ValueRep__NoWriter (); #line 10 IMPORT char VS_ValueRep__NoWriter__3b24d43c367f7122; IMPORT t64 _ValueRep__NoDeclarer (); IMPORT char VS_ValueRep__NoDeclarer__22db283420635bde; #line 10 IMPORT t1 _ValueRep__Never (); IMPORT char VS_ValueRep__Never__39b6ab0628d97589; IMPORT t1 _ValueRep__Always (); IMPORT char VS_ValueRep__Always__1b0a9bbf2173b8b3; #line 10 EXPORT char VS_M3__Value__c975bdb53a08f518 = '\0'; PRIVATE int init_done = -1; #line 10 "ValueRep.i3" PRIVATE void ValueRep__initProc (g) int g; { #line 10 "ValueRep.i3" if (init_done >= g) return; init_done = g; INITIALIZE (& Value__init); INITIALIZE (& Type__init); INITIALIZE (& String__init); #line 10 INITIALIZE (& M3__init); INITIALIZE (& FPrint__init); INITIALIZE (& Wr__init); }; PRIVATE void t21_InitProc (obj) char* obj; { register t21_fields* p; CHECKSTACKOVERFLOW; p = (t21_fields*) (obj + TC42->datasize); }; PRIVATE void t21_SetupProc () { register int* p; t21_TC.datasize += TC42->datasize; t21_TC.methodsize += TC42->methodsize; p = (int*) UALLOC (t21_TC.methodsize); COPY (TC42->defaultMethods, p, (TC42->methodsize)); p[0] = (int)(& t21_TC); p[1] = 0; ((t21_methods*) (((char*)p) + TC42->methodsize))->_load = _ValueRep__NoLoader; ((t21_methods*) (((char*)p) + TC42->methodsize))->_write = _ValueRep__NoWriter; ((t21_methods*) (((char*)p) + TC42->methodsize))->_select = _ValueRep__NoDuplicates; ((t21_methods*) (((char*)p) + TC42->methodsize))->_declare0 = _ValueRep__Never; ((t21_methods*) (((char*)p) + TC42->methodsize))->_declare1 = _ValueRep__NoDeclarer; ((t21_methods*) (((char*)p) + TC42->methodsize))->_declare2 = _ValueRep__NoDeclarer; ((t21_methods*) (((char*)p) + TC42->methodsize))->_needsDecl = _ValueRep__Always; ((t21_methods*) (((char*)p) + TC42->methodsize))->_toExpr = _ValueRep__NoExpr; ((t21_methods*) (((char*)p) + TC42->methodsize))->_toType = _ValueRep__NoType; t21_TC.defaultMethods = (char*) p; }; PRIVATE void t21_PrintProc (obj) char *obj; { t21_fields* o; CHECKSTACKOVERFLOW; if (TC42->printProc != 0) {TC42->printProc (obj); } fprintf (stderr, "{%s} ", TC21->brand); o = (t21_fields*) (obj + TC42->datasize); fprintf (stderr, "origin = %d", o->_origin); fprintf (stderr, ", "); fprintf (stderr, "name = %#x", o->_name); fprintf (stderr, ", "); fprintf (stderr, "extName = %#x", o->_extName); fprintf (stderr, ", "); fprintf (stderr, "scope = %#x", o->_scope); fprintf (stderr, ", "); fprintf (stderr, "type = %#x", o->_type); fprintf (stderr, ", "); fprintf (stderr, "checked = %d", o->_checked); fprintf (stderr, ", "); fprintf (stderr, "incheck = %d", o->_incheck); fprintf (stderr, ", "); fprintf (stderr, "readonly = %d", o->_readonly); fprintf (stderr, ", "); fprintf (stderr, "declared = %d", o->_declared); fprintf (stderr, ", "); fprintf (stderr, "bound = %d", o->_bound); fprintf (stderr, ", "); fprintf (stderr, "compiled = %d", o->_compiled); fprintf (stderr, ", "); fprintf (stderr, "imported = %d", o->_imported); fprintf (stderr, ", "); fprintf (stderr, "exported = %d", o->_exported); fprintf (stderr, ", "); fprintf (stderr, "external = %d", o->_external); fprintf (stderr, ", "); fprintf (stderr, "used = %d", o->_used); fprintf (stderr, ", "); fprintf (stderr, "usedAtTop = %d", o->_usedAtTop); fprintf (stderr, ", "); fprintf (stderr, "unused = %d", o->_unused); fprintf (stderr, ", "); fprintf (stderr, "obsolete = %d", o->_obsolete); fprintf (stderr, ", "); fprintf (stderr, "inFrame = %d", o->_inFrame); fprintf (stderr, ", "); fprintf (stderr, "fprint = array"); fprintf (stderr, ", "); }; PRIVATE INITLINK me = {(INITLINK*)NIL, 1, ValueRep__initProc }; static char* VSimports[] = { &VS_Value__T__2446b70b3f7780a5, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_String__T__3a6c7dc12615e4ee, &VS_M3__Scope__6e6d8848308d8a2d, &VS_M3__Value__6f64cf9c2cae25fb, &VS_M3__Expr__8ae39aaa2d432477, &VS_M3__Stmt__376b307627fc1f2f, &VS_M3__Type__4d87bc25311f81d2, &VS_M3__Temp__450b691937f03dae, &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1, &VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15, &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, NIL }; void ValueRep__ILink (phase) int phase; { switch (phase) { case 0: { me.link = ValueRep__init; ValueRep__init = & me; TC_ValueRep__V = TC2; t21_TC = t21_TC_init; REGISTERTYPE (TC21); break; }; case 1: { t21_TC.parent = TC_UNTRACED_ROOT; #line 19 "ValueRep.i3" IDENTIFYTYPES (TC2, TC21); break; }; case 2: { break; }; }; };