/* Generated from Cedar to C at: June 12, 1988 4:53:10 pm PDT */ /* from module "SparcLoaderTestCodeImpl" */ #include #include static char versionStamp[] = "@(#)mob_version [1598034501,2992426776] SparcLoaderTestCodeImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bytePtr; typedef unsigned short half, *halfPtr; typedef struct {word f0; word f1; word f2; word f3} BIT128; typedef struct {BIT128 f; BIT128 r} BIT256; typedef struct {BIT256 f; BIT128 r} BIT384; typedef word (*funcPtr)(); #define SOURCE(p, l) /* source p, l */ #define IOP2(op, x, y) ( (word) (((int) (word) (x)) op ((int) (word) (y))) ) static void SparcLoaderTestCodeImpl(); static struct {unsigned f; char r[16];} string1 = {786448, "\257\300\137\100\022\105\300\262\134\317\030\064\000\000\000\000"}; static void L0(); static void P_30(); static BIT384 globalframe; static void SparcLoaderTestCodeImpl() { register ptr gf_07 = (ptr) &globalframe; (* (( (ptr) gf_07)+10) ) = ( ((word) (funcPtr) L0) ); (* (( (ptr) gf_07)+8) ) = ( ((word) (funcPtr) P_30) ); (void) XR_DeclareGlobalFrame((word) "SparcLoaderTestCodeImpl\000", &globalframe, (word) XR_GetTypeIndex((word) &string1, 0, 0), (word) (( (bytePtr) gf_07)+40)/* var_1278 */ ); }; static void L0(formal_05, formal_04) word formal_05; word formal_04; { /* SparcLoaderTestCodeImpl */ SOURCE(1, 0); }; static void P_30() { word i_1236 = 0; /* P */ SOURCE(45, 36); SOURCE(57, 12); SOURCE(71, 10); i_1236 = IOP2( + , i_1236, 1); }; /* transformed in 0.03 seconds. */ extern void XR_install_SparcLoaderTestCodeImpl() { SparcLoaderTestCodeImpl(); }; static void XR_install() {XR_install_SparcLoaderTestCodeImpl();}; /* installation sequence */ static void XR_load_SparcLoaderTestCodeImpl() { XR_install_SparcLoaderTestCodeImpl(); }; static void XR_load() { XR_install_SparcLoaderTestCodeImpl(); }; static void XR_run_SparcLoaderTestCodeImpl() { XR_Start(&globalframe); }; static void XR_run() { XR_Start(&globalframe); };