#include "M3Runtime.h" #define t10 ADDRESS #define t60 void typedef int t6; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t43; #line 16 "../Interfaces/Type.i3" #define t25 t43 #define TC10 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 IMPORT char VS_Type__Map__41dd9f4b33104fce; #line 14 "./Expr.i3" #define t15 ADDRESS #define t56 ADDRESS typedef struct { TYPE self; int private; } t56_methods; #define t56_msize (sizeof (t56_methods)) typedef struct { ADDRESS methods; } t56_fields; #define t56_size (sizeof (t56_fields)) #define TC56 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 16 "../Interfaces/M3.i3" #define t1 ADDRESS #define TC1 TC_M3__Expr IMPORT TYPE TC_M3__Expr; #line 16 IMPORT char VS_M3__Expr__8ae39aaa2d432477; #line 14 "./Expr.i3" #define t16 t43 #define TC15 TC_Expr__List IMPORT TYPE TC_Expr__List; #line 14 IMPORT char VS_Expr__List__3f87eceb2b9a246a; #line 17 "../Interfaces/Type.i3" #define t23 ADDRESS #define t11 ADDRESS #define TC11 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 { t23 _next; t11 _type; } t24; #define TC23 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t38 ADDRESS #define TC38 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t45 ADDRESS #define TC45 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t61 ADDRESS #define TC61 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 47 "ExprRep.i3" typedef t60 (*t2)(); #line 19 "../Interfaces/M3.i3" #define t3 ADDRESS #define TC3 TC_M3__Temp IMPORT TYPE TC_M3__Temp; #line 19 IMPORT char VS_M3__Temp__450b691937f03dae; typedef unsigned char t4; #line 45 "ExprRep.i3" typedef t4 (*t5)(); #line 41 typedef t1 (*t7)(); #line 31 typedef t3 (*t8)(); #define t46 ADDRESS typedef struct { TYPE self; int private; } t46_methods; #define t46_msize (sizeof (t46_methods)) typedef struct { ADDRESS methods; } t46_fields; #define t46_size (sizeof (t46_fields)) #define TC46 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t46_MapProc TC_ROOT->mapProc #define t9 ADDRESS #define TC9 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t9_MapProc TC_Wr__T->mapProc #define t12 ADDRESS #line 13 "ExprRep.i3" typedef struct { t2 _bind; t2 _check; t2 _write; t5 _isEqual; t7 _evaluate; t2 _getBounds; t5 _isWritable; t5 _isDesignator; #line 13 t5 _isZeroes; t2 _genLiteral; t2 _fprint; t8 _compile; } t12_methods; #define t12_msize (sizeof (t12_methods)) typedef struct { #line 13 t6 _origin; t11 _type; t4 _bound; t4 _inCheck; t4 _checked; } t12_fields; #define t12_size (sizeof (t12_fields)) PRIVATE void t12_InitProc (); #line 13 PRIVATE void t12_SetupProc (); PRIVATE void t12_PrintProc (); PRIVATE typecell t12_TC; PRIVATE typecell t12_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, #line 13 t12_size, t12_msize, NIL, 0, 0, t12_InitProc, t12_SetupProc, t12_PrintProc, "ExprRep#$%^_0001", -1905588767, 950799228}; PRIVATE TYPE TC12 = &t12_TC; #line 13 #line 31 "./Expr.i3" typedef t11 (*t13)(); #line 15 "../Interfaces/Token.i3" typedef unsigned char t27; #line 45 typedef struct { int elts[4]; } t14; #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; typedef signed_char t35; #line 65 "../Interfaces/Token.i3" #define t26 t43 typedef struct { t17 elts[100]; } t36; #line 17 "../Interfaces/String.i3" typedef struct { t6 _top; t36 _stk; } t18; #line 121 "../Interfaces/Type.i3" typedef t10 (*t19)(); #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 106 "../Interfaces/Type.i3" typedef t20 (*t21)(); #line 97 typedef t6 (*t22)(); #line 65 "../Interfaces/Token.i3" typedef struct { t17 elts[97]; } t28; typedef int t29; #define t30 ADDRESS #define TC30 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t30_MapProc TC_TEXT->mapProc typedef t30 (*t31)(); #line 34 "../Interfaces/String.i3" typedef t17 (*t32)(); typedef unsigned char t33; #line 28 #define t34 t43 typedef struct { #line 14 t17 _module; t17 _item; } t37; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t39; typedef t39 (*t40)(); #line 26 typedef t29 (*t41)(); #line 23 typedef t33 (*t42)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t44; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t47 ADDRESS #define TC47 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t47_MapProc TC_Thread__T->mapProc typedef t45 (*t48)(); #define t49 ADDRESS #define TC49 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t49_MapProc TC_Thread__Condition->mapProc #define t50 ADDRESS #define TC50 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t50_MapProc TC_MUTEX->mapProc typedef t47 (*t51)(); #line 23 #define t52 ADDRESS #line 23 typedef struct { t48 _apply; } t52_methods; #define t52_msize (sizeof (t52_methods)) typedef struct { #line 23 int filler; } t52_fields; #define t52_size (sizeof (t52_fields)) #define TC52 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t52_MapProc TC_Thread__Closure->mapProc typedef t49 (*t53)(); typedef t50 (*t54)(); #line 28 #define t55 ADDRESS #line 28 typedef struct { int filler; } t55_methods; #define t55_msize (sizeof (t55_methods)) typedef struct { #line 28 t29 _stackSize; } t55_fields; #define t55_size (sizeof (t55_fields)) #define TC55 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t55_MapProc TC_Thread__SizedClosure->mapProc #define t57 ADDRESS #define TC57 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 "../Interfaces/M3.i3" IMPORT char VS_M3__Stmt__376b307627fc1f2f; #line 14 #define t58 ADDRESS #define TC58 TC_M3__Scope IMPORT TYPE TC_M3__Scope; #line 14 IMPORT char VS_M3__Scope__6e6d8848308d8a2d; typedef CLOSURE t59; typedef double t62; typedef float t63; #line 8 "ExprRep.i3" IMPORT INITLINK* Wr__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* M3__init; EXPORT INITLINK* ExprRep__init = (INITLINK*) 0; #line 8 IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure; #line 8 IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; #line 8 IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; #line 8 IMPORT t60 _ExprRep__Init (); IMPORT char VS_ExprRep__Init__8b7fff3e227cebab; IMPORT t60 _ExprRep__NoBind (); IMPORT char VS_ExprRep__NoBind__e7d0d3dd3d703c08; #line 8 IMPORT t60 _ExprRep__NoCheck (); IMPORT char VS_ExprRep__NoCheck__c11b54bc361794fa; IMPORT t1 _ExprRep__NoValue (); IMPORT char VS_ExprRep__NoValue__8ccc143224598a66; #line 8 IMPORT t1 _ExprRep__Self (); IMPORT char VS_ExprRep__Self__28962e523a8d814b; IMPORT t60 _ExprRep__NoBounds (); IMPORT char VS_ExprRep__NoBounds__b64bb146289ee4f0; #line 8 IMPORT t4 _ExprRep__IsNever (); IMPORT char VS_ExprRep__IsNever__8f1a069b301903c8; IMPORT t4 _ExprRep__IsAlways (); IMPORT char VS_ExprRep__IsAlways__f5a5ce3d3141b566; #line 8 IMPORT t4 _ExprRep__NeverEq (); IMPORT char VS_ExprRep__NeverEq__dfdc2412249ccb65; IMPORT t60 _ExprRep__NoWriter (); IMPORT char VS_ExprRep__NoWriter__a97bb1a23bbf506e; #line 8 IMPORT t60 _ExprRep__NoLiteral (); IMPORT char VS_ExprRep__NoLiteral__6c9c90073f496f67; EXPORT char VS_M3__Expr__58bf709e39adf1f7 = '\0'; #line 8 PRIVATE int init_done = -1; #line 8 "ExprRep.i3" PRIVATE void ExprRep__initProc (g) int g; { #line 8 "ExprRep.i3" if (init_done >= g) return; init_done = g; INITIALIZE (& Wr__init); INITIALIZE (& Type__init); INITIALIZE (& Expr__init); #line 8 INITIALIZE (& M3__init); }; PRIVATE void t12_InitProc (obj) char* obj; { register t12_fields* p; CHECKSTACKOVERFLOW; p = (t12_fields*) (obj + TC56->datasize); }; PRIVATE void t12_SetupProc () { register int* p; t12_TC.datasize += TC56->datasize; t12_TC.methodsize += TC56->methodsize; p = (int*) UALLOC (t12_TC.methodsize); COPY (TC56->defaultMethods, p, (TC56->methodsize)); p[0] = (int)(& t12_TC); p[1] = 0; ((t12_methods*) (((char*)p) + TC56->methodsize))->_bind = _ExprRep__NoBind; ((t12_methods*) (((char*)p) + TC56->methodsize))->_check = _ExprRep__NoCheck; ((t12_methods*) (((char*)p) + TC56->methodsize))->_write = _ExprRep__NoWriter; ((t12_methods*) (((char*)p) + TC56->methodsize))->_isEqual = _ExprRep__NeverEq; ((t12_methods*) (((char*)p) + TC56->methodsize))->_evaluate = _ExprRep__NoValue; ((t12_methods*) (((char*)p) + TC56->methodsize))->_getBounds = _ExprRep__NoBounds; ((t12_methods*) (((char*)p) + TC56->methodsize))->_isWritable = _ExprRep__IsNever; ((t12_methods*) (((char*)p) + TC56->methodsize))->_isDesignator = _ExprRep__IsNever; ((t12_methods*) (((char*)p) + TC56->methodsize))->_isZeroes = _ExprRep__IsNever; ((t12_methods*) (((char*)p) + TC56->methodsize))->_genLiteral = _ExprRep__NoLiteral; t12_TC.defaultMethods = (char*) p; }; PRIVATE void t12_PrintProc (obj) char *obj; { t12_fields* o; CHECKSTACKOVERFLOW; if (TC56->printProc != 0) {TC56->printProc (obj); } fprintf (stderr, "{%s} ", TC12->brand); o = (t12_fields*) (obj + TC56->datasize); fprintf (stderr, "origin = %d", o->_origin); fprintf (stderr, ", "); fprintf (stderr, "type = %#x", o->_type); fprintf (stderr, ", "); fprintf (stderr, "bound = %d", o->_bound); fprintf (stderr, ", "); fprintf (stderr, "inCheck = %d", o->_inCheck); fprintf (stderr, ", "); fprintf (stderr, "checked = %d", o->_checked); fprintf (stderr, ", "); }; PRIVATE INITLINK me = {(INITLINK*)NIL, 1, ExprRep__initProc }; static char* VSimports[] = { &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1, &VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &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_ExprRep__Init__8b7fff3e227cebab, &VS_ExprRep__NoBind__e7d0d3dd3d703c08, &VS_ExprRep__NoCheck__c11b54bc361794fa, &VS_ExprRep__NoValue__8ccc143224598a66, &VS_ExprRep__Self__28962e523a8d814b, &VS_ExprRep__NoBounds__b64bb146289ee4f0, &VS_ExprRep__IsNever__8f1a069b301903c8, &VS_ExprRep__IsAlways__f5a5ce3d3141b566, &VS_ExprRep__NeverEq__dfdc2412249ccb65, &VS_ExprRep__NoWriter__a97bb1a23bbf506e, &VS_ExprRep__NoLiteral__6c9c90073f496f67, NIL }; void ExprRep__ILink (phase) int phase; { switch (phase) { case 0: { me.link = ExprRep__init; ExprRep__init = & me; t12_TC = t12_TC_init; REGISTERTYPE (TC12); break; }; case 1: { t12_TC.parent = TC_UNTRACED_ROOT; #line 13 "ExprRep.i3" IDENTIFYTYPES (TC1, TC12); break; }; case 2: { break; }; }; };