#include "M3Runtime.h" #define t24 ADDRESS #define t49 void #define TC24 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t34 ADDRESS typedef int t3; #define TC34 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t51 ADDRESS #define TC51 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 11 "./Delay.i3" #define t4 ADDRESS #line 48 "Delay.m3" typedef t49 (*t2)(); #define t50 ADDRESS typedef struct { TYPE self; int private; } t50_methods; #define t50_msize (sizeof (t50_methods)) typedef struct { ADDRESS methods; } t50_fields; #define t50_size (sizeof (t50_fields)) #define TC50 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 11 "./Delay.i3" typedef struct { t2 _apply; } t4_methods; #define t4_msize (sizeof (t4_methods)) typedef struct { #line 11 int filler; } t4_fields; #define t4_size (sizeof (t4_fields)) #define TC4 TC_Delay__Closure IMPORT TYPE TC_Delay__Closure; #line 11 IMPORT char VS_Delay__Closure__94b4fe673a5d6ded; #line 16 "Delay.m3" typedef struct { t4 _closure; t3 _offset; } t5; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t37; #line 22 "Delay.m3" #define t1 t37 typedef signed_char t6; #line 22 typedef struct { t5 elts[101]; } t7; #define t25 ADDRESS typedef struct { TYPE self; int private; } t25_methods; #define t25_msize (sizeof (t25_methods)) typedef struct { ADDRESS methods; } t25_fields; #define t25_size (sizeof (t25_fields)) #define TC25 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t25_MapProc TC_ROOT->mapProc #define t8 ADDRESS #define TC8 TC_Rd__T IMPORT TYPE TC_Rd__T; #line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3" IMPORT char VS_Rd__T__2555b70b3f7780b1; #define t8_MapProc TC_Rd__T->mapProc #define t9 ADDRESS #define TC9 TC_String__T IMPORT TYPE TC_String__T; #line 13 "./String.i3" IMPORT char VS_String__T__3a6c7dc12615e4ee; #line 15 "./Token.i3" typedef unsigned char t13; #line 45 typedef struct { int elts[4]; } t10; #define t11 ADDRESS #define TC11 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t11_MapProc TC_TEXT->mapProc typedef t9 (*t12)(); #line 13 "./Scanner.i3" typedef struct { t13 _token; t9 _string; t3 _value; t3 _offset; } t14; typedef unsigned char t15; #line 287 ".ROOT/.boots/corelib/Interfaces/Rd.i3" typedef t15 (*t16)(); typedef int t17; #line 249 typedef t17 (*t18)(); #line 220 typedef t11 (*t19)(); typedef unsigned char t20; #line 189 #define t21 t37 typedef t20 (*t22)(); #line 84 typedef unsigned char t23; #line 65 "./Token.i3" #define t26 t37 typedef struct { t9 elts[97]; } t27; #line 58 "./String.i3" typedef t3 (*t28)(); #line 19 typedef signed_char t31; typedef struct { t9 elts[100]; } t32; #line 17 typedef struct { t3 _top; t32 _stk; } t29; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" #define t30 ADDRESS #define TC30 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t30_MapProc TC_Wr__T->mapProc typedef struct { #line 14 "./String.i3" t9 _module; t9 _item; } t33; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t35; typedef t35 (*t36)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t38; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t39 ADDRESS #define TC39 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t39_MapProc TC_Thread__T->mapProc typedef t24 (*t40)(); #define t41 ADDRESS #define TC41 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t41_MapProc TC_Thread__Condition->mapProc #define t42 ADDRESS #define TC42 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t42_MapProc TC_MUTEX->mapProc typedef t39 (*t43)(); #line 23 #define t44 ADDRESS #line 23 typedef struct { t40 _apply; } t44_methods; #define t44_msize (sizeof (t44_methods)) typedef struct { #line 23 int filler; } t44_fields; #define t44_size (sizeof (t44_fields)) #define TC44 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t44_MapProc TC_Thread__Closure->mapProc typedef t41 (*t45)(); typedef t42 (*t46)(); #line 28 #define t47 ADDRESS #line 28 typedef struct { int filler; } t47_methods; #define t47_msize (sizeof (t47_methods)) typedef struct { #line 28 t17 _stackSize; } t47_fields; #define t47_size (sizeof (t47_fields)) #define TC47 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t47_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t48; typedef double t52; typedef float t53; #line 8 "Delay.m3" IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Delay__init; IMPORT t3 _Scanner__offset; IMPORT char VS_Scanner__offset__dfc05f042d8347f4; #line 8 IMPORT t15 _Delay__pending; IMPORT char VS_Delay__pending__c38e24f234433188; EXPORT t49 _Delay__Push (); EXPORT char VS_Delay__Push__b75bfd563886f5fe = '\0'; #line 8 EXPORT t49 _Delay__FinishUp (); EXPORT char VS_Delay__FinishUp__4aab618e339b9a83 = '\0'; EXPORT t49 _Delay__Initialize (); #line 8 EXPORT char VS_Delay__Initialize__040d378631a03f42 = '\0'; PRIVATE t7 _Delay__stack; PRIVATE t3 _Delay__top; #line 25 "Delay.m3" EXPORT t49 _Delay__Push (_c) t4 _c; { t3 z3; #line 25 "Delay.m3" { { CHECKSTACKOVERFLOW; _Delay__pending = 1 ; z3 = _Delay__top; if ((z3 < 0) || (100 < z3)) RANGEFAULT; ((_Delay__stack.elts[z3])._closure) = _c; z3 = _Delay__top; if ((z3 < 0) || (100 < z3)) RANGEFAULT; ((_Delay__stack.elts[z3])._offset) = _Scanner__offset; _Delay__top += 1 ; } } }; #line 33 "Delay.m3" EXPORT t49 _Delay__FinishUp () { t15 z2; t3 z3; t4 z4; t4 z0; t2 z1; #line 33 "Delay.m3" { auto t3 _save; { CHECKSTACKOVERFLOW; _save = _Scanner__offset; z2 = (_Delay__top > 0 ); if (z2) do { _Delay__top -= 1 ; { t5 *with; z3 = _Delay__top; if ((z3 < 0) || (100 < z3)) RANGEFAULT; with = &(_Delay__stack.elts[z3]); { auto t5 * _z; #line 39 { _z = with; _Scanner__offset = ((*_z)._offset); NILCHECKA (z4 = ((*_z)._closure)); z0 = (*(char**)z4); z1 = ((t4_methods*) (z0+(0+t50_msize)))->_apply; #line 41 z1 (z4); } } }; z2 = (_Delay__top > 0 ); } while (z2); _Scanner__offset = _save; _Delay__pending = 0 ; } } }; #line 48 "Delay.m3" EXPORT t49 _Delay__Initialize () { #line 48 "Delay.m3" { { CHECKSTACKOVERFLOW; _Delay__pending = 0 ; _Delay__top = 0 ; } } }; PRIVATE int init_done = -1; #line 51 "Delay.m3" PRIVATE void Delay__initProc (g) int g; { #line 51 "Delay.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& Delay__init); INITIALIZE (& Scanner__init); #line 22 ZERO (808, & _Delay__stack); #line 51 return; }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Delay__initProc}; static char* VSimports[] = { &VS_Scanner__offset__dfc05f042d8347f4, &VS_Delay__Closure__94b4fe673a5d6ded, &VS_Delay__pending__c38e24f234433188, NIL }; void Delay__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Delay__init; Delay__init = & me_0; break; }; case 1: { break; }; case 2: { break; }; }; };