#include "M3Runtime.h" #define t2 ADDRESS #define t61 void #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_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 16 "../Interfaces/M3.i3" #define t6 ADDRESS #define TC6 TC_M3__Expr IMPORT TYPE TC_M3__Expr; #line 16 IMPORT char VS_M3__Expr__8ae39aaa2d432477; #line 37 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef struct { char* elts; int size[1]; } t56; #line 14 "../Interfaces/Expr.i3" #define t20 t56 #define TC2 TC_Expr__List IMPORT TYPE TC_Expr__List; #line 14 IMPORT char VS_Expr__List__3f87eceb2b9a246a; #line 16 "../Interfaces/Type.i3" #define t15 ADDRESS typedef int t7; #line 16 #define t27 t56 #define TC15 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 IMPORT char VS_Type__Map__41dd9f4b33104fce; #define t25 ADDRESS #define t4 ADDRESS #define TC4 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 { t25 _next; t4 _type; } t26; #define TC25 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t39 ADDRESS #define TC39 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; #define t62 ADDRESS #define TC62 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 17 "BuiltinOps.m3" typedef t61 (*t1)(); #define t3 ADDRESS #define TC3 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t3_MapProc TC_TEXT->mapProc typedef t4 (*t5)(); #line 18 "./BitSize.i3" typedef t6 (*t8)(); #line 19 "../Interfaces/M3.i3" #define t9 ADDRESS #define TC9 TC_M3__Temp IMPORT TYPE TC_M3__Temp; #line 19 IMPORT char VS_M3__Temp__450b691937f03dae; #line 17 "./BitSize.i3" typedef t9 (*t10)(); typedef unsigned char t11; #line 26 "../Interfaces/Temp.i3" typedef t11 (*t12)(); #line 15 "../Interfaces/M3.i3" #define t13 ADDRESS #define TC13 TC_M3__Value IMPORT TYPE TC_M3__Value; #line 15 IMPORT char VS_M3__Value__6f64cf9c2cae25fb; #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 t14 ADDRESS #define TC14 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t14_MapProc TC_Wr__T->mapProc typedef unsigned char t16; #line 40 "../Interfaces/Value.i3" typedef t16 (*t17)(); #line 27 typedef t13 (*t18)(); #line 15 "../Interfaces/Token.i3" typedef unsigned char t29; #line 45 typedef struct { int elts[4]; } t19; #line 13 "../Interfaces/String.i3" #define t21 ADDRESS #define TC21 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; typedef signed_char t36; #line 65 "../Interfaces/Token.i3" #define t28 t56 typedef struct { t21 elts[100]; } t37; #line 17 "../Interfaces/String.i3" typedef struct { t7 _top; t37 _stk; } t22; #line 121 "../Interfaces/Type.i3" typedef t15 (*t23)(); #line 97 typedef t7 (*t24)(); #line 65 "../Interfaces/Token.i3" typedef struct { t21 elts[97]; } t30; typedef int t31; #line 37 "../Interfaces/String.i3" typedef t3 (*t32)(); #line 34 typedef t21 (*t33)(); typedef unsigned char t34; #line 28 #define t35 t56 typedef struct { #line 14 t21 _module; t21 _item; } t38; #line 155 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef t31 (*t40)(); #line 91 typedef unsigned char t41; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t44 ADDRESS #define TC44 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t44_MapProc TC_Thread__T->mapProc typedef t42 (*t45)(); #define t46 ADDRESS #define TC46 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t46_MapProc TC_Thread__Condition->mapProc #define t47 ADDRESS #define TC47 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t47_MapProc TC_MUTEX->mapProc typedef t44 (*t48)(); #line 23 #define t49 ADDRESS #line 23 typedef struct { t45 _apply; } t49_methods; #define t49_msize (sizeof (t49_methods)) typedef struct { #line 23 int filler; } t49_fields; #define t49_size (sizeof (t49_fields)) #define TC49 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t49_MapProc TC_Thread__Closure->mapProc typedef t46 (*t50)(); typedef t47 (*t51)(); #line 28 #define t52 ADDRESS #line 28 typedef struct { int filler; } t52_methods; #define t52_msize (sizeof (t52_methods)) typedef struct { #line 28 t31 _stackSize; } t52_fields; #define t52_size (sizeof (t52_fields)) #define TC52 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t52_MapProc TC_Thread__SizedClosure->mapProc #define t54 ADDRESS #define TC54 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 "../Interfaces/M3.i3" IMPORT char VS_M3__Stmt__376b307627fc1f2f; #line 14 #define t55 ADDRESS #define TC55 TC_M3__Scope IMPORT TYPE TC_M3__Scope; #line 14 IMPORT char VS_M3__Scope__6e6d8848308d8a2d; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t57; typedef t57 (*t58)(); #line 23 typedef t34 (*t59)(); typedef CLOSURE t60; typedef double t63; typedef float t64; #line 9 "BuiltinOps.m3" IMPORT INITLINK* Val__init; IMPORT INITLINK* Typecode__init; IMPORT INITLINK* Trunc__init; IMPORT INITLINK* Subarray__init; #line 9 IMPORT INITLINK* Round__init; IMPORT INITLINK* Ord__init; IMPORT INITLINK* Number__init; IMPORT INITLINK* New__init; IMPORT INITLINK* Narrow__init; #line 9 IMPORT INITLINK* Min__init; IMPORT INITLINK* Max__init; IMPORT INITLINK* Loophole__init; IMPORT INITLINK* LongFloat__init; #line 9 IMPORT INITLINK* Last__init; IMPORT INITLINK* IsType__init; IMPORT INITLINK* Inc__init; IMPORT INITLINK* Floor__init; IMPORT INITLINK* Floatt__init; #line 9 IMPORT INITLINK* First__init; IMPORT INITLINK* Dispose__init; IMPORT INITLINK* Dec__init; IMPORT INITLINK* Ceiling__init; #line 9 IMPORT INITLINK* ByteSize__init; IMPORT INITLINK* BitSize__init; IMPORT INITLINK* AdrSize__init; IMPORT INITLINK* Adr__init; #line 9 IMPORT INITLINK* Abs__init; IMPORT INITLINK* BuiltinOps__init; IMPORT t61 _Val__Initialize (); IMPORT char VS_Val__Initialize__60a894292693fd5f; #line 9 IMPORT t61 _Typecode__Initialize (); IMPORT char VS_Typecode__Initialize__b375e18438ba5d03; IMPORT t61 _Trunc__Initialize (); #line 9 IMPORT char VS_Trunc__Initialize__fdd62ec62fa94fe3; IMPORT t61 _Subarray__Initialize (); IMPORT char VS_Subarray__Initialize__a9e41b11337eae0d; #line 9 IMPORT t61 _Round__Initialize (); IMPORT char VS_Round__Initialize__2439cded301c9189; IMPORT t61 _Ord__Initialize (); #line 9 IMPORT char VS_Ord__Initialize__cc36fdec33fb0a16; IMPORT t61 _Number__Initialize (); IMPORT char VS_Number__Initialize__14cd84863cee15bb; #line 9 IMPORT t61 _New__Initialize (); IMPORT char VS_New__Initialize__2f4d94303e90498b; IMPORT t61 _Narrow__Initialize (); IMPORT char VS_Narrow__Initialize__88ac4ecc2b3fcf63; #line 9 IMPORT t61 _Min__Initialize (); IMPORT char VS_Min__Initialize__d602ae5126413d7f; IMPORT t61 _Max__Initialize (); IMPORT char VS_Max__Initialize__6b6929952e302e8d; #line 9 IMPORT t61 _Loophole__Initialize (); IMPORT char VS_Loophole__Initialize__11e9efc32c8b8cca; IMPORT t61 _LongFloat__Initialize (); #line 9 IMPORT char VS_LongFloat__Initialize__b5aa9d9539ae1f94; IMPORT t61 _Last__Initialize (); IMPORT char VS_Last__Initialize__d2cca7433b88cbbb; #line 9 IMPORT t61 _IsType__Initialize (); IMPORT char VS_IsType__Initialize__2bc4fd913cefd07b; IMPORT t61 _Inc__Initialize (); #line 9 IMPORT char VS_Inc__Initialize__93f33dac387f79f0; IMPORT t61 _Floor__Initialize (); IMPORT char VS_Floor__Initialize__b43e0af628f4499f; #line 9 IMPORT t61 _Floatt__Initialize (); IMPORT char VS_Floatt__Initialize__c5bc8f483027c1ab; IMPORT t61 _First__Initialize (); #line 9 IMPORT char VS_First__Initialize__aa48053130d2827d; IMPORT t61 _Dispose__Initialize (); IMPORT char VS_Dispose__Initialize__930fb55c2499c2b7; #line 9 IMPORT t61 _Dec__Initialize (); IMPORT char VS_Dec__Initialize__144efe3532b6d47c; IMPORT t61 _Ceiling__Initialize (); #line 9 IMPORT char VS_Ceiling__Initialize__3a19b34221f1718a; IMPORT t61 _ByteSize__Initialize (); IMPORT char VS_ByteSize__Initialize__d4054a773787141d; #line 9 IMPORT t61 _BitSize__Initialize (); IMPORT char VS_BitSize__Initialize__ebb044be30bb5502; IMPORT t61 _AdrSize__Initialize (); #line 9 IMPORT char VS_AdrSize__Initialize__8578579b30992c84; IMPORT t61 _Adr__Initialize (); IMPORT char VS_Adr__Initialize__4b7958df3349b017; #line 9 IMPORT t61 _Abs__Initialize (); IMPORT char VS_Abs__Initialize__066de7143aeaf9ef; EXPORT t61 _BuiltinOps__Initialize (); #line 9 EXPORT char VS_BuiltinOps__Initialize__cfbc143d273d5fc2 = '\0'; #line 17 "BuiltinOps.m3" EXPORT t61 _BuiltinOps__Initialize () { #line 17 "BuiltinOps.m3" { { CHECKSTACKOVERFLOW; _Abs__Initialize (); _Adr__Initialize (); _AdrSize__Initialize (); _BitSize__Initialize (); _ByteSize__Initialize (); _Ceiling__Initialize (); _Dec__Initialize (); _Dispose__Initialize (); _First__Initialize (); _Floatt__Initialize (); _Floor__Initialize (); _Inc__Initialize (); _IsType__Initialize (); _Last__Initialize (); _LongFloat__Initialize (); _Loophole__Initialize (); _Max__Initialize (); _Min__Initialize (); _Narrow__Initialize (); _New__Initialize (); _Number__Initialize (); _Ord__Initialize (); _Round__Initialize (); _Subarray__Initialize (); _Trunc__Initialize (); _Typecode__Initialize (); _Val__Initialize (); } } }; PRIVATE int init_done = -1; #line 47 "BuiltinOps.m3" PRIVATE void BuiltinOps__initProc (g) int g; { #line 47 "BuiltinOps.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& BuiltinOps__init); INITIALIZE (& Val__init); INITIALIZE (& Typecode__init); #line 47 INITIALIZE (& Trunc__init); INITIALIZE (& Subarray__init); INITIALIZE (& Round__init); INITIALIZE (& Ord__init); INITIALIZE (& Number__init); #line 47 INITIALIZE (& New__init); INITIALIZE (& Narrow__init); INITIALIZE (& Min__init); INITIALIZE (& Max__init); INITIALIZE (& Loophole__init); #line 47 INITIALIZE (& LongFloat__init); INITIALIZE (& Last__init); INITIALIZE (& IsType__init); INITIALIZE (& Inc__init); INITIALIZE (& Floor__init); #line 47 INITIALIZE (& Floatt__init); INITIALIZE (& First__init); INITIALIZE (& Dispose__init); INITIALIZE (& Dec__init); INITIALIZE (& Ceiling__init); #line 47 INITIALIZE (& ByteSize__init); INITIALIZE (& BitSize__init); INITIALIZE (& AdrSize__init); INITIALIZE (& Adr__init); INITIALIZE (& Abs__init); #line 47 return; }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, BuiltinOps__initProc}; static char* VSimports[] = { &VS_Val__Initialize__60a894292693fd5f, &VS_Typecode__Initialize__b375e18438ba5d03, &VS_Trunc__Initialize__fdd62ec62fa94fe3, &VS_Subarray__Initialize__a9e41b11337eae0d, &VS_Round__Initialize__2439cded301c9189, &VS_Ord__Initialize__cc36fdec33fb0a16, &VS_Number__Initialize__14cd84863cee15bb, &VS_New__Initialize__2f4d94303e90498b, &VS_Narrow__Initialize__88ac4ecc2b3fcf63, &VS_Min__Initialize__d602ae5126413d7f, &VS_Max__Initialize__6b6929952e302e8d, &VS_Loophole__Initialize__11e9efc32c8b8cca, &VS_LongFloat__Initialize__b5aa9d9539ae1f94, &VS_Last__Initialize__d2cca7433b88cbbb, &VS_IsType__Initialize__2bc4fd913cefd07b, &VS_Inc__Initialize__93f33dac387f79f0, &VS_Floor__Initialize__b43e0af628f4499f, &VS_Floatt__Initialize__c5bc8f483027c1ab, &VS_First__Initialize__aa48053130d2827d, &VS_Dispose__Initialize__930fb55c2499c2b7, &VS_Dec__Initialize__144efe3532b6d47c, &VS_Ceiling__Initialize__3a19b34221f1718a, &VS_ByteSize__Initialize__d4054a773787141d, &VS_BitSize__Initialize__ebb044be30bb5502, &VS_AdrSize__Initialize__8578579b30992c84, &VS_Adr__Initialize__4b7958df3349b017, &VS_Abs__Initialize__066de7143aeaf9ef, NIL }; void BuiltinOps__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = BuiltinOps__init; BuiltinOps__init = & me_0; break; }; case 1: { break; }; case 2: { break; }; }; };