#include "M3Runtime.h" #define t6 ADDRESS typedef int t1; #line 118 "./CoreOS.i3" typedef signed_char t9; #define t54 void typedef struct { #line 58 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" char* elts; int size[1]; } t18; #line 118 "./CoreOS.i3" #define t3 t18 typedef struct { t1 elts[27]; } t10; #define t8 ADDRESS #define TC8 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #line 114 typedef struct { t1 _sc_flags; t1 _sc_mask; t1 _sc_icscs; t10 _sc_regs; t1 _sc_saveiar; t8 _sc_floatsave; } t7; #line 125 PRIVATE void t6_PrintProc (); PRIVATE typecell t6_TC; PRIVATE typecell t6_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, 128, 0, NIL, 0, 0, (PROC)NIL, (PROC)NIL, t6_PrintProc, #line 125 "", 91863812, 582880099}; PRIVATE TYPE TC6 = &t6_TC; #line 63 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" #define t19 ADDRESS typedef short t41; typedef unsigned char t40; #line 63 #define t17 t18 typedef struct { t40 elts[4096]; } t42; #line 63 #define TC19 TC_Ctypes__String4096 IMPORT TYPE TC_Ctypes__String4096; #line 63 IMPORT char VS_Ctypes__String4096__8d2ce04b3a64ff9f; #line 62 #define t20 ADDRESS typedef short t43; #line 62 typedef struct { t40 elts[1024]; } t44; #define TC20 TC_Ctypes__String1024 IMPORT TYPE TC_Ctypes__String1024; #line 62 IMPORT char VS_Ctypes__String1024__85fe08042cc88853; #line 61 #define t21 ADDRESS typedef unsigned char t35; #line 61 typedef struct { t40 elts[256]; } t45; #define TC21 TC_Ctypes__String256 IMPORT TYPE TC_Ctypes__String256; #line 61 IMPORT char VS_Ctypes__String256__e84eeb8129c76f43; #line 60 #define t22 ADDRESS typedef signed_char t46; #line 60 typedef struct { t40 elts[64]; } t47; #define TC22 TC_Ctypes__String64 IMPORT TYPE TC_Ctypes__String64; #line 60 IMPORT char VS_Ctypes__String64__e232939e2f4ff601; #line 59 #define t23 ADDRESS typedef signed_char t48; #line 59 typedef struct { t40 elts[16]; } t49; #define TC23 TC_Ctypes__String16 IMPORT TYPE TC_Ctypes__String16; #line 59 IMPORT char VS_Ctypes__String16__46fccbf225a113eb; #line 58 #define t24 ADDRESS typedef signed_char t50; #line 58 typedef struct { t40 elts[4]; } t51; #define TC24 TC_Ctypes__String4 IMPORT TYPE TC_Ctypes__String4; #line 58 IMPORT char VS_Ctypes__String4__1ecbc452350ba764; #line 52 #define t25 ADDRESS typedef unsigned short t15; #line 52 #define TC25 TC_Ctypes__UnsignedShortStar IMPORT TYPE TC_Ctypes__UnsignedShortStar; #line 52 IMPORT char VS_Ctypes__UnsignedShortStar__ba7321c22f5477f7; #line 50 #define t26 ADDRESS #define t27 ADDRESS typedef short t16; #line 49 #define TC27 TC_Ctypes__ShortStar IMPORT TYPE TC_Ctypes__ShortStar; #line 49 IMPORT char VS_Ctypes__ShortStar__ceeffab3338d5be6; #define TC26 TC_Ctypes__ShortStarStar IMPORT TYPE TC_Ctypes__ShortStarStar; #line 50 IMPORT char VS_Ctypes__ShortStarStar__1827fd6f22a4a56a; #line 46 #define t28 ADDRESS #define TC28 TC_Ctypes__IntStar IMPORT TYPE TC_Ctypes__IntStar; #line 46 IMPORT char VS_Ctypes__IntStar__e39a77b6392d7c83; #line 44 #define t29 ADDRESS #define TC29 TC_Ctypes__IntStarStar IMPORT TYPE TC_Ctypes__IntStarStar; #line 44 IMPORT char VS_Ctypes__IntStarStar__a46afe5b32b9d475; #line 33 #define t31 ADDRESS typedef float t32; #line 33 #define TC31 TC_Ctypes__FloatStar IMPORT TYPE TC_Ctypes__FloatStar; #line 33 IMPORT char VS_Ctypes__FloatStar__6c7e0b722780a93f; #line 26 #define t33 ADDRESS #define TC33 TC_Ctypes__UnsignedCharStar IMPORT TYPE TC_Ctypes__UnsignedCharStar; #line 26 IMPORT char VS_Ctypes__UnsignedCharStar__5ba21f95225c580b; #define t34 ADDRESS #define TC34 TC_Ctypes__UnsignedCharStarStar IMPORT TYPE TC_Ctypes__UnsignedCharStarStar; #line 27 IMPORT char VS_Ctypes__UnsignedCharStarStar__64970e213b9e555a; #line 24 #define t36 ADDRESS #define t37 ADDRESS #define TC37 TC_Ctypes__CharStarStar IMPORT TYPE TC_Ctypes__CharStarStar; #line 23 IMPORT char VS_Ctypes__CharStarStar__5cd33554337263a0; #define TC36 TC_Ctypes__CharStarStarStar IMPORT TYPE TC_Ctypes__CharStarStarStar; #line 24 IMPORT char VS_Ctypes__CharStarStarStar__a792f1ad3925ee76; #line 17 #define t39 ADDRESS typedef double t30; #line 17 #define TC39 TC_Ctypes__DoubleStar IMPORT TYPE TC_Ctypes__DoubleStar; #line 17 IMPORT char VS_Ctypes__DoubleStar__09a97cc036088f62; #define t59 ADDRESS #define TC59 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t60 ADDRESS #define TC60 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 11 "CoreOS.m3" typedef t1 (*t2)(); #line 124 "./CoreOS.i3" typedef t54 (*t5)(); typedef struct { t5 _sv_handler; t1 _sv_mask; t1 _sv_flags; } t4; #line 82 typedef struct { t1 _tv_sec; t1 _tv_usec; } t13; typedef struct { t13 _it_interval; t13 _it_value; } t11; #line 86 typedef struct { t1 _tz_minuteswest; t1 _tz_dsttime; } t12; #line 33 typedef struct { t16 _st_dev; t1 _st_ino; t15 _st_mode; t16 _st_nlink; t16 _st_uid; t16 _st_gid; t16 _st_rdev; t1 _st_size; #line 33 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 33 t1 _st_spare42; } t14; #line 19 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" typedef signed_char t38; typedef unsigned char t61; typedef t61 (*t52)(); typedef CLOSURE t53; #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_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t58_MapProc TC_ROOT->mapProc #define t55 ADDRESS #define TC55 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t55_MapProc TC_MUTEX->mapProc #define t56 ADDRESS #define TC56 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t56_MapProc TC_TEXT->mapProc #define t57 ADDRESS typedef struct { TYPE self; int private; } t57_methods; #define t57_msize (sizeof (t57_methods)) typedef struct { ADDRESS methods; } t57_fields; #define t57_size (sizeof (t57_fields)) #define TC57 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef int t62; #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; IMPORT char VS_CoreOS__MAXSIGREGS__1fc10a8a3a545707; #line 7 EXPORT t1 _CoreOS__sigmask (); EXPORT char VS_CoreOS__sigmask__3ebfaf72317836e8 = '\0'; #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 t6_PrintProc (ref) t7* ref; { CHECKSTACKOVERFLOW; fprintf (stderr, "%s {", TC6->brand); fprintf (stderr, "^ = { "); #line 13 fprintf (stderr, "sc_flags = %d", (*ref)._sc_flags); fprintf (stderr, "sc_mask = %d", (*ref)._sc_mask); fprintf (stderr, "sc_icscs = %d", (*ref)._sc_icscs); #line 13 fprintf (stderr, "sc_regs = array"); fprintf (stderr, "sc_saveiar = %d", (*ref)._sc_saveiar); fprintf (stderr, "sc_floatsave = %#x", (*ref)._sc_floatsave); #line 13 fprintf (stderr, "}"); fprintf (stderr, "}\n"); }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, CoreOS__initProc}; static char* VSimports[] = { &VS_Word__Shift__e50a3c672927c57d, &VS_Ctypes__char_star__90cf39683847e5e8, &VS_CoreOS__MAXSIGREGS__1fc10a8a3a545707, NIL }; void CoreOS__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = CoreOS__init; CoreOS__init = & me_0; t6_TC = t6_TC_init; REGISTERTYPE (TC6); break; }; case 1: { break; }; case 2: { break; }; }; };