#include "M3Runtime.h" #define t5 ADDRESS typedef int t1; #line 19 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" typedef signed_char t8; #line 48 typedef short t7; #line 131 "./CoreOS.i3" typedef struct { t1 _sc_syscall; t8 _sc_syscall_action; t8 _sc_pad1; t8 _sc_pad2; t8 _sc_onstack; t1 _sc_mask; t1 _sc_sp; #line 131 t1 _sc_ps; t7 _sc_pc; } t6; #line 146 PRIVATE void t5_PrintProc (); PRIVATE typecell t5_TC; PRIVATE typecell t5_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, 22, 0, NIL, 0, 0, (PROC)NIL, (PROC)NIL, t5_PrintProc, #line 146 "", 374105640, 823508793}; PRIVATE TYPE TC5 = &t5_TC; #define t12 ADDRESS #define TC12 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #line 63 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3" #define t17 ADDRESS typedef short t38; typedef unsigned char t37; #define t51 void typedef struct { #line 58 char* elts; int size[1]; } t16; #define t15 t16 typedef struct { t37 elts[4096]; } t39; #line 63 #define TC17 TC_Ctypes__String4096 IMPORT TYPE TC_Ctypes__String4096; #line 63 IMPORT char VS_Ctypes__String4096__8d2ce04b3a64ff9f; #line 62 #define t18 ADDRESS typedef short t40; #line 62 typedef struct { t37 elts[1024]; } t41; #define TC18 TC_Ctypes__String1024 IMPORT TYPE TC_Ctypes__String1024; #line 62 IMPORT char VS_Ctypes__String1024__85fe08042cc88853; #line 61 #define t19 ADDRESS typedef unsigned char t33; #line 61 typedef struct { t37 elts[256]; } t42; #define TC19 TC_Ctypes__String256 IMPORT TYPE TC_Ctypes__String256; #line 61 IMPORT char VS_Ctypes__String256__e84eeb8129c76f43; #line 60 #define t20 ADDRESS typedef signed_char t43; #line 60 typedef struct { t37 elts[64]; } t44; #define TC20 TC_Ctypes__String64 IMPORT TYPE TC_Ctypes__String64; #line 60 IMPORT char VS_Ctypes__String64__e232939e2f4ff601; #line 59 #define t21 ADDRESS typedef signed_char t45; #line 59 typedef struct { t37 elts[16]; } t46; #define TC21 TC_Ctypes__String16 IMPORT TYPE TC_Ctypes__String16; #line 59 IMPORT char VS_Ctypes__String16__46fccbf225a113eb; #line 58 #define t22 ADDRESS typedef signed_char t47; #line 58 typedef struct { t37 elts[4]; } t48; #define TC22 TC_Ctypes__String4 IMPORT TYPE TC_Ctypes__String4; #line 58 IMPORT char VS_Ctypes__String4__1ecbc452350ba764; #line 52 #define t23 ADDRESS typedef unsigned short t14; #line 52 #define TC23 TC_Ctypes__UnsignedShortStar IMPORT TYPE TC_Ctypes__UnsignedShortStar; #line 52 IMPORT char VS_Ctypes__UnsignedShortStar__ba7321c22f5477f7; #line 50 #define t24 ADDRESS #define t25 ADDRESS #define TC25 TC_Ctypes__ShortStar IMPORT TYPE TC_Ctypes__ShortStar; #line 49 IMPORT char VS_Ctypes__ShortStar__ceeffab3338d5be6; #define TC24 TC_Ctypes__ShortStarStar IMPORT TYPE TC_Ctypes__ShortStarStar; #line 50 IMPORT char VS_Ctypes__ShortStarStar__1827fd6f22a4a56a; #line 46 #define t26 ADDRESS #define TC26 TC_Ctypes__IntStar IMPORT TYPE TC_Ctypes__IntStar; #line 46 IMPORT char VS_Ctypes__IntStar__e39a77b6392d7c83; #line 44 #define t27 ADDRESS #define TC27 TC_Ctypes__IntStarStar IMPORT TYPE TC_Ctypes__IntStarStar; #line 44 IMPORT char VS_Ctypes__IntStarStar__a46afe5b32b9d475; #line 33 #define t29 ADDRESS typedef float t30; #line 33 #define TC29 TC_Ctypes__FloatStar IMPORT TYPE TC_Ctypes__FloatStar; #line 33 IMPORT char VS_Ctypes__FloatStar__6c7e0b722780a93f; #line 26 #define t31 ADDRESS #define TC31 TC_Ctypes__UnsignedCharStar IMPORT TYPE TC_Ctypes__UnsignedCharStar; #line 26 IMPORT char VS_Ctypes__UnsignedCharStar__5ba21f95225c580b; #define t32 ADDRESS #define TC32 TC_Ctypes__UnsignedCharStarStar IMPORT TYPE TC_Ctypes__UnsignedCharStarStar; #line 27 IMPORT char VS_Ctypes__UnsignedCharStarStar__64970e213b9e555a; #line 24 #define t34 ADDRESS #define t35 ADDRESS #define TC35 TC_Ctypes__CharStarStar IMPORT TYPE TC_Ctypes__CharStarStar; #line 23 IMPORT char VS_Ctypes__CharStarStar__5cd33554337263a0; #define TC34 TC_Ctypes__CharStarStarStar IMPORT TYPE TC_Ctypes__CharStarStarStar; #line 24 IMPORT char VS_Ctypes__CharStarStarStar__a792f1ad3925ee76; #line 17 #define t36 ADDRESS typedef double t28; #line 17 #define TC36 TC_Ctypes__DoubleStar IMPORT TYPE TC_Ctypes__DoubleStar; #line 17 IMPORT char VS_Ctypes__DoubleStar__09a97cc036088f62; #define t56 ADDRESS #define TC56 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t57 ADDRESS #define TC57 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 12 "CoreOS.m3" typedef t1 (*t2)(); #line 145 "./CoreOS.i3" typedef t51 (*t4)(); typedef struct { t4 _sv_handler; t1 _sv_mask; t1 _sv_flags; } t3; #line 102 typedef struct { t1 _tv_sec; t1 _tv_usec; } t11; typedef struct { t11 _it_interval; t11 _it_value; } t9; #line 106 typedef struct { t1 _tz_minuteswest; t1 _tz_dsttime; } t10; #line 39 typedef struct { t1 _st_dev; t1 _st_ino; t14 _st_mode; t7 _st_nlink; t7 _st_res1; t7 _st_res2; t1 _st_rdev; t1 _st_size; t1 _st_atime; #line 39 t1 _st_spare1; t1 _st_mtime; t1 _st_spare2; t1 _st_ctime; t1 _st_spare3; t1 _st_blksize; t1 _st_blocks; t1 _st_spare4a; #line 39 t1 _st_netdev; t1 _st_netino; t14 _st_cnode; t14 _st_rcnode; t14 _st_netsite; t7 _st_fstype; t1 _st_realdev; t7 _st_basemode; #line 39 t7 _st_spareshort; t1 _st_uid; t1 _st_gid; t1 _st_spare41; t1 _st_spare42; t1 _st_spare43; } t13; typedef unsigned char t58; typedef t58 (*t49)(); typedef CLOSURE t50; #define t55 ADDRESS typedef struct { TYPE self; int private; } t55_methods; #define t55_msize (sizeof (t55_methods)) typedef struct { ADDRESS methods; } t55_fields; #define t55_size (sizeof (t55_fields)) #define TC55 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t55_MapProc TC_ROOT->mapProc #define t52 ADDRESS #define TC52 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t52_MapProc TC_MUTEX->mapProc #define t53 ADDRESS #define TC53 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t53_MapProc TC_TEXT->mapProc #define t54 ADDRESS typedef struct { TYPE self; int private; } t54_methods; #define t54_msize (sizeof (t54_methods)) typedef struct { ADDRESS methods; } t54_fields; #define t54_size (sizeof (t54_fields)) #define TC54 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef int t59; #line 8 "CoreOS.m3" IMPORT INITLINK* Word__init; IMPORT INITLINK* CoreOS__init; IMPORT t1 _Word__Shift (); IMPORT char VS_Word__Shift__e50a3c672927c57d; #line 8 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 8 #line 12 "CoreOS.m3" EXPORT t1 _CoreOS__sigmask (_n) t1 _n; { t1 z3; t1 z1; t1 z2; t1 z4; #line 12 "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 14 __result = z1; return __result; } } }; PRIVATE int init_done = -1; #line 14 "CoreOS.m3" PRIVATE void CoreOS__initProc (g) int g; { #line 14 "CoreOS.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& CoreOS__init); INITIALIZE (& Word__init); return; }; #line 14 "CoreOS.m3" PRIVATE void t5_PrintProc (ref) t6* ref; { CHECKSTACKOVERFLOW; fprintf (stderr, "%s {", TC5->brand); fprintf (stderr, "^ = { "); #line 14 fprintf (stderr, "sc_syscall = %d", (*ref)._sc_syscall); fprintf (stderr, "sc_syscall_action = %d", (*ref)._sc_syscall_action); #line 14 fprintf (stderr, "sc_pad1 = %d", (*ref)._sc_pad1); fprintf (stderr, "sc_pad2 = %d", (*ref)._sc_pad2); fprintf (stderr, "sc_onstack = %d", (*ref)._sc_onstack); #line 14 fprintf (stderr, "sc_mask = %d", (*ref)._sc_mask); fprintf (stderr, "sc_sp = %d", (*ref)._sc_sp); fprintf (stderr, "sc_ps = %d", (*ref)._sc_ps); #line 14 fprintf (stderr, "sc_pc = %d", (*ref)._sc_pc); 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, NIL }; void CoreOS__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = CoreOS__init; CoreOS__init = & me_0; t5_TC = t5_TC_init; REGISTERTYPE (TC5); break; }; case 1: { break; }; case 2: { break; }; }; };