diff --git a/build/initial.image b/build/initial.image index 4dc064d..60d088a 100644 Binary files a/build/initial.image and b/build/initial.image differ diff --git a/c/scheme48.h b/c/scheme48.h index d59bc0c..165c3b7 100644 --- a/c/scheme48.h +++ b/c/scheme48.h @@ -49,7 +49,7 @@ extern s48_value s48_make_string(int, char); extern s48_value s48_make_vector(int, s48_value); extern s48_value s48_enter_byte_vector(char *, int); extern char * s48_extract_byte_vector(s48_value); -extern s48_value s48_make_byte_vector(int); +extern s48_value s48_make_byte_vector(int, int); extern s48_value s48_make_record(s48_value); extern s48_value s48_make_weak_pointer(s48_value); extern void s48_check_record_type(s48_value, s48_value); @@ -66,7 +66,7 @@ extern s48_value s48_call_scheme(s48_value proc, long nargs, ...); #define S48_EXPORT_FUNCTION(p) (s48_define_exported_binding(#p, s48_enter_pointer(p))) -#define S48_MAKE_VALUE(type) (s48_make_byte_vector(sizeof(type))) +#define S48_MAKE_VALUE(type) (s48_make_byte_vector(sizeof(type),0)) extern void * s48_value_pointer(s48_value); #define S48_EXTRACT_VALUE_POINTER(x, type) ((type *) s48_value_pointer(x)) @@ -242,7 +242,7 @@ extern void s48_check_record_type(s48_value record, s48_value type_binding); #define S48_STOB_REF(x, i) (S48_ADDRESS_AFTER_HEADER(x, s48_value)[i]) #define S48_STOB_BYTE_REF(x, i) (((char *)S48_ADDRESS_AFTER_HEADER(x, s48_value))[i]) #define S48_STOB_SET(x, i, v) do { s48_value __stob_set_x = (x); long __stob_set_i = (i); s48_value __stob_set_v = (v); if (S48_STOB_IMMUTABLEP(__stob_set_x)) s48_raise_argtype_error(__stob_set_x); else { S48_WRITE_BARRIER((__stob_set_x), (char *) (&S48_STOB_REF((__stob_set_x), (__stob_set_i))),(__stob_set_v)); *(&S48_STOB_REF((__stob_set_x), (__stob_set_i))) = (__stob_set_v); } } while (0) -#define S48_STOB_BYTE_SET(x, i, v) do { char __stob_set_x = (x); long __stob_set_i = (i); s48_value __stob_set_v = (v); if (S48_STOB_IMMUTABLEP(__stob_set_x)) s48_raise_argtype_error(__stob_set_x); else *(&S48_STOB_BYTE_REF((__stob_set_x), (__stob_set_i))) = (__stob_set_v); } while (0) +#define S48_STOB_BYTE_SET(x, i, v) do { s48_value __stob_set_x = (x); long __stob_set_i = (i); char __stob_set_v = (v); if (S48_STOB_IMMUTABLEP(__stob_set_x)) s48_raise_argtype_error(__stob_set_x); else *(&S48_STOB_BYTE_REF((__stob_set_x), (__stob_set_i))) = (__stob_set_v); } while (0) #define S48_STOB_TYPE(x) ((S48_STOB_HEADER(x)>>2)&31) #define S48_STOB_HEADER(x) (S48_STOB_REF((x),-1)) #define S48_STOB_ADDRESS(x) (&(S48_STOB_HEADER(x))) @@ -408,12 +408,12 @@ extern void s48_check_record_type(s48_value record, s48_value type_binding); #define S48_BYTE_VECTOR_REF(x, i) (s48_stob_byte_ref((x), S48_STOBTYPE_BYTE_VECTOR, (i))) #define S48_BYTE_VECTOR_SET(x, i, v) (s48_stob_byte_set((x), S48_STOBTYPE_BYTE_VECTOR, (i), (v))) #define S48_UNSAFE_BYTE_VECTOR_REF(x, i) (S48_STOB_BYTE_REF((x), (i))) -#define S48_UNSAFE_BYTE_VECTOR_SET(x, i, v) S48_BYTE_STOB_SET((x), (i), (v)) +#define S48_UNSAFE_BYTE_VECTOR_SET(x, i, v) S48_STOB_BYTE_SET((x), (i), (v)) #define S48_STRING_LENGTH(x) (s48_stob_byte_length((x), S48_STOBTYPE_STRING)) #define S48_STRING_REF(x, i) (s48_stob_byte_ref((x), S48_STOBTYPE_STRING, (i))) #define S48_STRING_SET(x, i, v) (s48_stob_byte_set((x), S48_STOBTYPE_STRING, (i), (v))) #define S48_UNSAFE_STRING_REF(x, i) (S48_STOB_BYTE_REF((x), (i))) -#define S48_UNSAFE_STRING_SET(x, i, v) S48_BYTE_STOB_SET((x), (i), (v)) +#define S48_UNSAFE_STRING_SET(x, i, v) S48_STOB_BYTE_SET((x), (i), (v)) #define S48_UNSAFE_BYTE_VECTOR_LENGTH(x) (S48_STOB_BYTE_LENGTH(x)) #define S48_UNSAFE_STRING_LENGTH(x) (S48_STOB_BYTE_LENGTH(x) - 1) #define S48_UNSAFE_EXTRACT_STRING(x) (S48_ADDRESS_AFTER_HEADER((x), char)) diff --git a/c/scheme48heap.c b/c/scheme48heap.c index 9870e16..642579c 100644 --- a/c/scheme48heap.c +++ b/c/scheme48heap.c @@ -83,14 +83,14 @@ static long copy_weak_pointer(long weak_1X, char * frontier_2X, char * *TT0) char * x_3X; { x_3X = Sweak_pointer_hpS; if ((x_3X == NULL)) { - goto L2423;} + goto L2424;} else { if (((Sweak_pointer_hpS) < (Sweak_pointer_limitS))) { arg0K0 = frontier_2X; - goto L2428;} + goto L2429;} else { - goto L2423;}}} - L2423: { + goto L2424;}}} + L2424: { old_4X = Sweak_pointer_hpS; new_frontier_5X = frontier_2X + 1024; Sweak_pointer_hpS = frontier_2X; @@ -98,8 +98,8 @@ static long copy_weak_pointer(long weak_1X, char * frontier_2X, char * *TT0) *((long *) (Sweak_pointer_hpS)) = 261190; *((long *) ((Sweak_pointer_hpS) + 8)) = (((long) old_4X)); arg0K0 = new_frontier_5X; - goto L2428;} - L2428: { + goto L2429;} + L2429: { frontier_6X = arg0K0; new_7X = 3 + (((long) ((Sweak_pointer_hpS) + 4))); *((long *) ((Sweak_pointer_hpS) + 4)) = (*((long *) (((char *) (-3 + weak_1X))))); @@ -130,14 +130,14 @@ static void clean_weak_pointers(void) end_9X = Sweak_pointer_hpS; arg0K0 = (x_8X + -1024); arg0K1 = end_9X; - goto L3994;}} - L3994: { + goto L3995;}} + L3995: { start_10X = arg0K0; end_11X = arg0K1; next_12X = ((char *) (*((long *) (start_10X + 8)))); arg0K0 = start_10X; - goto L2635;} - L2635: { + goto L2636;} + L2636: { scan_13X = arg0K0; if ((scan_13X < end_11X)) { *((long *) scan_13X) = 1074; @@ -145,23 +145,23 @@ static void clean_weak_pointers(void) if ((3 == (3 & value_14X))) { a_15X = ((char *) (-3 + value_14X)); if ((a_15X < (Sfrom_beginS))) { - goto L2681;} + goto L2682;} else { if ((a_15X < (Sfrom_endS))) { if ((3 == (3 & value_14X))) { h_16X = *((long *) ((((char *) (-3 + value_14X))) + -4)); if ((3 == (3 & h_16X))) { arg1K0 = h_16X; - goto L2676;} + goto L2677;} else { arg1K0 = 1; - goto L2676;}} + goto L2677;}} else { - goto L2681;}} + goto L2682;}} else { - goto L2681;}}} + goto L2682;}}} else { - goto L2681;}} + goto L2682;}} else { if ((next_12X == NULL)) { if ((end_9X < (Sweak_pointer_limitS))) { @@ -172,14 +172,14 @@ static void clean_weak_pointers(void) else { arg0K0 = (next_12X + -1024); arg0K1 = next_12X; - goto L3994;}}} - L2681: { + goto L3995;}}} + L2682: { arg0K0 = (scan_13X + 8); - goto L2635;} - L2676: { + goto L2636;} + L2677: { x2_17X = arg1K0; *((long *) (scan_13X + 4)) = x2_17X; - goto L2681;} + goto L2682;} } static char gc_recordP(long x_18X) { @@ -221,8 +221,8 @@ static void note_undumpableB(long thing_20X) else { list_21X = Sundumpable_recordsS; arg1K0 = list_21X; - goto L6367;}} - L6367: { + goto L6368;}} + L6368: { list_22X = arg1K0; if ((25 == list_22X)) { Sundumpable_countS = (1 + (Sundumpable_countS)); @@ -248,16 +248,16 @@ static void note_undumpableB(long thing_20X) *((long *) (((char *) (-3 + x_30X)))) = thing_20X; *((long *) ((((char *) (-3 + x_30X))) + 4)) = b_28X; Sundumpable_recordsS = x_30X; - goto L6289;} + goto L6290;} else { - goto L6289;}} + goto L6290;}} else { if (((*((long *) (((char *) (-3 + list_22X))))) == thing_20X)) { return;} else { arg1K0 = (*((long *) ((((char *) (-3 + list_22X))) + 4))); - goto L6367;}}} - L6289: { + goto L6368;}}} + L6290: { temp_31X = s48_SlimitS; s48_SlimitS = (Soldspace_limitS); Soldspace_limitS = temp_31X; @@ -491,9 +491,9 @@ long s48_check_image_header(char *filename_61X) SstatusS = NO_ERRORS; SeofPS = 0; if ((SeofPS)) { - goto L2893;} + goto L2894;} else { - goto L3626;}} + goto L3627;}} else { ps_write_string("Can't open heap image file", (stderr)); { long ignoreXX; @@ -502,301 +502,301 @@ long s48_check_image_header(char *filename_61X) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L2893: { + L2894: { if ((SeofPS)) { - goto L2926;} + goto L2927;} else { - goto L3590;}} - L3626: { + goto L3591;}} + L3627: { PS_READ_CHAR(port_62X, ch_64X, eofP_65X, status_66X) if (eofP_65X) { arg2K0 = eofP_65X; arg1K1 = status_66X; - goto L2871;} + goto L2872;} else { if ((status_66X == NO_ERRORS)) { if ((12 == ch_64X)) { arg2K0 = 0; arg1K1 = status_66X; - goto L2871;} + goto L2872;} else { - goto L3626;}} + goto L3627;}} else { arg2K0 = eofP_65X; arg1K1 = status_66X; - goto L2871;}}} - L2926: { + goto L2872;}}} + L2927: { if ((SeofPS)) { arg2K0 = 0; - goto L2959;} + goto L2960;} else { arg1K0 = 0; - goto L3566;}} - L3590: { + goto L3567;}} + L3591: { PS_READ_CHAR(port_62X, ch_67X, eofP_68X, status_69X) if (eofP_68X) { arg2K0 = eofP_68X; arg1K1 = status_69X; - goto L2904;} + goto L2905;} else { if ((status_69X == NO_ERRORS)) { if ((10 == ch_67X)) { arg2K0 = 0; arg1K1 = status_69X; - goto L2904;} + goto L2905;} else { - goto L3590;}} + goto L3591;}} else { arg2K0 = eofP_68X; arg1K1 = status_69X; - goto L2904;}}} - L2871: { + goto L2905;}}} + L2872: { eofP_70X = arg2K0; status_71X = arg1K1; if (eofP_70X) { SeofPS = 1; - goto L2893;} + goto L2894;} else { if (((SstatusS) == NO_ERRORS)) { - goto L2893;} + goto L2894;} else { SeofPS = 1; SstatusS = status_71X; - goto L2893;}}} - L2959: { + goto L2894;}}} + L2960: { same_versionP_72X = arg2K0; if ((SeofPS)) { arg1K0 = -1; - goto L2994;} + goto L2995;} else { PS_READ_INTEGER(port_62X, thing_73X, eofP_74X, status_75X) if (eofP_74X) { SeofPS = 1; arg1K0 = -1; - goto L2994;} + goto L2995;} else { if (((SstatusS) == NO_ERRORS)) { arg1K0 = thing_73X; - goto L2994;} + goto L2995;} else { SeofPS = 1; SstatusS = status_75X; arg1K0 = -1; - goto L2994;}}}} - L3566: { + goto L2995;}}}} + L3567: { i_76X = arg1K0; PS_READ_CHAR(port_62X, ch_77X, eofP_78X, status_79X) if (eofP_78X) { arg2K0 = 0; arg2K1 = eofP_78X; arg1K2 = status_79X; - goto L2937;} + goto L2938;} else { if ((status_79X == NO_ERRORS)) { if ((i_76X == (strlen((char *) "Vanilla 20")))) { arg2K0 = (10 == ch_77X); arg2K1 = 0; arg1K2 = status_79X; - goto L2937;} + goto L2938;} else { if ((ch_77X == (*("Vanilla 20" + i_76X)))) { arg1K0 = (1 + i_76X); - goto L3566;} + goto L3567;} else { arg2K0 = 0; arg2K1 = 0; arg1K2 = status_79X; - goto L2937;}}} + goto L2938;}}} else { arg2K0 = 0; arg2K1 = eofP_78X; arg1K2 = status_79X; - goto L2937;}}} - L2904: { + goto L2938;}}} + L2905: { eofP_80X = arg2K0; status_81X = arg1K1; if (eofP_80X) { SeofPS = 1; - goto L2926;} + goto L2927;} else { if (((SstatusS) == NO_ERRORS)) { - goto L2926;} + goto L2927;} else { SeofPS = 1; SstatusS = status_81X; - goto L2926;}}} - L2994: { + goto L2927;}}} + L2995: { old_bytes_per_cell_82X = arg1K0; if ((SeofPS)) { arg1K0 = -1; - goto L3029;} + goto L3030;} else { PS_READ_INTEGER(port_62X, thing_83X, eofP_84X, status_85X) if (eofP_84X) { SeofPS = 1; arg1K0 = -1; - goto L3029;} + goto L3030;} else { if (((SstatusS) == NO_ERRORS)) { arg1K0 = thing_83X; - goto L3029;} + goto L3030;} else { SeofPS = 1; SstatusS = status_85X; arg1K0 = -1; - goto L3029;}}}} - L2937: { + goto L3030;}}}} + L2938: { thing_86X = arg2K0; eofP_87X = arg2K1; status_88X = arg1K2; if (eofP_87X) { SeofPS = 1; arg2K0 = 0; - goto L2959;} + goto L2960;} else { if (((SstatusS) == NO_ERRORS)) { arg2K0 = thing_86X; - goto L2959;} + goto L2960;} else { SeofPS = 1; SstatusS = status_88X; arg2K0 = 0; - goto L2959;}}} - L3029: { + goto L2960;}}} + L3030: { cells_89X = arg1K0; Sold_beginS = (((char *) (((cells_89X)<<2)))); if ((SeofPS)) { arg1K0 = -1; - goto L3067;} + goto L3068;} else { PS_READ_INTEGER(port_62X, thing_90X, eofP_91X, status_92X) if (eofP_91X) { SeofPS = 1; arg1K0 = -1; - goto L3067;} + goto L3068;} else { if (((SstatusS) == NO_ERRORS)) { arg1K0 = thing_90X; - goto L3067;} + goto L3068;} else { SeofPS = 1; SstatusS = status_92X; arg1K0 = -1; - goto L3067;}}}} - L3067: { + goto L3068;}}}} + L3068: { cells_93X = arg1K0; Sold_hpS = (((char *) (((cells_93X)<<2)))); if ((SeofPS)) { arg1K0 = -1; - goto L3105;} + goto L3106;} else { PS_READ_INTEGER(port_62X, thing_94X, eofP_95X, status_96X) if (eofP_95X) { SeofPS = 1; arg1K0 = -1; - goto L3105;} + goto L3106;} else { if (((SstatusS) == NO_ERRORS)) { arg1K0 = thing_94X; - goto L3105;} + goto L3106;} else { SeofPS = 1; SstatusS = status_96X; arg1K0 = -1; - goto L3105;}}}} - L3105: { + goto L3106;}}}} + L3106: { v_97X = arg1K0; SsymbolsS = v_97X; if ((SeofPS)) { arg1K0 = -1; - goto L3141;} + goto L3142;} else { PS_READ_INTEGER(port_62X, thing_98X, eofP_99X, status_100X) if (eofP_99X) { SeofPS = 1; arg1K0 = -1; - goto L3141;} + goto L3142;} else { if (((SstatusS) == NO_ERRORS)) { arg1K0 = thing_98X; - goto L3141;} + goto L3142;} else { SeofPS = 1; SstatusS = status_100X; arg1K0 = -1; - goto L3141;}}}} - L3141: { + goto L3142;}}}} + L3142: { v_101X = arg1K0; Simported_bindingsS = v_101X; if ((SeofPS)) { arg1K0 = -1; - goto L3177;} + goto L3178;} else { PS_READ_INTEGER(port_62X, thing_102X, eofP_103X, status_104X) if (eofP_103X) { SeofPS = 1; arg1K0 = -1; - goto L3177;} + goto L3178;} else { if (((SstatusS) == NO_ERRORS)) { arg1K0 = thing_102X; - goto L3177;} + goto L3178;} else { SeofPS = 1; SstatusS = status_104X; arg1K0 = -1; - goto L3177;}}}} - L3177: { + goto L3178;}}}} + L3178: { v_105X = arg1K0; Sexported_bindingsS = v_105X; if ((SeofPS)) { arg1K0 = -1; - goto L3213;} + goto L3214;} else { PS_READ_INTEGER(port_62X, thing_106X, eofP_107X, status_108X) if (eofP_107X) { SeofPS = 1; arg1K0 = -1; - goto L3213;} + goto L3214;} else { if (((SstatusS) == NO_ERRORS)) { arg1K0 = thing_106X; - goto L3213;} + goto L3214;} else { SeofPS = 1; SstatusS = status_108X; arg1K0 = -1; - goto L3213;}}}} - L3213: { + goto L3214;}}}} + L3214: { v_109X = arg1K0; Sresumer_recordsS = v_109X; if ((SeofPS)) { arg1K0 = -1; - goto L3249;} + goto L3250;} else { PS_READ_INTEGER(port_62X, thing_110X, eofP_111X, status_112X) if (eofP_111X) { SeofPS = 1; arg1K0 = -1; - goto L3249;} + goto L3250;} else { if (((SstatusS) == NO_ERRORS)) { arg1K0 = thing_110X; - goto L3249;} + goto L3250;} else { SeofPS = 1; SstatusS = status_112X; arg1K0 = -1; - goto L3249;}}}} - L3249: { + goto L3250;}}}} + L3250: { v_113X = arg1K0; Sstartup_procedureS = v_113X; Simage_portS = port_62X; if ((SeofPS)) { - goto L3288;} + goto L3289;} else { - goto L3497;}} - L3288: { + goto L3498;}} + L3289: { if (((SstatusS) == NO_ERRORS)) { if ((SeofPS)) { SstatusS = EDOM; @@ -804,12 +804,12 @@ long s48_check_image_header(char *filename_61X) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L3369;} + goto L3370;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L3369;}} + goto L3370;}} else { if (same_versionP_72X) { if ((4 == old_bytes_per_cell_82X)) { @@ -819,53 +819,53 @@ long s48_check_image_header(char *filename_61X) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L3429;} + goto L3430;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L3429;}}} + goto L3430;}}} else { ps_write_string("Format of image is incompatible with this version of system", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L3399;} + goto L3400;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L3399;}}}} + goto L3400;}}}} else { ps_write_string("Error reading from image file", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L3344;} + goto L3345;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L3344;}}} - L3497: { + goto L3345;}}} + L3498: { PS_READ_CHAR(port_62X, ch_114X, eofP_115X, status_116X) if (eofP_115X) { arg2K0 = eofP_115X; arg1K1 = status_116X; - goto L3266;} + goto L3267;} else { if ((status_116X == NO_ERRORS)) { if ((12 == ch_114X)) { arg2K0 = 0; arg1K1 = status_116X; - goto L3266;} + goto L3267;} else { - goto L3497;}} + goto L3498;}} else { arg2K0 = eofP_115X; arg1K1 = status_116X; - goto L3266;}}} - L3369: { + goto L3267;}}} + L3370: { status_117X = ps_close(port_62X); if ((status_117X == NO_ERRORS)) { return -1;} @@ -874,7 +874,7 @@ long s48_check_image_header(char *filename_61X) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L3429: { + L3430: { status_118X = ps_close(port_62X); if ((status_118X == NO_ERRORS)) { return -1;} @@ -883,7 +883,7 @@ long s48_check_image_header(char *filename_61X) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L3399: { + L3400: { status_119X = ps_close(port_62X); if ((status_119X == NO_ERRORS)) { return -1;} @@ -892,7 +892,7 @@ long s48_check_image_header(char *filename_61X) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L3344: { + L3345: { status_120X = ps_close(port_62X); if ((status_120X == NO_ERRORS)) { return -1;} @@ -901,19 +901,19 @@ long s48_check_image_header(char *filename_61X) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L3266: { + L3267: { eofP_121X = arg2K0; status_122X = arg1K1; if (eofP_121X) { SeofPS = 1; - goto L3288;} + goto L3289;} else { if (((SstatusS) == NO_ERRORS)) { - goto L3288;} + goto L3289;} else { SeofPS = 1; SstatusS = status_122X; - goto L3288;}}} + goto L3289;}}} } long s48_find_all(long type_123X) { @@ -958,12 +958,12 @@ long s48_find_all(long type_123X) sizes_130X = Simpure_sizesS; count_131X = Simpure_area_countS; arg1K0 = 0; - goto L5577;} + goto L5578;} else { - goto L5517;}} + goto L5518;}} else { - goto L5535;}} - L5577: { + goto L5536;}} + L5578: { i_132X = arg1K0; if ((i_132X < count_131X)) { merged_arg0K0 = (*(areas_129X + i_132X)); @@ -974,24 +974,24 @@ long s48_find_all(long type_123X) v_133X = Hproc9231240_return_value; if (v_133X) { arg1K0 = (1 + i_132X); - goto L5577;} + goto L5578;} else { - goto L5535;}} + goto L5536;}} else { - goto L5517;}} - L5517: { + goto L5518;}} + L5518: { if ((0 < (Spure_area_countS))) { areas_134X = Spure_areasS; sizes_135X = Spure_sizesS; count_136X = Spure_area_countS; arg1K0 = 0; - goto L5598;} + goto L5599;} else { - goto L5524;}} - L5535: { + goto L5525;}} + L5536: { s48_ShpS = start_hp_127X; return 1;} - L5598: { + L5599: { i_137X = arg1K0; if ((i_137X < count_136X)) { merged_arg0K0 = (*(areas_134X + i_137X)); @@ -1002,12 +1002,12 @@ long s48_find_all(long type_123X) v_138X = Hproc9231240_return_value; if (v_138X) { arg1K0 = (1 + i_137X); - goto L5598;} + goto L5599;} else { - goto L5535;}} + goto L5536;}} else { - goto L5524;}} - L5524: { + goto L5525;}} + L5525: { *((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8))); return (3 + (((long) (start_hp_127X + 4))));} Hproc923124: { @@ -1015,8 +1015,8 @@ long s48_find_all(long type_123X) end_126X = merged_arg0K1;{ type_139X = Sfinding_typeS; arg0K0 = start_125X; - goto L4503;} - L4503: { + goto L4504;} + L4504: { addr_140X = arg0K0; if ((addr_140X < end_126X)) { d_141X = *((long *) addr_140X); @@ -1027,13 +1027,13 @@ long s48_find_all(long type_123X) *((long *) (s48_ShpS)) = (3 + (((long) (addr_140X + 4)))); s48_ShpS = ((s48_ShpS) + 4); arg0K0 = next_142X; - goto L4503;} + goto L4504;} else { Hproc9231240_return_value = 0; goto Hproc923124_return;}} else { arg0K0 = next_142X; - goto L4503;}} + goto L4504;}} else { ps_write_string("heap is in an inconsistent state.", (stderr)); Hproc9231240_return_value = 0; @@ -1113,29 +1113,29 @@ long s48_read_image(void) if (eofP_145X) { arg2K0 = 0; arg3K1 = "Premature EOF when reading image file"; - goto L6079;} + goto L6080;} else { if ((got_144X < 4)) { arg2K0 = 0; arg3K1 = "Read returned too few bytes"; - goto L6079;} + goto L6080;} else { arg2K0 = 1; arg3K1 = ""; - goto L6079;}}} + goto L6080;}}} else { SstatusS = status_146X; arg2K0 = 0; arg3K1 = "Error reading from image file"; - goto L6079;}} - L6079: { + goto L6080;}} + L6080: { okayP_147X = arg2K0; string_148X = arg3K1; if (okayP_147X) { if ((1 == (*((long *) (s48_ShpS))))) { arg4K0 = port_143X; arg2K1 = 0; - goto L5092;} + goto L5093;} else { addr_149X = s48_ShpS; x_150X = *((unsigned char *) addr_149X); @@ -1147,30 +1147,30 @@ long s48_read_image(void) if ((1 == (*((long *) (s48_ShpS))))) { arg4K0 = port_143X; arg2K1 = 1; - goto L5092;} + goto L5093;} else { ps_write_string("Unable to correct byte order", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L6187;} + goto L6188;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L6187;}}}} + goto L6188;}}}} else { ps_write_string(string_148X, (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L6135;} + goto L6136;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L6135;}}} - L5092: { + goto L6136;}}} + L5093: { port_152X = arg4K0; reverseP_153X = arg2K1; delta_154X = (s48_ShpS) - (Sold_beginS); @@ -1184,33 +1184,33 @@ long s48_read_image(void) if (eofP_160X) { arg2K0 = 0; arg3K1 = "Premature EOF when reading image file"; - goto L5114;} + goto L5115;} else { if ((got_159X < need_158X)) { arg2K0 = 0; arg3K1 = "Read returned too few bytes"; - goto L5114;} + goto L5115;} else { arg2K0 = 1; arg3K1 = ""; - goto L5114;}}} + goto L5115;}}} else { SstatusS = status_161X; arg2K0 = 0; arg3K1 = "Error reading from image file"; - goto L5114;}} + goto L5115;}} else { ps_write_string("Heap not big enough to restore this image", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L5210;} + goto L5211;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L5210;}}} - L6187: { + goto L5211;}}} + L6188: { status_162X = ps_close(port_143X); if ((status_162X == NO_ERRORS)) { return -1;} @@ -1219,7 +1219,7 @@ long s48_read_image(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L6135: { + L6136: { status_163X = ps_close(port_143X); if ((status_163X == NO_ERRORS)) { return -1;} @@ -1228,7 +1228,7 @@ long s48_read_image(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L5114: { + L5115: { okayP_164X = arg2K0; string_165X = arg3K1; PS_READ_CHAR(port_152X, v_166X, eofP_167X, status_168X) @@ -1242,54 +1242,54 @@ long s48_read_image(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = start_157X; - goto L4309;} + goto L4310;} else { - goto L5152;}} + goto L5153;}} else { ps_write_string("Error closing image file", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L5345;} + goto L5346;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L5345;}}} + goto L5346;}}} else { ps_write_string("Image file has extraneous data after image", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L5315;} + goto L5316;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L5315;}}} + goto L5316;}}} else { ps_write_string("Error reading from image file", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L5285;} + goto L5286;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L5285;}}} + goto L5286;}}} else { ps_write_string(string_165X, (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if (((SstatusS) == NO_ERRORS)) { - goto L5255;} + goto L5256;} else { ps_write_string((ps_error_string((SstatusS))), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - goto L5255;}}} - L5210: { + goto L5256;}}} + L5211: { status_170X = ps_close(port_152X); if ((status_170X == NO_ERRORS)) { return -1;} @@ -1298,7 +1298,7 @@ long s48_read_image(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L4309: { + L4310: { ptr_171X = arg0K0; if ((ptr_171X < new_hp_155X)) { x_172X = *((unsigned char *) ptr_171X); @@ -1312,22 +1312,22 @@ long s48_read_image(void) if ((2 == (3 & value_174X))) { if (((31 & (((value_174X)>>2))) < 16)) { arg0K0 = next_175X; - goto L4309;} + goto L4310;} else { arg0K0 = (next_175X + (-4 & (3 + ((long)(((unsigned long)value_174X)>>8))))); - goto L4309;}} + goto L4310;}} else { arg0K0 = next_175X; - goto L4309;}} + goto L4310;}} else { - goto L5152;}} - L5152: { + goto L5153;}} + L5153: { if ((0 == delta_154X)) { - goto L5162;} + goto L5163;} else { arg0K0 = start_157X; - goto L4408;}} - L5345: { + goto L4409;}} + L5346: { status_176X = ps_close(port_152X); if ((status_176X == NO_ERRORS)) { return -1;} @@ -1336,7 +1336,7 @@ long s48_read_image(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L5315: { + L5316: { status_177X = ps_close(port_152X); if ((status_177X == NO_ERRORS)) { return -1;} @@ -1345,7 +1345,7 @@ long s48_read_image(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L5285: { + L5286: { status_178X = ps_close(port_152X); if ((status_178X == NO_ERRORS)) { return -1;} @@ -1354,7 +1354,7 @@ long s48_read_image(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L5255: { + L5256: { status_179X = ps_close(port_152X); if ((status_179X == NO_ERRORS)) { return -1;} @@ -1363,82 +1363,82 @@ long s48_read_image(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } return -1;}} - L5162: { + L5163: { s48_ShpS = new_hp_155X; descriptor_180X = Sstartup_procedureS; if ((3 == (3 & descriptor_180X))) { arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_180X))) + delta_154X)))); - goto L5166;} + goto L5167;} else { arg1K0 = descriptor_180X; - goto L5166;}} - L4408: { + goto L5167;}} + L4409: { ptr_181X = arg0K0; if ((ptr_181X < new_hp_155X)) { descriptor_182X = *((long *) ptr_181X); if ((3 == (3 & descriptor_182X))) { arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_182X))) + delta_154X)))); - goto L4413;} + goto L4414;} else { arg1K0 = descriptor_182X; - goto L4413;}} + goto L4414;}} else { - goto L5162;}} - L5166: { + goto L5163;}} + L5167: { v_183X = arg1K0; Sstartup_procedureS = v_183X; descriptor_184X = SsymbolsS; if ((3 == (3 & descriptor_184X))) { arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_184X))) + delta_154X)))); - goto L5171;} + goto L5172;} else { arg1K0 = descriptor_184X; - goto L5171;}} - L4413: { + goto L5172;}} + L4414: { d_185X = arg1K0; *((long *) ptr_181X) = d_185X; if ((2 == (3 & d_185X))) { if (((31 & (((d_185X)>>2))) < 16)) { - goto L4427;} + goto L4428;} else { arg0K0 = (ptr_181X + (4 + (-4 & (3 + ((long)(((unsigned long)d_185X)>>8)))))); - goto L4408;}} + goto L4409;}} else { - goto L4427;}} - L5171: { + goto L4428;}} + L5172: { v_186X = arg1K0; SsymbolsS = v_186X; descriptor_187X = Simported_bindingsS; if ((3 == (3 & descriptor_187X))) { arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_187X))) + delta_154X)))); - goto L5176;} + goto L5177;} else { arg1K0 = descriptor_187X; - goto L5176;}} - L4427: { + goto L5177;}} + L4428: { arg0K0 = (ptr_181X + 4); - goto L4408;} - L5176: { + goto L4409;} + L5177: { v_188X = arg1K0; Simported_bindingsS = v_188X; descriptor_189X = Sexported_bindingsS; if ((3 == (3 & descriptor_189X))) { arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_189X))) + delta_154X)))); - goto L5181;} + goto L5182;} else { arg1K0 = descriptor_189X; - goto L5181;}} - L5181: { + goto L5182;}} + L5182: { v_190X = arg1K0; Sexported_bindingsS = v_190X; descriptor_191X = Sresumer_recordsS; if ((3 == (3 & descriptor_191X))) { arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_191X))) + delta_154X)))); - goto L5186;} + goto L5187;} else { arg1K0 = descriptor_191X; - goto L5186;}} - L5186: { + goto L5187;}} + L5187: { v_192X = arg1K0; Sresumer_recordsS = v_192X; return 0;} @@ -1488,12 +1488,12 @@ long s48_find_all_records(long record_type_193X) sizes_200X = Simpure_sizesS; count_201X = Simpure_area_countS; arg1K0 = 0; - goto L5742;} + goto L5743;} else { - goto L5682;}} + goto L5683;}} else { - goto L5700;}} - L5742: { + goto L5701;}} + L5743: { i_202X = arg1K0; if ((i_202X < count_201X)) { merged_arg0K0 = (*(areas_199X + i_202X)); @@ -1504,24 +1504,24 @@ long s48_find_all_records(long record_type_193X) v_203X = Hproc9691940_return_value; if (v_203X) { arg1K0 = (1 + i_202X); - goto L5742;} + goto L5743;} else { - goto L5700;}} + goto L5701;}} else { - goto L5682;}} - L5682: { + goto L5683;}} + L5683: { if ((0 < (Spure_area_countS))) { areas_204X = Spure_areasS; sizes_205X = Spure_sizesS; count_206X = Spure_area_countS; arg1K0 = 0; - goto L5763;} + goto L5764;} else { - goto L5689;}} - L5700: { + goto L5690;}} + L5701: { s48_ShpS = start_hp_197X; return 1;} - L5763: { + L5764: { i_207X = arg1K0; if ((i_207X < count_206X)) { merged_arg0K0 = (*(areas_204X + i_207X)); @@ -1532,12 +1532,12 @@ long s48_find_all_records(long record_type_193X) v_208X = Hproc9691940_return_value; if (v_208X) { arg1K0 = (1 + i_207X); - goto L5763;} + goto L5764;} else { - goto L5700;}} + goto L5701;}} else { - goto L5689;}} - L5689: { + goto L5690;}} + L5690: { *((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8))); return (3 + (((long) (start_hp_197X + 4))));} Hproc969194: { @@ -1545,8 +1545,8 @@ long s48_find_all_records(long record_type_193X) end_196X = merged_arg0K1;{ type_209X = Sfinding_typeS; arg0K0 = start_195X; - goto L4670;} - L4670: { + goto L4671;} + L4671: { addr_210X = arg0K0; if ((addr_210X < end_196X)) { d_211X = *((long *) addr_210X); @@ -1559,16 +1559,16 @@ long s48_find_all_records(long record_type_193X) *((long *) (s48_ShpS)) = obj_213X; s48_ShpS = ((s48_ShpS) + 4); arg0K0 = next_212X; - goto L4670;} + goto L4671;} else { Hproc9691940_return_value = 0; goto Hproc969194_return;}} else { arg0K0 = next_212X; - goto L4670;}} + goto L4671;}} else { arg0K0 = next_212X; - goto L4670;}} + goto L4671;}} else { ps_write_string("heap is in an inconsistent state.", (stderr)); Hproc9691940_return_value = 0; @@ -1608,8 +1608,8 @@ long s48_trace_locationsB(char * start_214X, char * end_215X) char * addr_216X; { arg0K0 = start_214X; arg0K1 = (s48_ShpS); - goto L6441;} - L6441: { + goto L6442;} + L6442: { addr_216X = arg0K0; frontier_217X = arg0K1; if ((addr_216X < end_215X)) { @@ -1620,15 +1620,15 @@ long s48_trace_locationsB(char * start_214X, char * end_215X) if (((31 & (((thing_218X)>>2))) < 16)) { arg0K0 = next_219X; arg0K1 = frontier_217X; - goto L6441;} + goto L6442;} else { arg0K0 = (next_219X + (-4 & (3 + ((long)(((unsigned long)thing_218X)>>8))))); arg0K1 = frontier_217X; - goto L6441;}} + goto L6442;}} else { arg0K0 = next_219X; arg0K1 = frontier_217X; - goto L6441;}} + goto L6442;}} else { if ((Swriting_imagePS)) { v_220X = gc_recordP(thing_218X); @@ -1641,67 +1641,67 @@ long s48_trace_locationsB(char * start_214X, char * end_215X) *((long *) addr_216X) = (*((long *) ((((char *) (-3 + thing_218X))) + 4))); arg0K0 = addr_216X; arg0K1 = frontier_217X; - goto L6441;} + goto L6442;} else { - goto L6475;}} + goto L6476;}} else { - goto L6475;}} + goto L6476;}} else { - goto L6475;}} + goto L6476;}} else { - goto L6475;}}} + goto L6476;}}} else { s48_ShpS = frontier_217X; return 0;}} - L6475: { + L6476: { if ((3 == (3 & thing_218X))) { a_223X = ((char *) (-3 + thing_218X)); if ((a_223X < (Sfrom_beginS))) { arg0K0 = next_219X; arg0K1 = frontier_217X; - goto L6441;} + goto L6442;} else { if ((a_223X < (Sfrom_endS))) { h_224X = *((long *) ((((char *) (-3 + thing_218X))) + -4)); if ((3 == (3 & h_224X))) { arg1K0 = h_224X; arg0K1 = frontier_217X; - goto L6482;} + goto L6483;} else { if ((1074 == h_224X)) { descriptor_225X = *((long *) (((char *) (-3 + thing_218X)))); if ((3 == (3 & descriptor_225X))) { a_226X = ((char *) (-3 + descriptor_225X)); if ((a_226X < (Sfrom_beginS))) { - goto L7062;} + goto L7063;} else { if ((a_226X < (Sfrom_endS))) { new_thing_227X = copy_weak_pointer(thing_218X, frontier_217X, &frontier_228X); arg1K0 = new_thing_227X; arg0K1 = frontier_228X; - goto L6482;} + goto L6483;} else { - goto L7062;}}} + goto L7063;}}} else { - goto L7062;}} + goto L7063;}} else { - goto L7062;}}} + goto L7063;}}} else { arg0K0 = next_219X; arg0K1 = frontier_217X; - goto L6441;}}} + goto L6442;}}} else { arg0K0 = next_219X; arg0K1 = frontier_217X; - goto L6441;}} - L6482: { + goto L6442;}} + L6483: { new_thing_229X = arg1K0; frontier_230X = arg0K1; *((long *) addr_216X) = new_thing_229X; arg0K0 = next_219X; arg0K1 = frontier_230X; - goto L6441;} - L7062: { + goto L6442;} + L7063: { *((long *) frontier_217X) = h_224X; data_addr_231X = frontier_217X + 4; new_232X = 3 + (((long) data_addr_231X)); @@ -1709,7 +1709,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X) memcpy((void *)data_addr_231X, (void *)(((char *) (-3 + thing_218X))),((long)(((unsigned long)h_224X)>>8))); arg1K0 = new_232X; arg0K1 = (data_addr_231X + (-4 & (3 + ((long)(((unsigned long)h_224X)>>8))))); - goto L6482;} + goto L6483;} } void s48_do_gc(void) { @@ -1717,8 +1717,8 @@ void s48_do_gc(void) char * end_234X; char * start_233X; { arg0K0 = (Snewspace_beginS); - goto L6697;} - L6697: { + goto L6698;} + L6698: { start_233X = arg0K0; end_234X = s48_ShpS; s48_trace_locationsB(start_233X, end_234X); @@ -1728,7 +1728,7 @@ void s48_do_gc(void) else { if ((end_234X < (s48_ShpS))) { arg0K0 = end_234X; - goto L6697;} + goto L6698;} else { return clean_weak_pointers();}}} } @@ -1773,15 +1773,15 @@ void s48_begin_collection(void) sizes_243X = Simpure_sizesS; count_244X = Simpure_area_countS; arg1K0 = 0; - goto L6812;} + goto L6813;} else { return;}} - L6812: { + L6813: { i_245X = arg1K0; if ((i_245X < count_244X)) { s48_trace_locationsB((*(areas_242X + i_245X)), ((*(areas_242X + i_245X)) + (*(sizes_243X + i_245X)))); arg1K0 = (1 + i_245X); - goto L6812;} + goto L6813;} else { return;}} } @@ -1805,8 +1805,8 @@ long s48_trace_value(long stob_246X) char v_248X; long stob_247X; { arg1K0 = stob_247X; - goto L7253;} - L7253: { + goto L7254;} + L7254: { stob_247X = arg1K0; if ((Swriting_imagePS)) { v_248X = gc_recordP(stob_246X); @@ -1817,16 +1817,16 @@ long s48_trace_value(long stob_246X) if ((1 == (*((long *) ((((char *) (-3 + type_249X))) + 4))))) { note_undumpableB(stob_246X); arg1K0 = (*((long *) ((((char *) (-3 + stob_246X))) + 4))); - goto L7253;} + goto L7254;} else { - goto L6840;}} + goto L6841;}} else { - goto L6840;}} + goto L6841;}} else { - goto L6840;}} + goto L6841;}} else { - goto L6840;}} - L6840: { + goto L6841;}} + L6841: { if ((3 == (3 & stob_246X))) { a_251X = ((char *) (-3 + stob_246X)); if ((a_251X < (Sfrom_beginS))) { @@ -1838,36 +1838,36 @@ long s48_trace_value(long stob_246X) if ((3 == (3 & h_253X))) { arg1K0 = h_253X; arg0K1 = frontier_252X; - goto L6862;} + goto L6863;} else { if ((1074 == h_253X)) { descriptor_254X = *((long *) (((char *) (-3 + stob_246X)))); if ((3 == (3 & descriptor_254X))) { a_255X = ((char *) (-3 + descriptor_254X)); if ((a_255X < (Sfrom_beginS))) { - goto L4193;} + goto L4194;} else { if ((a_255X < (Sfrom_endS))) { new_thing_256X = copy_weak_pointer(stob_246X, frontier_252X, &new_hp_257X); arg1K0 = new_thing_256X; arg0K1 = new_hp_257X; - goto L6862;} + goto L6863;} else { - goto L4193;}}} + goto L4194;}}} else { - goto L4193;}} + goto L4194;}} else { - goto L4193;}}} + goto L4194;}}} else { return stob_246X;}}} else { return stob_246X;}} - L6862: { + L6863: { new_thing_258X = arg1K0; new_hp_259X = arg0K1; s48_ShpS = new_hp_259X; return new_thing_258X;} - L4193: { + L4194: { *((long *) frontier_252X) = h_253X; data_addr_260X = frontier_252X + 4; new_261X = 3 + (((long) data_addr_260X)); @@ -1875,7 +1875,7 @@ long s48_trace_value(long stob_246X) memcpy((void *)data_addr_260X, (void *)(((char *) (-3 + stob_246X))),((long)(((unsigned long)h_253X)>>8))); arg1K0 = new_261X; arg0K1 = (data_addr_260X + (-4 & (3 + ((long)(((unsigned long)h_253X)>>8))))); - goto L6862;} + goto L6863;} } long s48_write_image(long resume_proc_262X, FILE * port_263X) { @@ -1966,23 +1966,23 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) exported_bindings_272X = s48_trace_value(v_271X); resume_proc_273X = s48_trace_value(resume_proc_262X); arg0K0 = (Snewspace_beginS); - goto L6983;} - L6983: { + goto L6984;} + L6984: { start_274X = arg0K0; end_275X = s48_ShpS; s48_trace_locationsB(start_274X, end_275X); if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) { ps_error("GC error: ran out of space in new heap", 0); clean_weak_pointers(); - goto L6952;} + goto L6953;} else { if ((end_275X < (s48_ShpS))) { arg0K0 = end_275X; - goto L6983;} + goto L6984;} else { clean_weak_pointers(); - goto L6952;}}} - L6952: { + goto L6953;}}} + L6953: { s48_mark_traced_channels_closedB(); symbols_276X = s48_copy_symbol_table(); Sfinding_typeS = 8; @@ -2001,12 +2001,12 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) sizes_280X = Simpure_sizesS; count_281X = Simpure_area_countS; arg1K0 = 0; - goto L5907;} + goto L5908;} else { - goto L5847;}} + goto L5848;}} else { - goto L5865;}} - L5907: { + goto L5866;}} + L5908: { i_282X = arg1K0; if ((i_282X < count_281X)) { merged_arg0K0 = (*(areas_279X + i_282X)); @@ -2017,25 +2017,25 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) v_283X = Hproc9672640_return_value; if (v_283X) { arg1K0 = (1 + i_282X); - goto L5907;} + goto L5908;} else { - goto L5865;}} + goto L5866;}} else { - goto L5847;}} - L5847: { + goto L5848;}} + L5848: { if ((0 < (Spure_area_countS))) { areas_284X = Spure_areasS; sizes_285X = Spure_sizesS; count_286X = Spure_area_countS; arg1K0 = 0; - goto L5928;} + goto L5929;} else { - goto L5854;}} - L5865: { + goto L5855;}} + L5866: { s48_ShpS = start_hp_277X; arg1K0 = 1; - goto L7002;} - L5928: { + goto L7003;} + L5929: { i_287X = arg1K0; if ((i_287X < count_286X)) { merged_arg0K0 = (*(areas_284X + i_287X)); @@ -2046,16 +2046,16 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) v_288X = Hproc9672640_return_value; if (v_288X) { arg1K0 = (1 + i_287X); - goto L5928;} + goto L5929;} else { - goto L5865;}} + goto L5866;}} else { - goto L5854;}} - L5854: { + goto L5855;}} + L5855: { *((long *) start_hp_277X) = (10 + (((((s48_ShpS) - (start_hp_277X + 4)))<<8))); arg1K0 = (3 + (((long) (start_hp_277X + 4)))); - goto L7002;} - L7002: { + goto L7003;} + L7003: { resumer_records_289X = arg1K0; imported_bindings_290X = s48_cleaned_imported_bindings(); if ((1 == resumer_records_289X)) { @@ -2068,163 +2068,163 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_291X) SstatusS = v_291X; - goto L2019;} + goto L2020;} else { - goto L2019;}}} - L2019: { + goto L2020;}}} + L2020: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(12, port_263X, v_292X) SstatusS = v_292X; - goto L2028;} + goto L2029;} else { - goto L2028;}} - L2028: { + goto L2029;}} + L2029: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_293X) SstatusS = v_293X; - goto L2037;} + goto L2038;} else { - goto L2037;}} - L2037: { + goto L2038;}} + L2038: { if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_string("Vanilla 20", port_263X)); - goto L2044;} + goto L2045;} else { - goto L2044;}} - L2044: { + goto L2045;}} + L2045: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_294X) SstatusS = v_294X; - goto L2053;} + goto L2054;} else { - goto L2053;}} - L2053: { + goto L2054;}} + L2054: { if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_integer(4, port_263X)); - goto L2123;} + goto L2124;} else { - goto L2123;}} - L2123: { + goto L2124;}} + L2124: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_295X) SstatusS = v_295X; - goto L2055;} + goto L2056;} else { - goto L2055;}} - L2055: { + goto L2056;}} + L2056: { v_296X = Snewspace_beginS; if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_integer(((((((long) v_296X)))>>2)), port_263X)); - goto L2143;} + goto L2144;} else { - goto L2143;}} - L2143: { + goto L2144;}} + L2144: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_297X) SstatusS = v_297X; - goto L2061;} + goto L2062;} else { - goto L2061;}} - L2061: { + goto L2062;}} + L2062: { v_298X = s48_ShpS; if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_integer(((((((long) v_298X)))>>2)), port_263X)); - goto L2163;} + goto L2164;} else { - goto L2163;}} - L2163: { + goto L2164;}} + L2164: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_299X) SstatusS = v_299X; - goto L2067;} + goto L2068;} else { - goto L2067;}} - L2067: { + goto L2068;}} + L2068: { if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_integer(symbols_276X, port_263X)); - goto L2178;} + goto L2179;} else { - goto L2178;}} - L2178: { + goto L2179;}} + L2179: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_300X) SstatusS = v_300X; - goto L2069;} + goto L2070;} else { - goto L2069;}} - L2069: { + goto L2070;}} + L2070: { if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_integer(imported_bindings_290X, port_263X)); - goto L2193;} + goto L2194;} else { - goto L2193;}} - L2193: { + goto L2194;}} + L2194: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_301X) SstatusS = v_301X; - goto L2071;} + goto L2072;} else { - goto L2071;}} - L2071: { + goto L2072;}} + L2072: { if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_integer(exported_bindings_272X, port_263X)); - goto L2208;} + goto L2209;} else { - goto L2208;}} - L2208: { + goto L2209;}} + L2209: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_302X) SstatusS = v_302X; - goto L2073;} + goto L2074;} else { - goto L2073;}} - L2073: { + goto L2074;}} + L2074: { if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_integer(resumer_records_289X, port_263X)); - goto L2223;} + goto L2224;} else { - goto L2223;}} - L2223: { + goto L2224;}} + L2224: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_303X) SstatusS = v_303X; - goto L2075;} + goto L2076;} else { - goto L2075;}} - L2075: { + goto L2076;}} + L2076: { if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_integer(resume_proc_273X, port_263X)); - goto L2238;} + goto L2239;} else { - goto L2238;}} - L2238: { + goto L2239;}} + L2239: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(10, port_263X, v_304X) SstatusS = v_304X; - goto L2077;} + goto L2078;} else { - goto L2077;}} - L2077: { + goto L2078;}} + L2078: { if (((SstatusS) == NO_ERRORS)) { PS_WRITE_CHAR(12, port_263X, v_305X) SstatusS = v_305X; - goto L2086;} + goto L2087;} else { - goto L2086;}} - L2086: { + goto L2087;}} + L2087: { *((long *) (s48_ShpS)) = 1; if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_block(port_263X, ((char *) (s48_ShpS)), (((s48_ShpS) + 4) - (s48_ShpS)))); - goto L2105;} + goto L2106;} else { - goto L2105;}} - L2105: { + goto L2106;}} + L2106: { if (((SstatusS) == NO_ERRORS)) { SstatusS = (ps_write_block(port_263X, ((char *) (Snewspace_beginS)), ((s48_ShpS) - (Snewspace_beginS)))); - goto L2118;} + goto L2119;} else { - goto L2118;}} - L2118: { + goto L2119;}} + L2119: { status_306X = SstatusS; abort_collection_return_tag = 1; goto abort_collection; @@ -2235,8 +2235,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) end_266X = merged_arg0K1;{ type_307X = Sfinding_typeS; arg0K0 = start_265X; - goto L4852;} - L4852: { + goto L4853;} + L4853: { addr_308X = arg0K0; if ((addr_308X < end_266X)) { d_309X = *((long *) addr_308X); @@ -2252,22 +2252,22 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) *((long *) (s48_ShpS)) = obj_311X; s48_ShpS = ((s48_ShpS) + 4); arg0K0 = next_310X; - goto L4852;} + goto L4853;} else { Hproc9672640_return_value = 0; goto Hproc967264_return;}} else { arg0K0 = next_310X; - goto L4852;}} + goto L4853;}} else { arg0K0 = next_310X; - goto L4852;}} + goto L4853;}} else { arg0K0 = next_310X; - goto L4852;}} + goto L4853;}} else { arg0K0 = next_310X; - goto L4852;}} + goto L4853;}} else { ps_write_string("heap is in an inconsistent state.", (stderr)); Hproc9672640_return_value = 0; @@ -2296,25 +2296,25 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) Snewspace_endS = (Soldspace_endS); Soldspace_endS = temp_316X; arg0K0 = (Snewspace_beginS); - goto L4085;} - L4085: { + goto L4086;} + L4086: { addr_317X = arg0K0; if ((addr_317X < (s48_ShpS))) { d_318X = *((long *) addr_317X); if ((2 == (3 & d_318X))) { arg1K0 = d_318X; - goto L4106;} + goto L4107;} else { h_319X = *((long *) ((((char *) (-3 + d_318X))) + -4)); *((long *) addr_317X) = h_319X; arg1K0 = h_319X; - goto L4106;}} + goto L4107;}} else { goto abort_collection_return;}} - L4106: { + L4107: { h_320X = arg1K0; arg0K0 = (addr_317X + (4 + (-4 & (3 + ((long)(((unsigned long)h_320X)>>8)))))); - goto L4085;} + goto L4086;} abort_collection_return: switch (abort_collection_return_tag) { case 0: goto abort_collection_return_0; diff --git a/c/scheme48vm.c b/c/scheme48vm.c index bf7c338..9710d3b 100644 --- a/c/scheme48vm.c +++ b/c/scheme48vm.c @@ -103,28 +103,28 @@ static char add_more_channels(long index_5X) y_7X = 8 + (Snumber_of_channelsS); if ((x_6X < y_7X)) { arg0K0 = y_7X; - goto L2366;} + goto L2367;} else { arg0K0 = x_6X; - goto L2366;}} - L2366: { + goto L2367;}} + L2367: { new_count_8X = arg0K0; new_vm_channels_9X = (long*)malloc(sizeof(long) * new_count_8X); if ((NULL == new_vm_channels_9X)) { return 0;} else { arg0K0 = 0; - goto L2378;}} - L2378: { + goto L2379;}} + L2379: { i_10X = arg0K0; if ((i_10X == (Snumber_of_channelsS))) { arg0K0 = (Snumber_of_channelsS); - goto L2393;} + goto L2394;} else { *(new_vm_channels_9X + i_10X) = (*((Svm_channelsS) + i_10X)); arg0K0 = (1 + i_10X); - goto L2378;}} - L2393: { + goto L2379;}} + L2394: { i_11X = arg0K0; if ((i_11X == new_count_8X)) { free((Svm_channelsS)); @@ -134,7 +134,7 @@ static char add_more_channels(long index_5X) else { *(new_vm_channels_9X + i_11X) = 1; arg0K0 = (1 + i_11X); - goto L2393;}} + goto L2394;}} } static void enqueue_channelB(long index_12X, long status_13X) { @@ -179,25 +179,25 @@ static long close_channelB(long channel_19X) if ((5 == x_21X)) { v_22X = ps_abort_fd_op(os_index_20X); enqueue_channelB(os_index_20X, v_22X); - goto L7996;} + goto L7997;} else { - goto L7996;}} - L7996: { + goto L7997;}} + L7997: { v_23X = *((long *) (((char *) (-3 + channel_19X)))); if ((4 == v_23X)) { - goto L8011;} + goto L8012;} else { if ((12 == (*((long *) (((char *) (-3 + channel_19X))))))) { - goto L8011;} + goto L8012;} else { v_24X = ps_close_fd(os_index_20X); arg0K0 = v_24X; - goto L8018;}}} - L8011: { + goto L8019;}}} + L8012: { v_25X = ps_close_fd(os_index_20X); arg0K0 = v_25X; - goto L8018;} - L8018: { + goto L8019;} + L8019: { status_26X = arg0K0; *((Svm_channelsS) + os_index_20X) = 1; addr_27X = ((char *) (-3 + channel_19X)); @@ -237,13 +237,13 @@ static long enter_string(char *string_33X, long key_34X) string_38X = 3 + (((long) (addr_37X + 4))); *((unsigned char *) ((((char *) (-3 + string_38X))) + z_35X)) = 0; arg0K0 = 0; - goto L9526;} - L9526: { + goto L9527;} + L9527: { i_39X = arg0K0; if ((i_39X < z_35X)) { *((unsigned char *) ((((char *) (-3 + string_38X))) + i_39X)) = ((*(string_33X + i_39X))); arg0K0 = (1 + i_39X); - goto L9526;} + goto L9527;} else { return string_38X;}} } @@ -264,8 +264,8 @@ static char HcleanerB2160(long table_40X) long table_41X; { table_41X = s48_trace_value(table_40X); arg0K0 = 0; - goto L9716;} - L9716: { + goto L9717;} + L9717: { i_42X = arg0K0; temp_43X = 1024 == i_42X; if (temp_43X) { @@ -274,8 +274,8 @@ static char HcleanerB2160(long table_40X) foo_44X = *((long *) ((((char *) (-3 + table_41X))) + (((i_42X)<<2)))); arg0K0 = foo_44X; arg0K1 = 1; - goto L9736;}} - L9736: { + goto L9737;}} + L9737: { foo_45X = arg0K0; okay_46X = arg0K1; if ((1 == foo_45X)) { @@ -283,7 +283,7 @@ static char HcleanerB2160(long table_40X) S48_WRITE_BARRIER(table_41X, addr_47X, okay_46X); *((long *) addr_47X) = okay_46X; arg0K0 = (1 + i_42X); - goto L9716;} + goto L9717;} else { v_48X = s48_extantP(foo_45X); if (v_48X) { @@ -292,15 +292,15 @@ static char HcleanerB2160(long table_40X) S48_WRITE_BARRIER(new_foo_49X, addr_50X, okay_46X); *((long *) addr_50X) = okay_46X; arg0K0 = new_foo_49X; - goto L9741;} + goto L9742;} else { arg0K0 = okay_46X; - goto L9741;}}} - L9741: { + goto L9742;}}} + L9742: { v_51X = arg0K0; arg0K0 = (*((long *) ((((char *) (-3 + foo_45X))) + 4))); arg0K1 = v_51X; - goto L9736;} + goto L9737;} } static void push_exception_continuationB(long exception_52X, long instruction_size_53X) { @@ -326,22 +326,22 @@ static void push_exception_continuationB(long exception_52X, long instruction_si Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_55X)))))))); arg1K0 = ((SstackS) + 4); arg0K1 = 0; - goto L9949;} - L9949: { + goto L9950;} + L9950: { p_56X = arg1K0; i_57X = arg0K1; if ((2 == (3 & (*((long *) p_56X))))) { if ((22 == (*((long *) p_56X)))) { arg0K0 = (-1 + i_57X); - goto L9890;} + goto L9891;} else { arg0K0 = i_57X; - goto L9890;}} + goto L9891;}} else { arg1K0 = (p_56X + 4); arg0K1 = (1 + i_57X); - goto L9949;}} - L9890: { + goto L9950;}} + L9891: { v_58X = arg0K0; push_continuationB((Scode_pointerS), v_58X); *((long *) (SstackS)) = (((opcode_54X)<<2)); @@ -358,15 +358,15 @@ static long make_registered_channel(long mode_59X, long id_60X, long os_index_61 char temp_63X; { temp_63X = os_index_61X < (Snumber_of_channelsS); if (temp_63X) { - goto L10816;} + goto L10817;} else { x_64X = add_more_channels(os_index_61X); if (x_64X) { - goto L10816;} + goto L10817;} else { *TT0 = 9; return 1;}}} - L10816: { + L10817: { if ((1 == (*((Svm_channelsS) + os_index_61X)))) { addr_65X = ALLOCATE_SPACE(5, 24); *((long *) addr_65X) = 5142; @@ -394,17 +394,17 @@ static long channel_close_error(long status_67X, long index_68X, long id_69X) if ((3 == (3 & id_69X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + id_69X))) + -4))))>>2))))) { ps_write_string((((char *)(((char *) (-3 + id_69X))))), (stderr)); - goto L11462;} + goto L11463;} else { - goto L11456;}} + goto L11457;}} else { - goto L11456;}} - L11462: { + goto L11457;}} + L11463: { PS_WRITE_CHAR(10, (stderr), v_70X) return v_70X;} - L11456: { + L11457: { ps_write_integer((((index_68X)>>2)), (stderr)); - goto L11462;} + goto L11463;} } static void HtopD8861(void) { @@ -455,17 +455,17 @@ static void HtopD8861(void) long length_72X; char * frame_71X; { arg1K0 = (Sexternal_root_stackS); - goto L6255;} - L6255: { + goto L6256;} + L6256: { frame_71X = arg1K0; if ((frame_71X == NULL)) { arg1K0 = (Spermanent_external_rootsS); - goto L6281;} + goto L6282;} else { length_72X = *((long *) frame_71X); arg0K0 = 0; - goto L6263;}} - L6281: { + goto L6264;}} + L6282: { frame_73X = arg1K0; if ((frame_73X == NULL)) { s48_initializing_gc_root(); @@ -499,25 +499,25 @@ static void HtopD8861(void) v_87X = s48_trace_value((Sos_signal_argumentS)); Sos_signal_argumentS = v_87X; arg0K0 = (Sfinalizer_alistS); - goto L5289;} + goto L5290;} else { cell_88X = ((char *) (*((long *) (frame_73X + 4)))); x2_89X = s48_trace_value((*((long *) cell_88X))); *((long *) cell_88X) = x2_89X; arg1K0 = (((char *) (*((long *) frame_73X)))); - goto L6281;}} - L6263: { + goto L6282;}} + L6264: { i_90X = arg0K0; if ((i_90X == length_72X)) { arg1K0 = (((char *) (*((long *) (frame_71X + 4))))); - goto L6255;} + goto L6256;} else { cell_91X = ((char *) (*((long *) (frame_71X + (8 + (((i_90X)<<2))))))); x2_92X = s48_trace_value((*((long *) cell_91X))); *((long *) cell_91X) = x2_92X; arg0K0 = (1 + i_90X); - goto L6263;}} - L5289: { + goto L6264;}} + L5290: { alist_93X = arg0K0; if ((25 == alist_93X)) { env_94X = s48_trace_value((SenvS)); @@ -528,22 +528,22 @@ static void HtopD8861(void) Spending_channels_tailS = v_96X; if ((Sstack_warningPS)) { arg1K0 = (Sstack_beginS); - goto L5883;} + goto L5884;} else { - goto L5916;}} + goto L5917;}} else { pair_97X = *((long *) (((char *) (-3 + alist_93X)))); x_98X = s48_extantP((*((long *) (((char *) (-3 + pair_97X)))))); if (x_98X) { - goto L5314;} + goto L5315;} else { s48_trace_stob_contentsB((*((long *) (((char *) (-3 + pair_97X)))))); - goto L5314;}}} - L5883: { + goto L5315;}}} + L5884: { a_99X = arg1K0; if ((252645135 == (*((long *) a_99X)))) { arg1K0 = (a_99X + 4); - goto L5883;} + goto L5884;} else { unused_100X = (((a_99X - (Sstack_beginS)))>>2); if ((unused_100X < 30)) { @@ -555,103 +555,103 @@ static void HtopD8861(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } Sstack_warningPS = 0; - goto L5916;} + goto L5917;} else { - goto L5916;}}} - L5916: { + goto L5917;}}} + L5917: { arg1K0 = ((SstackS) + 4); arg0K1 = 0; - goto L5981;} - L5314: { + goto L5982;} + L5315: { val_101X = s48_trace_value((*((long *) ((((char *) (-3 + pair_97X))) + 4)))); addr_102X = (((char *) (-3 + pair_97X))) + 4; S48_WRITE_BARRIER(pair_97X, addr_102X, val_101X); *((long *) addr_102X) = val_101X; arg0K0 = (*((long *) ((((char *) (-3 + alist_93X))) + 4))); - goto L5289;} - L5981: { + goto L5290;} + L5982: { p_103X = arg1K0; i_104X = arg0K1; if ((2 == (3 & (*((long *) p_103X))))) { if ((22 == (*((long *) p_103X)))) { arg0K0 = (-1 + i_104X); - goto L5918;} + goto L5919;} else { arg0K0 = i_104X; - goto L5918;}} + goto L5919;}} else { arg1K0 = (p_103X + 4); arg0K1 = (1 + i_104X); - goto L5981;}} - L5918: { + goto L5982;}} + L5919: { arg_count_105X = arg0K0; s48_trace_locationsB(((SstackS) + 4), ((SstackS) + (4 + (((arg_count_105X)<<2))))); p_106X = SenvS; if ((3 == (3 & p_106X))) { if ((p_106X < (((long) (Sstack_beginS))))) { - goto L5934;} + goto L5935;} else { if (((((long) (Sstack_endS))) < p_106X)) { - goto L5934;} + goto L5935;} else { env_107X = SenvS; arg0K0 = env_107X; - goto L6094;}}} + goto L6095;}}} else { - goto L5934;}} - L5934: { + goto L5935;}} + L5935: { v_108X = s48_trace_value((SenvS)); SenvS = v_108X; - goto L5939;} - L6094: { + goto L5940;} + L6095: { env_109X = arg0K0; if ((3 == (3 & env_109X))) { if ((env_109X < (((long) (Sstack_beginS))))) { - goto L5939;} + goto L5940;} else { if (((((long) (Sstack_endS))) < env_109X)) { - goto L5939;} + goto L5940;} else { s48_trace_stob_contentsB(env_109X); arg0K0 = (*((long *) (((char *) (-3 + env_109X))))); - goto L6094;}}} + goto L6095;}}} else { - goto L5939;}} - L5939: { + goto L5940;}} + L5940: { arg0K0 = (ScontS); arg0K1 = 0; - goto L5944;} - L5944: { + goto L5945;} + L5945: { cont_110X = arg0K0; last_env_111X = arg0K1; env_112X = *((long *) ((((char *) (-3 + cont_110X))) + 12)); s48_trace_stob_contentsB(cont_110X); if ((env_112X == last_env_111X)) { - goto L5962;} + goto L5963;} else { arg0K0 = env_112X; - goto L6049;}} - L5962: { + goto L6050;}} + L5963: { if ((cont_110X == (Sbottom_of_stackS))) { return;} else { arg0K0 = (*((long *) (((char *) (-3 + cont_110X))))); arg0K1 = env_112X; - goto L5944;}} - L6049: { + goto L5945;}} + L6050: { env_113X = arg0K0; if ((3 == (3 & env_113X))) { if ((env_113X < (((long) (Sstack_beginS))))) { - goto L5962;} + goto L5963;} else { if (((((long) (Sstack_endS))) < env_113X)) { - goto L5962;} + goto L5963;} else { s48_trace_stob_contentsB(env_113X); arg0K0 = (*((long *) (((char *) (-3 + env_113X))))); - goto L6049;}}} + goto L6050;}}} else { - goto L5962;}} + goto L5963;}} } static long Hlookup2102(long table_114X, long string_115X, long key_116X) { @@ -671,20 +671,20 @@ static long Hlookup2102(long table_114X, long string_115X, long key_116X) { n_117X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_115X))) + -4))))>>8)); arg0K0 = 0; arg0K1 = 0; - goto L13083;} - L13083: { + goto L13084;} + L13084: { i_118X = arg0K0; h_119X = arg0K1; if ((i_118X < n_117X)) { arg0K0 = (1 + i_118X); arg0K1 = (h_119X + (((*((unsigned char *) ((((char *) (-3 + string_115X))) + i_118X)))))); - goto L13083;} + goto L13084;} else { index_120X = 1023 & h_119X; bucket_121X = *((long *) ((((char *) (-3 + table_114X))) + (((index_120X)<<2)))); arg0K0 = bucket_121X; - goto L13051;}} - L13051: { + goto L13052;}} + L13052: { foo_122X = arg0K0; if ((1 == foo_122X)) { addr_123X = ALLOCATE_SPACE(13, 20); @@ -705,12 +705,12 @@ static long Hlookup2102(long table_114X, long string_115X, long key_116X) if (((!memcmp((void *)(((char *) (-3 + s2_126X))), (void *)(((char *) (-3 + string_115X))),len_127X)))) { return foo_122X;} else { - goto L13067;}} + goto L13068;}} else { - goto L13067;}}} - L13067: { + goto L13068;}}} + L13068: { arg0K0 = (*((long *) ((((char *) (-3 + foo_122X))) + 12))); - goto L13051;} + goto L13052;} } static long Hlookup2083(long table_128X, long string_129X, long key_130X) { @@ -730,20 +730,20 @@ static long Hlookup2083(long table_128X, long string_129X, long key_130X) { n_131X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_129X))) + -4))))>>8)); arg0K0 = 0; arg0K1 = 0; - goto L13208;} - L13208: { + goto L13209;} + L13209: { i_132X = arg0K0; h_133X = arg0K1; if ((i_132X < n_131X)) { arg0K0 = (1 + i_132X); arg0K1 = (h_133X + (((*((unsigned char *) ((((char *) (-3 + string_129X))) + i_132X)))))); - goto L13208;} + goto L13209;} else { index_134X = 1023 & h_133X; bucket_135X = *((long *) ((((char *) (-3 + table_128X))) + (((index_134X)<<2)))); arg0K0 = bucket_135X; - goto L13176;}} - L13176: { + goto L13177;}} + L13177: { foo_136X = arg0K0; if ((1 == foo_136X)) { addr_137X = ALLOCATE_SPACE(13, 20); @@ -764,12 +764,12 @@ static long Hlookup2083(long table_128X, long string_129X, long key_130X) if (((!memcmp((void *)(((char *) (-3 + s2_140X))), (void *)(((char *) (-3 + string_129X))),len_141X)))) { return foo_136X;} else { - goto L13192;}} + goto L13193;}} else { - goto L13192;}}} - L13192: { + goto L13193;}}} + L13193: { arg0K0 = (*((long *) ((((char *) (-3 + foo_136X))) + 12))); - goto L13176;} + goto L13177;} } static void HtopD8854(void) { @@ -813,8 +813,8 @@ static void HtopD8854(void) arg0K0 = (Sfinalizer_alistS); arg0K1 = 25; arg0K2 = 25; - goto L7722;} - L7722: { + goto L7723;} + L7723: { alist_145X = arg0K0; okay_146X = arg0K1; goners_147X = arg0K2; @@ -823,10 +823,10 @@ static void HtopD8854(void) l2_148X = Sfinalize_theseS; if ((25 == goners_147X)) { arg0K0 = l2_148X; - goto L7730;} + goto L7731;} else { arg0K0 = goners_147X; - goto L7783;}} + goto L7784;}} else { alist_149X = s48_trace_value(alist_145X); pair_150X = s48_trace_value((*((long *) (((char *) (-3 + alist_149X)))))); @@ -847,7 +847,7 @@ static void HtopD8854(void) arg0K0 = next_152X; arg0K1 = alist_149X; arg0K2 = goners_147X; - goto L7722;} + goto L7723;} else { addr_158X = (((char *) (-3 + alist_149X))) + 4; S48_WRITE_BARRIER(alist_149X, addr_158X, goners_147X); @@ -855,24 +855,24 @@ static void HtopD8854(void) arg0K0 = next_152X; arg0K1 = okay_146X; arg0K2 = alist_149X; - goto L7722;}}} - L7730: { + goto L7723;}}} + L7731: { v_159X = arg0K0; Sfinalize_theseS = v_159X; arg0K0 = 0; - goto L12515;} - L7783: { + goto L12516;} + L7784: { l_160X = arg0K0; if ((25 == (*((long *) ((((char *) (-3 + l_160X))) + 4))))) { addr_161X = (((char *) (-3 + l_160X))) + 4; S48_WRITE_BARRIER(l_160X, addr_161X, l2_148X); *((long *) addr_161X) = l2_148X; arg0K0 = goners_147X; - goto L7730;} + goto L7731;} else { arg0K0 = (*((long *) ((((char *) (-3 + l_160X))) + 4))); - goto L7783;}} - L12515: { + goto L7784;}} + L12516: { i_162X = arg0K0; if ((i_162X == (Snumber_of_channelsS))) { Spending_interruptsS = (4 | (Spending_interruptsS)); @@ -889,58 +889,58 @@ static void HtopD8854(void) else { channel_163X = *((Svm_channelsS) + i_162X); if ((1 == channel_163X)) { - goto L12551;} + goto L12552;} else { header_164X = *((long *) ((((char *) (-3 + channel_163X))) + -4)); if ((3 == (3 & header_164X))) { arg0K0 = header_164X; - goto L12544;} + goto L12545;} else { if ((0 == (*((long *) (((char *) (-3 + channel_163X))))))) { arg0K0 = 1; - goto L12544;} + goto L12545;} else { id_165X = *((long *) ((((char *) (-3 + channel_163X))) + 4)); if ((0 == (3 & id_165X))) { arg0K0 = id_165X; - goto L12227;} + goto L12228;} else { if ((3 == (3 & (*((long *) ((((char *) (-3 + id_165X))) + -4)))))) { arg0K0 = (*((long *) ((((char *) (-3 + id_165X))) + -4))); - goto L12227;} + goto L12228;} else { arg0K0 = id_165X; - goto L12227;}}}}}}} - L12551: { + goto L12228;}}}}}}} + L12552: { arg0K0 = (1 + i_162X); - goto L12515;} - L12544: { + goto L12516;} + L12545: { new_166X = arg0K0; *((Svm_channelsS) + i_162X) = new_166X; - goto L12551;} - L12227: { + goto L12552;} + L12228: { id_167X = arg0K0; status_168X = close_channelB(channel_163X); if ((status_168X == NO_ERRORS)) { - goto L12242;} + goto L12243;} else { channel_close_error(status_168X, (*((long *) ((((char *) (-3 + channel_163X))) + 8))), id_167X); - goto L12242;}} - L12242: { + goto L12243;}} + L12243: { ps_write_string("Channel closed: ", (stderr)); if ((0 == (3 & id_167X))) { ps_write_integer((((id_167X)>>2)), (stderr)); - goto L12260;} + goto L12261;} else { ps_write_string((((char *)(((char *) (-3 + id_167X))))), (stderr)); - goto L12260;}} - L12260: { + goto L12261;}} + L12261: { ps_write_string(" ", (stderr)); ps_write_integer(((((*((long *) ((((char *) (-3 + channel_163X))) + 8))))>>2)), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 1; - goto L12544;} + goto L12545;} } static long collect_saving_temps(long value0_169X, long value1_170X, long *TT0) { @@ -1016,10 +1016,10 @@ void s48_register_gc_rootB(char * loc_addr_181X) { frame_182X = (char *)malloc(8); if ((frame_182X == NULL)) { ps_error("out of memory registering a global root", 0); - goto L3175;} + goto L3176;} else { - goto L3175;}} - L3175: { + goto L3176;}} + L3176: { *((long *) frame_182X) = (((long) (Spermanent_external_rootsS))); *((long *) (frame_182X + 4)) = (((long) loc_addr_181X)); Spermanent_external_rootsS = frame_182X; @@ -1087,15 +1087,15 @@ void s48_mark_traced_channels_closedB(void) long channel_192X; long i_191X; { arg0K0 = 0; - goto L6332;} - L6332: { + goto L6333;} + L6333: { i_191X = arg0K0; if ((i_191X == (Snumber_of_channelsS))) { return;} else { channel_192X = *((Svm_channelsS) + i_191X); if ((1 == channel_192X)) { - goto L6392;} + goto L6393;} else { header_193X = *((long *) ((((char *) (-3 + channel_192X))) + -4)); if ((3 == (3 & header_193X))) { @@ -1103,16 +1103,16 @@ void s48_mark_traced_channels_closedB(void) descriptor_194X = *((long *) ((((char *) (-3 + channel_192X))) + 4)); if ((0 == (3 & descriptor_194X))) { ps_write_integer(((((*((long *) ((((char *) (-3 + channel_192X))) + 4))))>>2)), (stderr)); - goto L6378;} + goto L6379;} else { ps_write_string((((char *)(((char *) (-3 + (*((long *) ((((char *) (-3 + channel_192X))) + 4)))))))), (stderr)); - goto L6378;}} + goto L6379;}} else { - goto L6392;}}}} - L6392: { + goto L6393;}}}} + L6393: { arg0K0 = (1 + i_191X); - goto L6332;} - L6378: { + goto L6333;} + L6379: { { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } addr_195X = ((char *) (-3 + header_193X)); @@ -1121,7 +1121,7 @@ void s48_mark_traced_channels_closedB(void) addr_196X = (((char *) (-3 + header_193X))) + 8; S48_WRITE_BARRIER(header_193X, addr_196X, -4); *((long *) addr_196X) = -4; - goto L6392;} + goto L6393;} } long s48_set_channel_os_index(long channel_197X, long os_index_198X) { @@ -1134,26 +1134,26 @@ long s48_set_channel_os_index(long channel_197X, long os_index_198X) char temp_199X; { temp_199X = os_index_198X < (Snumber_of_channelsS); if (temp_199X) { - goto L7901;} + goto L7902;} else { x_200X = add_more_channels(os_index_198X); if (x_200X) { - goto L7901;} + goto L7902;} else { return 36;}}} - L7901: { + L7902: { if ((1 == (*((Svm_channelsS) + os_index_198X)))) { old_index_201X = (((*((long *) ((((char *) (-3 + channel_197X))) + 8))))>>2); x_202X = *((long *) ((((char *) (-3 + channel_197X))) + 16)); if ((5 == x_202X)) { v_203X = ps_abort_fd_op(old_index_201X); enqueue_channelB(old_index_201X, v_203X); - goto L7887;} + goto L7888;} else { - goto L7887;}} + goto L7888;}} else { return 44;}} - L7887: { + L7888: { *((Svm_channelsS) + old_index_201X) = 1; *((Svm_channelsS) + os_index_198X) = channel_197X; val_204X = ((os_index_198X)<<2); @@ -1183,25 +1183,25 @@ long s48_cleaned_imported_bindings(void) { table_206X = s48_trace_value((Simported_bindingsS)); table_207X = s48_trace_value(table_206X); arg0K0 = 0; - goto L8578;} - L8578: { + goto L8579;} + L8579: { i_208X = arg0K0; if ((1024 == i_208X)) { arg0K0 = 0; - goto L9667;} + goto L9668;} else { foo_209X = *((long *) ((((char *) (-3 + table_207X))) + (((i_208X)<<2)))); arg0K0 = foo_209X; arg0K1 = 1; - goto L8598;}} - L9667: { + goto L8599;}} + L9668: { i_210X = arg0K0; if ((1024 == i_210X)) { return table_206X;} else { arg0K0 = (*((long *) ((((char *) (-3 + table_206X))) + (((i_210X)<<2))))); - goto L9675;}} - L8598: { + goto L9676;}} + L8599: { foo_211X = arg0K0; okay_212X = arg0K1; if ((1 == foo_211X)) { @@ -1209,7 +1209,7 @@ long s48_cleaned_imported_bindings(void) S48_WRITE_BARRIER(table_207X, addr_213X, okay_212X); *((long *) addr_213X) = okay_212X; arg0K0 = (1 + i_208X); - goto L8578;} + goto L8579;} else { v_214X = s48_extantP(foo_211X); if (v_214X) { @@ -1218,26 +1218,26 @@ long s48_cleaned_imported_bindings(void) S48_WRITE_BARRIER(new_foo_215X, addr_216X, okay_212X); *((long *) addr_216X) = okay_212X; arg0K0 = new_foo_215X; - goto L8603;} + goto L8604;} else { arg0K0 = okay_212X; - goto L8603;}}} - L9675: { + goto L8604;}}} + L9676: { entry_217X = arg0K0; if ((1 == entry_217X)) { arg0K0 = (1 + i_210X); - goto L9667;} + goto L9668;} else { addr_218X = (((char *) (-3 + entry_217X))) + 8; S48_WRITE_BARRIER(entry_217X, addr_218X, 529); *((long *) addr_218X) = 529; arg0K0 = (*((long *) ((((char *) (-3 + entry_217X))) + 12))); - goto L9675;}} - L8603: { + goto L9676;}} + L8604: { v_219X = arg0K0; arg0K0 = (*((long *) ((((char *) (-3 + foo_211X))) + 12))); arg0K1 = v_219X; - goto L8598;} + goto L8599;} } long s48_copy_symbol_table(void) { @@ -1252,10 +1252,10 @@ void s48_setup_external_exception(long why_221X, long nargs_222X) { push_exception_continuationB(why_221X, 1); if ((10 < nargs_222X)) { ps_error("too many arguments from external exception", 0); - goto L11018;} + goto L11019;} else { - goto L11018;}} - L11018: { + goto L11019;}} + L11019: { Sexternal_exception_nargsS = nargs_222X; Sexternal_exceptionPS = 1; return;} @@ -1291,20 +1291,20 @@ char s48_warn_about_undefined_imported_bindings(void) { out_225X = stderr; table_226X = Simported_bindingsS; arg0K0 = 0; - goto L11558;} - L11558: { + goto L11559;} + L11559: { i_227X = arg0K0; temp_228X = 1024 == i_227X; if (temp_228X) { return temp_228X;} else { arg0K0 = (*((long *) ((((char *) (-3 + table_226X))) + (((i_227X)<<2))))); - goto L11566;}} - L11566: { + goto L11567;}} + L11567: { entry_229X = arg0K0; if ((1 == entry_229X)) { arg0K0 = (1 + i_227X); - goto L11558;} + goto L11559;} else { if ((17 == (255 & (*((long *) ((((char *) (-3 + entry_229X))) + 8)))))) { name_230X = *((long *) (((char *) (-3 + entry_229X)))); @@ -1312,23 +1312,23 @@ char s48_warn_about_undefined_imported_bindings(void) if ((3 == (3 & name_230X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_230X))) + -4))))>>2))))) { ps_write_string((((char *)(((char *) (-3 + name_230X))))), out_225X); - goto L11546;} + goto L11547;} else { - goto L11544;}} + goto L11545;}} else { - goto L11544;}} + goto L11545;}} else { - goto L11569;}}} - L11546: { + goto L11570;}}} + L11547: { { long ignoreXX; PS_WRITE_CHAR(10, out_225X, ignoreXX) } - goto L11569;} - L11544: { + goto L11570;} + L11545: { ps_write_string("", out_225X); - goto L11546;} - L11569: { + goto L11547;} + L11570: { arg0K0 = (*((long *) ((((char *) (-3 + entry_229X))) + 12))); - goto L11566;} + goto L11567;} } void s48_define_exported_binding(char *name_231X, long value_232X) { @@ -1355,7 +1355,7 @@ void s48_define_exported_binding(char *name_231X, long value_232X) arg2K0 = 1; arg0K1 = 0; arg0K2 = value_232X; - goto L14338;} + goto L14339;} else { temp0_235X = collect_saving_temps(value_232X, 1, &temp1_236X); v_237X = AVAILABLEp(space_233X); @@ -1363,26 +1363,26 @@ void s48_define_exported_binding(char *name_231X, long value_232X) arg2K0 = 1; arg0K1 = 0; arg0K2 = temp0_235X; - goto L14338;} + goto L14339;} else { arg2K0 = 0; arg0K1 = 0; arg0K2 = temp0_235X; - goto L14338;}}} - L14338: { + goto L14339;}}} + L14339: { okayP_238X = arg2K0; key_239X = arg0K1; temp_240X = arg0K2; if (okayP_238X) { arg0K0 = key_239X; arg0K1 = temp_240X; - goto L14319;} + goto L14320;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_239X; arg0K1 = temp_240X; - goto L14319;}} - L14319: { + goto L14320;}} + L14320: { key_241X = arg0K0; value_242X = arg0K1; name_243X = enter_string(name_231X, key_241X); @@ -1409,39 +1409,39 @@ long s48_add_channel(long mode_246X, long id_247X, long os_index_248X) if (v_249X) { arg2K0 = 1; arg0K1 = 0; - goto L14727;} + goto L14728;} else { collect_saving_temps(1, 1, &temp1_250X); v_251X = AVAILABLEp(6); if (v_251X) { arg2K0 = 1; arg0K1 = 0; - goto L14727;} + goto L14728;} else { arg2K0 = 0; arg0K1 = 0; - goto L14727;}}} - L14727: { + goto L14728;}}} + L14728: { okayP_252X = arg2K0; key_253X = arg0K1; if (okayP_252X) { arg0K0 = key_253X; - goto L14710;} + goto L14711;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_253X; - goto L14710;}} - L14710: { + goto L14711;}} + L14711: { v_254X = arg0K0; channel_255X = make_registered_channel((((mode_246X)>>2)), id_247X, os_index_248X, v_254X, &status_256X); if ((3 == (3 & channel_255X))) { if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_255X))) + -4))))>>2))))) { return channel_255X;} else { - goto L14721;}} + goto L14722;}} else { - goto L14721;}} - L14721: { + goto L14722;}} + L14722: { return (((status_256X)<<2));} } long s48_get_imported_binding(char *name_257X) @@ -1462,29 +1462,29 @@ long s48_get_imported_binding(char *name_257X) if (v_259X) { arg2K0 = 1; arg0K1 = 0; - goto L15416;} + goto L15417;} else { collect_saving_temps(1, 1, &temp1_260X); v_261X = AVAILABLEp(space_258X); if (v_261X) { arg2K0 = 1; arg0K1 = 0; - goto L15416;} + goto L15417;} else { arg2K0 = 0; arg0K1 = 0; - goto L15416;}}} - L15416: { + goto L15417;}}} + L15417: { okayP_262X = arg2K0; key_263X = arg0K1; if (okayP_262X) { arg0K0 = key_263X; - goto L15403;} + goto L15404;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_263X; - goto L15403;}} - L15403: { + goto L15404;}} + L15404: { key_264X = arg0K0; name_265X = enter_string(name_257X, key_264X); return Hlookup2102((Sexported_bindingsS), name_265X, key_264X);} @@ -1497,16 +1497,16 @@ long s48_allocate_stob(long type_266X, long size_267X) char v_268X; { v_268X = AVAILABLEp(size_267X); if (v_268X) { - goto L15711;} + goto L15712;} else { collect_saving_temps(1, 1, &temp1_269X); v_270X = AVAILABLEp(size_267X); if (v_270X) { - goto L15711;} + goto L15712;} else { ps_error("Scheme48 heap overflow", 0); - goto L15711;}}} - L15711: { + goto L15712;}}} + L15712: { addr_271X = ALLOCATE_SPACE(type_266X, (4 + size_267X)); *((long *) addr_271X) = (2 + (((((((size_267X)<<6)) + type_266X))<<2))); return (3 + (((long) (addr_271X + 4))));} @@ -1593,25 +1593,25 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) if ((symbol_table_274X == 1)) { v_275X = AVAILABLEp(1025); if (v_275X) { - goto L15442;} + goto L15443;} else { collect_saving_temps(1, 1, &temp1_276X); v_277X = AVAILABLEp(1025); if (v_277X) { - goto L15442;} + goto L15443;} else { ps_error("Scheme48 heap overflow", 0); - goto L15442;}}} + goto L15443;}}} else { Sthe_symbol_tableS = symbol_table_274X; - goto L15834;}} - L15442: { + goto L15835;}} + L15443: { addr_278X = ALLOCATE_SPACE(2, 4100); *((long *) addr_278X) = 1048586; table_279X = 3 + (((long) (addr_278X + 4))); arg0K0 = 0; - goto L15517;} - L15834: { + goto L15518;} + L15835: { exported_bindings_280X = s48_initial_exported_bindings(); imported_bindings_281X = s48_initial_imported_bindings(); v_282X = AVAILABLEp(2050); @@ -1619,7 +1619,7 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) arg2K0 = 1; arg0K1 = imported_bindings_281X; arg0K2 = exported_bindings_280X; - goto L14420;} + goto L14421;} else { temp0_283X = collect_saving_temps(imported_bindings_281X, exported_bindings_280X, &temp1_284X); v_285X = AVAILABLEp(2050); @@ -1627,13 +1627,13 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) arg2K0 = 1; arg0K1 = temp0_283X; arg0K2 = temp1_284X; - goto L14420;} + goto L14421;} else { arg2K0 = 0; arg0K1 = temp0_283X; arg0K2 = temp1_284X; - goto L14420;}}} - L15517: { + goto L14421;}}} + L15518: { i_286X = arg0K0; if ((1024 == i_286X)) { Sthe_symbol_tableS = table_279X; @@ -1644,38 +1644,38 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) if ((maybe_289X == 1)) { ps_error("insufficient heap space to build symbol table", 0); arg0K0 = maybe_289X; - goto L15471;} + goto L15472;} else { arg0K0 = maybe_289X; - goto L15471;}} + goto L15472;}} else { arg0K0 = maybe_287X; - goto L15471;}} + goto L15472;}} else { addr_290X = (((char *) (-3 + table_279X))) + (((i_286X)<<2)); S48_WRITE_BARRIER(table_279X, addr_290X, 1); *((long *) addr_290X) = 1; arg0K0 = (1 + i_286X); - goto L15517;}} - L14420: { + goto L15518;}} + L14421: { okayP_291X = arg2K0; temp0_292X = arg0K1; temp1_293X = arg0K2; if (okayP_291X) { arg0K0 = temp0_292X; arg0K1 = temp1_293X; - goto L14381;} + goto L14382;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = temp0_292X; arg0K1 = temp1_293X; - goto L14381;}} - L15471: { + goto L14382;}} + L15472: { symbols_294X = arg0K0; n_295X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + symbols_294X))) + -4))))>>8))))>>2); arg0K0 = 0; - goto L15538;} - L14381: { + goto L15539;} + L14382: { imported_bindings_296X = arg0K0; exported_bindings_297X = arg0K1; if ((1 == imported_bindings_296X)) { @@ -1683,14 +1683,14 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) *((long *) addr_298X) = 1048586; table_299X = 3 + (((long) (addr_298X + 4))); arg0K0 = 0; - goto L14482;} + goto L14483;} else { arg0K0 = imported_bindings_296X; - goto L14396;}} - L15538: { + goto L14397;}} + L15539: { i_300X = arg0K0; if ((i_300X == n_295X)) { - goto L15834;} + goto L15835;} else { table_301X = Sthe_symbol_tableS; foo_302X = *((long *) ((((char *) (-3 + symbols_294X))) + (((i_300X)<<2)))); @@ -1698,19 +1698,19 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) n_304X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_303X))) + -4))))>>8)); arg0K0 = 0; arg0K1 = 0; - goto L13005;}} - L14482: { + goto L13006;}} + L14483: { i_305X = arg0K0; if ((1024 == i_305X)) { arg0K0 = table_299X; - goto L14396;} + goto L14397;} else { addr_306X = (((char *) (-3 + table_299X))) + (((i_305X)<<2)); S48_WRITE_BARRIER(table_299X, addr_306X, 1); *((long *) addr_306X) = 1; arg0K0 = (1 + i_305X); - goto L14482;}} - L14396: { + goto L14483;}} + L14397: { v_307X = arg0K0; Simported_bindingsS = v_307X; if ((1 == exported_bindings_297X)) { @@ -1718,17 +1718,17 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) *((long *) addr_308X) = 1048586; table_309X = 3 + (((long) (addr_308X + 4))); arg0K0 = 0; - goto L14459;} + goto L14460;} else { arg0K0 = exported_bindings_297X; - goto L14409;}} - L13005: { + goto L14410;}} + L13006: { i_310X = arg0K0; h_311X = arg0K1; if ((i_310X < n_304X)) { arg0K0 = (1 + i_310X); arg0K1 = (h_311X + (((*((unsigned char *) ((((char *) (-3 + string_303X))) + i_310X)))))); - goto L13005;} + goto L13006;} else { index_312X = 1023 & h_311X; val_313X = *((long *) ((((char *) (-3 + table_301X))) + (((index_312X)<<2)))); @@ -1739,19 +1739,19 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) S48_WRITE_BARRIER(table_301X, addr_315X, foo_302X); *((long *) addr_315X) = foo_302X; arg0K0 = (1 + i_300X); - goto L15538;}} - L14459: { + goto L15539;}} + L14460: { i_316X = arg0K0; if ((1024 == i_316X)) { arg0K0 = table_309X; - goto L14409;} + goto L14410;} else { addr_317X = (((char *) (-3 + table_309X))) + (((i_316X)<<2)); S48_WRITE_BARRIER(table_309X, addr_317X, 1); *((long *) addr_317X) = 1; arg0K0 = (1 + i_316X); - goto L14459;}} - L14409: { + goto L14460;}} + L14410: { v_318X = arg0K0; Sexported_bindingsS = v_318X; if ((stack_size_273X < 8131)) { @@ -1760,16 +1760,16 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) ps_error("out of memory, unable to continue", 0); arg1K0 = stack_319X; arg0K1 = 8131; - goto L14928;} + goto L14929;} else { arg1K0 = stack_319X; arg0K1 = 8131; - goto L14928;}} + goto L14929;}} else { arg1K0 = stack_begin_272X; arg0K1 = stack_size_273X; - goto L14928;}} - L14928: { + goto L14929;}} + L14929: { start_320X = arg1K0; size_321X = arg0K1; Sstack_beginS = start_320X; @@ -1779,26 +1779,26 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) ScontS = 1; SenvS = 17; arg1K0 = start_320X; - goto L14960;} - L14960: { + goto L14961;} + L14961: { a_322X = arg1K0; if ((a_322X == (Sstack_endS))) { v_323X = AVAILABLEp(5); if (v_323X) { - goto L14977;} + goto L14978;} else { collect_saving_temps(1, 1, &temp1_324X); v_325X = AVAILABLEp(5); if (v_325X) { - goto L14977;} + goto L14978;} else { ps_error("Scheme48 heap overflow", 0); - goto L14977;}}} + goto L14978;}}} else { *((long *) a_322X) = 252645135; arg1K0 = (a_322X + 4); - goto L14960;}} - L14977: { + goto L14961;}} + L14978: { addr_326X = ALLOCATE_SPACE(17, 6); *((long *) addr_326X) = 582; addr_327X = ALLOCATE_SPACE(11, 12); @@ -1821,16 +1821,16 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) Sbottom_of_stackS = (ScontS); v_332X = AVAILABLEp(5); if (v_332X) { - goto L15156;} + goto L15157;} else { collect_saving_temps(1, 1, &temp1_333X); v_334X = AVAILABLEp(5); if (v_334X) { - goto L15156;} + goto L15157;} else { ps_error("Scheme48 heap overflow", 0); - goto L15156;}}} - L15156: { + goto L15157;}}} + L15157: { addr_335X = ALLOCATE_SPACE(17, 6); *((long *) addr_335X) = 582; addr_336X = ALLOCATE_SPACE(11, 12); @@ -2845,29 +2845,29 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_370X) { arg2K0 = 1; arg0K1 = proc_345X; - goto L19375;} + goto L19376;} else { temp0_371X = collect_saving_temps(proc_345X, 1, &temp1_372X); v_373X = AVAILABLEp(2); if (v_373X) { arg2K0 = 1; arg0K1 = temp0_371X; - goto L19375;} + goto L19376;} else { arg2K0 = 0; arg0K1 = temp0_371X; - goto L19375;}}} - L19375: { + goto L19376;}}} + L19376: { okayP_374X = arg2K0; temp_375X = arg0K1; if (okayP_374X) { arg0K0 = temp_375X; - goto L19346;} + goto L19347;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = temp_375X; - goto L19346;}} - L19346: { + goto L19347;}} + L19347: { proc_376X = arg0K0; addr_377X = ALLOCATE_SPACE(17, 6); *((long *) addr_377X) = 582; @@ -2877,15 +2877,15 @@ long s48_restart(long proc_345X, long nargs_346X) Scode_pointerS = (((char *) (-3 + code_378X))); SvalS = proc_376X; arg1K0 = (Scode_pointerS); - goto L18438;} - L18438: { + goto L18439;} + L18439: { code_pointer_379X = arg1K0; switch ((*((unsigned char *) code_pointer_379X))) { case 0 : case 145 : { push_exception_continuationB(15, 1); arg0K0 = 0; - goto L16665;} + goto L16666;} break; case 1 : { count_380X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))); @@ -2896,73 +2896,73 @@ long s48_restart(long proc_345X, long nargs_346X) SenvS = (3 + (((long) ((SstackS) + 8)))); Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 2 : { SvalS = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))))); Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 3 : { SvalS = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))); Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 4 : { back_381X = *((unsigned char *) ((Scode_pointerS) + 1)); env_382X = SenvS; arg0K0 = env_382X; arg0K1 = back_381X; - goto L23824;} + goto L23833;} break; case 5 : { SvalS = (*((long *) ((((char *) (-3 + (SenvS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))); if ((529 == (SvalS))) { push_exception_continuationB(0, 2); arg0K0 = 0; - goto L16665;} + goto L16666;} else { Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} break; case 6 : { SvalS = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (SenvS))))))))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))); if ((529 == (SvalS))) { push_exception_continuationB(0, 2); arg0K0 = 0; - goto L16665;} + goto L16666;} else { Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} break; case 7 : { SvalS = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SenvS)))))))))))))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))); if ((529 == (SvalS))) { push_exception_continuationB(0, 2); arg0K0 = 0; - goto L16665;} + goto L16666;} else { Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} break; case 8 : { back_383X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))); env_384X = SenvS; arg0K0 = env_384X; arg0K1 = back_383X; - goto L20247;} + goto L20248;} break; case 9 : { back_385X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))); env_386X = SenvS; arg0K0 = env_386X; arg0K1 = back_385X; - goto L20185;} + goto L20186;} break; case 10 : { location_387X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); @@ -2972,11 +2972,11 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = location_387X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} else { Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} break; case 11 : { location_388X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); @@ -2987,7 +2987,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { val_389X = SvalS; addr_390X = (((char *) (-3 + location_388X))) + 4; @@ -2996,7 +2996,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} break; case 12 : { v_391X = *((unsigned char *) ((Scode_pointerS) + 3)); @@ -3005,55 +3005,55 @@ long s48_restart(long proc_345X, long nargs_346X) if ((3 == (3 & p_392X))) { if ((p_392X < (((long) (Sstack_beginS))))) { arg0K0 = 0; - goto L20964;} + goto L20965;} else { if (((((long) (Sstack_endS))) < p_392X)) { arg0K0 = 0; - goto L20964;} + goto L20965;} else { arg0K0 = ((Sstack_endS) - (Sstack_beginS)); - goto L20964;}}} + goto L20965;}}} else { arg0K0 = 0; - goto L20964;}} + goto L20965;}} else { arg0K0 = (SvalS); - goto L20971;}} + goto L20972;}} break; case 13 : { total_count_393X = *((unsigned char *) ((Scode_pointerS) + 2)); space_394X = 1 + total_count_393X; v_395X = AVAILABLEp(space_394X); if (v_395X) { - goto L20766;} + goto L20767;} else { collect_saving_temps(1, 1, &temp1_396X); v_397X = AVAILABLEp(space_394X); if (v_397X) { - goto L20766;} + goto L20767;} else { ps_error("Scheme48 heap overflow", 0); - goto L20766;}}} + goto L20767;}}} break; case 14 : { *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 15 : { SvalS = (*((long *) ((((char *) (-3 + (SenvS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))); if ((529 == (SvalS))) { push_exception_continuationB(0, 3); arg0K0 = 0; - goto L16665;} + goto L16666;} else { *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} break; case 16 : { *((long *) (SstackS)) = (SvalS); @@ -3062,42 +3062,42 @@ long s48_restart(long proc_345X, long nargs_346X) if ((529 == (SvalS))) { push_exception_continuationB(0, 3); arg0K0 = 0; - goto L16665;} + goto L16666;} else { Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} break; case 17 : { SstackS = ((SstackS) + 4); SvalS = (*((long *) (SstackS))); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 18 : { SvalS = (*((long *) ((SstackS) + (4 + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 19 : { *((long *) ((SstackS) + (4 + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))) = (SvalS); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 20 : { push_continuationB(((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))), (*((unsigned char *) ((Scode_pointerS) + 3)))); Scode_pointerS = ((Scode_pointerS) + 4); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 21 : { push_continuationB(((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))), (((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4))))); Scode_pointerS = ((Scode_pointerS) + 5); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 22 : { space_398X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); @@ -3105,18 +3105,18 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_399X) { arg2K0 = 1; arg0K1 = 0; - goto L20692;} + goto L20693;} else { collect_saving_temps(1, 1, &temp1_400X); v_401X = AVAILABLEp(space_398X); if (v_401X) { arg2K0 = 1; arg0K1 = 0; - goto L20692;} + goto L20693;} else { arg2K0 = 0; arg0K1 = 0; - goto L20692;}}} + goto L20693;}}} break; case 23 : { cont_402X = *((long *) (((char *) (-3 + (Sbottom_of_stackS))))); @@ -3128,15 +3128,15 @@ long s48_restart(long proc_345X, long nargs_346X) copy_continuation_from_heapB_return_tag = 0; goto copy_continuation_from_heapB; copy_continuation_from_heapB_return_0: - goto L19847;} + goto L19848;} else { - goto L19882;}} + goto L19883;}} else { - goto L19882;}} + goto L19883;}} else { - goto L19848;}} + goto L19849;}} else { - goto L19848;}} + goto L19849;}} break; case 24 : { stack_arg_count_403X = *((unsigned char *) ((Scode_pointerS) + 1)); @@ -3155,35 +3155,35 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_408X) { arg2K0 = 1; arg0K1 = 0; - goto L19208;} + goto L19209;} else { collect_saving_temps(1, 1, &temp1_409X); v_410X = AVAILABLEp(space_407X); if (v_410X) { arg2K0 = 1; arg0K1 = 0; - goto L19208;} + goto L19209;} else { arg2K0 = 0; arg0K1 = 0; - goto L19208;}}} + goto L19209;}}} else { - goto L19120;}} + goto L19121;}} else { arg0K0 = stack_arg_count_403X; - goto L16066;}} + goto L16067;}} else { arg0K0 = 3; arg0K1 = stack_arg_count_403X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} else { arg0K0 = 3; arg0K1 = stack_arg_count_403X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} break; case 25 : { stack_arg_count_411X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))); @@ -3191,19 +3191,19 @@ long s48_restart(long proc_345X, long nargs_346X) if ((3 == (3 & obj_412X))) { if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_412X))) + -4))))>>2))))) { arg0K0 = stack_arg_count_411X; - goto L16066;} + goto L16067;} else { arg0K0 = 3; arg0K1 = stack_arg_count_411X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} else { arg0K0 = 3; arg0K1 = stack_arg_count_411X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} break; case 26 : { nargs_413X = *((unsigned char *) ((Scode_pointerS) + 1)); @@ -3211,7 +3211,7 @@ long s48_restart(long proc_345X, long nargs_346X) stob_415X = ScontS; arg1K0 = ((((char *) (-3 + stob_415X))) + -8); arg1K1 = (top_of_args_414X + (((nargs_413X)<<2))); - goto L17628;} + goto L17629;} break; case 27 : { SstackS = ((SstackS) + 4); @@ -3226,7 +3226,7 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))); arg0K1 = list_args_416X; arg0K2 = length_418X; - goto L17666;} + goto L17667;} else { *((long *) (SstackS)) = list_args_416X; SstackS = ((SstackS) + -4); @@ -3242,7 +3242,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = args_419X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 28 : { SstackS = ((SstackS) + 4); @@ -3256,16 +3256,16 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + 4); arg0K0 = (*((long *) (SstackS))); arg0K1 = (-2 + stack_nargs_420X); - goto L11273;} + goto L11274;} else { if ((25 == (*((long *) ((((char *) (-3 + rest_list_422X))) + 4))))) { arg0K0 = (*((long *) (((char *) (-3 + rest_list_422X))))); arg0K1 = (-1 + stack_nargs_420X); - goto L11273;} + goto L11274;} else { arg0K0 = (*((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + rest_list_422X))) + 4)))))) + 4))); arg0K1 = rest_list_422X; - goto L11314;}}} + goto L11315;}}} break; case 29 : { SstackS = ((SstackS) + 4); @@ -3276,11 +3276,11 @@ long s48_restart(long proc_345X, long nargs_346X) copy_continuation_from_heapB_return_tag = 1; goto copy_continuation_from_heapB; copy_continuation_from_heapB_return_1: - goto L17571;} + goto L17572;} else { - goto L17578;}} + goto L17579;}} else { - goto L17578;}} + goto L17579;}} break; case 30 : { SstackS = ((SstackS) + 4); @@ -3292,32 +3292,32 @@ long s48_restart(long proc_345X, long nargs_346X) if ((3 == (3 & obj_425X))) { if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_425X))) + -4))))>>2))))) { arg0K0 = 1; - goto L16066;} + goto L16067;} else { arg0K0 = 3; arg0K1 = 1; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} else { arg0K0 = 3; arg0K1 = 1; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} break; case 31 : { pop_continuationB_return_tag = 0; goto pop_continuationB; pop_continuationB_return_0: arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 32 : { arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))); arg0K1 = 25; arg0K2 = 0; - goto L20427;} + goto L20428;} break; case 33 : { SstackS = ((SstackS) + 4); @@ -3328,19 +3328,19 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K0 = stack_nargs_427X; arg0K1 = (*((long *) (SstackS))); arg0K2 = ((((p_426X)>>2)) - stack_nargs_427X); - goto L20427;} + goto L20428;} break; case 34 : { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 35 : { tem_428X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); StemplateS = tem_428X; Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_428X)))))))); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 36 : { code_429X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))))))))); @@ -3351,20 +3351,20 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_431X) { arg2K0 = 1; arg0K1 = 0; - goto L18944;} + goto L18945;} else { collect_saving_temps(1, 1, &temp1_432X); v_433X = AVAILABLEp(space_430X); if (v_433X) { arg2K0 = 1; arg0K1 = 0; - goto L18944;} + goto L18945;} else { arg2K0 = 0; arg0K1 = 0; - goto L18944;}}} + goto L18945;}}} else { - goto L18817;}} + goto L18818;}} else { v_434X = *((unsigned char *) ((((char *) (-3 + code_429X))) + 1)); if ((66 == v_434X)) { @@ -3372,44 +3372,44 @@ long s48_restart(long proc_345X, long nargs_346X) index_435X = -2 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + code_429X))) + -4))))>>8)); space_436X = ((((*((unsigned char *) ((((char *) (-3 + code_429X))) + index_435X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_429X))) + (1 + index_435X)))); if ((space_436X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { - goto L18817;} + goto L18818;} else { space_437X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); v_438X = AVAILABLEp(space_437X); if (v_438X) { arg2K0 = 1; arg0K1 = 0; - goto L19000;} + goto L19001;} else { collect_saving_temps(1, 1, &temp1_439X); v_440X = AVAILABLEp(space_437X); if (v_440X) { arg2K0 = 1; arg0K1 = 0; - goto L19000;} + goto L19001;} else { arg2K0 = 0; arg0K1 = 0; - goto L19000;}}}} + goto L19001;}}}} else { - goto L18862;}} + goto L18863;}} else { - goto L18862;}}} + goto L18863;}}} break; case 37 : { if ((1 == (SvalS))) { Scode_pointerS = ((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} break; case 38 : { Scode_pointerS = ((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 39 : { if ((0 == (3 & (SvalS)))) { @@ -3417,20 +3417,20 @@ long s48_restart(long proc_345X, long nargs_346X) max_442X = *((unsigned char *) ((Scode_pointerS) + 1)); val_443X = ((p_441X)>>2); if ((val_443X < 0)) { - goto L18718;} + goto L18719;} else { if ((val_443X < max_442X)) { index_444X = 1 + (((val_443X)<<1)); arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + (1 + index_444X)))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + index_444X))))); - goto L18720;} + goto L18721;} else { - goto L18718;}}} + goto L18719;}}} else { push_exception_continuationB(5, 0); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 40 : { stack_nargs_445X = (((*((long *) ((SstackS) + 4))))>>2); @@ -3440,7 +3440,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = arg0_446X; SstackS = ((SstackS) + -4); SvalS = (*((long *) (((char *) (-3 + rest_list_447X))))); - goto L19750;} + goto L19751;} else { arg1_448X = *((long *) ((SstackS) + (4 + (((stack_nargs_445X)<<2))))); arg0_449X = *((long *) ((SstackS) + (8 + (((stack_nargs_445X)<<2))))); @@ -3449,7 +3449,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = arg0_449X; SstackS = ((SstackS) + -4); SvalS = arg1_448X; - goto L19750;}} + goto L19751;}} break; case 41 : { stack_nargs_450X = (((*((long *) ((SstackS) + 4))))>>2); @@ -3457,56 +3457,56 @@ long s48_restart(long proc_345X, long nargs_346X) rest_list_451X = *((long *) ((SstackS) + 8)); if ((25 == (*((long *) ((((char *) (-3 + rest_list_451X))) + 4))))) { arg0K0 = 1; - goto L18616;} + goto L18617;} else { *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_451X))) + 4))); *((long *) ((SstackS) + 12)) = (SvalS); arg0K0 = -2; - goto L18616;}} + goto L18617;}} else { if ((stack_nargs_450X == 1)) { if ((25 == (*((long *) ((SstackS) + 8))))) { arg0K0 = 1; - goto L18616;} + goto L18617;} else { *((long *) ((SstackS) + 4)) = 0; *((long *) ((SstackS) + 12)) = (SvalS); arg0K0 = -2; - goto L18616;}} + goto L18617;}} else { *((long *) ((SstackS) + (8 + (((stack_nargs_450X)<<2))))) = (SvalS); arg0K0 = -2; - goto L18616;}}} + goto L18617;}}} break; case 42 : { if ((1 == (SvalS))) { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { x_452X = (((*((long *) ((SstackS) + 4))))>>2); if ((x_452X == 0)) { rest_list_453X = *((long *) ((SstackS) + 8)); if ((25 == (*((long *) ((((char *) (-3 + rest_list_453X))) + 4))))) { arg0K0 = 1; - goto L19641;} + goto L19642;} else { *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_453X))) + 4))); *((long *) ((SstackS) + 12)) = (*((long *) (((char *) (-3 + rest_list_453X))))); arg0K0 = -2; - goto L19641;}} + goto L19642;}} else { if ((x_452X == 1)) { if ((25 == (*((long *) ((SstackS) + 8))))) { arg0K0 = 1; - goto L19641;} + goto L19642;} else { *((long *) ((SstackS) + 4)) = 0; arg0K0 = -2; - goto L19641;}} + goto L19642;}} else { arg0K0 = -2; - goto L19641;}}}} + goto L19642;}}}} break; case 43 : { SstackS = ((SstackS) + 4); @@ -3514,77 +3514,77 @@ long s48_restart(long proc_345X, long nargs_346X) x_455X = SvalS; if ((arg2_454X == x_455X)) { arg0K0 = 5; - goto L38026;} + goto L38035;} else { arg0K0 = 1; - goto L38026;}} + goto L38035;}} break; case 44 : { x_456X = SvalS; if ((0 == (3 & x_456X))) { arg0K0 = 5; - goto L38038;} + goto L38047;} else { if ((3 == (3 & x_456X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) { arg0K0 = 5; - goto L38038;} + goto L38047;} else { - goto L10622;}} + goto L10623;}} else { - goto L10622;}}} + goto L10623;}}} break; case 45 : { n_457X = SvalS; if ((0 == (3 & n_457X))) { - goto L28391;} + goto L28400;} else { if ((3 == (3 & n_457X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_457X))) + -4))))>>2))))) { - goto L28391;} + goto L28400;} else { - goto L28392;}} + goto L28401;}} else { - goto L28392;}}} + goto L28401;}}} break; case 46 : { n_458X = SvalS; if ((0 == (3 & n_458X))) { - goto L28548;} + goto L28557;} else { if ((3 == (3 & n_458X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) { - goto L28548;} + goto L28557;} else { - goto L28523;}} + goto L28532;}} else { - goto L28523;}}} + goto L28532;}}} break; case 47 : { n_459X = SvalS; if ((0 == (3 & n_459X))) { - goto L28747;} + goto L28756;} else { if ((3 == (3 & n_459X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) { - goto L28747;} + goto L28756;} else { - goto L28722;}} + goto L28731;}} else { - goto L28722;}}} + goto L28731;}}} break; case 48 : { n_460X = SvalS; if ((0 == (3 & n_460X))) { - goto L28946;} + goto L28955;} else { if ((3 == (3 & n_460X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) { - goto L28946;} + goto L28955;} else { - goto L28921;}} + goto L28930;}} else { - goto L28921;}}} + goto L28930;}}} break; case 49 : { x_461X = SvalS; @@ -3592,13 +3592,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_461X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 50 : { x_462X = SvalS; @@ -3606,7 +3606,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_462X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 51 : { x_463X = SvalS; @@ -3614,7 +3614,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_463X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 52 : { SstackS = ((SstackS) + 4); @@ -3629,7 +3629,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_465X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { if ((z_466X < -536870912)) { push_exception_continuationB(5, 1); @@ -3638,12 +3638,12 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_465X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { SvalS = (((z_466X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}}} + goto L18439;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_464X; @@ -3651,7 +3651,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_465X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 53 : { SstackS = ((SstackS) + 4); @@ -3662,10 +3662,10 @@ long s48_restart(long proc_345X, long nargs_346X) b_470X = ((x_468X)>>2); if ((a_469X < 0)) { arg0K0 = (0 - a_469X); - goto L6775;} + goto L6776;} else { arg0K0 = a_469X; - goto L6775;}} + goto L6776;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; @@ -3673,7 +3673,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 54 : { SstackS = ((SstackS) + 4); @@ -3688,7 +3688,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_472X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { if ((z_473X < -536870912)) { push_exception_continuationB(5, 1); @@ -3697,12 +3697,12 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_472X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { SvalS = (((z_473X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}}} + goto L18439;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_471X; @@ -3710,7 +3710,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_472X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 55 : { SstackS = ((SstackS) + 4); @@ -3724,16 +3724,16 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_475X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { a_476X = ((arg2_474X)>>2); b_477X = ((x_475X)>>2); if ((a_476X < 0)) { arg0K0 = (0 - a_476X); - goto L7056;} + goto L7057;} else { arg0K0 = a_476X; - goto L7056;}}} + goto L7057;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_474X; @@ -3741,7 +3741,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_475X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 56 : { SstackS = ((SstackS) + 4); @@ -3750,10 +3750,10 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (3 & (arg2_478X | x_479X)))) { if ((arg2_478X == x_479X)) { arg0K0 = 5; - goto L31744;} + goto L31753;} else { arg0K0 = 1; - goto L31744;}} + goto L31753;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_478X; @@ -3761,7 +3761,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_479X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 57 : { SstackS = ((SstackS) + 4); @@ -3770,10 +3770,10 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (3 & (arg2_480X | x_481X)))) { if ((arg2_480X < x_481X)) { arg0K0 = 5; - goto L31822;} + goto L31831;} else { arg0K0 = 1; - goto L31822;}} + goto L31831;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_480X; @@ -3781,7 +3781,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_481X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 58 : { SstackS = ((SstackS) + 4); @@ -3790,10 +3790,10 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (3 & (arg2_482X | x_483X)))) { if ((x_483X < arg2_482X)) { arg0K0 = 5; - goto L31900;} + goto L31909;} else { arg0K0 = 1; - goto L31900;}} + goto L31909;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_482X; @@ -3801,7 +3801,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_483X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 59 : { SstackS = ((SstackS) + 4); @@ -3810,10 +3810,10 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (3 & (arg2_484X | x_485X)))) { if ((x_485X < arg2_484X)) { arg0K0 = 1; - goto L31978;} + goto L31987;} else { arg0K0 = 5; - goto L31978;}} + goto L31987;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_484X; @@ -3821,7 +3821,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_485X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 60 : { SstackS = ((SstackS) + 4); @@ -3830,10 +3830,10 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (3 & (arg2_486X | x_487X)))) { if ((arg2_486X < x_487X)) { arg0K0 = 1; - goto L32056;} + goto L32065;} else { arg0K0 = 5; - goto L32056;}} + goto L32065;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_486X; @@ -3841,7 +3841,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_487X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 61 : { SstackS = ((SstackS) + 4); @@ -3855,16 +3855,16 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_489X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { a_490X = ((arg2_488X)>>2); b_491X = ((x_489X)>>2); if ((a_490X < 0)) { arg0K0 = (0 - a_490X); - goto L7233;} + goto L7234;} else { arg0K0 = a_490X; - goto L7233;}}} + goto L7234;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_488X; @@ -3872,7 +3872,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_489X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 62 : { SstackS = ((SstackS) + 4); @@ -3886,15 +3886,15 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_493X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { a_494X = ((x_492X)>>2); if ((a_494X < 0)) { arg0K0 = (0 - a_494X); - goto L25338;} + goto L25347;} else { arg0K0 = a_494X; - goto L25338;}}} + goto L25347;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_492X; @@ -3902,7 +3902,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_493X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 63 : { x_495X = SvalS; @@ -3910,13 +3910,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = x_495X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_495X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 64 : { x_496X = SvalS; @@ -3924,13 +3924,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = x_496X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_496X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 65 : { x_497X = SvalS; @@ -3938,13 +3938,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 4; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_497X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 66 : { x_498X = SvalS; @@ -3952,13 +3952,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = x_498X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_498X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 67 : { x_499X = SvalS; @@ -3966,13 +3966,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 0; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_499X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 68 : { x_500X = SvalS; @@ -3980,7 +3980,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_500X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 69 : { x_501X = SvalS; @@ -3988,7 +3988,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_501X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 70 : { x_502X = SvalS; @@ -3996,7 +3996,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_502X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 71 : { x_503X = SvalS; @@ -4004,7 +4004,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_503X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 72 : { x_504X = SvalS; @@ -4012,7 +4012,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_504X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 73 : { x_505X = SvalS; @@ -4020,7 +4020,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_505X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 74 : { x_506X = SvalS; @@ -4028,7 +4028,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_506X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 75 : { x_507X = SvalS; @@ -4036,20 +4036,20 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_507X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 76 : { x_508X = SvalS; if ((0 == (3 & x_508X))) { if ((x_508X < 0)) { - goto L38295;} + goto L38304;} else { SvalS = 0; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} else { - goto L38295;}} + goto L38304;}} break; case 77 : { n_509X = SvalS; @@ -4057,16 +4057,16 @@ long s48_restart(long proc_345X, long nargs_346X) n_510X = ((n_509X)>>2); if ((n_510X < 0)) { arg0K0 = (0 - n_510X); - goto L25624;} + goto L25633;} else { arg0K0 = n_510X; - goto L25624;}} + goto L25633;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = n_509X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 78 : { SstackS = ((SstackS) + 4); @@ -4078,7 +4078,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_512X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} break; case 79 : { SstackS = ((SstackS) + 4); @@ -4090,7 +4090,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_514X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} break; case 80 : { SstackS = ((SstackS) + 4); @@ -4102,7 +4102,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_516X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} break; case 81 : { x_517X = SvalS; @@ -4110,13 +4110,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (~ (3 | x_517X)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_517X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 82 : { SstackS = ((SstackS) + 4); @@ -4126,7 +4126,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (arg2_518X & x_519X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_518X; @@ -4134,7 +4134,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_519X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 83 : { SstackS = ((SstackS) + 4); @@ -4144,7 +4144,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (arg2_520X | x_521X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_520X; @@ -4152,7 +4152,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_521X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 84 : { SstackS = ((SstackS) + 4); @@ -4162,7 +4162,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (arg2_522X ^ x_523X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_522X; @@ -4170,7 +4170,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_523X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 85 : { SstackS = ((SstackS) + 4); @@ -4184,7 +4184,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (((x_528X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { PS_SHIFT_LEFT(value_526X, count_527X, x_529X) result_530X = (((((x_529X)<<2)))>>2); @@ -4192,7 +4192,7 @@ long s48_restart(long proc_345X, long nargs_346X) if ((value_526X == x_531X)) { if ((value_526X < 0)) { if ((result_530X < 0)) { - goto L25903;} + goto L25912;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_524X; @@ -4200,7 +4200,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_525X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} else { if ((result_530X < 0)) { push_exception_continuationB(5, 1); @@ -4209,9 +4209,9 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_525X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { - goto L25903;}}} + goto L25912;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_524X; @@ -4219,7 +4219,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_525X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}} + goto L16666;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_524X; @@ -4227,16 +4227,16 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_525X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 86 : { x_532X = SvalS; if ((9 == (255 & x_532X))) { arg0K0 = 5; - goto L38383;} + goto L38392;} else { arg0K0 = 1; - goto L38383;}} + goto L38392;}} break; case 87 : { SstackS = ((SstackS) + 4); @@ -4246,14 +4246,14 @@ long s48_restart(long proc_345X, long nargs_346X) x_534X = SvalS; if ((arg2_533X == x_534X)) { arg0K0 = 5; - goto L28166;} + goto L28175;} else { arg0K0 = 1; - goto L28166;}} + goto L28175;}} else { - goto L28139;}} + goto L28148;}} else { - goto L28139;}} + goto L28148;}} break; case 88 : { SstackS = ((SstackS) + 4); @@ -4263,56 +4263,56 @@ long s48_restart(long proc_345X, long nargs_346X) x_536X = SvalS; if ((arg2_535X < x_536X)) { arg0K0 = 5; - goto L28076;} + goto L28085;} else { arg0K0 = 1; - goto L28076;}} + goto L28085;}} else { - goto L28049;}} + goto L28058;}} else { - goto L28049;}} + goto L28058;}} break; case 89 : { if ((9 == (255 & (SvalS)))) { SvalS = (((((((((SvalS))>>8)))))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 90 : { if ((0 == (3 & (SvalS)))) { x_537X = (((SvalS))>>2); if ((255 < x_537X)) { - goto L32748;} + goto L32757;} else { if ((x_537X < 0)) { - goto L32748;} + goto L32757;} else { SvalS = (9 + (((((x_537X)))<<8))); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}}} + goto L18439;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 91 : { x_538X = SvalS; if ((21 == x_538X)) { arg0K0 = 5; - goto L38412;} + goto L38421;} else { arg0K0 = 1; - goto L38412;}} + goto L38421;}} break; case 92 : { x_539X = SvalS; @@ -4320,13 +4320,13 @@ long s48_restart(long proc_345X, long nargs_346X) if ((3 == (3 & x_539X))) { if (((31 & ((((*((long *) ((((char *) (-3 + x_539X))) + -4))))>>2))) == type_540X)) { arg0K0 = 5; - goto L38426;} + goto L38435;} else { arg0K0 = 1; - goto L38426;}} + goto L38435;}} else { arg0K0 = 1; - goto L38426;}} + goto L38435;}} break; case 93 : { stob_541X = SvalS; @@ -4336,26 +4336,26 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (-4 & (3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_541X))) + -4))))>>8)))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L21229;}} + goto L21230;}} else { - goto L21229;}} + goto L21230;}} break; case 94 : { len_543X = *((unsigned char *) ((Scode_pointerS) + 1)); space_544X = 4 + (((len_543X)<<2)); v_545X = AVAILABLEp(space_544X); if (v_545X) { - goto L21301;} + goto L21302;} else { collect_saving_temps(1, 1, &temp1_546X); v_547X = AVAILABLEp(space_544X); if (v_547X) { - goto L21301;} + goto L21302;} else { ps_error("Scheme48 heap overflow", 0); - goto L21301;}}} + goto L21302;}}} break; case 95 : { SstackS = ((SstackS) + 4); @@ -4363,15 +4363,15 @@ long s48_restart(long proc_345X, long nargs_346X) space_549X = 4 + (((len_548X)<<2)); v_550X = AVAILABLEp(space_549X); if (v_550X) { - goto L21483;} + goto L21484;} else { collect_saving_temps(1, 1, &temp1_551X); v_552X = AVAILABLEp(space_549X); if (v_552X) { - goto L21483;} + goto L21484;} else { ps_error("Scheme48 heap overflow", 0); - goto L21483;}}} + goto L21484;}}} break; case 96 : { stob_553X = SvalS; @@ -4382,11 +4382,11 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (*((long *) ((((char *) (-3 + stob_553X))) + (((offset_554X)<<2))))); Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L21693;}} + goto L21694;}} else { - goto L21693;}} + goto L21694;}} break; case 97 : { SstackS = ((SstackS) + 4); @@ -4404,15 +4404,15 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L21796;}} + goto L21797;}} else { - goto L21796;}} + goto L21797;}} else { - goto L21796;}} + goto L21797;}} else { - goto L21796;}} + goto L21797;}} break; case 98 : { SstackS = ((SstackS) + 4); @@ -4423,27 +4423,27 @@ long s48_restart(long proc_345X, long nargs_346X) len_564X = ((len_561X)>>2); size_565X = 1 + len_564X; if ((len_564X < 0)) { - goto L21981;} + goto L21982;} else { if ((4194305 < size_565X)) { - goto L21981;} + goto L21982;} else { v_566X = AVAILABLEp(size_565X); if (v_566X) { arg2K0 = 1; arg0K1 = init_562X; - goto L21999;} + goto L22000;} else { temp0_567X = collect_saving_temps(init_562X, 1, &temp1_568X); v_569X = AVAILABLEp(size_565X); if (v_569X) { arg2K0 = 1; arg0K1 = temp0_567X; - goto L21999;} + goto L22000;} else { arg2K0 = 0; arg0K1 = temp0_567X; - goto L21999;}}}}} + goto L22000;}}}}} else { push_exception_continuationB(5, 2); *((long *) (SstackS)) = (((type_563X)<<2)); @@ -4453,7 +4453,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = init_562X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;}} + goto L16666;}} break; case 99 : { SstackS = ((SstackS) + 4); @@ -4466,21 +4466,21 @@ long s48_restart(long proc_345X, long nargs_346X) len_573X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_570X))) + -4))))>>8))))>>2); index_574X = ((index_571X)>>2); if ((index_574X < 0)) { - goto L22277;} + goto L22278;} else { if ((index_574X < len_573X)) { SvalS = (*((long *) ((((char *) (-3 + stob_570X))) + (-4 & index_571X)))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L22277;}}} + goto L22278;}}} else { - goto L22254;}} + goto L22255;}} else { - goto L22254;}} + goto L22255;}} else { - goto L22254;}} + goto L22255;}} break; case 100 : { SstackS = ((SstackS) + 4); @@ -4497,7 +4497,7 @@ long s48_restart(long proc_345X, long nargs_346X) len_579X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_576X))) + -4))))>>8))))>>2); index_580X = ((arg2_575X)>>2); if ((index_580X < 0)) { - goto L22517;} + goto L22518;} else { if ((index_580X < len_579X)) { addr_581X = (((char *) (-3 + stob_576X))) + (-4 & arg2_575X); @@ -4506,19 +4506,19 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L22517;}}} + goto L22518;}}} else { - goto L22492;}} + goto L22493;}} else { - goto L22492;}} + goto L22493;}} else { - goto L22492;}} + goto L22493;}} else { - goto L22492;}} + goto L22493;}} else { - goto L22492;}} + goto L22493;}} break; case 101 : { SstackS = ((SstackS) + 4); @@ -4528,19 +4528,19 @@ long s48_restart(long proc_345X, long nargs_346X) init_584X = (((SvalS))>>2); size_585X = 1 + ((((3 + len_583X))>>2)); if ((len_583X < 0)) { - goto L26074;} + goto L26083;} else { if ((4194305 < size_585X)) { - goto L26074;} + goto L26083;} else { v_586X = AVAILABLEp(size_585X); if (v_586X) { - goto L26166;} + goto L26175;} else { collect_saving_temps(1, 1, &temp1_587X); v_588X = AVAILABLEp(size_585X); if (v_588X) { - goto L26166;} + goto L26175;} else { push_exception_continuationB(8, 1); *((long *) (SstackS)) = (((len_583X)<<2)); @@ -4548,7 +4548,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((init_584X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}}}} + goto L16666;}}}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_582X; @@ -4556,7 +4556,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 102 : { obj_589X = SvalS; @@ -4565,11 +4565,11 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (((((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8)))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L36239;}} + goto L36248;}} else { - goto L36239;}} + goto L36248;}} break; case 103 : { SstackS = ((SstackS) + 4); @@ -4580,21 +4580,21 @@ long s48_restart(long proc_345X, long nargs_346X) index_591X = (((SvalS))>>2); len_592X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_590X))) + -4))))>>8); if ((index_591X < 0)) { - goto L32854;} + goto L32863;} else { if ((index_591X < len_592X)) { SvalS = ((((*((unsigned char *) ((((char *) (-3 + arg2_590X))) + index_591X))))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L32854;}}} + goto L32863;}}} else { - goto L35818;}} + goto L35827;}} else { - goto L35818;}} + goto L35827;}} else { - goto L35818;}} + goto L35827;}} break; case 104 : { SstackS = ((SstackS) + 4); @@ -4610,26 +4610,26 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (128 & (*((long *) ((((char *) (-3 + arg3_594X))) + -4)))))) { len_597X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_594X))) + -4))))>>8); if ((index_595X < 0)) { - goto L29802;} + goto L29811;} else { if ((index_595X < len_597X)) { *((unsigned char *) ((((char *) (-3 + arg3_594X))) + index_595X)) = Kchar_596X; SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L29802;}}} + goto L29811;}}} else { - goto L29781;}} + goto L29790;}} else { - goto L29781;}} + goto L29790;}} else { - goto L34230;}} + goto L34239;}} else { - goto L34230;}} + goto L34239;}} else { - goto L34230;}} + goto L34239;}} break; case 105 : { SstackS = ((SstackS) + 4); @@ -4640,19 +4640,19 @@ long s48_restart(long proc_345X, long nargs_346X) init_600X = ((((SvalS))>>8)); size_601X = 1 + ((((4 + len_599X))>>2)); if ((len_599X < 0)) { - goto L26308;} + goto L26317;} else { if ((4194305 < size_601X)) { - goto L26308;} + goto L26317;} else { v_602X = AVAILABLEp(size_601X); if (v_602X) { - goto L26400;} + goto L26409;} else { collect_saving_temps(1, 1, &temp1_603X); v_604X = AVAILABLEp(size_601X); if (v_604X) { - goto L26400;} + goto L26409;} else { push_exception_continuationB(8, 1); *((long *) (SstackS)) = (((len_599X)<<2)); @@ -4660,11 +4660,11 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (9 + ((((init_600X))<<8))); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}}}} + goto L16666;}}}}} else { - goto L32935;}} + goto L32944;}} else { - goto L32935;}} + goto L32944;}} break; case 106 : { obj_605X = SvalS; @@ -4673,11 +4673,11 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (-4 + (((((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8)))<<2))); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L36289;}} + goto L36298;}} else { - goto L36289;}} + goto L36298;}} break; case 107 : { SstackS = ((SstackS) + 4); @@ -4688,21 +4688,21 @@ long s48_restart(long proc_345X, long nargs_346X) index_607X = (((SvalS))>>2); len_608X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_606X))) + -4))))>>8)); if ((index_607X < 0)) { - goto L32998;} + goto L33007;} else { if ((index_607X < len_608X)) { SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + arg2_606X))) + index_607X))))))<<8))); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L32998;}}} + goto L33007;}}} else { - goto L35914;}} + goto L35923;}} else { - goto L35914;}} + goto L35923;}} else { - goto L35914;}} + goto L35923;}} break; case 108 : { SstackS = ((SstackS) + 4); @@ -4719,41 +4719,41 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (128 & (*((long *) ((((char *) (-3 + arg3_610X))) + -4)))))) { len_613X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_610X))) + -4))))>>8)); if ((index_611X < 0)) { - goto L29957;} + goto L29966;} else { if ((index_611X < len_613X)) { *((unsigned char *) ((((char *) (-3 + arg3_610X))) + index_611X)) = (Kchar_612X); SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L29957;}}} + goto L29966;}}} else { - goto L29936;}} + goto L29945;}} else { - goto L29936;}} + goto L29945;}} else { - goto L34356;}} + goto L34365;}} else { - goto L34356;}} + goto L34365;}} else { - goto L34356;}} + goto L34365;}} else { - goto L34356;}} + goto L34365;}} break; case 109 : { v_614X = AVAILABLEp(3); if (v_614X) { - goto L24478;} + goto L24487;} else { collect_saving_temps(1, 1, &temp1_615X); v_616X = AVAILABLEp(3); if (v_616X) { - goto L24478;} + goto L24487;} else { ps_error("Scheme48 heap overflow", 0); - goto L24478;}}} + goto L24487;}}} break; case 110 : { obj_617X = SvalS; @@ -4764,17 +4764,17 @@ long s48_restart(long proc_345X, long nargs_346X) if ((17 == (255 & descriptor_619X))) { if ((529 == (*((long *) ((((char *) (-3 + x_618X))) + 4))))) { arg0K0 = 5; - goto L33976;} + goto L33985;} else { arg0K0 = 1; - goto L33976;}} + goto L33985;}} else { arg0K0 = 5; - goto L33976;}} + goto L33985;}} else { - goto L33957;}} + goto L33966;}} else { - goto L33957;}} + goto L33966;}} break; case 111 : { SstackS = ((SstackS) + 4); @@ -4783,112 +4783,112 @@ long s48_restart(long proc_345X, long nargs_346X) if ((4 == (31 & ((((*((long *) ((((char *) (-3 + arg2_620X))) + -4))))>>2))))) { x_621X = SvalS; if ((1 == x_621X)) { - goto L29544;} + goto L29553;} else { if ((5 == x_621X)) { - goto L29544;} + goto L29553;} else { - goto L29551;}}} + goto L29560;}}} else { - goto L29551;}} + goto L29560;}} else { - goto L29551;}} + goto L29560;}} break; case 112 : { x_622X = SvalS; if ((3 == (3 & x_622X))) { if ((0 == (128 & (*((long *) ((((char *) (-3 + x_622X))) + -4)))))) { arg0K0 = 1; - goto L38498;} + goto L38507;} else { arg0K0 = 5; - goto L38498;}} + goto L38507;}} else { arg0K0 = 5; - goto L38498;}} + goto L38507;}} break; case 113 : { x_623X = SvalS; if ((3 == (3 & x_623X))) { if ((0 == (128 & (*((long *) ((((char *) (-3 + x_623X))) + -4)))))) { *((long *) ((((char *) (-3 + x_623X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_623X))) + -4)))); - goto L33080;} + goto L33089;} else { - goto L33080;}} + goto L33089;}} else { - goto L33080;}} + goto L33089;}} break; case 114 : { v_624X = AVAILABLEp(72); if (v_624X) { arg2K0 = 1; arg0K1 = 0; - goto L33131;} + goto L33140;} else { collect_saving_temps(1, 1, &temp1_625X); v_626X = AVAILABLEp(72); if (v_626X) { arg2K0 = 1; arg0K1 = 0; - goto L33131;} + goto L33140;} else { arg2K0 = 0; arg0K1 = 0; - goto L33131;}}} + goto L33140;}}} break; case 115 : { v_627X = AVAILABLEp(66); if (v_627X) { arg2K0 = 1; arg0K1 = 0; - goto L34474;} + goto L34483;} else { collect_saving_temps(1, 1, &temp1_628X); v_629X = AVAILABLEp(66); if (v_629X) { arg2K0 = 1; arg0K1 = 0; - goto L34474;} + goto L34483;} else { arg2K0 = 0; arg0K1 = 0; - goto L34474;}}} + goto L34483;}}} break; case 116 : { v_630X = AVAILABLEp(66); if (v_630X) { arg2K0 = 1; arg0K1 = 0; - goto L37343;} + goto L37352;} else { collect_saving_temps(1, 1, &temp1_631X); v_632X = AVAILABLEp(66); if (v_632X) { arg2K0 = 1; arg0K1 = 0; - goto L37343;} + goto L37352;} else { arg2K0 = 0; arg0K1 = 0; - goto L37343;}}} + goto L37352;}}} break; case 117 : { v_633X = AVAILABLEp(66); if (v_633X) { arg2K0 = 1; arg0K1 = 0; - goto L37603;} + goto L37612;} else { collect_saving_temps(1, 1, &temp1_634X); v_635X = AVAILABLEp(66); if (v_635X) { arg2K0 = 1; arg0K1 = 0; - goto L37603;} + goto L37612;} else { arg2K0 = 0; arg0K1 = 0; - goto L37603;}}} + goto L37612;}}} break; case 118 : { obj_636X = SvalS; @@ -4902,7 +4902,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) addr_639X) = 1; n_640X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_637X))) + 8))))>>2))); arg0K0 = (((n_640X)<<2)); - goto L33202;} + goto L33211;} else { if ((channel_637X == head_638X)) { channel_641X = Spending_channels_headS; @@ -4913,43 +4913,43 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) addr_643X) = 1; if ((1 == next_642X)) { Spending_channels_tailS = 1; - goto L8173;} + goto L8174;} else { - goto L8173;}} + goto L8174;}} else { arg0K0 = (*((long *) ((((char *) (-3 + head_638X))) + 12))); arg0K1 = head_638X; - goto L8179;}}} + goto L8180;}}} else { - goto L33185;}} + goto L33194;}} else { - goto L33185;}} + goto L33194;}} break; case 119 : { space_644X = 3 * (Snumber_of_channelsS); v_645X = AVAILABLEp(space_644X); if (v_645X) { - goto L14777;} + goto L14778;} else { collect_saving_temps(1, 1, &temp1_646X); v_647X = AVAILABLEp(space_644X); if (v_647X) { - goto L14777;} + goto L14778;} else { ps_error("Scheme48 heap overflow", 0); - goto L14777;}}} + goto L14778;}}} break; case 120 : { SvalS = 529; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 121 : { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 122 : { x_648X = SvalS; @@ -4957,44 +4957,44 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_648X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} break; case 123 : { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 124 : { SvalS = 21; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 125 : { v_649X = AVAILABLEp(66); if (v_649X) { arg2K0 = 1; arg0K1 = 0; - goto L34575;} + goto L34584;} else { collect_saving_temps(1, 1, &temp1_650X); v_651X = AVAILABLEp(66); if (v_651X) { arg2K0 = 1; arg0K1 = 0; - goto L34575;} + goto L34584;} else { arg2K0 = 0; arg0K1 = 0; - goto L34575;}}} + goto L34584;}}} break; case 126 : { SvalS = 13; collect_saving_temps(0, 0, &v_652X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 127 : { obj_653X = SvalS; @@ -5004,24 +5004,24 @@ long s48_restart(long proc_345X, long nargs_346X) n_655X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_654X))) + -4))))>>8)); arg0K0 = 0; arg0K1 = 0; - goto L35407;} + goto L35416;} else { - goto L35384;}} + goto L35393;}} else { - goto L35384;}} + goto L35393;}} break; case 128 : { v_656X = AVAILABLEp(6); if (v_656X) { - goto L38564;} + goto L38573;} else { collect_saving_temps(1, 1, &temp1_657X); v_658X = AVAILABLEp(6); if (v_658X) { - goto L38564;} + goto L38573;} else { ps_error("Scheme48 heap overflow", 0); - goto L38564;}}} + goto L38573;}}} break; case 129 : { SstackS = ((SstackS) + 4); @@ -5033,34 +5033,34 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (-4 & other_661X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((0 == key_660X)) { x_662X = s48_available(); SvalS = (((x_662X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((1 == key_660X)) { bytes_663X = s48_heap_size(); SvalS = (-4 & (3 + bytes_663X)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((2 == key_660X)) { SvalS = (((((Sstack_endS) - (Sstack_beginS)))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((3 == key_660X)) { x_664X = s48_gc_count(); SvalS = (((x_664X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((4 == key_660X)) { push_exception_continuationB(15, 1); @@ -5069,7 +5069,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = other_661X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { push_exception_continuationB(18, 1); *((long *) (SstackS)) = (((key_660X)<<2)); @@ -5077,7 +5077,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = other_661X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}}}}}} + goto L16666;}}}}}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_659X; @@ -5085,69 +5085,69 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 130 : { if ((0 == (3 & (SvalS)))) { type_665X = (((SvalS))>>2); arg2K0 = 1; - goto L33293;} + goto L33302;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 131 : { x_666X = SvalS; arg2K0 = 1; arg0K1 = x_666X; - goto L38614;} + goto L38623;} break; case 132 : { SvalS = (Scurrent_threadS); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 133 : { Scurrent_threadS = (SvalS); SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 134 : { SvalS = (Ssession_dataS); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 135 : { Ssession_dataS = (SvalS); SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 136 : { obj_667X = SvalS; if ((3 == (3 & obj_667X))) { if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_667X))) + -4))))>>2))))) { if ((((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8))))>>2)) < 160)) { - goto L20570;} + goto L20571;} else { temp_668X = Sexception_handlersS; Sexception_handlersS = (SvalS); SvalS = temp_668X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} else { - goto L20570;}} + goto L20571;}} else { - goto L20570;}} + goto L20571;}} break; case 137 : { SstackS = ((SstackS) + 4); @@ -5160,25 +5160,25 @@ long s48_restart(long proc_345X, long nargs_346X) StemplateS = template_670X; Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_670X)))))))) + ((((((((((p_669X)>>2)) + (((p_671X)>>2))))<<2)))>>2))); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} break; case 138 : { obj_672X = SvalS; if ((3 == (3 & obj_672X))) { if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_672X))) + -4))))>>2))))) { if ((((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8))))>>2)) < 5)) { - goto L19494;} + goto L19495;} else { temp_673X = Sinterrupt_handlersS; Sinterrupt_handlersS = (SvalS); SvalS = temp_673X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} else { - goto L19494;}} + goto L19495;}} else { - goto L19494;}} + goto L19495;}} break; case 139 : { old_674X = Senabled_interruptsS; @@ -5188,12 +5188,12 @@ long s48_restart(long proc_345X, long nargs_346X) s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L38655;} + goto L38664;} else { - goto L38655;}} + goto L38664;}} else { s48_Spending_interruptPS = 1; - goto L38655;}} + goto L38664;}} break; case 140 : { SstackS = ((SstackS) + 4); @@ -5203,12 +5203,12 @@ long s48_restart(long proc_345X, long nargs_346X) s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L18452;} + goto L18453;} else { - goto L18452;}} + goto L18453;}} else { s48_Spending_interruptPS = 1; - goto L18452;}} + goto L18453;}} break; case 141 : { if ((0 == (3 & (SvalS)))) { @@ -5218,18 +5218,18 @@ long s48_restart(long proc_345X, long nargs_346X) s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L37163;} + goto L37172;} else { - goto L37163;}} + goto L37172;}} else { s48_Spending_interruptPS = 1; - goto L37163;}} + goto L37172;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} break; case 142 : { SstackS = ((SstackS) + 4); @@ -5237,14 +5237,14 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (3 & arg2_678X))) { x_679X = SvalS; if ((1 == x_679X)) { - goto L34103;} + goto L34112;} else { if ((5 == x_679X)) { - goto L34103;} + goto L34112;} else { - goto L34108;}}} + goto L34117;}}} else { - goto L34108;}} + goto L34117;}} break; case 143 : { SstackS = ((SstackS) + 4); @@ -5253,33 +5253,35 @@ long s48_restart(long proc_345X, long nargs_346X) p_681X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); rest_list_682X = *((long *) (SstackS)); - if ((12 < nargs_680X)) { - push_exception_continuationB(20, (1 + (*((long *) ((SstackS) + (-4 & p_681X)))))); + if ((14 < nargs_680X)) { + push_exception_continuationB(20, 1); + *((long *) (SstackS)) = (*((long *) ((SstackS) + (-4 & p_681X)))); + SstackS = ((SstackS) + -4); *((long *) (SstackS)) = nargs_680X; SstackS = ((SstackS) + -4); - arg0K0 = 1; - goto L16665;} + arg0K0 = 2; + goto L16666;} else { arg0K0 = rest_list_682X; - goto L22787;}} + goto L22790;}} break; case 144 : { v_683X = AVAILABLEp(5); if (v_683X) { arg2K0 = 1; arg0K1 = 0; - goto L33402;} + goto L33411;} else { collect_saving_temps(1, 1, &temp1_684X); v_685X = AVAILABLEp(5); if (v_685X) { arg2K0 = 1; arg0K1 = 0; - goto L33402;} + goto L33411;} else { arg2K0 = 0; arg0K1 = 0; - goto L33402;}}} + goto L33411;}}} break; case 146 : { SstackS = ((SstackS) + 4); @@ -5288,16 +5290,16 @@ long s48_restart(long proc_345X, long nargs_346X) if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_686X))) + -4))))>>2))))) { x_687X = SvalS; if ((1 == x_687X)) { - goto L23905;} + goto L23914;} else { if ((5 == x_687X)) { - goto L23905;} + goto L23914;} else { - goto L23910;}}} + goto L23919;}}} else { - goto L23910;}} + goto L23919;}} else { - goto L23910;}} + goto L23919;}} break; case 147 : { SstackS = ((SstackS) + 4); @@ -5310,21 +5312,21 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (((x_691X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((0 == option_689X)) { seconds_692X = s48_run_time(&mseconds_693X); arg0K0 = option_689X; arg0K1 = seconds_692X; arg0K2 = mseconds_693X; - goto L35318;} + goto L35327;} else { if ((1 == option_689X)) { seconds_694X = s48_real_time(&mseconds_695X); arg0K0 = option_689X; arg0K1 = seconds_694X; arg0K2 = mseconds_695X; - goto L35318;} + goto L35327;} else { push_exception_continuationB(18, 1); *((long *) (SstackS)) = (((option_689X)<<2)); @@ -5332,7 +5334,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = other_690X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}}} + goto L16666;}}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_688X; @@ -5340,7 +5342,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 148 : { SstackS = ((SstackS) + 4); @@ -5353,7 +5355,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (s48_Sextension_valueS); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((1 == status_699X)) { push_exception_continuationB(23, 1); @@ -5362,7 +5364,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_698X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { push_exception_continuationB(24, 1); *((long *) (SstackS)) = (((key_697X)<<2)); @@ -5370,7 +5372,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_698X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}} + goto L16666;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_696X; @@ -5378,7 +5380,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} break; case 149 : { SstackS = ((SstackS) + 4); @@ -5389,12 +5391,12 @@ long s48_restart(long proc_345X, long nargs_346X) s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L38715;} + goto L38724;} else { - goto L38715;}} + goto L38724;}} else { s48_Spending_interruptPS = 1; - goto L38715;}} + goto L38724;}} break; case 150 : { SstackS = ((SstackS) + 4); @@ -5409,35 +5411,35 @@ long s48_restart(long proc_345X, long nargs_346X) if ((len_705X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_704X))) + -4))))>>8)))) { if (((!memcmp((void *)(((char *) (-3 + x_704X))), (void *)(((char *) (-3 + arg2_702X))),len_705X)))) { arg0K0 = 5; - goto L27842;} + goto L27851;} else { arg0K0 = 1; - goto L27842;}} + goto L27851;}} else { arg0K0 = 1; - goto L27842;}} + goto L27851;}} else { - goto L27809;}} + goto L27818;}} else { - goto L27809;}} + goto L27818;}} else { - goto L27809;}} + goto L27818;}} else { - goto L27809;}} + goto L27818;}} break; case 151 : { space_706X = 1 + ((((4 + ((((SvalS))>>2))))>>2)); v_707X = AVAILABLEp(space_706X); if (v_707X) { - goto L33611;} + goto L33620;} else { collect_saving_temps(1, 1, &temp1_708X); v_709X = AVAILABLEp(space_706X); if (v_709X) { - goto L33611;} + goto L33620;} else { ps_error("Scheme48 heap overflow", 0); - goto L33611;}}} + goto L33620;}}} break; case 152 : { SstackS = ((SstackS) + 4); @@ -5446,7 +5448,7 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K0 = list_711X; arg0K1 = list_711X; arg2K2 = 1; - goto L29199;} + goto L29208;} break; case 153 : { SstackS = ((SstackS) + 4); @@ -5460,21 +5462,21 @@ long s48_restart(long proc_345X, long nargs_346X) if ((arg2_712X == (*((long *) (((char *) (-3 + arg3_713X))))))) { len_715X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_713X))) + -4))))>>8))))>>2); if ((index_714X < 0)) { - goto L27515;} + goto L27524;} else { if ((index_714X < len_715X)) { SvalS = (*((long *) ((((char *) (-3 + arg3_713X))) + (((index_714X)<<2))))); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L27515;}}} + goto L27524;}}} else { - goto L27535;}} + goto L27544;}} else { - goto L27535;}} + goto L27544;}} else { - goto L27535;}} + goto L27544;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_713X; @@ -5484,7 +5486,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;}} + goto L16666;}} break; case 154 : { SstackS = ((SstackS) + 4); @@ -5503,7 +5505,7 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (128 & (*((long *) ((((char *) (-3 + arg4_718X))) + -4)))))) { len_721X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_718X))) + -4))))>>8))))>>2); if ((index_719X < 0)) { - goto L30704;} + goto L30713;} else { if ((index_719X < len_721X)) { addr_722X = (((char *) (-3 + arg4_718X))) + (((index_719X)<<2)); @@ -5512,19 +5514,19 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L30704;}}} + goto L30713;}}} else { - goto L30726;}} + goto L30735;}} else { - goto L30726;}} + goto L30735;}} else { - goto L30726;}} + goto L30735;}} else { - goto L30726;}} + goto L30735;}} else { - goto L30726;}} + goto L30735;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg4_718X; @@ -5536,7 +5538,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;}} + goto L16666;}} break; case 155 : { SstackS = ((SstackS) + 4); @@ -5553,11 +5555,11 @@ long s48_restart(long proc_345X, long nargs_346X) count_729X = (((SvalS))>>2); if ((3 == (3 & arg5_726X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { - goto L30955;} + goto L30964;} else { - goto L30950;}} + goto L30959;}} else { - goto L30950;}} + goto L30959;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg5_726X; @@ -5571,13 +5573,13 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16665;}} + goto L16666;}} break; case 156 : { v_730X = *((unsigned char *) ((Scode_pointerS) + 1)); if ((0 == v_730X)) { arg0K0 = (SvalS); - goto L23037;} + goto L23046;} else { merged_arg0K0 = 0; get_current_port_return_tag = 0; @@ -5585,13 +5587,13 @@ long s48_restart(long proc_345X, long nargs_346X) get_current_port_return_0: v_731X = get_current_port0_return_value; arg0K0 = v_731X; - goto L23037;}} + goto L23046;}} break; case 157 : { v_732X = *((unsigned char *) ((Scode_pointerS) + 1)); if ((0 == v_732X)) { arg0K0 = (SvalS); - goto L23257;} + goto L23266;} else { merged_arg0K0 = 0; get_current_port_return_tag = 1; @@ -5599,7 +5601,7 @@ long s48_restart(long proc_345X, long nargs_346X) get_current_port_return_1: v_733X = get_current_port0_return_value; arg0K0 = v_733X; - goto L23257;}} + goto L23266;}} break; case 158 : { v_734X = *((unsigned char *) ((Scode_pointerS) + 1)); @@ -5608,7 +5610,7 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + 4); arg0K0 = (*((long *) (SstackS))); arg0K1 = v_735X; - goto L23470;} + goto L23479;} else { merged_arg0K0 = 4; get_current_port_return_tag = 2; @@ -5617,27 +5619,27 @@ long s48_restart(long proc_345X, long nargs_346X) v_736X = get_current_port0_return_value; arg0K0 = (SvalS); arg0K1 = v_736X; - goto L23470;}} + goto L23479;}} break; case 159 : { x_737X = SvalS; out_738X = stderr; arg0K0 = x_737X; - goto L29452;} + goto L29461;} break; }} - L16665: { + L16666: { nargs_739X = arg0K0; opcode_740X = (((*((long *) ((SstackS) + (8 + (((nargs_739X)<<2)))))))>>2); obj_741X = Sexception_handlersS; if ((3 == (3 & obj_741X))) { if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_741X))) + -4))))>>2))))) { - goto L16724;} + goto L16725;} else { - goto L16797;}} + goto L16798;}} else { - goto L16797;}} - L23824: { + goto L16798;}} + L23833: { env_742X = arg0K0; i_743X = arg0K1; if ((0 == i_743X)) { @@ -5645,16 +5647,16 @@ long s48_restart(long proc_345X, long nargs_346X) if ((529 == (SvalS))) { push_exception_continuationB(0, 3); arg0K0 = 0; - goto L16665;} + goto L16666;} else { Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} else { arg0K0 = (*((long *) (((char *) (-3 + env_742X))))); arg0K1 = (-1 + i_743X); - goto L23824;}} - L20247: { + goto L23833;}} + L20248: { env_744X = arg0K0; i_745X = arg0K1; if ((0 == i_745X)) { @@ -5662,16 +5664,16 @@ long s48_restart(long proc_345X, long nargs_346X) if ((529 == (SvalS))) { push_exception_continuationB(0, 5); arg0K0 = 0; - goto L16665;} + goto L16666;} else { Scode_pointerS = ((Scode_pointerS) + 5); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} else { arg0K0 = (*((long *) (((char *) (-3 + env_744X))))); arg0K1 = (-1 + i_745X); - goto L20247;}} - L20185: { + goto L20248;}} + L20186: { env_746X = arg0K0; i_747X = arg0K1; if ((0 == i_747X)) { @@ -5683,48 +5685,48 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 5); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { arg0K0 = (*((long *) (((char *) (-3 + env_746X))))); arg0K1 = (-1 + i_747X); - goto L20185;}} - L20964: { + goto L20186;}} + L20965: { space_751X = arg0K0; v_752X = AVAILABLEp(space_751X); if (v_752X) { arg2K0 = 1; arg0K1 = 0; - goto L21038;} + goto L21039;} else { collect_saving_temps(1, 1, &temp1_753X); v_754X = AVAILABLEp(space_751X); if (v_754X) { arg2K0 = 1; arg0K1 = 0; - goto L21038;} + goto L21039;} else { arg2K0 = 0; arg0K1 = 0; - goto L21038;}}} - L20971: { + goto L21039;}}} + L20972: { env_755X = arg0K0; v_756X = AVAILABLEp(3); if (v_756X) { arg2K0 = 1; arg0K1 = env_755X; - goto L20996;} + goto L20997;} else { temp0_757X = collect_saving_temps(env_755X, 1, &temp1_758X); v_759X = AVAILABLEp(3); if (v_759X) { arg2K0 = 1; arg0K1 = temp0_757X; - goto L20996;} + goto L20997;} else { arg2K0 = 0; arg0K1 = temp0_757X; - goto L20996;}}} - L20766: { + goto L20997;}}} + L20767: { len_760X = ((total_count_393X)<<2); addr_761X = ALLOCATE_SPACE(2, (4 + len_760X)); *((long *) addr_761X) = (10 + (((len_760X)<<8))); @@ -5732,53 +5734,53 @@ long s48_restart(long proc_345X, long nargs_346X) v_763X = *((unsigned char *) ((Scode_pointerS) + 1)); if ((0 == v_763X)) { arg0K0 = 0; - goto L20780;} + goto L20781;} else { value_764X = SvalS; addr_765X = ((char *) (-3 + new_env_762X)); S48_WRITE_BARRIER(new_env_762X, addr_765X, value_764X); *((long *) addr_765X) = value_764X; arg0K0 = 1; - goto L20780;}} - L20692: { + goto L20781;}} + L20693: { okayP_766X = arg2K0; key_767X = arg0K1; if (okayP_766X) { arg0K0 = key_767X; - goto L20680;} + goto L20681;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_767X; - goto L20680;}} - L19847: { + goto L20681;}} + L19848: { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L19882: { + goto L18439;} + L19883: { SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8); *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_402X; ScontS = (Sbottom_of_stackS); - goto L19847;} - L19848: { + goto L19848;} + L19849: { if ((1 == cont_402X)) { if ((0 == (3 & (SvalS)))) { s48_Scallback_return_stack_blockS = 1; return ((((SvalS))>>2));} else { - goto L19863;}} + goto L19864;}} else { - goto L19863;}} - L19208: { + goto L19864;}} + L19209: { okayP_768X = arg2K0; key_769X = arg0K1; if (okayP_768X) { arg0K0 = key_769X; - goto L19163;} + goto L19164;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_769X; - goto L19163;}} - L19120: { + goto L19164;}} + L19121: { if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { s48_Spending_eventsPS = 0; @@ -5788,21 +5790,21 @@ long s48_restart(long proc_345X, long nargs_346X) v_770X = check_events0_return_value; if (v_770X) { arg0K0 = stack_arg_count_403X; - goto L16894;} + goto L16895;} else { - goto L19124;}} + goto L19125;}} else { arg0K0 = stack_arg_count_403X; - goto L16894;}} + goto L16895;}} else { - goto L19124;}} - L16066: { + goto L19125;}} + L16067: { stack_arg_count_771X = arg0K0; code_772X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS)))))))))); arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_772X))) + 1))); arg0K1 = 64; - goto L16080;} - L17161: { + goto L16081;} + L17162: { exception_773X = arg0K0; stack_arg_count_774X = arg0K1; list_args_775X = arg0K2; @@ -5833,35 +5835,35 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = args_780X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} - L17628: { + goto L16666;}} + L17629: { loc_781X = arg1K0; arg_782X = arg1K1; if ((top_of_args_414X < arg_782X)) { *((long *) loc_781X) = (*((long *) arg_782X)); arg1K0 = (loc_781X + -4); arg1K1 = (arg_782X + -4); - goto L17628;} + goto L17629;} else { SstackS = loc_781X; obj_783X = SvalS; if ((3 == (3 & obj_783X))) { if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_783X))) + -4))))>>2))))) { arg0K0 = nargs_413X; - goto L16066;} + goto L16067;} else { arg0K0 = 3; arg0K1 = nargs_413X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} else { arg0K0 = 3; arg0K1 = nargs_413X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}}} - L17666: { + goto L17162;}}} + L17667: { stack_arg_count_784X = arg0K0; list_args_785X = arg0K1; list_arg_count_786X = arg0K2; @@ -5870,19 +5872,19 @@ long s48_restart(long proc_345X, long nargs_346X) if ((3 == (3 & obj_787X))) { if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_787X))) + -4))))>>2))))) { arg0K0 = stack_arg_count_784X; - goto L16066;} + goto L16067;} else { arg0K0 = 3; arg0K1 = stack_arg_count_784X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} else { arg0K0 = 3; arg0K1 = stack_arg_count_784X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} else { obj_788X = SvalS; if ((3 == (3 & obj_788X))) { @@ -5891,20 +5893,20 @@ long s48_restart(long proc_345X, long nargs_346X) total_arg_count_790X = stack_arg_count_784X + list_arg_count_786X; arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_789X))) + 1))); arg0K1 = 64; - goto L16357;} + goto L16358;} else { arg0K0 = 3; arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;}} + goto L17162;}} else { arg0K0 = 3; arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;}}} - L11273: { + goto L17162;}}} + L11274: { list_args_791X = arg0K0; stack_nargs_792X = arg0K1; merged_arg0K0 = list_args_791X; @@ -5918,7 +5920,7 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K0 = stack_nargs_792X; arg0K1 = list_args_791X; arg0K2 = list_arg_count_794X; - goto L17666;} + goto L17667;} else { *((long *) (SstackS)) = list_args_791X; SstackS = ((SstackS) + -4); @@ -5935,8 +5937,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = args_795X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} - L11314: { + goto L16666;}} + L11315: { list_796X = arg0K0; follower_797X = arg0K1; if ((25 == list_796X)) { @@ -5946,35 +5948,35 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) addr_799X) = list_args_798X; arg0K0 = rest_list_422X; arg0K1 = (-1 + stack_nargs_420X); - goto L11273;} + goto L11274;} else { arg0K0 = (*((long *) ((((char *) (-3 + list_796X))) + 4))); arg0K1 = (*((long *) ((((char *) (-3 + follower_797X))) + 4))); - goto L11314;}} - L17571: { + goto L11315;}} + L17572: { obj_800X = SvalS; if ((3 == (3 & obj_800X))) { if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_800X))) + -4))))>>2))))) { arg0K0 = 0; - goto L16066;} + goto L16067;} else { arg0K0 = 3; arg0K1 = 0; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} else { arg0K0 = 3; arg0K1 = 0; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} - L17578: { + goto L17162;}} + L17579: { SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8); *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_423X; ScontS = (Sbottom_of_stackS); - goto L17571;} - L20427: { + goto L17572;} + L20428: { stack_nargs_801X = arg0K0; list_args_802X = arg0K1; list_arg_count_803X = arg0K2; @@ -5985,25 +5987,25 @@ long s48_restart(long proc_345X, long nargs_346X) goto pop_continuationB; pop_continuationB_return_1: arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if (((ScontS) == (Sbottom_of_stackS))) { arg0K0 = (*((long *) (((char *) (-3 + (Sbottom_of_stackS)))))); - goto L20438;} + goto L20439;} else { arg0K0 = (ScontS); - goto L20438;}}} - L18944: { + goto L20439;}}} + L18945: { okayP_804X = arg2K0; key_805X = arg0K1; if (okayP_804X) { arg0K0 = key_805X; - goto L18932;} + goto L18933;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_805X; - goto L18932;}} - L18817: { + goto L18933;}} + L18818: { tem_806X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); StemplateS = tem_806X; Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_806X)))))))) + 2); @@ -6015,288 +6017,288 @@ long s48_restart(long proc_345X, long nargs_346X) check_events_return_1: v_807X = check_events0_return_value; if (v_807X) { - goto L18826;} + goto L18827;} else { - goto L18829;}} + goto L18830;}} else { - goto L18826;}} + goto L18827;}} else { - goto L18829;}} - L19000: { + goto L18830;}} + L19001: { okayP_808X = arg2K0; key_809X = arg0K1; if (okayP_808X) { arg0K0 = key_809X; - goto L18987;} + goto L18988;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_809X; - goto L18987;}} - L18862: { + goto L18988;}} + L18863: { push_exception_continuationB(5, 4); *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))))); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L18718: { + goto L16666;} + L18719: { arg0K0 = (2 + (((max_442X)<<1))); - goto L18720;} - L18720: { + goto L18721;} + L18721: { offset_810X = arg0K0; Scode_pointerS = ((Scode_pointerS) + offset_810X); arg1K0 = (Scode_pointerS); - goto L18438;} - L19750: { + goto L18439;} + L19751: { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L18616: { + goto L18439;} + L18617: { delta_811X = arg0K0; Scode_pointerS = ((Scode_pointerS) + delta_811X); arg1K0 = (Scode_pointerS); - goto L18438;} - L19641: { + goto L18439;} + L19642: { delta_812X = arg0K0; Scode_pointerS = ((Scode_pointerS) + delta_812X); arg1K0 = (Scode_pointerS); - goto L18438;} - L38026: { + goto L18439;} + L38035: { val_813X = arg0K0; SvalS = val_813X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L38038: { + goto L18439;} + L38047: { val_814X = arg0K0; SvalS = val_814X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L10622: { + goto L18439;} + L10623: { if ((3 == (3 & x_456X))) { if ((7 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) { arg0K0 = 5; - goto L38038;} + goto L38047;} else { - goto L10628;}} + goto L10629;}} else { - goto L10628;}} - L28391: { + goto L10629;}} + L28400: { SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28392: { + goto L18439;} + L28401: { if ((3 == (3 & n_457X))) { if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_457X))) + -4))))>>2))))) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = n_457X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} else { - goto L28396;}} + goto L28405;}} else { - goto L28396;}} - L28548: { + goto L28405;}} + L28557: { SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28523: { + goto L18439;} + L28532: { if ((3 == (3 & n_458X))) { if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) { - goto L28548;} + goto L28557;} else { - goto L28537;}} + goto L28546;}} else { - goto L28537;}} - L28747: { + goto L28546;}} + L28756: { SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28722: { + goto L18439;} + L28731: { if ((3 == (3 & n_459X))) { if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) { - goto L28747;} + goto L28756;} else { - goto L28736;}} + goto L28745;}} else { - goto L28736;}} - L28946: { + goto L28745;}} + L28955: { SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28921: { + goto L18439;} + L28930: { if ((3 == (3 & n_460X))) { if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) { - goto L28946;} + goto L28955;} else { - goto L28935;}} + goto L28944;}} else { - goto L28935;}} - L6775: { + goto L28944;}} + L6776: { a_815X = arg0K0; if ((b_470X < 0)) { arg0K0 = (0 - b_470X); - goto L6779;} + goto L6780;} else { arg0K0 = b_470X; - goto L6779;}} - L7056: { + goto L6780;}} + L7057: { a_816X = arg0K0; if ((b_477X < 0)) { arg0K0 = (0 - b_477X); - goto L7060;} + goto L7061;} else { arg0K0 = b_477X; - goto L7060;}} - L31744: { + goto L7061;}} + L31753: { val_817X = arg0K0; SvalS = val_817X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L31822: { + goto L18439;} + L31831: { val_818X = arg0K0; SvalS = val_818X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L31900: { + goto L18439;} + L31909: { val_819X = arg0K0; SvalS = val_819X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L31978: { + goto L18439;} + L31987: { val_820X = arg0K0; SvalS = val_820X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L32056: { + goto L18439;} + L32065: { val_821X = arg0K0; SvalS = val_821X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L7233: { + goto L18439;} + L7234: { a_822X = arg0K0; if ((b_491X < 0)) { arg0K0 = (0 - b_491X); - goto L7237;} + goto L7238;} else { arg0K0 = b_491X; - goto L7237;}} - L25338: { + goto L7238;}} + L25347: { a_823X = arg0K0; n_824X = ((y_493X)>>2); if ((n_824X < 0)) { arg0K0 = (0 - n_824X); - goto L25340;} + goto L25349;} else { arg0K0 = n_824X; - goto L25340;}} - L38295: { + goto L25349;}} + L38304: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_508X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L25624: { + goto L16666;} + L25633: { r_825X = arg0K0; if ((536870911 < r_825X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = n_509X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} else { SvalS = (((r_825X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L25903: { + goto L18439;}} + L25912: { SvalS = (((result_530X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L38383: { + goto L18439;} + L38392: { val_826X = arg0K0; SvalS = val_826X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28166: { + goto L18439;} + L28175: { val_827X = arg0K0; SvalS = val_827X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28139: { + goto L18439;} + L28148: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_533X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L28076: { + goto L16666;} + L28085: { val_828X = arg0K0; SvalS = val_828X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28049: { + goto L18439;} + L28058: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_535X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L32748: { + goto L16666;} + L32757: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (((x_537X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L38412: { + goto L16666;} + L38421: { val_829X = arg0K0; SvalS = val_829X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L38426: { + goto L18439;} + L38435: { value_830X = arg0K0; SvalS = value_830X; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;} - L21229: { + goto L18439;} + L21230: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = stob_541X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((type_542X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L21301: { + goto L16666;} + L21302: { type_831X = *((unsigned char *) ((Scode_pointerS) + 2)); len_832X = ((len_543X)<<2); addr_833X = ALLOCATE_SPACE(type_831X, (4 + len_832X)); *((long *) addr_833X) = (2 + (((((((len_832X)<<6)) + type_831X))<<2))); new_834X = 3 + (((long) (addr_833X + 4))); if ((len_543X < 1)) { - goto L21336;} + goto L21337;} else { *((long *) ((((char *) (-3 + new_834X))) + (-4 + (((len_543X)<<2))))) = (SvalS); arg0K0 = (-2 + len_543X); - goto L21320;}} - L21483: { + goto L21321;}} + L21484: { type_835X = *((unsigned char *) ((Scode_pointerS) + 1)); len_836X = ((len_548X)<<2); addr_837X = ALLOCATE_SPACE(type_835X, (4 + len_836X)); @@ -6307,8 +6309,8 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + 4); rest_list_840X = *((long *) (SstackS)); arg0K0 = (-1 + stack_nargs_839X); - goto L21505;} - L21693: { + goto L21506;} + L21694: { push_exception_continuationB(5, 3); *((long *) (SstackS)) = stob_553X; SstackS = ((SstackS) + -4); @@ -6317,8 +6319,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((offset_554X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L21796: { + goto L16666;} + L21797: { push_exception_continuationB(5, 3); *((long *) (SstackS)) = stob_556X; SstackS = ((SstackS) + -4); @@ -6329,8 +6331,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_557X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;} - L21981: { + goto L16666;} + L21982: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = (((type_563X)<<2)); SstackS = ((SstackS) + -4); @@ -6339,8 +6341,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = init_562X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L21999: { + goto L16666;} + L22000: { okayP_841X = arg2K0; init_842X = arg0K1; if (okayP_841X) { @@ -6349,7 +6351,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) addr_844X) = (2 + (((((((len_843X)<<6)) + type_563X))<<2))); value_845X = 3 + (((long) (addr_844X + 4))); arg0K0 = (-1 + len_564X); - goto L22028;} + goto L22029;} else { push_exception_continuationB(8, 2); *((long *) (SstackS)) = (((type_563X)<<2)); @@ -6359,8 +6361,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = init_842X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;}} - L22277: { + goto L16666;}} + L22278: { push_exception_continuationB(7, 2); *((long *) (SstackS)) = stob_570X; SstackS = ((SstackS) + -4); @@ -6369,8 +6371,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = index_571X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L22254: { + goto L16666;} + L22255: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = stob_570X; SstackS = ((SstackS) + -4); @@ -6379,8 +6381,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = index_571X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L22517: { + goto L16666;} + L22518: { push_exception_continuationB(7, 2); *((long *) (SstackS)) = stob_576X; SstackS = ((SstackS) + -4); @@ -6391,8 +6393,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_577X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;} - L22492: { + goto L16666;} + L22493: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = stob_576X; SstackS = ((SstackS) + -4); @@ -6403,44 +6405,44 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_577X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;} - L26074: { + goto L16666;} + L26083: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (((len_583X)<<2)); SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((init_584X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L26166: { + goto L16666;} + L26175: { addr_846X = ALLOCATE_SPACE(17, (4 + len_583X)); *((long *) addr_846X) = (70 + (((len_583X)<<8))); vector_847X = 3 + (((long) (addr_846X + 4))); arg0K0 = (-1 + len_583X); - goto L26115;} - L36239: { + goto L26124;} + L36248: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L32854: { + goto L16666;} + L32863: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg2_590X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((index_591X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L35818: { + goto L16666;} + L35827: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_590X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L29802: { + goto L16666;} + L29811: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg3_594X; SstackS = ((SstackS) + -4); @@ -6449,8 +6451,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((Kchar_596X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L29781: { + goto L16666;} + L29790: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_594X; SstackS = ((SstackS) + -4); @@ -6459,8 +6461,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((Kchar_596X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L34230: { + goto L16666;} + L34239: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_594X; SstackS = ((SstackS) + -4); @@ -6469,54 +6471,54 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L26308: { + goto L16666;} + L26317: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (((len_599X)<<2)); SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (9 + ((((init_600X))<<8))); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L26400: { + goto L16666;} + L26409: { len_848X = 1 + len_599X; addr_849X = ALLOCATE_SPACE(16, (4 + len_848X)); *((long *) addr_849X) = (66 + (((len_848X)<<8))); string_850X = 3 + (((long) (addr_849X + 4))); *((unsigned char *) ((((char *) (-3 + string_850X))) + len_599X)) = 0; arg0K0 = (-1 + len_599X); - goto L26349;} - L32935: { + goto L26358;} + L32944: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_598X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L36289: { + goto L16666;} + L36298: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L32998: { + goto L16666;} + L33007: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg2_606X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((index_607X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L35914: { + goto L16666;} + L35923: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_606X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L29957: { + goto L16666;} + L29966: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg3_610X; SstackS = ((SstackS) + -4); @@ -6525,8 +6527,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (9 + ((((Kchar_612X))<<8))); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L29936: { + goto L16666;} + L29945: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_610X; SstackS = ((SstackS) + -4); @@ -6535,8 +6537,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (9 + ((((Kchar_612X))<<8))); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L34356: { + goto L16666;} + L34365: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_610X; SstackS = ((SstackS) + -4); @@ -6545,8 +6547,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L24478: { + goto L16666;} + L24487: { obj_851X = SvalS; if ((3 == (3 & obj_851X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_851X))) + -4))))>>2))))) { @@ -6555,106 +6557,106 @@ long s48_restart(long proc_345X, long nargs_346X) n_854X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_853X))) + -4))))>>8)); arg0K0 = 0; arg0K1 = 0; - goto L13333;} + goto L13334;} else { - goto L24488;}} + goto L24497;}} else { - goto L24488;}} - L33976: { + goto L24497;}} + L33985: { val_855X = arg0K0; SvalS = val_855X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L33957: { + goto L18439;} + L33966: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L29544: { + goto L16666;} + L29553: { if ((1 == (SvalS))) { addr_856X = (((char *) (-3 + arg2_620X))) + 4; S48_WRITE_BARRIER(arg2_620X, addr_856X, 273); *((long *) addr_856X) = 273; - goto L29550;} + goto L29559;} else { if ((17 == (255 & (*((long *) ((((char *) (-3 + arg2_620X))) + 4)))))) { addr_857X = (((char *) (-3 + arg2_620X))) + 4; S48_WRITE_BARRIER(arg2_620X, addr_857X, 529); *((long *) addr_857X) = 529; - goto L29550;} + goto L29559;} else { - goto L29550;}}} - L29551: { + goto L29559;}}} + L29560: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_620X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L38498: { + goto L16666;} + L38507: { val_858X = arg0K0; SvalS = val_858X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L33080: { + goto L18439;} + L33089: { SvalS = x_623X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L33131: { + goto L18439;} + L33140: { okayP_859X = arg2K0; key_860X = arg0K1; if (okayP_859X) { arg0K0 = key_860X; - goto L33097;} + goto L33106;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_860X; - goto L33097;}} - L34474: { + goto L33106;}} + L34483: { okayP_861X = arg2K0; key_862X = arg0K1; if (okayP_861X) { arg0K0 = key_862X; - goto L34456;} + goto L34465;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_862X; - goto L34456;}} - L37343: { + goto L34465;}} + L37352: { okayP_863X = arg2K0; key_864X = arg0K1; if (okayP_863X) { arg0K0 = key_864X; - goto L37273;} + goto L37282;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_864X; - goto L37273;}} - L37603: { + goto L37282;}} + L37612: { okayP_865X = arg2K0; key_866X = arg0K1; if (okayP_865X) { arg0K0 = key_866X; - goto L37545;} + goto L37554;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_866X; - goto L37545;}} - L33202: { + goto L37554;}} + L33211: { val_867X = arg0K0; SvalS = val_867X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L8173: { + goto L18439;} + L8174: { arg0K0 = (*((long *) ((((char *) (-3 + channel_637X))) + 16))); - goto L33202;} - L8179: { + goto L33211;} + L8180: { ch_868X = arg0K0; prev_869X = arg0K1; if ((1 == ch_868X)) { @@ -6663,58 +6665,58 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) addr_870X) = 1; n_871X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_637X))) + 8))))>>2))); arg0K0 = (((n_871X)<<2)); - goto L33202;} + goto L33211;} else { if ((ch_868X == channel_637X)) { y_872X = Spending_channels_tailS; if ((ch_868X == y_872X)) { Spending_channels_tailS = prev_869X; - goto L8203;} + goto L8204;} else { - goto L8203;}} + goto L8204;}} else { arg0K0 = (*((long *) ((((char *) (-3 + ch_868X))) + 12))); arg0K1 = ch_868X; - goto L8179;}}} - L33185: { + goto L8180;}}} + L33194: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L14777: { + goto L16666;} + L14778: { arg0K0 = (-1 + (Snumber_of_channelsS)); arg0K1 = 25; - goto L14784;} - L34575: { + goto L14785;} + L34584: { okayP_873X = arg2K0; key_874X = arg0K1; if (okayP_873X) { arg0K0 = key_874X; - goto L34529;} + goto L34538;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_874X; - goto L34529;}} - L35407: { + goto L34538;}} + L35416: { i_875X = arg0K0; h_876X = arg0K1; if ((i_875X < n_655X)) { arg0K0 = (1 + i_875X); arg0K1 = (h_876X + (((*((unsigned char *) ((((char *) (-3 + x_654X))) + i_875X)))))); - goto L35407;} + goto L35416;} else { SvalS = (((h_876X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L35384: { + goto L18439;}} + L35393: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L38564: { + goto L16666;} + L38573: { SstackS = ((SstackS) + 4); stob_877X = *((long *) (SstackS)); proc_878X = SvalS; @@ -6736,33 +6738,33 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { - goto L30563;}} + goto L30572;}} else { - goto L30563;}} + goto L30572;}} else { - goto L30563;}} - L33293: { + goto L30572;}} + L33302: { firstP_884X = arg2K0; vector_885X = s48_find_all(type_665X); if ((1 == vector_885X)) { if (firstP_884X) { collect_saving_temps(0, 0, &v_886X); arg2K0 = 0; - goto L33293;} + goto L33302;} else { push_exception_continuationB(8, 1); *((long *) (SstackS)) = (((type_665X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} else { SvalS = vector_885X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L38614: { + goto L18439;}} + L38623: { firstP_887X = arg2K0; type_888X = arg0K1; vector_889X = s48_find_all_records(type_888X); @@ -6771,36 +6773,36 @@ long s48_restart(long proc_345X, long nargs_346X) value_890X = collect_saving_temps(type_888X, 0, &v_891X); arg2K0 = 0; arg0K1 = value_890X; - goto L38614;} + goto L38623;} else { push_exception_continuationB(8, 1); *((long *) (SstackS)) = type_888X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;}} + goto L16666;}} else { SvalS = vector_889X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L20570: { + goto L18439;}} + L20571: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L19494: { + goto L16666;} + L19495: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L38655: { + goto L16666;} + L38664: { SvalS = (((old_674X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L18452: { + goto L18439;} + L18453: { SstackS = ((SstackS) + 4); pc_892X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); @@ -6810,29 +6812,29 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + 4); SvalS = (*((long *) (SstackS))); arg1K0 = (Scode_pointerS); - goto L18438;} - L37163: { + goto L18439;} + L37172: { x_894X = s48_schedule_alarm_interrupt((((p_677X)>>2))); SvalS = (((x_894X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L34103: { + goto L18439;} + L34112: { if ((1 == (SvalS))) { arg2K0 = 0; - goto L34107;} + goto L34116;} else { arg2K0 = 1; - goto L34107;}} - L34108: { + goto L34116;}} + L34117: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_678X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L22787: { + goto L16666;} + L22790: { rest_list_895X = arg0K0; if ((25 == rest_list_895X)) { proc_896X = *((long *) ((SstackS) + (((nargs_680X)<<2)))); @@ -6849,53 +6851,53 @@ long s48_restart(long proc_345X, long nargs_346X) if ((Sexternal_exceptionPS)) { Sexternal_exceptionPS = 0; arg0K0 = (Sexternal_exception_nargsS); - goto L16665;} + goto L16666;} else { SvalS = result_899X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} else { - goto L22847;}} + goto L22850;}} else { - goto L22847;}} + goto L22850;}} else { - goto L22847;}} + goto L22850;}} else { - goto L22847;}} + goto L22850;}} else { - goto L22847;}} + goto L22850;}} else { *((long *) (SstackS)) = (*((long *) (((char *) (-3 + rest_list_895X))))); SstackS = ((SstackS) + -4); arg0K0 = (*((long *) ((((char *) (-3 + rest_list_895X))) + 4))); - goto L22787;}} - L33402: { + goto L22790;}} + L33411: { okayP_900X = arg2K0; key_901X = arg0K1; if (okayP_900X) { arg0K0 = key_901X; - goto L33368;} + goto L33377;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_901X; - goto L33368;}} - L23905: { + goto L33377;}} + L23914: { if ((1 == (SvalS))) { arg0K0 = (Sexported_bindingsS); - goto L23938;} + goto L23947;} else { arg0K0 = (Simported_bindingsS); - goto L23938;}} - L23910: { + goto L23947;}} + L23919: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_686X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L35318: { + goto L16666;} + L35327: { option_902X = arg0K0; seconds_903X = arg0K1; mseconds_904X = arg0K2; @@ -6908,41 +6910,41 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mseconds_904X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} + goto L16666;} else { SvalS = (((((1000 * seconds_903X) + mseconds_904X))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L38715: { + goto L18439;}} + L38724: { s48_Scallback_return_stack_blockS = arg2_700X; return x_701X;} - L27842: { + L27851: { val_905X = arg0K0; SvalS = val_905X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L27809: { + goto L18439;} + L27818: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_702X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L33611: { + goto L16666;} + L33620: { SstackS = ((SstackS) + 4); arg2_906X = *((long *) (SstackS)); if ((0 == (3 & (SvalS)))) { n_907X = (((SvalS))>>2); if ((3 == (3 & arg2_906X))) { if ((0 == (31 & ((((*((long *) ((((char *) (-3 + arg2_906X))) + -4))))>>2))))) { - goto L27369;} + goto L27378;} else { - goto L27321;}} + goto L27330;}} else { - goto L27321;}} + goto L27330;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_906X; @@ -6950,8 +6952,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} - L29199: { + goto L16666;}} + L29208: { list_908X = arg0K0; slow_909X = arg0K1; move_slowP_910X = arg2K2; @@ -6959,7 +6961,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((3 == (3 & list_908X))) { if ((0 == (31 & ((((*((long *) ((((char *) (-3 + list_908X))) + -4))))>>2))))) { @@ -6970,7 +6972,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = head_911X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { list_912X = *((long *) ((((char *) (-3 + list_908X))) + 4)); if ((list_912X == slow_909X)) { @@ -6980,18 +6982,18 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = list_711X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { if (move_slowP_910X) { arg0K0 = list_912X; arg0K1 = (*((long *) ((((char *) (-3 + slow_909X))) + 4))); arg2K2 = 0; - goto L29199;} + goto L29208;} else { arg0K0 = list_912X; arg0K1 = slow_909X; arg2K2 = 1; - goto L29199;}}}} + goto L29208;}}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = thing_710X; @@ -6999,7 +7001,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = list_711X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = thing_710X; @@ -7007,7 +7009,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = list_711X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = thing_710X; @@ -7015,7 +7017,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = list_711X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = thing_710X; @@ -7023,8 +7025,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = list_711X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}} - L27515: { + goto L16666;}}} + L27524: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg3_713X; SstackS = ((SstackS) + -4); @@ -7033,8 +7035,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((index_714X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L27535: { + goto L16666;} + L27544: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_713X; SstackS = ((SstackS) + -4); @@ -7043,8 +7045,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((index_714X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L30704: { + goto L16666;} + L30713: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg4_718X; SstackS = ((SstackS) + -4); @@ -7055,8 +7057,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_720X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;} - L30726: { + goto L16666;} + L30735: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg4_718X; SstackS = ((SstackS) + -4); @@ -7067,29 +7069,29 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_720X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;} - L30955: { + goto L16666;} + L30964: { if ((3 == (3 & arg5_726X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { - goto L30968;} + goto L30977;} else { - goto L30963;}} + goto L30972;}} else { - goto L30963;}} - L30950: { + goto L30972;}} + L30959: { if ((3 == (3 & arg5_726X))) { if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { - goto L30955;} + goto L30964;} else { - goto L31022;}} + goto L31031;}} else { - goto L31022;}} - L23037: { + goto L31031;}} + L23046: { port_913X = arg0K0; if ((3 == (3 & port_913X))) { if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_913X))) + -4))))>>2))))) { if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_913X))) + 4))))>>2))))) { - goto L23097;} + goto L23106;} else { p_914X = *((long *) ((((char *) (-3 + port_913X))) + 24)); p_915X = *((long *) ((((char *) (-3 + port_913X))) + 28)); @@ -7097,10 +7099,10 @@ long s48_restart(long proc_345X, long nargs_346X) i_917X = ((p_914X)>>2); x_918X = *((long *) ((((char *) (-3 + port_913X))) + 12)); if ((5 == x_918X)) { - goto L23077;} + goto L23086;} else { if ((i_917X == (((p_915X)>>2)))) { - goto L23077;} + goto L23086;} else { val_919X = 4 + (((i_917X)<<2)); addr_920X = (((char *) (-3 + port_913X))) + 24; @@ -7109,17 +7111,17 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_916X))) + i_917X))))))<<8))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;}}}} + goto L18439;}}}} else { - goto L23097;}} + goto L23106;}} else { - goto L23097;}} - L23257: { + goto L23106;}} + L23266: { port_921X = arg0K0; if ((3 == (3 & port_921X))) { if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_921X))) + -4))))>>2))))) { if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_921X))) + 4))))>>2))))) { - goto L23317;} + goto L23326;} else { p_922X = *((long *) ((((char *) (-3 + port_921X))) + 24)); p_923X = *((long *) ((((char *) (-3 + port_921X))) + 28)); @@ -7127,37 +7129,37 @@ long s48_restart(long proc_345X, long nargs_346X) i_925X = ((p_922X)>>2); x_926X = *((long *) ((((char *) (-3 + port_921X))) + 12)); if ((5 == x_926X)) { - goto L23297;} + goto L23306;} else { if ((i_925X == (((p_923X)>>2)))) { - goto L23297;} + goto L23306;} else { SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_924X))) + i_925X))))))<<8))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;}}}} + goto L18439;}}}} else { - goto L23317;}} + goto L23326;}} else { - goto L23317;}} - L23470: { + goto L23326;}} + L23479: { Kchar_927X = arg0K0; port_928X = arg0K1; if ((9 == (255 & Kchar_927X))) { if ((3 == (3 & port_928X))) { if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_928X))) + -4))))>>2))))) { if ((0 == (8 & ((((*((long *) ((((char *) (-3 + port_928X))) + 4))))>>2))))) { - goto L23531;} + goto L23540;} else { p_929X = *((long *) ((((char *) (-3 + port_928X))) + 24)); b_930X = *((long *) ((((char *) (-3 + port_928X))) + 20)); i_931X = ((p_929X)>>2); x_932X = *((long *) ((((char *) (-3 + port_928X))) + 12)); if ((5 == x_932X)) { - goto L23513;} + goto L23522;} else { if ((i_931X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + b_930X))) + -4))))>>8)))) { - goto L23513;} + goto L23522;} else { val_933X = 4 + (((i_931X)<<2)); addr_934X = (((char *) (-3 + port_928X))) + 24; @@ -7167,27 +7169,27 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;}}}} + goto L18439;}}}} else { - goto L23531;}} + goto L23540;}} else { - goto L23531;}} + goto L23540;}} else { - goto L23531;}} - L29452: { + goto L23540;}} + L29461: { stuff_935X = arg0K0; if ((3 == (3 & stuff_935X))) { if ((0 == (31 & ((((*((long *) ((((char *) (-3 + stuff_935X))) + -4))))>>2))))) { thing_936X = *((long *) (((char *) (-3 + stuff_935X)))); if ((0 == (3 & thing_936X))) { ps_write_integer((((thing_936X)>>2)), out_738X); - goto L29458;} + goto L29467;} else { if ((9 == (255 & thing_936X))) { ps_write_string("#\\", out_738X); { long ignoreXX; PS_WRITE_CHAR(((((thing_936X)>>8))), out_738X, ignoreXX) } - goto L29458;} + goto L29467;} else { if ((3 == (3 & thing_936X))) { if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { @@ -7203,74 +7205,74 @@ long s48_restart(long proc_345X, long nargs_346X) ps_write_string((((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + thing_936X)))))))) + 8))))))))))))), out_738X); { long ignoreXX; PS_WRITE_CHAR(125, out_738X, ignoreXX) } - goto L29458;} + goto L29467;} else { - goto L11650;}} + goto L11651;}} else { - goto L11650;}} + goto L11651;}} else { - goto L11650;}} + goto L11651;}} else { - goto L11650;}} + goto L11651;}} else { - goto L11650;}} + goto L11651;}} else { - goto L11650;}} + goto L11651;}} else { - goto L11650;}} + goto L11651;}} else { - goto L11650;}}}} + goto L11651;}}}} else { - goto L29443;}} + goto L29452;}} else { - goto L29443;}} - L16724: { + goto L29452;}} + L16725: { SvalS = (*((long *) ((((char *) (-3 + (Sexception_handlersS)))) + (((opcode_740X)<<2))))); obj_939X = SvalS; if ((3 == (3 & obj_939X))) { if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_939X))) + -4))))>>2))))) { - goto L16741;} + goto L16742;} else { - goto L16811;}} + goto L16812;}} else { - goto L16811;}} - L16797: { + goto L16812;}} + L16798: { merged_arg3K0 = "exception-handlers is not a vector"; loseD0_return_tag = 0; goto loseD0; loseD0_return_0: - goto L16724;} - L21038: { + goto L16725;} + L21039: { okayP_940X = arg2K0; key_941X = arg0K1; if (okayP_940X) { arg0K0 = key_941X; - goto L20966;} + goto L20967;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_941X; - goto L20966;}} - L20996: { + goto L20967;}} + L20997: { okayP_942X = arg2K0; temp_943X = arg0K1; if (okayP_942X) { arg0K0 = temp_943X; - goto L20977;} + goto L20978;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = temp_943X; - goto L20977;}} - L20780: { + goto L20978;}} + L20781: { start_i_944X = arg0K0; arg0K0 = start_i_944X; arg0K1 = 2; arg0K2 = (SenvS); - goto L20788;} - L20680: { + goto L20789;} + L20681: { key_945X = arg0K0; if ((1 == (ScontS))) { arg0K0 = 1; - goto L20684;} + goto L20685;} else { merged_arg0K0 = key_945X; merged_arg0K1 = 2; @@ -7279,8 +7281,8 @@ long s48_restart(long proc_345X, long nargs_346X) really_preserve_continuation_return_0: v_946X = really_preserve_continuation0_return_value; arg0K0 = v_946X; - goto L20684;}} - L19863: { + goto L20685;}} + L19864: { SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8); *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = 1; ScontS = (Sbottom_of_stackS); @@ -7290,8 +7292,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = cont_402X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L19163: { + goto L16666;} + L19164: { v_947X = arg0K0; merged_arg0K0 = v_947X; copy_stack_into_heap_return_tag = 0; @@ -7299,10 +7301,10 @@ long s48_restart(long proc_345X, long nargs_346X) copy_stack_into_heap_return_0: if (((SstackS) < (Sstack_limitS))) { ps_error("Couldn't get default procedure space (how can this happen?)", 0); - goto L19120;} + goto L19121;} else { - goto L19120;}} - L16894: { + goto L19121;}} + L16895: { stack_arg_count_948X = arg0K0; *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); @@ -7319,11 +7321,11 @@ long s48_restart(long proc_345X, long nargs_346X) n_950X = (Spending_interruptsS) & (Senabled_interruptsS); arg0K0 = 0; arg0K1 = 1; - goto L16999;} - L19124: { + goto L17000;} + L19125: { arg1K0 = (Scode_pointerS); - goto L18438;} - L16080: { + goto L18439;} + L16081: { protocol_951X = arg0K0; stack_space_952X = arg0K1; if ((68 == protocol_951X)) { @@ -7334,11 +7336,11 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = stack_arg_count_771X; arg0K2 = 25; arg0K3 = 0; - goto L17161;} + goto L17162;} else { arg0K0 = skip_953X; arg0K1 = stack_arg_count_771X; - goto L16084;}} + goto L16085;}} else { skip_954X = *((unsigned char *) ((((char *) (-3 + code_772X))) + 5)); if ((0 == skip_954X)) { @@ -7346,10 +7348,10 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = stack_arg_count_771X; arg0K2 = 25; arg0K3 = 0; - goto L17161;} + goto L17162;} else { arg0K0 = skip_954X; - goto L16107;}}} + goto L16108;}}} else { if ((67 == protocol_951X)) { if ((stack_arg_count_771X < (*((unsigned char *) ((((char *) (-3 + code_772X))) + 2))))) { @@ -7357,10 +7359,10 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = stack_arg_count_771X; arg0K2 = 25; arg0K3 = 0; - goto L17161;} + goto L17162;} else { arg0K0 = 3; - goto L16107;}} + goto L16108;}} else { if ((65 == protocol_951X)) { wants_stack_args_955X = ((((*((unsigned char *) ((((char *) (-3 + code_772X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_772X))) + 3))); @@ -7369,7 +7371,7 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = stack_arg_count_771X; arg0K2 = 25; arg0K3 = 0; - goto L17161;} + goto L17162;} else { merged_arg0K0 = wants_stack_args_955X; merged_arg0K1 = stack_arg_count_771X; @@ -7380,46 +7382,46 @@ long s48_restart(long proc_345X, long nargs_346X) rest_list_setup_return_0: arg0K0 = 4; arg0K1 = (1 + wants_stack_args_955X); - goto L16084;}} + goto L16085;}} else { if ((63 < protocol_951X)) { if ((64 == protocol_951X)) { if (((((((*((unsigned char *) ((((char *) (-3 + code_772X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_772X))) + 3)))) == stack_arg_count_771X)) { arg0K0 = 4; arg0K1 = stack_arg_count_771X; - goto L16084;} + goto L16085;} else { arg0K0 = 4; arg0K1 = stack_arg_count_771X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}} + goto L17162;}} else { if ((66 == protocol_951X)) { length_956X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_772X))) + -4))))>>8); index_957X = -2 + length_956X; arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_772X))) + (-3 + length_956X)))); arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_772X))) + index_957X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_772X))) + (1 + index_957X))))); - goto L16080;} + goto L16081;} else { ps_error("unknown protocol", 1, protocol_951X); arg0K0 = 4; arg0K1 = stack_arg_count_771X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}}} + goto L17162;}}} else { if ((protocol_951X == stack_arg_count_771X)) { arg0K0 = 2; arg0K1 = stack_arg_count_771X; - goto L16084;} + goto L16085;} else { arg0K0 = 4; arg0K1 = stack_arg_count_771X; arg0K2 = 25; arg0K3 = 0; - goto L17161;}}}}}} - L16357: { + goto L17162;}}}}}} + L16358: { protocol_958X = arg0K0; stack_space_959X = arg0K1; if ((68 == protocol_958X)) { @@ -7430,7 +7432,7 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;} + goto L17162;} else { merged_arg0K0 = list_args_785X; merged_arg0K1 = list_arg_count_786X; @@ -7439,7 +7441,7 @@ long s48_restart(long proc_345X, long nargs_346X) push_list_return_0: arg0K0 = skip_960X; arg0K1 = total_arg_count_790X; - goto L16361;}} + goto L16362;}} else { skip_961X = *((unsigned char *) ((((char *) (-3 + code_789X))) + 5)); if ((0 == skip_961X)) { @@ -7447,10 +7449,10 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;} + goto L17162;} else { arg0K0 = skip_961X; - goto L16386;}}} + goto L16387;}}} else { if ((67 == protocol_958X)) { if ((total_arg_count_790X < (*((unsigned char *) ((((char *) (-3 + code_789X))) + 2))))) { @@ -7458,10 +7460,10 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;} + goto L17162;} else { arg0K0 = 3; - goto L16386;}} + goto L16387;}} else { if ((63 < protocol_958X)) { if ((65 == protocol_958X)) { @@ -7471,7 +7473,7 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;} + goto L17162;} else { merged_arg0K0 = wants_stack_args_962X; merged_arg0K1 = stack_arg_count_784X; @@ -7482,7 +7484,7 @@ long s48_restart(long proc_345X, long nargs_346X) rest_list_setup_return_1: arg0K0 = 4; arg0K1 = (1 + wants_stack_args_962X); - goto L16361;}} + goto L16362;}} else { if ((64 == protocol_958X)) { if (((((((*((unsigned char *) ((((char *) (-3 + code_789X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_789X))) + 3)))) == total_arg_count_790X)) { @@ -7493,27 +7495,27 @@ long s48_restart(long proc_345X, long nargs_346X) push_list_return_1: arg0K0 = 4; arg0K1 = total_arg_count_790X; - goto L16361;} + goto L16362;} else { arg0K0 = 4; arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;}} + goto L17162;}} else { if ((66 == protocol_958X)) { length_963X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_789X))) + -4))))>>8); index_964X = -2 + length_963X; arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_789X))) + (-3 + length_963X)))); arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_789X))) + index_964X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_789X))) + (1 + index_964X))))); - goto L16357;} + goto L16358;} else { ps_error("unknown protocol", 1, protocol_958X); arg0K0 = 4; arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;}}}} + goto L17162;}}}} else { if ((protocol_958X == total_arg_count_790X)) { merged_arg0K0 = list_args_785X; @@ -7523,14 +7525,14 @@ long s48_restart(long proc_345X, long nargs_346X) push_list_return_2: arg0K0 = 2; arg0K1 = total_arg_count_790X; - goto L16361;} + goto L16362;} else { arg0K0 = 4; arg0K1 = stack_arg_count_784X; arg0K2 = list_args_785X; arg0K3 = list_arg_count_786X; - goto L17161;}}}}} - L20438: { + goto L17162;}}}}} + L20439: { cont_965X = arg0K0; if ((3 == (3 & cont_965X))) { if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_965X))) + -4))))>>2))))) { @@ -7540,16 +7542,16 @@ long s48_restart(long proc_345X, long nargs_346X) goto pop_continuationB; pop_continuationB_return_2: arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if ((30 == next_op_966X)) { next_967X = *((long *) (((char *) (-3 + (ScontS))))); if (((ScontS) == (Sbottom_of_stackS))) { *((long *) (((char *) (-3 + (ScontS))))) = (*((long *) (((char *) (-3 + next_967X))))); - goto L19282;} + goto L19283;} else { ScontS = next_967X; - goto L19282;}} + goto L19283;}} else { merged_arg0K0 = list_args_802X; merged_arg0K1 = stack_nargs_801X; @@ -7563,12 +7565,12 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = args_968X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}} + goto L16666;}}} else { - goto L20444;}} + goto L20445;}} else { - goto L20444;}} - L18932: { + goto L20445;}} + L18933: { v_969X = arg0K0; merged_arg0K0 = v_969X; copy_stack_into_heap_return_tag = 1; @@ -7576,65 +7578,65 @@ long s48_restart(long proc_345X, long nargs_346X) copy_stack_into_heap_return_1: if (((SstackS) < (Sstack_limitS))) { ps_error("Couldn't get default procedure space (how can this happen?)", 0); - goto L18817;} + goto L18818;} else { - goto L18817;}} - L18826: { + goto L18818;}} + L18827: { arg0K0 = (*((unsigned char *) ((Scode_pointerS) + 3))); - goto L16894;} - L18829: { + goto L16895;} + L18830: { arg1K0 = (Scode_pointerS); - goto L18438;} - L18987: { + goto L18439;} + L18988: { v_970X = arg0K0; merged_arg0K0 = v_970X; copy_stack_into_heap_return_tag = 2; goto copy_stack_into_heap; copy_stack_into_heap_return_2: if ((space_436X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { - goto L18817;} + goto L18818;} else { ps_error("VM's stack is too small (how can this happen?)", 0); - goto L18817;}} - L10628: { + goto L18818;}} + L10629: { if ((3 == (3 & x_456X))) { if ((18 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) { arg0K0 = 5; - goto L38038;} + goto L38047;} else { - goto L10634;}} + goto L10635;}} else { - goto L10634;}} - L28396: { + goto L10635;}} + L28405: { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28537: { + goto L18439;} + L28546: { if ((3 == (3 & n_458X))) { if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) { - goto L28548;} + goto L28557;} else { - goto L28549;}} + goto L28558;}} else { - goto L28549;}} - L28736: { + goto L28558;}} + L28745: { if ((3 == (3 & n_459X))) { if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) { - goto L28747;} + goto L28756;} else { - goto L28748;}} + goto L28757;}} else { - goto L28748;}} - L28935: { + goto L28757;}} + L28944: { if ((3 == (3 & n_460X))) { if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) { - goto L28946;} + goto L28955;} else { - goto L28947;}} + goto L28956;}} else { - goto L28947;}} - L6779: { + goto L28956;}} + L6780: { b_971X = arg0K0; lo_a_972X = 65535 & a_815X; lo_b_973X = 65535 & b_971X; @@ -7653,26 +7655,26 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { - goto L6821;}} + goto L6822;}} else { - goto L6821;}} - L7060: { + goto L6822;}} + L7061: { b_981X = arg0K0; c_982X = a_816X / b_981X; x_983X = 0 == (a_816X % b_981X); if (x_983X) { if ((a_476X < 0)) { if ((b_477X < 0)) { - goto L7115;} + goto L7116;} else { - goto L7114;}} + goto L7115;}} else { if ((b_477X < 0)) { - goto L7114;} + goto L7115;} else { - goto L7115;}}} + goto L7116;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_474X; @@ -7680,129 +7682,129 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_475X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} - L7237: { + goto L16666;}} + L7238: { b_984X = arg0K0; c_985X = a_822X / b_984X; if ((a_490X < 0)) { if ((b_491X < 0)) { - goto L7283;} + goto L7284;} else { - goto L7282;}} + goto L7283;}} else { if ((b_491X < 0)) { - goto L7282;} + goto L7283;} else { - goto L7283;}}} - L25340: { + goto L7284;}}} + L25349: { b_986X = arg0K0; c_987X = a_823X % b_986X; if ((a_494X < 0)) { arg0K0 = (0 - c_987X); - goto L25344;} + goto L25353;} else { arg0K0 = c_987X; - goto L25344;}} - L21336: { + goto L25353;}} + L21337: { SvalS = new_834X; Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18438;} - L21320: { + goto L18439;} + L21321: { i_988X = arg0K0; if ((i_988X < 0)) { - goto L21336;} + goto L21337;} else { SstackS = ((SstackS) + 4); *((long *) ((((char *) (-3 + new_834X))) + (((i_988X)<<2)))) = (*((long *) (SstackS))); arg0K0 = (-1 + i_988X); - goto L21320;}} - L21505: { + goto L21321;}} + L21506: { i_989X = arg0K0; if ((i_989X < 0)) { arg0K0 = stack_nargs_839X; arg0K1 = rest_list_840X; - goto L21523;} + goto L21524;} else { SstackS = ((SstackS) + 4); *((long *) ((((char *) (-3 + new_838X))) + (((i_989X)<<2)))) = (*((long *) (SstackS))); arg0K0 = (-1 + i_989X); - goto L21505;}} - L22028: { + goto L21506;}} + L22029: { i_990X = arg0K0; if ((i_990X < 0)) { SvalS = value_845X; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { addr_991X = (((char *) (-3 + value_845X))) + (((i_990X)<<2)); S48_WRITE_BARRIER(value_845X, addr_991X, init_842X); *((long *) addr_991X) = init_842X; arg0K0 = (-1 + i_990X); - goto L22028;}} - L26115: { + goto L22029;}} + L26124: { i_992X = arg0K0; if ((i_992X < 0)) { SvalS = vector_847X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { *((unsigned char *) ((((char *) (-3 + vector_847X))) + i_992X)) = init_584X; arg0K0 = (-1 + i_992X); - goto L26115;}} - L26349: { + goto L26124;}} + L26358: { i_993X = arg0K0; if ((i_993X < 0)) { SvalS = string_850X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { *((unsigned char *) ((((char *) (-3 + string_850X))) + i_993X)) = (init_600X); arg0K0 = (-1 + i_993X); - goto L26349;}} - L13333: { + goto L26358;}} + L13334: { i_994X = arg0K0; h_995X = arg0K1; if ((i_994X < n_854X)) { arg0K0 = (1 + i_994X); arg0K1 = (h_995X + (((*((unsigned char *) ((((char *) (-3 + string_853X))) + i_994X)))))); - goto L13333;} + goto L13334;} else { index_996X = 1023 & h_995X; bucket_997X = *((long *) ((((char *) (-3 + table_852X))) + (((index_996X)<<2)))); arg0K0 = bucket_997X; - goto L13301;}} - L24488: { + goto L13302;}} + L24497: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L29550: { + goto L16666;} + L29559: { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L33097: { + goto L18439;} + L33106: { key_998X = arg0K0; SstackS = ((SstackS) + 4); arg2_999X = *((long *) (SstackS)); if ((0 == (3 & (SvalS)))) { mode_1000X = (((SvalS))>>2); if ((1 == mode_1000X)) { - goto L26773;} + goto L26782;} else { if ((2 == mode_1000X)) { - goto L26773;} + goto L26782;} else { if ((3 == mode_1000X)) { - goto L26773;} + goto L26782;} else { if ((4 == mode_1000X)) { - goto L26773;} + goto L26782;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_999X; @@ -7810,7 +7812,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}}}} + goto L16666;}}}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_999X; @@ -7818,8 +7820,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} - L34456: { + goto L16666;}} + L34465: { key_1001X = arg0K0; obj_1002X = SvalS; if ((3 == (3 & obj_1002X))) { @@ -7830,14 +7832,14 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = channel_1003X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} else { status_1004X = close_channelB(channel_1003X); if ((status_1004X == NO_ERRORS)) { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(25, 1); *((long *) (SstackS)) = channel_1003X; @@ -7851,12 +7853,12 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_1005X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}} + goto L16666;}}} else { - goto L34464;}} + goto L34473;}} else { - goto L34464;}} - L37273: { + goto L34473;}} + L37282: { key_1006X = arg0K0; SstackS = ((SstackS) + 4); arg2_1007X = *((long *) (SstackS)); @@ -7868,15 +7870,15 @@ long s48_restart(long proc_345X, long nargs_346X) arg5_1010X = *((long *) (SstackS)); if ((0 == (3 & (arg4_1009X | arg3_1008X)))) { if ((1 == arg2_1007X)) { - goto L37305;} + goto L37314;} else { if ((5 == arg2_1007X)) { - goto L37305;} + goto L37314;} else { - goto L37325;}}} + goto L37334;}}} else { - goto L37325;}} - L37545: { + goto L37334;}} + L37554: { key_1011X = arg0K0; SstackS = ((SstackS) + 4); arg2_1012X = *((long *) (SstackS)); @@ -7895,21 +7897,21 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_1019X) { if ((3 == (3 & arg4_1014X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1014X))) + -4))))>>2))))) { - goto L36856;} + goto L36865;} else { - goto L36848;}} + goto L36857;}} else { - goto L36848;}} + goto L36857;}} else { arg0K0 = 5; - goto L36739;}} + goto L36748;}} else { - goto L37587;}} + goto L37596;}} else { - goto L37587;}} + goto L37596;}} else { - goto L37587;}} - L8203: { + goto L37596;}} + L8204: { val_1020X = *((long *) ((((char *) (-3 + ch_868X))) + 12)); addr_1021X = (((char *) (-3 + prev_869X))) + 12; S48_WRITE_BARRIER(prev_869X, addr_1021X, val_1020X); @@ -7918,15 +7920,15 @@ long s48_restart(long proc_345X, long nargs_346X) S48_WRITE_BARRIER(ch_868X, addr_1022X, 1); *((long *) addr_1022X) = 1; arg0K0 = (*((long *) ((((char *) (-3 + ch_868X))) + 16))); - goto L33202;} - L14784: { + goto L33211;} + L14785: { i_1023X = arg0K0; res_1024X = arg0K1; if ((-1 == i_1023X)) { SvalS = res_1024X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { channel_1025X = *((Svm_channelsS) + i_1023X); if ((3 == (3 & channel_1025X))) { @@ -7937,14 +7939,14 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (((char *) (-3 + x_1027X)))) = channel_1025X; *((long *) ((((char *) (-3 + x_1027X))) + 4)) = res_1024X; arg0K0 = x_1027X; - goto L14798;} + goto L14799;} else { arg0K0 = res_1024X; - goto L14798;}} + goto L14799;}} else { arg0K0 = res_1024X; - goto L14798;}}} - L34529: { + goto L14799;}}} + L34538: { key_1028X = arg0K0; SstackS = ((SstackS) + 4); arg2_1029X = *((long *) (SstackS)); @@ -7971,7 +7973,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { push_exception_continuationB(26, 1); *((long *) (SstackS)) = arg3_1030X; @@ -7985,41 +7987,41 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((undumpable_count_1040X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16665;}} + goto L16666;}} else { arg0K0 = 25; arg0K1 = status_1038X; - goto L30184;}} + goto L30193;}} else { status_1041X = ps_close(port_1034X); if ((status_1041X == NO_ERRORS)) { arg0K0 = 25; arg0K1 = status_1037X; - goto L30184;} + goto L30193;} else { ps_write_string("Unable to close image file", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 25; arg0K1 = status_1037X; - goto L30184;}}} + goto L30193;}}} else { status_1042X = ps_close(port_1034X); if ((status_1042X == NO_ERRORS)) { arg0K0 = 25; arg0K1 = status_1036X; - goto L30184;} + goto L30193;} else { ps_write_string("Unable to close image file", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 25; arg0K1 = status_1036X; - goto L30184;}}} + goto L30193;}}} else { arg0K0 = 10; arg0K1 = status_1035X; - goto L30184;}} + goto L30193;}} else { push_exception_continuationB(15, 1); *((long *) (SstackS)) = arg3_1030X; @@ -8029,24 +8031,24 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = comment_string_1032X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;}} + goto L16666;}} else { - goto L34561;}} + goto L34570;}} else { - goto L34561;}} + goto L34570;}} else { - goto L34561;}} + goto L34570;}} else { - goto L34561;}} - L30563: { + goto L34570;}} + L30572: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = stob_877X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = proc_878X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L34107: { + goto L16666;} + L34116: { minutesP_1043X = arg2K0; if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { @@ -8056,22 +8058,22 @@ long s48_restart(long proc_345X, long nargs_346X) check_events_return_2: temp_1044X = check_events0_return_value; if (temp_1044X) { - goto L34133;} + goto L34142;} else { - goto L34138;}} + goto L34147;}} else { - goto L34133;}} + goto L34142;}} else { - goto L34138;}} - L22847: { + goto L34147;}} + L22850: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = proc_896X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = name_897X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L33368: { + goto L16666;} + L33377: { key_1045X = arg0K0; SstackS = ((SstackS) + 4); arg2_1046X = *((long *) (SstackS)); @@ -8079,23 +8081,23 @@ long s48_restart(long proc_345X, long nargs_346X) if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1046X))) + -4))))>>2))))) { x_1047X = SvalS; if ((1 == x_1047X)) { - goto L33385;} + goto L33394;} else { if ((5 == x_1047X)) { - goto L33385;} + goto L33394;} else { - goto L33390;}}} + goto L33399;}}} else { - goto L33390;}} + goto L33399;}} else { - goto L33390;}} - L23938: { + goto L33399;}} + L23947: { table_1048X = arg0K0; n_1049X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_686X))) + -4))))>>8)); arg0K0 = 0; arg0K1 = 0; - goto L12880;} - L27369: { + goto L12881;} + L27378: { len_1050X = 1 + n_907X; addr_1051X = ALLOCATE_SPACE(16, (4 + len_1050X)); *((long *) addr_1051X) = (66 + (((len_1050X)<<8))); @@ -8103,10 +8105,10 @@ long s48_restart(long proc_345X, long nargs_346X) *((unsigned char *) ((((char *) (-3 + string_1052X))) + n_907X)) = 0; arg0K0 = arg2_906X; arg0K1 = (-1 + n_907X); - goto L27346;} - L27321: { + goto L27355;} + L27330: { if ((25 == arg2_906X)) { - goto L27369;} + goto L27378;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_906X; @@ -8114,34 +8116,34 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((n_907X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} - L30968: { + goto L16666;}} + L30977: { if ((from_index_727X < 0)) { - goto L31022;} + goto L31031;} else { if ((to_index_728X < 0)) { - goto L31022;} + goto L31031;} else { if ((count_729X < 0)) { - goto L31022;} + goto L31031;} else { if ((3 == (3 & arg5_726X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>8))); - goto L30989;} + goto L30998;} else { - goto L30985;}} + goto L30994;}} else { - goto L30985;}}}}} - L30963: { + goto L30994;}}}}} + L30972: { if ((3 == (3 & arg5_726X))) { if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { - goto L30968;} + goto L30977;} else { - goto L31022;}} + goto L31031;}} else { - goto L31022;}} - L31022: { + goto L31031;}} + L31031: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg5_726X; SstackS = ((SstackS) + -4); @@ -8154,86 +8156,86 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((count_729X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16665;} - L23097: { + goto L16666;} + L23106: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = port_913X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L23077: { + goto L16666;} + L23086: { push_exception_continuationB(14, 2); *((long *) (SstackS)) = port_913X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L23317: { + goto L16666;} + L23326: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = port_921X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L23297: { + goto L16666;} + L23306: { push_exception_continuationB(14, 2); *((long *) (SstackS)) = port_921X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L23531: { + goto L16666;} + L23540: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = Kchar_927X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = port_928X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L23513: { + goto L16666;} + L23522: { push_exception_continuationB(14, 2); *((long *) (SstackS)) = Kchar_927X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = port_928X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L29458: { + goto L16666;} + L29467: { arg0K0 = (*((long *) ((((char *) (-3 + stuff_935X))) + 4))); - goto L29452;} - L11650: { + goto L29461;} + L11651: { if ((3 == (3 & thing_936X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { arg3K0 = (((char *)(((char *) (-3 + thing_936X))))); - goto L11692;} + goto L11693;} else { - goto L11658;}} + goto L11659;}} else { - goto L11658;}} - L29443: { + goto L11659;}} + L29452: { { long ignoreXX; PS_WRITE_CHAR(10, out_738X, ignoreXX) } SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L16741: { + goto L18439;} + L16742: { StemplateS = (SvalS); Slosing_opcodeS = opcode_740X; arg0K0 = (2 + nargs_739X); - goto L16066;} - L16811: { + goto L16067;} + L16812: { merged_arg3K0 = "exception handler is not a closure"; loseD0_return_tag = 1; goto loseD0; loseD0_return_1: - goto L16741;} - L20966: { + goto L16742;} + L20967: { key_1053X = arg0K0; p_1054X = SenvS; if ((3 == (3 & p_1054X))) { if ((p_1054X < (((long) (Sstack_beginS))))) { - goto L21061;} + goto L21062;} else { if (((((long) (Sstack_endS))) < p_1054X)) { - goto L21061;} + goto L21062;} else { merged_arg0K0 = (SenvS); merged_arg0K1 = (ScontS); @@ -8244,10 +8246,10 @@ long s48_restart(long proc_345X, long nargs_346X) save_env_in_heap_return_0: v_1055X = save_env_in_heap0_return_value; SenvS = v_1055X; - goto L21061;}}} + goto L21062;}}} else { - goto L21061;}} - L20977: { + goto L21062;}} + L20978: { env_1056X = arg0K0; a_1057X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); addr_1058X = ALLOCATE_SPACE(3, 12); @@ -8259,14 +8261,14 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (128 & (*((long *) ((((char *) (-3 + x_1059X))) + -4)))))) { *((long *) ((((char *) (-3 + x_1059X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_1059X))) + -4)))); arg0K0 = x_1059X; - goto L20985;} + goto L20986;} else { arg0K0 = x_1059X; - goto L20985;}} + goto L20986;}} else { arg0K0 = x_1059X; - goto L20985;}} - L20788: { + goto L20986;}} + L20789: { i_1060X = arg0K0; offset_1061X = arg0K1; env_1062X = arg0K2; @@ -8274,25 +8276,25 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = new_env_762X; Scode_pointerS = ((Scode_pointerS) + (1 + offset_1061X)); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { back_1063X = *((unsigned char *) ((Scode_pointerS) + (1 + offset_1061X))); arg0K0 = env_1062X; arg0K1 = back_1063X; - goto L20884;}} - L20684: { + goto L20885;}} + L20685: { value_1064X = arg0K0; SvalS = value_1064X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L16999: { + goto L18439;} + L17000: { i_1065X = arg0K0; m_1066X = arg0K1; if ((0 == (n_950X & m_1066X))) { arg0K0 = (1 + i_1065X); arg0K1 = (((m_1066X)<<1)); - goto L16999;} + goto L17000;} else { Spending_interruptsS = ((Spending_interruptsS) & (~ m_1066X)); if ((i_1065X == 0)) { @@ -8302,7 +8304,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16918;} + goto L16919;} else { if ((i_1065X == 2)) { *((long *) (SstackS)) = (Sfinalize_theseS); @@ -8311,7 +8313,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16918;} + goto L16919;} else { if ((i_1065X == 3)) { channel_1067X = Spending_channels_headS; @@ -8323,10 +8325,10 @@ long s48_restart(long proc_345X, long nargs_346X) if ((1 == next_1068X)) { Spending_channels_tailS = 1; arg0K0 = channel_1067X; - goto L8364;} + goto L8365;} else { arg0K0 = channel_1067X; - goto L8364;}} + goto L8365;}} else { if ((i_1065X == 4)) { *((long *) (SstackS)) = (Sos_signal_typeS); @@ -8338,13 +8340,13 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16918;} + goto L16919;} else { *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16918;}}}}}} - L16084: { + goto L16919;}}}}}} + L16085: { skip_1070X = arg0K0; stack_arg_count_1071X = arg0K1; template_1072X = *((long *) (((char *) (-3 + (SvalS))))); @@ -8353,8 +8355,8 @@ long s48_restart(long proc_345X, long nargs_346X) SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4))); arg0K0 = stack_space_952X; arg0K1 = stack_arg_count_1071X; - goto L15974;} - L16107: { + goto L15975;} + L16108: { skip_1073X = arg0K0; *((long *) (SstackS)) = 25; SstackS = ((SstackS) + -4); @@ -8364,8 +8366,8 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + -4); arg0K0 = skip_1073X; arg0K1 = (3 + stack_arg_count_771X); - goto L16084;} - L16361: { + goto L16085;} + L16362: { skip_1074X = arg0K0; stack_arg_count_1075X = arg0K1; template_1076X = *((long *) (((char *) (-3 + (SvalS))))); @@ -8374,26 +8376,26 @@ long s48_restart(long proc_345X, long nargs_346X) SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4))); arg0K0 = stack_space_959X; arg0K1 = stack_arg_count_1075X; - goto L15974;} - L16386: { + goto L15975;} + L16387: { skip_1077X = arg0K0; if ((total_arg_count_790X < 3)) { arg0K0 = total_arg_count_790X; - goto L16394;} + goto L16395;} else { if ((2 < stack_arg_count_784X)) { arg0K0 = stack_arg_count_784X; - goto L16394;} + goto L16395;} else { arg0K0 = 2; - goto L16394;}}} - L19282: { + goto L16395;}}} + L19283: { SvalS = (*((long *) ((((char *) (-3 + cont_965X))) + 16))); arg0K0 = stack_nargs_801X; arg0K1 = list_args_802X; arg0K2 = list_arg_count_803X; - goto L17666;} - L20444: { + goto L17667;} + L20445: { merged_arg0K0 = list_args_802X; merged_arg0K1 = stack_nargs_801X; pop_args_GlistS_return_tag = 4; @@ -8406,55 +8408,55 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = args_1078X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L10634: { + goto L16666;} + L10635: { if ((3 == (3 & x_456X))) { if ((10 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) { arg0K0 = 5; - goto L38038;} + goto L38047;} else { arg0K0 = 1; - goto L38038;}} + goto L38047;}} else { arg0K0 = 1; - goto L38038;}} - L28549: { + goto L38047;}} + L28558: { if ((3 == (3 & n_458X))) { if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = n_458X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} else { - goto L28553;}} + goto L28562;}} else { - goto L28553;}} - L28748: { + goto L28562;}} + L28757: { if ((3 == (3 & n_459X))) { if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = n_459X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} else { - goto L28752;}} + goto L28761;}} else { - goto L28752;}} - L28947: { + goto L28761;}} + L28956: { if ((3 == (3 & n_460X))) { if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = n_460X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} + goto L16666;} else { - goto L28951;}} + goto L28960;}} else { - goto L28951;}} - L6821: { + goto L28960;}} + L6822: { if ((536870911 < lo_c_976X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; @@ -8462,7 +8464,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { if ((lo_c_976X < 0)) { push_exception_continuationB(5, 1); @@ -8471,7 +8473,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { if ((8192 < mid_c_979X)) { push_exception_continuationB(5, 1); @@ -8480,19 +8482,19 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { if ((a_469X < 0)) { if ((b_470X < 0)) { - goto L6848;} + goto L6849;} else { - goto L6855;}} + goto L6856;}} else { if ((b_470X < 0)) { - goto L6855;} + goto L6856;} else { - goto L6848;}}}}}} - L7115: { + goto L6849;}}}}}} + L7116: { if ((536870911 < c_982X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_474X; @@ -8500,18 +8502,18 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_475X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { SvalS = (((c_982X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L7114: { + goto L18439;}} + L7115: { SvalS = ((((0 - c_982X))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L7283: { + goto L18439;} + L7284: { if ((536870911 < c_985X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_488X; @@ -8519,37 +8521,37 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_489X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { SvalS = (((c_985X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L7282: { + goto L18439;}} + L7283: { SvalS = ((((0 - c_985X))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L25344: { + goto L18439;} + L25353: { n_1079X = arg0K0; SvalS = (((n_1079X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L21523: { + goto L18439;} + L21524: { i_1080X = arg0K0; rest_list_1081X = arg0K1; if ((25 == rest_list_1081X)) { SvalS = new_838X; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { *((long *) ((((char *) (-3 + new_838X))) + (((i_1080X)<<2)))) = (*((long *) (((char *) (-3 + rest_list_1081X))))); arg0K0 = (1 + i_1080X); arg0K1 = (*((long *) ((((char *) (-3 + rest_list_1081X))) + 4))); - goto L21523;}} - L13301: { + goto L21524;}} + L13302: { foo_1082X = arg0K0; if ((1 == foo_1082X)) { addr_1083X = ALLOCATE_SPACE(1, 12); @@ -8561,19 +8563,19 @@ long s48_restart(long proc_345X, long nargs_346X) S48_WRITE_BARRIER(table_852X, addr_1085X, x_1084X); *((long *) addr_1085X) = x_1084X; arg0K0 = x_1084X; - goto L24529;} + goto L24538;} else { s2_1086X = *((long *) (((char *) (-3 + foo_1082X)))); len_1087X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + string_853X))) + -4))))>>8); if ((len_1087X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1086X))) + -4))))>>8)))) { if (((!memcmp((void *)(((char *) (-3 + s2_1086X))), (void *)(((char *) (-3 + string_853X))),len_1087X)))) { arg0K0 = foo_1082X; - goto L24529;} + goto L24538;} else { - goto L13317;}} + goto L13318;}} else { - goto L13317;}}} - L26773: { + goto L13318;}}} + L26782: { if ((0 == (3 & arg2_999X))) { if (((((arg2_999X)>>2)) < 0)) { push_exception_continuationB(5, 1); @@ -8582,23 +8584,23 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { arg0K0 = (((arg2_999X)>>2)); - goto L26593;}} + goto L26602;}} else { if ((3 == (3 & arg2_999X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_999X))) + -4))))>>2))))) { if ((1 == mode_1000X)) { - goto L26651;} + goto L26660;} else { if ((3 == mode_1000X)) { - goto L26651;} + goto L26660;} else { v_1088X = ps_open_fd((((char *)(((char *) (-3 + arg2_999X))))), 0, &v_1089X); arg0K0 = v_1088X; arg0K1 = v_1089X; - goto L26664;}}} + goto L26673;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_999X; @@ -8606,7 +8608,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_999X; @@ -8614,29 +8616,29 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}}} - L34464: { + goto L16666;}}} + L34473: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16665;} - L37305: { + goto L16666;} + L37314: { obj_1090X = SvalS; if ((3 == (3 & obj_1090X))) { if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1090X))) + -4))))>>2))))) { x_1091X = SvalS; if ((1 == arg2_1007X)) { arg2K0 = 0; - goto L37322;} + goto L37331;} else { arg2K0 = 1; - goto L37322;}} + goto L37331;}} else { - goto L37325;}} + goto L37334;}} else { - goto L37325;}} - L37325: { + goto L37334;}} + L37334: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg5_1010X; SstackS = ((SstackS) + -4); @@ -8649,27 +8651,27 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16665;} - L36856: { + goto L16666;} + L36865: { if ((3 == (3 & arg4_1014X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1014X))) + -4))))>>2))))) { arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1014X))) + -4))))>>8))); - goto L36868;} + goto L36877;} else { - goto L36864;}} + goto L36873;}} else { - goto L36864;}} - L36848: { + goto L36873;}} + L36857: { if ((3 == (3 & arg4_1014X))) { if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1014X))) + -4))))>>2))))) { - goto L36856;} + goto L36865;} else { arg0K0 = 5; - goto L36739;}} + goto L36748;}} else { arg0K0 = 5; - goto L36739;}} - L36739: { + goto L36748;}} + L36748: { reason_1092X = arg0K0; push_exception_continuationB(reason_1092X, 1); *((long *) (SstackS)) = arg4_1014X; @@ -8681,8 +8683,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = channel_1018X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;} - L37587: { + goto L16666;} + L37596: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg4_1014X; SstackS = ((SstackS) + -4); @@ -8693,13 +8695,13 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;} - L14798: { + goto L16666;} + L14799: { v_1093X = arg0K0; arg0K0 = (-1 + i_1023X); arg0K1 = v_1093X; - goto L14784;} - L30184: { + goto L14785;} + L30193: { reason_1094X = arg0K0; status_1095X = arg0K1; push_exception_continuationB(reason_1094X, 1); @@ -8718,8 +8720,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_1096X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16665;} - L34561: { + goto L16666;} + L34570: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_1030X; SstackS = ((SstackS) + -4); @@ -8728,100 +8730,100 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;} - L34133: { + goto L16666;} + L34142: { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L34138: { + goto L18439;} + L34147: { if ((0 == (Spending_interruptsS))) { s48_wait_for_event((((arg2_678X)>>2)), minutesP_1043X); - goto L34133;} + goto L34142;} else { - goto L34133;}} - L33385: { + goto L34142;}} + L33394: { if ((1 == (SvalS))) { v_1097X = Hlookup2102((Sexported_bindingsS), arg2_1046X, key_1045X); arg0K0 = v_1097X; - goto L33442;} + goto L33451;} else { v_1098X = Hlookup2083((Simported_bindingsS), arg2_1046X, key_1045X); arg0K0 = v_1098X; - goto L33442;}} - L33390: { + goto L33451;}} + L33399: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_1046X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} - L12880: { + goto L16666;} + L12881: { i_1099X = arg0K0; h_1100X = arg0K1; if ((i_1099X < n_1049X)) { arg0K0 = (1 + i_1099X); arg0K1 = (h_1100X + (((*((unsigned char *) ((((char *) (-3 + arg2_686X))) + i_1099X)))))); - goto L12880;} + goto L12881;} else { index_1101X = 1023 & h_1100X; bucket_1102X = *((long *) ((((char *) (-3 + table_1048X))) + (((index_1101X)<<2)))); arg0K0 = 1; arg0K1 = bucket_1102X; - goto L12844;}} - L27346: { + goto L12845;}} + L27355: { l_1103X = arg0K0; i_1104X = arg0K1; if ((i_1104X < 0)) { SvalS = string_1052X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { *((unsigned char *) ((((char *) (-3 + string_1052X))) + i_1104X)) = ((((((*((long *) (((char *) (-3 + l_1103X))))))>>8)))); arg0K0 = (*((long *) ((((char *) (-3 + l_1103X))) + 4))); arg0K1 = (-1 + i_1104X); - goto L27346;}} - L30989: { + goto L27355;}} + L30998: { y_1105X = arg0K0; if ((y_1105X < (from_index_727X + count_729X))) { - goto L31022;} + goto L31031;} else { if ((3 == (3 & arg3_724X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_724X))) + -4))))>>2))))) { arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_724X))) + -4))))>>8))); - goto L31004;} + goto L31013;} else { - goto L31000;}} + goto L31009;}} else { - goto L31000;}}} - L30985: { + goto L31009;}}} + L30994: { arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>8)); - goto L30989;} - L11692: { + goto L30998;} + L11693: { v_1106X = arg3K0; ps_write_string(v_1106X, out_738X); - goto L29458;} - L11658: { + goto L29467;} + L11659: { if ((3 == (3 & thing_936X))) { if ((1 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { arg3K0 = (((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + thing_936X)))))))))); - goto L11692;} + goto L11693;} else { - goto L11666;}} + goto L11667;}} else { - goto L11666;}} - L21061: { + goto L11667;}} + L21062: { arg0K0 = (SenvS); - goto L20971;} - L20985: { + goto L20972;} + L20986: { value_1107X = arg0K0; SvalS = value_1107X; Scode_pointerS = ((Scode_pointerS) + 4); arg1K0 = (Scode_pointerS); - goto L18438;} - L20884: { + goto L18439;} + L20885: { env_1108X = arg0K0; i_1109X = arg0K1; if ((0 == i_1109X)) { @@ -8829,85 +8831,85 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K0 = count_1110X; arg0K1 = i_1060X; arg0K2 = (2 + offset_1061X); - goto L20805;} + goto L20806;} else { arg0K0 = (*((long *) (((char *) (-3 + env_1108X))))); arg0K1 = (-1 + i_1109X); - goto L20884;}} - L16918: { + goto L20885;}} + L16919: { arg_count_1111X = arg0K0; obj_1112X = Sinterrupt_handlersS; if ((3 == (3 & obj_1112X))) { if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_1112X))) + -4))))>>2))))) { - goto L16932;} + goto L16933;} else { - goto L17012;}} + goto L17013;}} else { - goto L17012;}} - L8364: { + goto L17013;}} + L8365: { channel_1113X = arg0K0; x_1114X = 1 == (Spending_channels_headS); if (x_1114X) { - goto L8378;} + goto L8379;} else { Spending_interruptsS = (8 | (Spending_interruptsS)); if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L8378;} + goto L8379;} else { - goto L8378;}} + goto L8379;}} else { s48_Spending_interruptPS = 1; - goto L8378;}}} - L15974: { + goto L8379;}}} + L15975: { stack_slots_1115X = arg0K0; stack_arg_count_1116X = arg0K1; if ((stack_slots_1115X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { - goto L15976;} + goto L15977;} else { space_1117X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); v_1118X = AVAILABLEp(space_1117X); if (v_1118X) { arg2K0 = 1; arg0K1 = 0; - goto L16033;} + goto L16034;} else { collect_saving_temps(1, 1, &temp1_1119X); v_1120X = AVAILABLEp(space_1117X); if (v_1120X) { arg2K0 = 1; arg0K1 = 0; - goto L16033;} + goto L16034;} else { arg2K0 = 0; arg0K1 = 0; - goto L16033;}}}} - L16394: { + goto L16034;}}}} + L16395: { final_stack_arg_count_1121X = arg0K0; if ((stack_arg_count_784X < final_stack_arg_count_1121X)) { arg0K0 = final_stack_arg_count_1121X; - goto L16398;} + goto L16399;} else { arg0K0 = stack_arg_count_784X; - goto L16398;}} - L28553: { + goto L16399;}} + L28562: { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28752: { + goto L18439;} + L28761: { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L28951: { + goto L18439;} + L28960: { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L6848: { + goto L18439;} + L6849: { if ((536870911 < c_980X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; @@ -8915,13 +8917,13 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { SvalS = (((c_980X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L6855: { + goto L18439;}} + L6856: { if ((536870912 < c_980X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; @@ -8929,36 +8931,36 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { SvalS = ((((0 - c_980X))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L24529: { + goto L18439;}} + L24538: { val_1122X = arg0K0; SvalS = val_1122X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L13317: { + goto L18439;} + L13318: { arg0K0 = (*((long *) ((((char *) (-3 + foo_1082X))) + 4))); - goto L13301;} - L26593: { + goto L13302;} + L26602: { index_1123X = arg0K0; channel_1124X = make_registered_channel(mode_1000X, arg2_999X, index_1123X, key_998X, &reason_1125X); if ((1 == channel_1124X)) { if ((3 == (3 & arg2_999X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_999X))) + -4))))>>2))))) { if ((1 == mode_1000X)) { - goto L26708;} + goto L26717;} else { if ((3 == mode_1000X)) { - goto L26708;} + goto L26717;} else { v_1126X = ps_close_fd(index_1123X); arg0K0 = v_1126X; - goto L26703;}}} + goto L26712;}}} else { push_exception_continuationB(reason_1125X, 1); *((long *) (SstackS)) = arg2_999X; @@ -8966,7 +8968,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} else { push_exception_continuationB(reason_1125X, 1); *((long *) (SstackS)) = arg2_999X; @@ -8974,23 +8976,23 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} + goto L16666;}} else { SvalS = channel_1124X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L26651: { + goto L18439;}} + L26660: { v_1127X = ps_open_fd((((char *)(((char *) (-3 + arg2_999X))))), 1, &v_1128X); arg0K0 = v_1127X; arg0K1 = v_1128X; - goto L26664;} - L26664: { + goto L26673;} + L26673: { channel_1129X = arg0K0; status_1130X = arg0K1; if ((status_1130X == NO_ERRORS)) { arg0K0 = channel_1129X; - goto L26593;} + goto L26602;} else { if ((status_1130X == ENOENT)) { push_exception_continuationB(10, 1); @@ -8999,7 +9001,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { push_exception_continuationB(25, 1); *((long *) (SstackS)) = arg2_999X; @@ -9015,8 +9017,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_1131X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16665;}}} - L37322: { + goto L16666;}}} + L37331: { waitP_1132X = arg2K0; start_1133X = ((arg4_1009X)>>2); count_1134X = ((arg3_1008X)>>2); @@ -9025,25 +9027,25 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (128 & (*((long *) ((((char *) (-3 + arg5_1010X))) + -4)))))) { if ((3 == (3 & arg5_1010X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1010X))) + -4))))>>2))))) { - goto L36458;} + goto L36467;} else { - goto L36450;}} + goto L36459;}} else { - goto L36450;}} + goto L36459;}} else { arg0K0 = 5; - goto L36341;}} + goto L36350;}} else { arg0K0 = 5; - goto L36341;}} + goto L36350;}} else { arg0K0 = 5; - goto L36341;}} - L36868: { + goto L36350;}} + L36877: { length_1135X = arg0K0; if ((length_1135X < (start_1016X + count_1017X))) { arg0K0 = 7; - goto L36739;} + goto L36748;} else { got_1136X = ps_write_fd(((((*((long *) ((((char *) (-3 + channel_1018X))) + 8))))>>2)), ((((char *) (-3 + arg4_1014X))) + start_1016X), count_1017X, &pendingP_1137X, &status_1138X); if ((status_1138X == NO_ERRORS)) { @@ -9054,12 +9056,12 @@ long s48_restart(long proc_345X, long nargs_346X) s48_Spending_interruptPS = 0; Senabled_interruptsS = 0; arg0K0 = 13; - goto L36739;} + goto L36748;} else { SvalS = (((got_1136X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} + goto L18439;}} else { push_exception_continuationB(25, 1); *((long *) (SstackS)) = arg4_1014X; @@ -9079,21 +9081,21 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_1140X; SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16665;}}} - L36864: { + goto L16666;}}} + L36873: { arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1014X))) + -4))))>>8)); - goto L36868;} - L33442: { + goto L36877;} + L33451: { val_1141X = arg0K0; SvalS = val_1141X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L12844: { + goto L18439;} + L12845: { previous_foo_1142X = arg0K0; foo_1143X = arg0K1; if ((1 == foo_1143X)) { - goto L23940;} + goto L23949;} else { s2_1144X = *((long *) (((char *) (-3 + foo_1143X)))); len_1145X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_686X))) + -4))))>>8); @@ -9104,50 +9106,50 @@ long s48_restart(long proc_345X, long nargs_346X) addr_1147X = (((char *) (-3 + table_1048X))) + (((index_1101X)<<2)); S48_WRITE_BARRIER(table_1048X, addr_1147X, value_1146X); *((long *) addr_1147X) = value_1146X; - goto L23940;} + goto L23949;} else { val_1148X = *((long *) ((((char *) (-3 + foo_1143X))) + 12)); addr_1149X = (((char *) (-3 + previous_foo_1142X))) + 12; S48_WRITE_BARRIER(previous_foo_1142X, addr_1149X, val_1148X); *((long *) addr_1149X) = val_1148X; - goto L23940;}} + goto L23949;}} else { - goto L12906;}} + goto L12907;}} else { - goto L12906;}}} - L31004: { + goto L12907;}}} + L31013: { y_1150X = arg0K0; if ((y_1150X < (to_index_728X + count_729X))) { - goto L31022;} + goto L31031;} else { memcpy((void *)((((char *) (-3 + arg3_724X))) + to_index_728X), (void *)((((char *) (-3 + arg5_726X))) + from_index_727X),count_729X); SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}} - L31000: { + goto L18439;}} + L31009: { arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_724X))) + -4))))>>8)); - goto L31004;} - L11666: { + goto L31013;} + L11667: { if ((1 == thing_936X)) { - goto L11669;} + goto L11670;} else { if ((5 == thing_936X)) { - goto L11669;} + goto L11670;} else { if ((25 == thing_936X)) { arg3K0 = "()"; - goto L11692;} + goto L11693;} else { if ((3 == (3 & thing_936X))) { if ((0 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { arg3K0 = "(...)"; - goto L11692;} + goto L11693;} else { - goto L11682;}} + goto L11683;}} else { - goto L11682;}}}}} - L20805: { + goto L11683;}}}}} + L20806: { count_1151X = arg0K0; i_1152X = arg0K1; offset_1153X = arg0K2; @@ -9155,7 +9157,7 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K0 = i_1152X; arg0K1 = offset_1153X; arg0K2 = env_1108X; - goto L20788;} + goto L20789;} else { value_1154X = *((long *) ((((char *) (-3 + env_1108X))) + ((((*((unsigned char *) ((Scode_pointerS) + (1 + offset_1153X)))))<<2)))); addr_1155X = (((char *) (-3 + new_env_762X))) + (((i_1152X)<<2)); @@ -9164,23 +9166,23 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K0 = (-1 + count_1151X); arg0K1 = (1 + i_1152X); arg0K2 = (1 + offset_1153X); - goto L20805;}} - L16932: { + goto L20806;}} + L16933: { Senabled_interruptsS = 0; if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L16934;} + goto L16935;} else { - goto L16934;}} + goto L16935;}} else { s48_Spending_interruptPS = 1; - goto L16934;}} - L17012: { + goto L16935;}} + L17013: { ps_error("interrupt handler is not a vector", 0); - goto L16932;} - L8378: { + goto L16933;} + L8379: { *((long *) (SstackS)) = channel_1113X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + channel_1113X))) + 16))); @@ -9188,8 +9190,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16918;} - L15976: { + goto L16919;} + L15977: { if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { s48_Spending_eventsPS = 0; @@ -9199,25 +9201,25 @@ long s48_restart(long proc_345X, long nargs_346X) v_1156X = check_events0_return_value; if (v_1156X) { arg0K0 = stack_arg_count_1116X; - goto L16894;} + goto L16895;} else { - goto L15980;}} + goto L15981;}} else { arg0K0 = stack_arg_count_1116X; - goto L16894;}} + goto L16895;}} else { - goto L15980;}} - L16033: { + goto L15981;}} + L16034: { okayP_1157X = arg2K0; key_1158X = arg0K1; if (okayP_1157X) { arg0K0 = key_1158X; - goto L15987;} + goto L15988;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_1158X; - goto L15987;}} - L16398: { + goto L15988;}} + L16399: { v_1159X = arg0K0; merged_arg0K0 = v_1159X; merged_arg0K1 = stack_arg_count_784X; @@ -9232,12 +9234,12 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + -4); arg0K0 = skip_1077X; arg0K1 = (3 + final_stack_arg_count_1121X); - goto L16361;} - L26708: { + goto L16362;} + L26717: { v_1160X = ps_close_fd(index_1123X); arg0K0 = v_1160X; - goto L26703;} - L26703: { + goto L26712;} + L26712: { status_1161X = arg0K0; if ((status_1161X == NO_ERRORS)) { push_exception_continuationB(reason_1125X, 1); @@ -9246,7 +9248,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;} + goto L16666;} else { channel_close_error(status_1161X, index_1123X, arg2_999X); push_exception_continuationB(reason_1125X, 1); @@ -9255,27 +9257,27 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((mode_1000X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16665;}} - L36458: { + goto L16666;}} + L36467: { if ((3 == (3 & arg5_1010X))) { if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1010X))) + -4))))>>2))))) { arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1010X))) + -4))))>>8))); - goto L36470;} + goto L36479;} else { - goto L36466;}} + goto L36475;}} else { - goto L36466;}} - L36450: { + goto L36475;}} + L36459: { if ((3 == (3 & arg5_1010X))) { if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1010X))) + -4))))>>2))))) { - goto L36458;} + goto L36467;} else { arg0K0 = 5; - goto L36341;}} + goto L36350;}} else { arg0K0 = 5; - goto L36341;}} - L36341: { + goto L36350;}} + L36350: { reason_1162X = arg0K0; push_exception_continuationB(reason_1162X, 1); *((long *) (SstackS)) = arg5_1010X; @@ -9286,63 +9288,63 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + -4); if (waitP_1132X) { arg0K0 = 5; - goto L36356;} + goto L36365;} else { arg0K0 = 1; - goto L36356;}} - L23940: { + goto L36365;}} + L23949: { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} - L12906: { + goto L18439;} + L12907: { arg0K0 = foo_1143X; arg0K1 = (*((long *) ((((char *) (-3 + foo_1143X))) + 12))); - goto L12844;} - L11669: { + goto L12845;} + L11670: { if ((1 == thing_936X)) { arg3K0 = "#f"; - goto L11692;} + goto L11693;} else { arg3K0 = "#t"; - goto L11692;}} - L11682: { + goto L11693;}} + L11683: { if ((3 == (3 & thing_936X))) { if ((2 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { arg3K0 = "#(...)"; - goto L11692;} + goto L11693;} else { - goto L11686;}} + goto L11687;}} else { - goto L11686;}} - L16934: { + goto L11687;}} + L16935: { SvalS = (*((long *) ((((char *) (-3 + (Sinterrupt_handlersS)))) + (((i_1065X)<<2))))); obj_1163X = SvalS; if ((3 == (3 & obj_1163X))) { if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_1163X))) + -4))))>>2))))) { - goto L16951;} + goto L16952;} else { - goto L17037;}} + goto L17038;}} else { - goto L17037;}} - L15980: { + goto L17038;}} + L15981: { arg1K0 = (Scode_pointerS); - goto L18438;} - L15987: { + goto L18439;} + L15988: { v_1164X = arg0K0; merged_arg0K0 = v_1164X; copy_stack_into_heap_return_tag = 3; goto copy_stack_into_heap; copy_stack_into_heap_return_3: if ((stack_slots_1115X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { - goto L15976;} + goto L15977;} else { ps_error("VM's stack is too small (how can this happen?)", 0); - goto L15976;}} - L36470: { + goto L15977;}} + L36479: { length_1165X = arg0K0; if ((length_1165X < (start_1133X + count_1134X))) { arg0K0 = 7; - goto L36341;} + goto L36350;} else { got_1166X = ps_read_fd(((((*((long *) ((((char *) (-3 + x_1091X))) + 8))))>>2)), ((((char *) (-3 + arg5_1010X))) + start_1133X), count_1134X, waitP_1132X, &eofP_1167X, &pendingP_1168X, &status_1169X); if ((status_1169X == NO_ERRORS)) { @@ -9350,7 +9352,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 21; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;} + goto L18439;} else { if (pendingP_1168X) { addr_1170X = (((char *) (-3 + x_1091X))) + 16; @@ -9359,12 +9361,12 @@ long s48_restart(long proc_345X, long nargs_346X) s48_Spending_interruptPS = 0; Senabled_interruptsS = 0; arg0K0 = 13; - goto L36341;} + goto L36350;} else { SvalS = (((got_1166X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18438;}}} + goto L18439;}}} else { push_exception_continuationB(25, 1); *((long *) (SstackS)) = arg5_1010X; @@ -9375,41 +9377,41 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + -4); if (waitP_1132X) { arg0K0 = 5; - goto L36393;} + goto L36402;} else { arg0K0 = 1; - goto L36393;}}}} - L36466: { + goto L36402;}}}} + L36475: { arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1010X))) + -4))))>>8)); - goto L36470;} - L36356: { + goto L36479;} + L36365: { x_1171X = arg0K0; *((long *) (SstackS)) = x_1171X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_1091X; SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16665;} - L11686: { + goto L16666;} + L11687: { if ((3 == (3 & thing_936X))) { if ((3 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { arg3K0 = "#{procedure}"; - goto L11692;} + goto L11693;} else { arg3K0 = "???"; - goto L11692;}} + goto L11693;}} else { arg3K0 = "???"; - goto L11692;}} - L16951: { + goto L11693;}} + L16952: { StemplateS = (SvalS); Slosing_opcodeS = (0 - i_1065X); arg0K0 = arg_count_1111X; - goto L16066;} - L17037: { + goto L16067;} + L17038: { ps_error("interrupt handler is not a closure", 1, i_1065X); - goto L16951;} - L36393: { + goto L16952;} + L36402: { x_1172X = arg0K0; *((long *) (SstackS)) = x_1172X; SstackS = ((SstackS) + -4); @@ -9424,7 +9426,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_1173X; SstackS = ((SstackS) + -4); arg0K0 = 6; - goto L16665;} + goto L16666;} loseD0: { message_369X = merged_arg3K0;{ why_1174X = (((*((long *) ((SstackS) + (4 + (((nargs_739X)<<2)))))))>>2); @@ -9434,20 +9436,20 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (3 & (*((long *) ((((char *) (-3 + current_template_1175X))) + 4)))))) { if ((current_template_1175X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) { arg2K0 = 0; - goto L10518;} + goto L10519;} else { ps_write_integer(((((*((long *) ((((char *) (-3 + current_template_1175X))) + 4))))>>2)), out_1176X); arg2K0 = 1; - goto L10518;}} + goto L10519;}} else { arg2K0 = 0; - goto L10518;}} - L10518: { + goto L10519;}} + L10519: { not_firstP_1177X = arg2K0; arg0K0 = (ScontS); arg2K1 = not_firstP_1177X; - goto L10525;} - L10525: { + goto L10526;} + L10526: { cont_1178X = arg0K0; not_firstP_1179X = arg2K1; if ((3 == (3 & cont_1178X))) { @@ -9456,30 +9458,30 @@ long s48_restart(long proc_345X, long nargs_346X) if ((0 == (3 & (*((long *) ((((char *) (-3 + template_1180X))) + 4)))))) { if ((template_1180X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) { arg2K0 = not_firstP_1179X; - goto L10534;} + goto L10535;} else { if (not_firstP_1179X) { ps_write_string(" <- ", out_1176X); - goto L10573;} + goto L10574;} else { - goto L10573;}}} + goto L10574;}}} else { arg2K0 = not_firstP_1179X; - goto L10534;}} + goto L10535;}} else { - goto L16684;}} + goto L16685;}} else { - goto L16684;}} - L10534: { + goto L16685;}} + L10535: { v_1181X = arg2K0; arg0K0 = (*((long *) (((char *) (-3 + cont_1178X))))); arg2K1 = v_1181X; - goto L10525;} - L10573: { + goto L10526;} + L10574: { ps_write_integer(((((*((long *) ((((char *) (-3 + template_1180X))) + 4))))>>2)), out_1176X); arg2K0 = 1; - goto L10534;} - L16684: { + goto L10535;} + L16685: { { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } if ((why_1174X == 1)) { @@ -9487,10 +9489,10 @@ long s48_restart(long proc_345X, long nargs_346X) ps_error(message_369X, 3, opcode_740X, why_1174X, ((((*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_739X)<<2)))))))))))>>2))); goto loseD0_return;} else { - goto L16708;}} + goto L16709;}} else { - goto L16708;}} - L16708: { + goto L16709;}} + L16709: { ps_error(message_369X, 2, opcode_740X, why_1174X); goto loseD0_return;} loseD0_return: @@ -9500,34 +9502,34 @@ long s48_restart(long proc_345X, long nargs_346X) }} check_events: { -{ goto L39788;} - L39788: { +{ goto L39797;} + L39797: { type_1182X = s48_get_next_event(&channel_1183X, &status_1184X); if ((type_1182X == ALARM_EVENT)) { if ((1 == (Sinterrupted_templateS))) { Sinterrupted_templateS = (StemplateS); arg0K0 = 1; - goto L15869;} + goto L15870;} else { arg0K0 = 1; - goto L15869;}} + goto L15870;}} else { if ((type_1182X == KEYBOARD_INTERRUPT_EVENT)) { arg0K0 = 2; - goto L15869;} + goto L15870;} else { if ((type_1182X == IO_COMPLETION_EVENT)) { enqueue_channelB(channel_1183X, status_1184X); arg0K0 = 8; - goto L15869;} + goto L15870;} else { if ((type_1182X == OS_SIGNAL_EVENT)) { arg0K0 = 16; - goto L15869;} + goto L15870;} else { if ((type_1182X == NO_EVENT)) { arg0K0 = 0; - goto L15869;} + goto L15870;} else { if ((type_1182X == ERROR_EVENT)) { ps_write_string("OS error while getting event", (stderr)); @@ -9537,14 +9539,14 @@ long s48_restart(long proc_345X, long nargs_346X) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 0; - goto L15869;} + goto L15870;} else { ps_write_string("unknown type of event", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 0; - goto L15869;}}}}}}} - L15869: { + goto L15870;}}}}}}} + L15870: { v_1185X = arg0K0; Spending_interruptsS = (v_1185X | (Spending_interruptsS)); if ((type_1182X == NO_EVENT)) { @@ -9552,19 +9554,19 @@ long s48_restart(long proc_345X, long nargs_346X) s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L15896;} + goto L15897;} else { - goto L15896;}} + goto L15897;}} else { s48_Spending_interruptPS = 1; - goto L15896;}} + goto L15897;}} else { - goto L39788;}} - L15896: { + goto L39797;}} + L15897: { if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { s48_Spending_eventsPS = 0; - goto L39788;} + goto L39797;} else { check_events0_return_value = 1; goto check_events_return;}} @@ -9641,42 +9643,42 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = list_363X; SstackS = ((SstackS) + -4); if ((count_364X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { - goto L15285;} + goto L15286;} else { space_1192X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); v_1193X = AVAILABLEp(space_1192X); if (v_1193X) { arg2K0 = 1; arg0K1 = 0; - goto L15369;} + goto L15370;} else { collect_saving_temps(1, 1, &temp1_1194X); v_1195X = AVAILABLEp(space_1192X); if (v_1195X) { arg2K0 = 1; arg0K1 = 0; - goto L15369;} + goto L15370;} else { arg2K0 = 0; arg0K1 = 0; - goto L15369;}}}} - L15285: { + goto L15370;}}}} + L15286: { SstackS = ((SstackS) + 4); list_1196X = *((long *) (SstackS)); arg0K0 = count_364X; arg0K1 = list_1196X; - goto L15294;} - L15369: { + goto L15295;} + L15370: { okayP_1197X = arg2K0; key_1198X = arg0K1; if (okayP_1197X) { arg0K0 = key_1198X; - goto L15320;} + goto L15321;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_1198X; - goto L15320;}} - L15294: { + goto L15321;}} + L15295: { i_1199X = arg0K0; l_1200X = arg0K1; if ((0 < i_1199X)) { @@ -9684,21 +9686,21 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + -4); arg0K0 = (-1 + i_1199X); arg0K1 = (*((long *) ((((char *) (-3 + l_1200X))) + 4))); - goto L15294;} + goto L15295;} else { push_list0_return_value = l_1200X; goto push_list_return;}} - L15320: { + L15321: { v_1201X = arg0K0; merged_arg0K0 = v_1201X; copy_stack_into_heap_return_tag = 4; goto copy_stack_into_heap; copy_stack_into_heap_return_4: if ((count_364X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { - goto L15285;} + goto L15286;} else { ps_error("VM's stack is too small (how can this happen?)", 0); - goto L15285;}} + goto L15286;}} push_list_return: switch (push_list_return_tag) { case 0: goto push_list_return_0; @@ -9711,46 +9713,46 @@ long s48_restart(long proc_345X, long nargs_346X) key_362X = merged_arg0K0;{ arg1K0 = ((SstackS) + 4); arg0K1 = 0; - goto L13514;} - L13514: { + goto L13515;} + L13515: { p_1202X = arg1K0; i_1203X = arg0K1; if ((2 == (3 & (*((long *) p_1202X))))) { if ((22 == (*((long *) p_1202X)))) { arg0K0 = (-1 + i_1203X); - goto L13501;} + goto L13502;} else { arg0K0 = i_1203X; - goto L13501;}} + goto L13502;}} else { arg1K0 = (p_1202X + 4); arg0K1 = (1 + i_1203X); - goto L13514;}} - L13501: { + goto L13515;}} + L13502: { arg_count_1204X = arg0K0; top_1205X = SstackS; if ((1 == (ScontS))) { - goto L13506;} + goto L13507;} else { merged_arg0K0 = key_362X; merged_arg0K1 = 1; really_preserve_continuation_return_tag = 1; goto really_preserve_continuation; really_preserve_continuation_return_1: - goto L13506;}} - L13506: { + goto L13507;}} + L13507: { stob_1206X = ScontS; arg1K0 = ((((char *) (-3 + stob_1206X))) + -8); arg1K1 = (top_1205X + (((arg_count_1204X)<<2))); - goto L13539;} - L13539: { + goto L13540;} + L13540: { loc_1207X = arg1K0; arg_1208X = arg1K1; if ((top_1205X < arg_1208X)) { *((long *) loc_1207X) = (*((long *) arg_1208X)); arg1K0 = (loc_1207X + -4); arg1K1 = (arg_1208X + -4); - goto L13539;} + goto L13540;} else { SstackS = loc_1207X; goto copy_stack_into_heap_return;}} @@ -9769,10 +9771,10 @@ long s48_restart(long proc_345X, long nargs_346X) p_1209X = SenvS; if ((3 == (3 & p_1209X))) { if ((p_1209X < (((long) (Sstack_beginS))))) { - goto L12690;} + goto L12691;} else { if (((((long) (Sstack_endS))) < p_1209X)) { - goto L12690;} + goto L12691;} else { merged_arg0K0 = (SenvS); merged_arg0K1 = (ScontS); @@ -9783,15 +9785,15 @@ long s48_restart(long proc_345X, long nargs_346X) save_env_in_heap_return_1: v_1210X = save_env_in_heap0_return_value; SenvS = v_1210X; - goto L12690;}}} + goto L12691;}}} else { - goto L12690;}} - L12690: { + goto L12691;}} + L12691: { end_1211X = *((long *) (((char *) (-3 + (Sbottom_of_stackS))))); arg0K0 = (ScontS); arg0K1 = (Sbottom_of_stackS); - goto L12643;} - L12643: { + goto L12644;} + L12644: { cont_1212X = arg0K0; previous_1213X = arg0K1; if ((cont_1212X == (Sbottom_of_stackS))) { @@ -9803,10 +9805,10 @@ long s48_restart(long proc_345X, long nargs_346X) p_1214X = *((long *) ((((char *) (-3 + cont_1212X))) + 12)); if ((3 == (3 & p_1214X))) { if ((p_1214X < (((long) (Sstack_beginS))))) { - goto L12661;} + goto L12662;} else { if (((((long) (Sstack_endS))) < p_1214X)) { - goto L12661;} + goto L12662;} else { merged_arg0K0 = (*((long *) ((((char *) (-3 + cont_1212X))) + 12))); merged_arg0K1 = cont_1212X; @@ -9815,10 +9817,10 @@ long s48_restart(long proc_345X, long nargs_346X) save_env_in_heap_return_tag = 2; goto save_env_in_heap; save_env_in_heap_return_2: - goto L12661;}}} + goto L12662;}}} else { - goto L12661;}}} - L12661: { + goto L12662;}}} + L12662: { header_1215X = *((long *) ((((char *) (-3 + cont_1212X))) + -4)); addr_1216X = ALLOCATE_SPACE((31 & (((header_1215X)>>2))), (4 + ((long)(((unsigned long)header_1215X)>>8)))); data_addr_1217X = addr_1216X + 4; @@ -9828,7 +9830,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (((char *) (-3 + previous_1213X)))) = new_1218X; arg0K0 = (*((long *) (((char *) (-3 + new_1218X))))); arg0K1 = new_1218X; - goto L12643;} + goto L12644;} really_preserve_continuation_return: switch (really_preserve_continuation_return_tag) { case 0: goto really_preserve_continuation_return_0; @@ -9868,16 +9870,16 @@ long s48_restart(long proc_345X, long nargs_346X) copy_env_return_0: top_1224X = copy_env0_return_value; arg0K0 = top_1224X; - goto L11922;} - L11922: { + goto L11923;} + L11923: { env_1225X = arg0K0; p_1226X = *((long *) (((char *) (-3 + env_1225X)))); if ((3 == (3 & p_1226X))) { if ((p_1226X < (((long) (Sstack_beginS))))) { - goto L11941;} + goto L11942;} else { if (((((long) (Sstack_endS))) < p_1226X)) { - goto L11941;} + goto L11942;} else { merged_arg0K0 = (*((long *) (((char *) (-3 + env_1225X))))); merged_arg0K1 = key_357X; @@ -9890,20 +9892,20 @@ long s48_restart(long proc_345X, long nargs_346X) S48_WRITE_BARRIER(env_1225X, addr_1228X, new_1227X); *((long *) addr_1228X) = new_1227X; arg0K0 = new_1227X; - goto L11922;}}} + goto L11923;}}} else { - goto L11941;}} - L11941: { + goto L11942;}} + L11942: { arg0K0 = cont_356X; - goto L11945;} - L11945: { + goto L11946;} + L11946: { cont_1229X = arg0K0; env_1230X = *((long *) ((((char *) (-3 + cont_1229X))) + 12)); if ((3 == (3 & env_1230X))) { if ((3 == (3 & (*((long *) ((((char *) (-3 + env_1230X))) + -4)))))) { *((long *) ((((char *) (-3 + cont_1229X))) + 12)) = (*((long *) ((((char *) (-3 + env_1230X))) + -4))); arg0K0 = (*((long *) (((char *) (-3 + cont_1229X))))); - goto L11945;} + goto L11946;} else { save_env_in_heap0_return_value = top_1224X; goto save_env_in_heap_return;}} @@ -9925,34 +9927,34 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_1232X) { arg2K0 = 1; arg0K1 = start_353X; - goto L14260;} + goto L14261;} else { temp0_1233X = collect_saving_temps(start_353X, 1, &temp1_1234X); v_1235X = AVAILABLEp(space_1231X); if (v_1235X) { arg2K0 = 1; arg0K1 = temp0_1233X; - goto L14260;} + goto L14261;} else { arg2K0 = 0; arg0K1 = temp0_1233X; - goto L14260;}}} - L14260: { + goto L14261;}}} + L14261: { okayP_1236X = arg2K0; temp_1237X = arg0K1; if (okayP_1236X) { arg0K0 = temp_1237X; - goto L14234;} + goto L14235;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = temp_1237X; - goto L14234;}} - L14234: { + goto L14235;}} + L14235: { start_1238X = arg0K0; arg0K0 = start_1238X; arg0K1 = count_354X; - goto L14243;} - L14243: { + goto L14244;} + L14244: { args_1239X = arg0K0; count_1240X = arg0K1; if ((0 == count_1240X)) { @@ -9968,7 +9970,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) ((((char *) (-3 + x_1243X))) + 4)) = args_1239X; arg0K0 = x_1243X; arg0K1 = (-1 + count_1240X); - goto L14243;}} + goto L14244;}} pop_args_GlistS_return: switch (pop_args_GlistS_return_tag) { case 0: goto pop_args_GlistS_return_0; @@ -9991,29 +9993,29 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_1245X) { arg2K0 = 1; arg0K1 = list_351X; - goto L14139;} + goto L14140;} else { temp0_1246X = collect_saving_temps(list_351X, 1, &temp1_1247X); v_1248X = AVAILABLEp(space_1244X); if (v_1248X) { arg2K0 = 1; arg0K1 = temp0_1246X; - goto L14139;} + goto L14140;} else { arg2K0 = 0; arg0K1 = temp0_1246X; - goto L14139;}}}} - L14139: { + goto L14140;}}}} + L14140: { okayP_1249X = arg2K0; temp_1250X = arg0K1; if (okayP_1249X) { arg0K0 = temp_1250X; - goto L14097;} + goto L14098;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = temp_1250X; - goto L14097;}} - L14097: { + goto L14098;}} + L14098: { list_1251X = arg0K0; a_1252X = *((long *) (((char *) (-3 + list_1251X)))); addr_1253X = ALLOCATE_SPACE(0, 12); @@ -10023,8 +10025,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) ((((char *) (-3 + x_1254X))) + 4)) = 25; arg0K0 = (*((long *) ((((char *) (-3 + list_1251X))) + 4))); arg0K1 = x_1254X; - goto L14112;} - L14112: { + goto L14113;} + L14113: { l_1255X = arg0K0; last_1256X = arg0K1; if ((25 == l_1255X)) { @@ -10042,7 +10044,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) addr_1260X) = x_1259X; arg0K0 = (*((long *) ((((char *) (-3 + l_1255X))) + 4))); arg0K1 = x_1259X; - goto L14112;}} + goto L14113;}} copy_listS_return: switch (copy_listS_return_tag) { case 0: goto copy_listS_return_0; @@ -10076,14 +10078,14 @@ long s48_restart(long proc_345X, long nargs_346X) if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thread_1264X))) + -4))))>>2))))) { if ((1 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thread_1264X))) + -4))))>>8))))>>2)))) { arg0K0 = (*((long *) ((((char *) (-3 + thread_1264X))) + 4))); - goto L10214;} + goto L10215;} else { - goto L10264;}} + goto L10265;}} else { - goto L10264;}} + goto L10265;}} else { - goto L10264;}} - L10214: { + goto L10265;}} + L10215: { env_1265X = arg0K0; if ((3 == (3 & env_1265X))) { if ((0 == (31 & ((((*((long *) ((((char *) (-3 + env_1265X))) + -4))))>>2))))) { @@ -10095,32 +10097,32 @@ long s48_restart(long proc_345X, long nargs_346X) goto get_current_port_return;} else { arg0K0 = (*((long *) ((((char *) (-3 + env_1265X))) + 4))); - goto L10214;}} + goto L10215;}} else { - goto L10286;}} + goto L10287;}} else { - goto L10286;}} + goto L10287;}} else { - goto L10286;}} + goto L10287;}} else { - goto L10286;}} - L10264: { + goto L10287;}} + L10265: { ps_error("current thread is not a record", 0); get_current_port0_return_value = v_1267X; goto get_current_port_return;} - L10286: { + L10287: { if ((25 == env_1265X)) { if (((((marker_349X)>>2)) == 1)) { arg3K0 = "dynamic environment doesn't have current-output-port"; - goto L10240;} + goto L10241;} else { arg3K0 = "dynamic environment doesn't have current-input-port"; - goto L10240;}} + goto L10241;}} else { ps_error("dynamic environment is not a proper list", 0); get_current_port0_return_value = v_1268X; goto get_current_port_return;}} - L10240: { + L10241: { v_1269X = arg3K0; ps_error(v_1269X, 0); get_current_port0_return_value = v_1270X; @@ -10138,8 +10140,8 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = 0; arg0K2 = list_348X; arg2K3 = 0; - goto L10081;} - L10081: { + goto L10082;} + L10082: { fast_1271X = arg0K0; len_1272X = arg0K1; slow_1273X = arg0K2; @@ -10161,13 +10163,13 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = (1 + len_1272X); arg0K2 = (*((long *) ((((char *) (-3 + slow_1273X))) + 4))); arg2K3 = 0; - goto L10081;}} + goto L10082;}} else { arg0K0 = (*((long *) ((((char *) (-3 + fast_1271X))) + 4))); arg0K1 = (1 + len_1272X); arg0K2 = slow_1273X; arg2K3 = 1; - goto L10081;}} + goto L10082;}} else { okay_argument_list0_return_value = 0; okay_argument_list1_return_value = 0; @@ -10188,11 +10190,11 @@ long s48_restart(long proc_345X, long nargs_346X) x_1276X = strlen((char *) string_1275X); if ((x_1276X < 256)) { arg0K0 = x_1276X; - goto L9589;} + goto L9590;} else { arg0K0 = 256; - goto L9589;}} - L9589: { + goto L9590;}} + L9590: { len_1277X = arg0K0; len_1278X = 1 + len_1277X; addr_1279X = ALLOCATE_SPACE(16, (4 + len_1278X)); @@ -10200,8 +10202,8 @@ long s48_restart(long proc_345X, long nargs_346X) string_1280X = 3 + (((long) (addr_1279X + 4))); *((unsigned char *) ((((char *) (-3 + string_1280X))) + len_1277X)) = 0; arg0K0 = 0; - goto L9599;} - L9599: { + goto L9600;} + L9600: { i_1281X = arg0K0; if ((i_1281X == len_1277X)) { get_error_string0_return_value = string_1280X; @@ -10209,7 +10211,7 @@ long s48_restart(long proc_345X, long nargs_346X) else { *((unsigned char *) ((((char *) (-3 + string_1280X))) + i_1281X)) = ((*(string_1275X + i_1281X))); arg0K0 = (1 + i_1281X); - goto L9599;}} + goto L9600;}} get_error_string_return: switch (get_error_string_return_tag) { case 0: goto get_error_string_return_0; @@ -10311,8 +10313,8 @@ long s48_call_startup_procedure(char **startup_vector_1285X, long startup_vector Sinterrupted_templateS = 1; arg0K0 = 0; arg0K1 = 0; - goto L15603;} - L15603: { + goto L15604;} + L15604: { i_1288X = arg0K0; size_1289X = arg0K1; if ((i_1288X == startup_vector_length_1286X)) { @@ -10321,41 +10323,41 @@ long s48_call_startup_procedure(char **startup_vector_1285X, long startup_vector if (v_1291X) { arg2K0 = 1; arg0K1 = 0; - goto L15640;} + goto L15641;} else { collect_saving_temps(1, 1, &temp1_1292X); v_1293X = AVAILABLEp(space_1290X); if (v_1293X) { arg2K0 = 1; arg0K1 = 0; - goto L15640;} + goto L15641;} else { arg2K0 = 0; arg0K1 = 0; - goto L15640;}}} + goto L15641;}}} else { arg0K0 = (1 + i_1288X); arg0K1 = (1 + (size_1289X + ((((4 + (strlen((char *) (*(startup_vector_1285X + i_1288X))))))>>2)))); - goto L15603;}} - L15640: { + goto L15604;}} + L15641: { okayP_1294X = arg2K0; key_1295X = arg0K1; if (okayP_1294X) { arg0K0 = key_1295X; - goto L15618;} + goto L15619;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_1295X; - goto L15618;}} - L15618: { + goto L15619;}} + L15619: { key_1296X = arg0K0; len_1297X = ((startup_vector_length_1286X)<<2); addr_1298X = ALLOCATE_SPACE(2, (4 + len_1297X)); *((long *) addr_1298X) = (10 + (((len_1297X)<<8))); vector_1299X = 3 + (((long) (addr_1298X + 4))); arg0K0 = 0; - goto L15676;} - L15676: { + goto L15677;} + L15677: { i_1300X = arg0K0; if ((i_1300X == startup_vector_length_1286X)) { *((long *) (SstackS)) = vector_1299X; @@ -10364,37 +10366,37 @@ long s48_call_startup_procedure(char **startup_vector_1285X, long startup_vector x_1302X = fileno((stdout)); if ((x_1302X < y_1301X)) { arg0K0 = y_1301X; - goto L14512;} + goto L14513;} else { arg0K0 = x_1302X; - goto L14512;}} + goto L14513;}} else { value_1303X = enter_string((*(startup_vector_1285X + i_1300X)), key_1296X); addr_1304X = (((char *) (-3 + vector_1299X))) + (((i_1300X)<<2)); S48_WRITE_BARRIER(vector_1299X, addr_1304X, value_1303X); *((long *) addr_1304X) = value_1303X; arg0K0 = (1 + i_1300X); - goto L15676;}} - L14512: { + goto L15677;}} + L14513: { y_1305X = arg0K0; x_1306X = fileno((stdin)); if ((x_1306X < y_1305X)) { arg0K0 = y_1305X; - goto L14514;} + goto L14515;} else { arg0K0 = x_1306X; - goto L14514;}} - L14514: { + goto L14515;}} + L14515: { v_1307X = arg0K0; x_1308X = Snumber_of_channelsS; y_1309X = 1 + v_1307X; if ((x_1308X < y_1309X)) { arg0K0 = y_1309X; - goto L14516;} + goto L14517;} else { arg0K0 = x_1308X; - goto L14516;}} - L14516: { + goto L14517;}} + L14517: { v_1310X = arg0K0; Snumber_of_channelsS = v_1310X; v_1311X = fileno((stdin)); @@ -10403,49 +10405,49 @@ long s48_call_startup_procedure(char **startup_vector_1285X, long startup_vector Spending_channels_tailS = 1; if ((NULL == (Svm_channelsS))) { ps_error("out of memory, unable to continue", 0); - goto L14538;} + goto L14539;} else { - goto L14538;}} - L14538: { + goto L14539;}} + L14539: { v_1312X = Svm_channelsS; length_1313X = Snumber_of_channelsS; arg0K0 = 0; - goto L14586;} - L14586: { + goto L14587;} + L14587: { i_1314X = arg0K0; if ((i_1314X < length_1313X)) { *(v_1312X + i_1314X) = 1; arg0K0 = (1 + i_1314X); - goto L14586;} + goto L14587;} else { space_1315X = 3 * (7 + ((((4 + (strlen((char *) "standard output"))))>>2))); v_1316X = AVAILABLEp(space_1315X); if (v_1316X) { arg2K0 = 1; arg0K1 = 0; - goto L14600;} + goto L14601;} else { collect_saving_temps(1, 1, &temp1_1317X); v_1318X = AVAILABLEp(space_1315X); if (v_1318X) { arg2K0 = 1; arg0K1 = 0; - goto L14600;} + goto L14601;} else { arg2K0 = 0; arg0K1 = 0; - goto L14600;}}}} - L14600: { + goto L14601;}}}} + L14601: { okayP_1319X = arg2K0; key_1320X = arg0K1; if (okayP_1319X) { arg0K0 = key_1320X; - goto L14544;} + goto L14545;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_1320X; - goto L14544;}} - L14544: { + goto L14545;}} + L14545: { key_1321X = arg0K0; channel_1322X = fileno((stdin)); b_1323X = enter_string("standard input", key_1321X); diff --git a/c/sysdep.h.in b/c/sysdep.h.in index faaf408..d624f8b 100644 --- a/c/sysdep.h.in +++ b/c/sysdep.h.in @@ -13,6 +13,10 @@ /* Define as the return type of signal handlers (int or void). */ #undef RETSIGTYPE +/* Define if your processor stores words with the most significant + byte first (like Motorola and SPARC, unlike Intel and VAX). */ +#undef WORDS_BIGENDIAN + /* * HAVE_SIGACTION is defined iff sigaction() is available. */ @@ -45,6 +49,13 @@ */ #undef HAVE_DLOPEN 1 +/* Define if your sys_errlist is a const definition */ +#undef HAVE_CONST_SYS_ERRLIST + +/* Define if you have the nlist() function. This is a + not-very-portable way of looking up external symbols. */ +#undef HAVE_NLIST + /* Define if you have the chroot function. */ #undef HAVE_CHROOT @@ -69,9 +80,15 @@ /* Define if you have the socket function. */ #undef HAVE_SOCKET +/* Define if you have the header file. */ +#undef HAVE_CRYPT_H + /* Define if you have the header file. */ #undef HAVE_LIBGEN_H +/* Define if you have the header file. */ +#undef HAVE_NLIST_H + /* Define if you have the header file. */ #undef HAVE_POSIX_TIME_H @@ -81,6 +98,12 @@ /* Define if you have the header file. */ #undef HAVE_SYS_TIMEB_H +/* Define if you have the header file. */ +#undef HAVE_SYS_UN_H + +/* Define if you have the crypt library (-lcrypt). */ +#undef HAVE_LIBCRYPT + /* Define if you have the dl library (-ldl). */ #undef HAVE_LIBDL