#include "M3Runtime.h"

#define t13 ADDRESS
#define t8 void
#define TC13 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; 
#define t14 ADDRESS
typedef int t6; 
#define TC14 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; 
#define t15 ADDRESS
#define TC15 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc;
#line 19 "Delay.i3"
typedef t8 (*t1)();
#line 11
#define t2 ADDRESS
 
#define t11 ADDRESS
 typedef struct { TYPE self; int private; } t11_methods; 
#define t11_msize (sizeof (t11_methods))
typedef struct { ADDRESS methods; } t11_fields; 
#define t11_size (sizeof (t11_fields))
#define TC11 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 11
typedef struct { t1 _apply; } t2_methods; 
#define t2_msize (sizeof (t2_methods))
typedef struct {
#line 11
 int filler; } t2_fields; 
#define t2_size (sizeof (t2_fields))
PRIVATE void t2_InitProc ();
#line 11
PRIVATE void t2_SetupProc (); PRIVATE void t2_PrintProc (); PRIVATE typecell t2_TC; PRIVATE typecell t2_TC_init = {0, 0, 0, 0, 0, (PROC)NIL,
#line 11
  t2_size, t2_msize, NIL, 0, 0, t2_InitProc,   t2_SetupProc,   t2_PrintProc, "", 2105038287, 807851868}; PRIVATE TYPE TC2 = &t2_TC;  typedef unsigned char t3;
typedef t6 (*t4)(); typedef t3 (*t5)(); typedef CLOSURE t7; 
#define t12 ADDRESS
 typedef struct { TYPE self; int private; } t12_methods; 
#define t12_msize (sizeof (t12_methods))
typedef struct { ADDRESS methods; } t12_fields; 
#define t12_size (sizeof (t12_fields))
#define TC12 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t12_MapProc TC_ROOT->mapProc
#define t9 ADDRESS
#define TC9 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t9_MapProc TC_MUTEX->mapProc
#define t10 ADDRESS
#define TC10 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t10_MapProc TC_TEXT->mapProc
typedef unsigned char t16; typedef double t17; typedef float t18; typedef int t19;
#line 9
EXPORT INITLINK* Delay__init = (INITLINK*) 0;  EXPORT TYPE TC_Delay__Closure = &t2_TC; EXPORT char VS_Delay__Closure__94b4fe673a5d6ded = '\0';
#line 9
EXPORT t3 _Delay__pending; EXPORT char VS_Delay__pending__c38e24f234433188 = '\0'; IMPORT t8 _Delay__Push (); IMPORT char VS_Delay__Push__b75bfd563886f5fe;
#line 9
IMPORT t8 _Delay__FinishUp (); IMPORT char VS_Delay__FinishUp__4aab618e339b9a83; IMPORT t8 _Delay__Initialize (); IMPORT char VS_Delay__Initialize__040d378631a03f42;
#line 9
  PRIVATE int init_done = -1;
#line 9 "Delay.i3"
 PRIVATE void Delay__initProc (g) int g; { 
#line 9 "Delay.i3"
if (init_done >= g) return; init_done = g;



ZERO1B (& _Delay__pending);
#line 9
 };  PRIVATE void t2_InitProc (obj) char* obj; { register t2_fields* p; CHECKSTACKOVERFLOW; p = (t2_fields*) (obj + TC11->datasize); };  PRIVATE void t2_SetupProc () { register int* p; t2_TC.datasize += TC11->datasize; t2_TC.methodsize += TC11->methodsize; p = (int*) UALLOC (t2_TC.methodsize); COPY (TC11->defaultMethods, p, (TC11->methodsize));
p[0] = (int)(& t2_TC); p[1] = 0; t2_TC.defaultMethods = (char*) p; };  PRIVATE void t2_PrintProc (obj) char *obj; { t2_fields* o; CHECKSTACKOVERFLOW; if (TC11->printProc != 0) {TC11->printProc (obj); } fprintf (stderr, "{%s} ", TC2->brand); o = (t2_fields*) (obj + TC11->datasize);
 };   PRIVATE INITLINK me = {(INITLINK*)NIL, 1, Delay__initProc }; static char* VSimports[] = { &VS_Delay__Push__b75bfd563886f5fe,
&VS_Delay__FinishUp__4aab618e339b9a83, &VS_Delay__Initialize__040d378631a03f42, NIL };  void Delay__ILink (phase) int phase; { switch (phase) { case 0: { me.link = Delay__init; Delay__init = & me; t2_TC = t2_TC_init;
         REGISTERTYPE (TC2); break; }; case 1: { t2_TC.parent = TC_UNTRACED_ROOT; ZERO1B (& _Delay__pending); break; }; case 2: {
         break; }; }; };