#include "M3Runtime.h" #define t3 ADDRESS typedef int t1; #line 84 "./CoreOS.i3" typedef struct { t1 _tv_sec; t1 _tv_usec; } t4; #line 150 PRIVATE void t3_PrintProc (); PRIVATE typecell t3_TC; PRIVATE typecell t3_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, 8, 0, NIL, 0, 0, (PROC)NIL, (PROC)NIL, t3_PrintProc, #line 150 "", 1688048704, 738680587}; PRIVATE TYPE TC3 = &t3_TC; #line 149 #define t5 ADDRESS typedef signed_char t7; #line 146 typedef struct { int elts[1]; } t6; PRIVATE void t5_PrintProc (); PRIVATE typecell t5_TC; PRIVATE typecell t5_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, 4, 0, NIL, 0, 0, (PROC)NIL, (PROC)NIL, t5_PrintProc, #line 149 "", -537796011, 907193492}; PRIVATE TYPE TC5 = &t5_TC; #line 122 #define t10 ADDRESS typedef struct { #line 113 t1 _sc_onstack; t1 _sc_mask; t1 _sc_sp; t1 _sc_pc; t1 _sc_ps; } t11; PRIVATE void t10_PrintProc (); PRIVATE typecell t10_TC; PRIVATE typecell t10_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, 20, 0, NIL, 0, 0, (PROC)NIL, (PROC)NIL, t10_PrintProc, #line 122 "", 467594205, 652907876}; PRIVATE TYPE TC10 = &t10_TC; #define t14 ADDRESS #define TC14 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #line 63 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" #define t20 ADDRESS typedef short t42; typedef unsigned char t41; #define t55 void typedef struct { #line 58 char* elts; int size[1]; } t19; #define t18 t19 typedef struct { t41 elts[4096]; } t43; #line 63 #define TC20 TC_Ctypes__String4096 IMPORT TYPE TC_Ctypes__String4096; #line 63 IMPORT char VS_Ctypes__String4096__8d2ce04b3a64ff9f; #line 62 #define t21 ADDRESS typedef short t44; #line 62 typedef struct { t41 elts[1024]; } t45; #define TC21 TC_Ctypes__String1024 IMPORT TYPE TC_Ctypes__String1024; #line 62 IMPORT char VS_Ctypes__String1024__85fe08042cc88853; #line 61 #define t22 ADDRESS typedef unsigned char t36; #line 61 typedef struct { t41 elts[256]; } t46; #define TC22 TC_Ctypes__String256 IMPORT TYPE TC_Ctypes__String256; #line 61 IMPORT char VS_Ctypes__String256__e84eeb8129c76f43; #line 60 #define t23 ADDRESS typedef signed_char t47; #line 60 typedef struct { t41 elts[64]; } t48; #define TC23 TC_Ctypes__String64 IMPORT TYPE TC_Ctypes__String64; #line 60 IMPORT char VS_Ctypes__String64__e232939e2f4ff601; #line 59 #define t24 ADDRESS typedef signed_char t49; #line 59 typedef struct { t41 elts[16]; } t50; #define TC24 TC_Ctypes__String16 IMPORT TYPE TC_Ctypes__String16; #line 59 IMPORT char VS_Ctypes__String16__46fccbf225a113eb; #line 58 #define t25 ADDRESS typedef signed_char t51; #line 58 typedef struct { t41 elts[4]; } t52; #define TC25 TC_Ctypes__String4 IMPORT TYPE TC_Ctypes__String4; #line 58 IMPORT char VS_Ctypes__String4__1ecbc452350ba764; #line 52 #define t26 ADDRESS typedef unsigned short t16; #line 52 #define TC26 TC_Ctypes__UnsignedShortStar IMPORT TYPE TC_Ctypes__UnsignedShortStar; #line 52 IMPORT char VS_Ctypes__UnsignedShortStar__ba7321c22f5477f7; #line 50 #define t27 ADDRESS #define t28 ADDRESS typedef short t17; #line 49 #define TC28 TC_Ctypes__ShortStar IMPORT TYPE TC_Ctypes__ShortStar; #line 49 IMPORT char VS_Ctypes__ShortStar__ceeffab3338d5be6; #define TC27 TC_Ctypes__ShortStarStar IMPORT TYPE TC_Ctypes__ShortStarStar; #line 50 IMPORT char VS_Ctypes__ShortStarStar__1827fd6f22a4a56a; #line 46 #define t29 ADDRESS #define TC29 TC_Ctypes__IntStar IMPORT TYPE TC_Ctypes__IntStar; #line 46 IMPORT char VS_Ctypes__IntStar__e39a77b6392d7c83; #line 44 #define t30 ADDRESS #define TC30 TC_Ctypes__IntStarStar IMPORT TYPE TC_Ctypes__IntStarStar; #line 44 IMPORT char VS_Ctypes__IntStarStar__a46afe5b32b9d475; #line 33 #define t32 ADDRESS typedef float t33; #line 33 #define TC32 TC_Ctypes__FloatStar IMPORT TYPE TC_Ctypes__FloatStar; #line 33 IMPORT char VS_Ctypes__FloatStar__6c7e0b722780a93f; #line 26 #define t34 ADDRESS #define TC34 TC_Ctypes__UnsignedCharStar IMPORT TYPE TC_Ctypes__UnsignedCharStar; #line 26 IMPORT char VS_Ctypes__UnsignedCharStar__5ba21f95225c580b; #define t35 ADDRESS #define TC35 TC_Ctypes__UnsignedCharStarStar IMPORT TYPE TC_Ctypes__UnsignedCharStarStar; #line 27 IMPORT char VS_Ctypes__UnsignedCharStarStar__64970e213b9e555a; #line 24 #define t37 ADDRESS #define t38 ADDRESS #define TC38 TC_Ctypes__CharStarStar IMPORT TYPE TC_Ctypes__CharStarStar; #line 23 IMPORT char VS_Ctypes__CharStarStar__5cd33554337263a0; #define TC37 TC_Ctypes__CharStarStarStar IMPORT TYPE TC_Ctypes__CharStarStarStar; #line 24 IMPORT char VS_Ctypes__CharStarStarStar__a792f1ad3925ee76; #line 17 #define t40 ADDRESS typedef double t31; #line 17 #define TC40 TC_Ctypes__DoubleStar IMPORT TYPE TC_Ctypes__DoubleStar; #line 17 IMPORT char VS_Ctypes__DoubleStar__09a97cc036088f62; #define t60 ADDRESS #define TC60 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 11 "CoreOS.m3" typedef t1 (*t2)(); #line 121 "./CoreOS.i3" typedef t55 (*t9)(); typedef struct { t9 _sv_handler; t1 _sv_mask; t1 _sv_flags; } t8; #line 92 typedef struct { t4 _it_interval; t4 _it_value; } t12; #line 88 typedef struct { t1 _tz_minuteswest; t1 _tz_dsttime; } t13; #line 35 typedef struct { t17 _st_dev; t1 _st_ino; t16 _st_mode; t17 _st_nlink; t17 _st_uid; t17 _st_gid; t17 _st_rdev; t1 _st_size; #line 35 t1 _st_atime; t1 _st_spare1; t1 _st_mtime; t1 _st_spare2; t1 _st_ctime; t1 _st_spare3; t1 _st_blksize; t1 _st_blocks; t1 _st_spare41; #line 35 t1 _st_spare42; } t15; #line 19 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" typedef signed_char t39; typedef unsigned char t62; typedef t62 (*t53)(); typedef CLOSURE t54; #define t59 ADDRESS typedef struct { TYPE self; int private; } t59_methods; #define t59_msize (sizeof (t59_methods)) typedef struct { ADDRESS methods; } t59_fields; #define t59_size (sizeof (t59_fields)) #define TC59 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t59_MapProc TC_ROOT->mapProc #define t56 ADDRESS #define TC56 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t56_MapProc TC_MUTEX->mapProc #define t57 ADDRESS #define TC57 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t57_MapProc TC_TEXT->mapProc #define t58 ADDRESS typedef struct { TYPE self; int private; } t58_methods; #define t58_msize (sizeof (t58_methods)) typedef struct { ADDRESS methods; } t58_fields; #define t58_size (sizeof (t58_fields)) #define TC58 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef int t63; #line 7 "CoreOS.m3" IMPORT INITLINK* Word__init; IMPORT INITLINK* CoreOS__init; IMPORT t1 _Word__Shift (); IMPORT char VS_Word__Shift__e50a3c672927c57d; #line 7 IMPORT TYPE TC_Ctypes__char_star; IMPORT char VS_Ctypes__char_star__90cf39683847e5e8; EXPORT t1 _CoreOS__sigmask (); EXPORT char VS_CoreOS__sigmask__3ebfaf72317836e8 = '\0'; #line 7 IMPORT char VS_CoreOS__MAX_FDSET__15f8fb762432d7b3; #line 11 "CoreOS.m3" EXPORT t1 _CoreOS__sigmask (_n) t1 _n; { t1 z3; t1 z1; t1 z2; t1 z4; #line 11 "CoreOS.m3" { auto t1 __result; { CHECKSTACKOVERFLOW; z3 = _n - 1 ; z2 = 1 ; z4 = z3; z1 = (((z4 <= -32) || (z4 >= 32)) ? 0 : ((z4 < 0) ? (((unsigned)z2) >> -(z4)) : (((unsigned) z2) << z4))); #line 13 __result = z1; return __result; } } }; PRIVATE int init_done = -1; #line 13 "CoreOS.m3" PRIVATE void CoreOS__initProc (g) int g; { #line 13 "CoreOS.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& CoreOS__init); INITIALIZE (& Word__init); return; }; #line 13 "CoreOS.m3" PRIVATE void t3_PrintProc (ref) t4* ref; { CHECKSTACKOVERFLOW; fprintf (stderr, "%s {", TC3->brand); fprintf (stderr, "^ = { "); #line 13 fprintf (stderr, "tv_sec = %d", (*ref)._tv_sec); fprintf (stderr, "tv_usec = %d", (*ref)._tv_usec); fprintf (stderr, "}"); #line 13 fprintf (stderr, "}\n"); }; #line 13 "CoreOS.m3" PRIVATE void t5_PrintProc (ref) t6* ref; { CHECKSTACKOVERFLOW; fprintf (stderr, "%s {", TC5->brand); fprintf (stderr, "^ = set"); #line 13 fprintf (stderr, "}\n"); }; #line 13 "CoreOS.m3" PRIVATE void t10_PrintProc (ref) t11* ref; { CHECKSTACKOVERFLOW; fprintf (stderr, "%s {", TC10->brand); fprintf (stderr, "^ = { "); #line 13 fprintf (stderr, "sc_onstack = %d", (*ref)._sc_onstack); fprintf (stderr, "sc_mask = %d", (*ref)._sc_mask); fprintf (stderr, "sc_sp = %d", (*ref)._sc_sp); #line 13 fprintf (stderr, "sc_pc = %d", (*ref)._sc_pc); fprintf (stderr, "sc_ps = %d", (*ref)._sc_ps); fprintf (stderr, "}"); fprintf (stderr, "}\n"); #line 13 }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, CoreOS__initProc}; static char* VSimports[] = { &VS_Word__Shift__e50a3c672927c57d, &VS_Ctypes__char_star__90cf39683847e5e8, &VS_CoreOS__MAX_FDSET__15f8fb762432d7b3, NIL }; void CoreOS__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = CoreOS__init; CoreOS__init = & me_0; t3_TC = t3_TC_init; REGISTERTYPE (TC3); t5_TC = t5_TC_init; REGISTERTYPE (TC5); t10_TC = t10_TC_init; REGISTERTYPE (TC10); break; }; case 1: { break; }; case 2: { break; }; }; };