#include "M3Runtime.h" #define t6 ADDRESS typedef int t1; #line 140 "./CoreOS.i3" typedef signed_char t9; #define t56 void typedef struct { #line 58 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" char* elts; int size[1]; } t20; #line 140 "./CoreOS.i3" #define t3 t20 typedef struct { t1 elts[27]; } t10; #define t8 ADDRESS #define TC8 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #line 136 typedef struct { t1 _sc_flags; t1 _sc_mask; t1 _sc_icscs; t10 _sc_regs; t1 _sc_saveiar; t8 _sc_floatsave; } t7; #line 147 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 147 "", 91863812, 582880099}; PRIVATE TYPE TC6 = &t6_TC; #line 63 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" #define t21 ADDRESS typedef short t43; typedef unsigned char t42; #line 63 #define t19 t20 typedef struct { t42 elts[4096]; } t44; #line 63 #define TC21 TC_Ctypes__String4096 IMPORT TYPE TC_Ctypes__String4096; #line 63 IMPORT char VS_Ctypes__String4096__8d2ce04b3a64ff9f; #line 62 #define t22 ADDRESS typedef short t45; #line 62 typedef struct { t42 elts[1024]; } t46; #define TC22 TC_Ctypes__String1024 IMPORT TYPE TC_Ctypes__String1024; #line 62 IMPORT char VS_Ctypes__String1024__85fe08042cc88853; #line 61 #define t23 ADDRESS typedef unsigned char t37; #line 61 typedef struct { t42 elts[256]; } t47; #define TC23 TC_Ctypes__String256 IMPORT TYPE TC_Ctypes__String256; #line 61 IMPORT char VS_Ctypes__String256__e84eeb8129c76f43; #line 60 #define t24 ADDRESS typedef signed_char t48; #line 60 typedef struct { t42 elts[64]; } t49; #define TC24 TC_Ctypes__String64 IMPORT TYPE TC_Ctypes__String64; #line 60 IMPORT char VS_Ctypes__String64__e232939e2f4ff601; #line 59 #define t25 ADDRESS typedef signed_char t50; #line 59 typedef struct { t42 elts[16]; } t51; #define TC25 TC_Ctypes__String16 IMPORT TYPE TC_Ctypes__String16; #line 59 IMPORT char VS_Ctypes__String16__46fccbf225a113eb; #line 58 #define t26 ADDRESS typedef signed_char t52; #line 58 typedef struct { t42 elts[4]; } t53; #define TC26 TC_Ctypes__String4 IMPORT TYPE TC_Ctypes__String4; #line 58 IMPORT char VS_Ctypes__String4__1ecbc452350ba764; #line 52 #define t27 ADDRESS typedef unsigned short t15; #line 52 #define TC27 TC_Ctypes__UnsignedShortStar IMPORT TYPE TC_Ctypes__UnsignedShortStar; #line 52 IMPORT char VS_Ctypes__UnsignedShortStar__ba7321c22f5477f7; #line 50 #define t28 ADDRESS #define t29 ADDRESS typedef short t18; #line 49 #define TC29 TC_Ctypes__ShortStar IMPORT TYPE TC_Ctypes__ShortStar; #line 49 IMPORT char VS_Ctypes__ShortStar__ceeffab3338d5be6; #define TC28 TC_Ctypes__ShortStarStar IMPORT TYPE TC_Ctypes__ShortStarStar; #line 50 IMPORT char VS_Ctypes__ShortStarStar__1827fd6f22a4a56a; #line 46 #define t30 ADDRESS #define TC30 TC_Ctypes__IntStar IMPORT TYPE TC_Ctypes__IntStar; #line 46 IMPORT char VS_Ctypes__IntStar__e39a77b6392d7c83; #line 44 #define t31 ADDRESS #define TC31 TC_Ctypes__IntStarStar IMPORT TYPE TC_Ctypes__IntStarStar; #line 44 IMPORT char VS_Ctypes__IntStarStar__a46afe5b32b9d475; #line 33 #define t33 ADDRESS typedef float t34; #line 33 #define TC33 TC_Ctypes__FloatStar IMPORT TYPE TC_Ctypes__FloatStar; #line 33 IMPORT char VS_Ctypes__FloatStar__6c7e0b722780a93f; #line 26 #define t35 ADDRESS #define TC35 TC_Ctypes__UnsignedCharStar IMPORT TYPE TC_Ctypes__UnsignedCharStar; #line 26 IMPORT char VS_Ctypes__UnsignedCharStar__5ba21f95225c580b; #define t36 ADDRESS #define TC36 TC_Ctypes__UnsignedCharStarStar IMPORT TYPE TC_Ctypes__UnsignedCharStarStar; #line 27 IMPORT char VS_Ctypes__UnsignedCharStarStar__64970e213b9e555a; #line 24 #define t38 ADDRESS #define t39 ADDRESS #define TC39 TC_Ctypes__CharStarStar IMPORT TYPE TC_Ctypes__CharStarStar; #line 23 IMPORT char VS_Ctypes__CharStarStar__5cd33554337263a0; #define TC38 TC_Ctypes__CharStarStarStar IMPORT TYPE TC_Ctypes__CharStarStarStar; #line 24 IMPORT char VS_Ctypes__CharStarStarStar__a792f1ad3925ee76; #line 17 #define t41 ADDRESS typedef double t32; #line 17 #define TC41 TC_Ctypes__DoubleStar IMPORT TYPE TC_Ctypes__DoubleStar; #line 17 IMPORT char VS_Ctypes__DoubleStar__09a97cc036088f62; #define t61 ADDRESS #define TC61 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 11 "CoreOS.m3" typedef t1 (*t2)(); #line 146 "./CoreOS.i3" typedef t56 (*t5)(); typedef struct { t5 _sv_handler; t1 _sv_mask; t1 _sv_flags; } t4; #line 104 typedef struct { t1 _tv_sec; t1 _tv_usec; } t13; typedef struct { t13 _it_interval; t13 _it_value; } t11; #line 108 typedef struct { t1 _tz_minuteswest; t1 _tz_dsttime; } t12; #line 72 typedef signed_char t16; typedef struct { t1 elts[5]; } t17; #line 43 typedef struct { t1 _st_dev; t1 _st_ino; t15 _st_mode_ext; t15 _st_mode; t18 _st_nlink; t18 _st_pad_to_word; t18 _st_uid_ext; #line 43 t15 _st_uid; t15 _st_gid_ext; t15 _st_gid; t1 _st_rdev; t1 _st_size; t1 _st_atime; t1 _st_spare1; t1 _st_mtime; t1 _st_spare2; #line 43 t1 _st_ctime; t1 _st_spare3; t1 _st_blksize; t1 _st_blocks; t1 _st_vfstype; t1 _st_vfs; t1 _st_type; t1 _st_gen; t1 _st_flag; #line 43 t1 _Reserved1; t1 _Reserved2; t15 _st_access; t17 _st_spare4; } t14; #line 19 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" typedef signed_char t40; typedef unsigned char t63; typedef t63 (*t54)(); typedef CLOSURE t55; #define t60 ADDRESS typedef struct { TYPE self; int private; } t60_methods; #define t60_msize (sizeof (t60_methods)) typedef struct { ADDRESS methods; } t60_fields; #define t60_size (sizeof (t60_fields)) #define TC60 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t60_MapProc TC_ROOT->mapProc #define t57 ADDRESS #define TC57 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t57_MapProc TC_MUTEX->mapProc #define t58 ADDRESS #define TC58 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t58_MapProc TC_TEXT->mapProc #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_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef int t64; #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; }; }; };