diff --git a/build/initial.image b/build/initial.image index aba9e6d..3c61cd8 100644 Binary files a/build/initial.image and b/build/initial.image differ diff --git a/c/scheme48heap.c b/c/scheme48heap.c index 642579c..a196758 100644 --- a/c/scheme48heap.c +++ b/c/scheme48heap.c @@ -69,7 +69,7 @@ static long Simported_bindingsS; static long Sexported_bindingsS; static long Sresumer_recordsS; static char SinitializingPS; -static long Hthe_record_type9260; +static long Hthe_record_type9310; char * s48_ShpS; char * s48_SlimitS; @@ -922,8 +922,8 @@ long s48_find_all(long type_123X) char * merged_arg0K1; char * merged_arg0K0; - int Hproc923124_return_tag; - char Hproc9231240_return_value; + int Hproc928124_return_tag; + char Hproc9281240_return_value; char * start_125X; char * end_126X; char * next_142X; @@ -948,10 +948,10 @@ long s48_find_all(long type_123X) s48_ShpS = ((s48_ShpS) + 4); merged_arg0K0 = (Snewspace_beginS); merged_arg0K1 = start_hp_127X; - Hproc923124_return_tag = 0; - goto Hproc923124; - Hproc923124_return_0: - v_128X = Hproc9231240_return_value; + Hproc928124_return_tag = 0; + goto Hproc928124; + Hproc928124_return_0: + v_128X = Hproc9281240_return_value; if (v_128X) { if ((0 < (Simpure_area_countS))) { areas_129X = Simpure_areasS; @@ -968,10 +968,10 @@ long s48_find_all(long type_123X) if ((i_132X < count_131X)) { merged_arg0K0 = (*(areas_129X + i_132X)); merged_arg0K1 = ((*(areas_129X + i_132X)) + (*(sizes_130X + i_132X))); - Hproc923124_return_tag = 1; - goto Hproc923124; - Hproc923124_return_1: - v_133X = Hproc9231240_return_value; + Hproc928124_return_tag = 1; + goto Hproc928124; + Hproc928124_return_1: + v_133X = Hproc9281240_return_value; if (v_133X) { arg1K0 = (1 + i_132X); goto L5578;} @@ -996,10 +996,10 @@ long s48_find_all(long type_123X) if ((i_137X < count_136X)) { merged_arg0K0 = (*(areas_134X + i_137X)); merged_arg0K1 = ((*(areas_134X + i_137X)) + (*(sizes_135X + i_137X))); - Hproc923124_return_tag = 2; - goto Hproc923124; - Hproc923124_return_2: - v_138X = Hproc9231240_return_value; + Hproc928124_return_tag = 2; + goto Hproc928124; + Hproc928124_return_2: + v_138X = Hproc9281240_return_value; if (v_138X) { arg1K0 = (1 + i_137X); goto L5599;} @@ -1010,7 +1010,7 @@ long s48_find_all(long type_123X) L5525: { *((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8))); return (3 + (((long) (start_hp_127X + 4))));} - Hproc923124: { + Hproc928124: { start_125X = merged_arg0K0; end_126X = merged_arg0K1;{ type_139X = Sfinding_typeS; @@ -1029,23 +1029,23 @@ long s48_find_all(long type_123X) arg0K0 = next_142X; goto L4504;} else { - Hproc9231240_return_value = 0; - goto Hproc923124_return;}} + Hproc9281240_return_value = 0; + goto Hproc928124_return;}} else { arg0K0 = next_142X; goto L4504;}} else { ps_write_string("heap is in an inconsistent state.", (stderr)); - Hproc9231240_return_value = 0; - goto Hproc923124_return;}} + Hproc9281240_return_value = 0; + goto Hproc928124_return;}} else { - Hproc9231240_return_value = 1; - goto Hproc923124_return;}} - Hproc923124_return: - switch (Hproc923124_return_tag) { - case 0: goto Hproc923124_return_0; - case 1: goto Hproc923124_return_1; - default: goto Hproc923124_return_2; + Hproc9281240_return_value = 1; + goto Hproc928124_return;}} + Hproc928124_return: + switch (Hproc928124_return_tag) { + case 0: goto Hproc928124_return_0; + case 1: goto Hproc928124_return_1; + default: goto Hproc928124_return_2; }} } @@ -1450,8 +1450,8 @@ long s48_find_all_records(long record_type_193X) char * merged_arg0K1; char * merged_arg0K0; - int Hproc969194_return_tag; - char Hproc9691940_return_value; + int Hproc974194_return_tag; + char Hproc9741940_return_value; char * start_195X; char * end_196X; long obj_213X; @@ -1471,17 +1471,17 @@ long s48_find_all_records(long record_type_193X) char * *areas_199X; char v_198X; char * start_hp_197X; - { Hthe_record_type9260 = record_type_193X; + { Hthe_record_type9310 = record_type_193X; Sfinding_typeS = 8; start_hp_197X = s48_ShpS; *((long *) (s48_ShpS)) = 0; s48_ShpS = ((s48_ShpS) + 4); merged_arg0K0 = (Snewspace_beginS); merged_arg0K1 = start_hp_197X; - Hproc969194_return_tag = 0; - goto Hproc969194; - Hproc969194_return_0: - v_198X = Hproc9691940_return_value; + Hproc974194_return_tag = 0; + goto Hproc974194; + Hproc974194_return_0: + v_198X = Hproc9741940_return_value; if (v_198X) { if ((0 < (Simpure_area_countS))) { areas_199X = Simpure_areasS; @@ -1498,10 +1498,10 @@ long s48_find_all_records(long record_type_193X) if ((i_202X < count_201X)) { merged_arg0K0 = (*(areas_199X + i_202X)); merged_arg0K1 = ((*(areas_199X + i_202X)) + (*(sizes_200X + i_202X))); - Hproc969194_return_tag = 1; - goto Hproc969194; - Hproc969194_return_1: - v_203X = Hproc9691940_return_value; + Hproc974194_return_tag = 1; + goto Hproc974194; + Hproc974194_return_1: + v_203X = Hproc9741940_return_value; if (v_203X) { arg1K0 = (1 + i_202X); goto L5743;} @@ -1526,10 +1526,10 @@ long s48_find_all_records(long record_type_193X) if ((i_207X < count_206X)) { merged_arg0K0 = (*(areas_204X + i_207X)); merged_arg0K1 = ((*(areas_204X + i_207X)) + (*(sizes_205X + i_207X))); - Hproc969194_return_tag = 2; - goto Hproc969194; - Hproc969194_return_2: - v_208X = Hproc9691940_return_value; + Hproc974194_return_tag = 2; + goto Hproc974194; + Hproc974194_return_2: + v_208X = Hproc9741940_return_value; if (v_208X) { arg1K0 = (1 + i_207X); goto L5764;} @@ -1540,7 +1540,7 @@ long s48_find_all_records(long record_type_193X) L5690: { *((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8))); return (3 + (((long) (start_hp_197X + 4))));} - Hproc969194: { + Hproc974194: { start_195X = merged_arg0K0; end_196X = merged_arg0K1;{ type_209X = Sfinding_typeS; @@ -1554,15 +1554,15 @@ long s48_find_all_records(long record_type_193X) if ((2 == (3 & d_211X))) { if ((type_209X == (31 & (((d_211X)>>2))))) { obj_213X = 3 + (((long) (addr_210X + 4))); - if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9260))) { + if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9310))) { if ((((s48_ShpS) + 16) < (s48_SlimitS))) { *((long *) (s48_ShpS)) = obj_213X; s48_ShpS = ((s48_ShpS) + 4); arg0K0 = next_212X; goto L4671;} else { - Hproc9691940_return_value = 0; - goto Hproc969194_return;}} + Hproc9741940_return_value = 0; + goto Hproc974194_return;}} else { arg0K0 = next_212X; goto L4671;}} @@ -1571,16 +1571,16 @@ long s48_find_all_records(long record_type_193X) goto L4671;}} else { ps_write_string("heap is in an inconsistent state.", (stderr)); - Hproc9691940_return_value = 0; - goto Hproc969194_return;}} + Hproc9741940_return_value = 0; + goto Hproc974194_return;}} else { - Hproc9691940_return_value = 1; - goto Hproc969194_return;}} - Hproc969194_return: - switch (Hproc969194_return_tag) { - case 0: goto Hproc969194_return_0; - case 1: goto Hproc969194_return_1; - default: goto Hproc969194_return_2; + Hproc9741940_return_value = 1; + goto Hproc974194_return;}} + Hproc974194_return: + switch (Hproc974194_return_tag) { + case 0: goto Hproc974194_return_0; + case 1: goto Hproc974194_return_1; + default: goto Hproc974194_return_2; }} } @@ -1885,8 +1885,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) char * merged_arg0K0; int abort_collection_return_tag; - int Hproc967264_return_tag; - char Hproc9672640_return_value; + int Hproc972264_return_tag; + char Hproc9722640_return_value; char * start_265X; char * end_266X; long h_320X; @@ -1991,10 +1991,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) s48_ShpS = ((s48_ShpS) + 4); merged_arg0K0 = (Snewspace_beginS); merged_arg0K1 = start_hp_277X; - Hproc967264_return_tag = 0; - goto Hproc967264; - Hproc967264_return_0: - v_278X = Hproc9672640_return_value; + Hproc972264_return_tag = 0; + goto Hproc972264; + Hproc972264_return_0: + v_278X = Hproc9722640_return_value; if (v_278X) { if ((0 < (Simpure_area_countS))) { areas_279X = Simpure_areasS; @@ -2011,10 +2011,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) if ((i_282X < count_281X)) { merged_arg0K0 = (*(areas_279X + i_282X)); merged_arg0K1 = ((*(areas_279X + i_282X)) + (*(sizes_280X + i_282X))); - Hproc967264_return_tag = 1; - goto Hproc967264; - Hproc967264_return_1: - v_283X = Hproc9672640_return_value; + Hproc972264_return_tag = 1; + goto Hproc972264; + Hproc972264_return_1: + v_283X = Hproc9722640_return_value; if (v_283X) { arg1K0 = (1 + i_282X); goto L5908;} @@ -2040,10 +2040,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) if ((i_287X < count_286X)) { merged_arg0K0 = (*(areas_284X + i_287X)); merged_arg0K1 = ((*(areas_284X + i_287X)) + (*(sizes_285X + i_287X))); - Hproc967264_return_tag = 2; - goto Hproc967264; - Hproc967264_return_2: - v_288X = Hproc9672640_return_value; + Hproc972264_return_tag = 2; + goto Hproc972264; + Hproc972264_return_2: + v_288X = Hproc9722640_return_value; if (v_288X) { arg1K0 = (1 + i_287X); goto L5929;} @@ -2230,7 +2230,7 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) goto abort_collection; abort_collection_return_1: return status_306X;} - Hproc967264: { + Hproc972264: { start_265X = merged_arg0K0; end_266X = merged_arg0K1;{ type_307X = Sfinding_typeS; @@ -2254,8 +2254,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) arg0K0 = next_310X; goto L4853;} else { - Hproc9672640_return_value = 0; - goto Hproc967264_return;}} + Hproc9722640_return_value = 0; + goto Hproc972264_return;}} else { arg0K0 = next_310X; goto L4853;}} @@ -2270,16 +2270,16 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X) goto L4853;}} else { ps_write_string("heap is in an inconsistent state.", (stderr)); - Hproc9672640_return_value = 0; - goto Hproc967264_return;}} + Hproc9722640_return_value = 0; + goto Hproc972264_return;}} else { - Hproc9672640_return_value = 1; - goto Hproc967264_return;}} - Hproc967264_return: - switch (Hproc967264_return_tag) { - case 0: goto Hproc967264_return_0; - case 1: goto Hproc967264_return_1; - default: goto Hproc967264_return_2; + Hproc9722640_return_value = 1; + goto Hproc972264_return;}} + Hproc972264_return: + switch (Hproc972264_return_tag) { + case 0: goto Hproc972264_return_0; + case 1: goto Hproc972264_return_1; + default: goto Hproc972264_return_2; }} abort_collection: { @@ -2353,5 +2353,5 @@ Sgc_countS = 0; SstatusS = NO_ERRORS; SeofPS = 0; SinitializingPS = 1; -Hthe_record_type9260 = 1; +Hthe_record_type9310 = 1; } diff --git a/c/scheme48vm.c b/c/scheme48vm.c index 9710d3b..ad44bcf 100644 --- a/c/scheme48vm.c +++ b/c/scheme48vm.c @@ -7,14 +7,14 @@ static void enqueue_channelB(long, long); static long close_channelB(long); static void push_continuationB(char *, long); static long enter_string(char*, long); -static char HcleanerB2160(long); +static char HcleanerB2170(long); static void push_exception_continuationB(long, long); static long make_registered_channel(long, long, long, long, long*); static long channel_close_error(long, long, long); -static void HtopD8861(void); -static long Hlookup2102(long, long, long); -static long Hlookup2083(long, long, long); -static void HtopD8854(void); +static void HtopD8911(void); +static long Hlookup2112(long, long, long); +static long Hlookup2093(long, long, long); +static void HtopD8904(void); static long collect_saving_temps(long, long, long*); void s48_set_extension_valueB(long); void s48_note_event(void); @@ -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 L2367;} + goto L2377;} else { arg0K0 = x_6X; - goto L2367;}} - L2367: { + goto L2377;}} + L2377: { 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 L2379;}} - L2379: { + goto L2389;}} + L2389: { i_10X = arg0K0; if ((i_10X == (Snumber_of_channelsS))) { arg0K0 = (Snumber_of_channelsS); - goto L2394;} + goto L2404;} else { *(new_vm_channels_9X + i_10X) = (*((Svm_channelsS) + i_10X)); arg0K0 = (1 + i_10X); - goto L2379;}} - L2394: { + goto L2389;}} + L2404: { 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 L2394;}} + goto L2404;}} } 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 L7997;} + goto L8008;} else { - goto L7997;}} - L7997: { + goto L8008;}} + L8008: { v_23X = *((long *) (((char *) (-3 + channel_19X)))); if ((4 == v_23X)) { - goto L8012;} + goto L8023;} else { if ((12 == (*((long *) (((char *) (-3 + channel_19X))))))) { - goto L8012;} + goto L8023;} else { v_24X = ps_close_fd(os_index_20X); arg0K0 = v_24X; - goto L8019;}}} - L8012: { + goto L8030;}}} + L8023: { v_25X = ps_close_fd(os_index_20X); arg0K0 = v_25X; - goto L8019;} - L8019: { + goto L8030;} + L8030: { status_26X = arg0K0; *((Svm_channelsS) + os_index_20X) = 1; addr_27X = ((char *) (-3 + channel_19X)); @@ -237,17 +237,17 @@ 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 L9527;} - L9527: { + goto L9538;} + L9538: { 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 L9527;} + goto L9538;} else { return string_38X;}} } -static char HcleanerB2160(long table_40X) +static char HcleanerB2170(long table_40X) { long arg0K1; long arg0K0; @@ -264,8 +264,8 @@ static char HcleanerB2160(long table_40X) long table_41X; { table_41X = s48_trace_value(table_40X); arg0K0 = 0; - goto L9717;} - L9717: { + goto L9728;} + L9728: { 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 L9737;}} - L9737: { + goto L9748;}} + L9748: { 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 L9717;} + goto L9728;} 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 L9742;} + goto L9753;} else { arg0K0 = okay_46X; - goto L9742;}}} - L9742: { + goto L9753;}}} + L9753: { v_51X = arg0K0; arg0K0 = (*((long *) ((((char *) (-3 + foo_45X))) + 4))); arg0K1 = v_51X; - goto L9737;} + goto L9748;} } 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 L9950;} - L9950: { + goto L9961;} + L9961: { p_56X = arg1K0; i_57X = arg0K1; if ((2 == (3 & (*((long *) p_56X))))) { if ((22 == (*((long *) p_56X)))) { arg0K0 = (-1 + i_57X); - goto L9891;} + goto L9902;} else { arg0K0 = i_57X; - goto L9891;}} + goto L9902;}} else { arg1K0 = (p_56X + 4); arg0K1 = (1 + i_57X); - goto L9950;}} - L9891: { + goto L9961;}} + L9902: { 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 L10817;} + goto L10829;} else { x_64X = add_more_channels(os_index_61X); if (x_64X) { - goto L10817;} + goto L10829;} else { *TT0 = 9; return 1;}}} - L10817: { + L10829: { if ((1 == (*((Svm_channelsS) + os_index_61X)))) { addr_65X = ALLOCATE_SPACE(5, 24); *((long *) addr_65X) = 5142; @@ -394,19 +394,19 @@ 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 L11463;} + goto L11475;} else { - goto L11457;}} + goto L11469;}} else { - goto L11457;}} - L11463: { + goto L11469;}} + L11475: { PS_WRITE_CHAR(10, (stderr), v_70X) return v_70X;} - L11457: { + L11469: { ps_write_integer((((index_68X)>>2)), (stderr)); - goto L11463;} + goto L11475;} } -static void HtopD8861(void) +static void HtopD8911(void) { char * arg1K0; long arg0K1; @@ -455,17 +455,17 @@ static void HtopD8861(void) long length_72X; char * frame_71X; { arg1K0 = (Sexternal_root_stackS); - goto L6256;} - L6256: { + goto L6267;} + L6267: { frame_71X = arg1K0; if ((frame_71X == NULL)) { arg1K0 = (Spermanent_external_rootsS); - goto L6282;} + goto L6293;} else { length_72X = *((long *) frame_71X); arg0K0 = 0; - goto L6264;}} - L6282: { + goto L6275;}} + L6293: { 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 L5290;} + goto L5301;} 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 L6282;}} - L6264: { + goto L6293;}} + L6275: { i_90X = arg0K0; if ((i_90X == length_72X)) { arg1K0 = (((char *) (*((long *) (frame_71X + 4))))); - goto L6256;} + goto L6267;} 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 L6264;}} - L5290: { + goto L6275;}} + L5301: { 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 L5884;} + goto L5895;} else { - goto L5917;}} + goto L5928;}} else { pair_97X = *((long *) (((char *) (-3 + alist_93X)))); x_98X = s48_extantP((*((long *) (((char *) (-3 + pair_97X)))))); if (x_98X) { - goto L5315;} + goto L5326;} else { s48_trace_stob_contentsB((*((long *) (((char *) (-3 + pair_97X)))))); - goto L5315;}}} - L5884: { + goto L5326;}}} + L5895: { a_99X = arg1K0; if ((252645135 == (*((long *) a_99X)))) { arg1K0 = (a_99X + 4); - goto L5884;} + goto L5895;} else { unused_100X = (((a_99X - (Sstack_beginS)))>>2); if ((unused_100X < 30)) { @@ -555,105 +555,105 @@ static void HtopD8861(void) { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } Sstack_warningPS = 0; - goto L5917;} + goto L5928;} else { - goto L5917;}}} - L5917: { + goto L5928;}}} + L5928: { arg1K0 = ((SstackS) + 4); arg0K1 = 0; - goto L5982;} - L5315: { + goto L5993;} + L5326: { 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 L5290;} - L5982: { + goto L5301;} + L5993: { p_103X = arg1K0; i_104X = arg0K1; if ((2 == (3 & (*((long *) p_103X))))) { if ((22 == (*((long *) p_103X)))) { arg0K0 = (-1 + i_104X); - goto L5919;} + goto L5930;} else { arg0K0 = i_104X; - goto L5919;}} + goto L5930;}} else { arg1K0 = (p_103X + 4); arg0K1 = (1 + i_104X); - goto L5982;}} - L5919: { + goto L5993;}} + L5930: { 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 L5935;} + goto L5946;} else { if (((((long) (Sstack_endS))) < p_106X)) { - goto L5935;} + goto L5946;} else { env_107X = SenvS; arg0K0 = env_107X; - goto L6095;}}} + goto L6106;}}} else { - goto L5935;}} - L5935: { + goto L5946;}} + L5946: { v_108X = s48_trace_value((SenvS)); SenvS = v_108X; - goto L5940;} - L6095: { + goto L5951;} + L6106: { env_109X = arg0K0; if ((3 == (3 & env_109X))) { if ((env_109X < (((long) (Sstack_beginS))))) { - goto L5940;} + goto L5951;} else { if (((((long) (Sstack_endS))) < env_109X)) { - goto L5940;} + goto L5951;} else { s48_trace_stob_contentsB(env_109X); arg0K0 = (*((long *) (((char *) (-3 + env_109X))))); - goto L6095;}}} + goto L6106;}}} else { - goto L5940;}} - L5940: { + goto L5951;}} + L5951: { arg0K0 = (ScontS); arg0K1 = 0; - goto L5945;} - L5945: { + goto L5956;} + L5956: { 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 L5963;} + goto L5974;} else { arg0K0 = env_112X; - goto L6050;}} - L5963: { + goto L6061;}} + L5974: { if ((cont_110X == (Sbottom_of_stackS))) { return;} else { arg0K0 = (*((long *) (((char *) (-3 + cont_110X))))); arg0K1 = env_112X; - goto L5945;}} - L6050: { + goto L5956;}} + L6061: { env_113X = arg0K0; if ((3 == (3 & env_113X))) { if ((env_113X < (((long) (Sstack_beginS))))) { - goto L5963;} + goto L5974;} else { if (((((long) (Sstack_endS))) < env_113X)) { - goto L5963;} + goto L5974;} else { s48_trace_stob_contentsB(env_113X); arg0K0 = (*((long *) (((char *) (-3 + env_113X))))); - goto L6050;}}} + goto L6061;}}} else { - goto L5963;}} + goto L5974;}} } -static long Hlookup2102(long table_114X, long string_115X, long key_116X) +static long Hlookup2112(long table_114X, long string_115X, long key_116X) { long arg0K1; long arg0K0; @@ -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 L13084;} - L13084: { + goto L13096;} + L13096: { 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 L13084;} + goto L13096;} else { index_120X = 1023 & h_119X; bucket_121X = *((long *) ((((char *) (-3 + table_114X))) + (((index_120X)<<2)))); arg0K0 = bucket_121X; - goto L13052;}} - L13052: { + goto L13064;}} + L13064: { foo_122X = arg0K0; if ((1 == foo_122X)) { addr_123X = ALLOCATE_SPACE(13, 20); @@ -705,14 +705,14 @@ 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 L13068;}} + goto L13080;}} else { - goto L13068;}}} - L13068: { + goto L13080;}}} + L13080: { arg0K0 = (*((long *) ((((char *) (-3 + foo_122X))) + 12))); - goto L13052;} + goto L13064;} } -static long Hlookup2083(long table_128X, long string_129X, long key_130X) +static long Hlookup2093(long table_128X, long string_129X, long key_130X) { long arg0K1; long arg0K0; @@ -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 L13209;} - L13209: { + goto L13221;} + L13221: { 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 L13209;} + goto L13221;} else { index_134X = 1023 & h_133X; bucket_135X = *((long *) ((((char *) (-3 + table_128X))) + (((index_134X)<<2)))); arg0K0 = bucket_135X; - goto L13177;}} - L13177: { + goto L13189;}} + L13189: { foo_136X = arg0K0; if ((1 == foo_136X)) { addr_137X = ALLOCATE_SPACE(13, 20); @@ -764,14 +764,14 @@ 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 L13193;}} + goto L13205;}} else { - goto L13193;}}} - L13193: { + goto L13205;}}} + L13205: { arg0K0 = (*((long *) ((((char *) (-3 + foo_136X))) + 12))); - goto L13177;} + goto L13189;} } -static void HtopD8854(void) +static void HtopD8904(void) { long arg0K2; long arg0K1; @@ -804,7 +804,7 @@ static void HtopD8854(void) long tem_143X; long new_142X; { new_142X = s48_trace_value((Sthe_symbol_tableS)); - HcleanerB2160(new_142X); + HcleanerB2170(new_142X); Sthe_symbol_tableS = new_142X; tem_143X = StemplateS; pc_144X = Ssaved_pcS; @@ -813,8 +813,8 @@ static void HtopD8854(void) arg0K0 = (Sfinalizer_alistS); arg0K1 = 25; arg0K2 = 25; - goto L7723;} - L7723: { + goto L7734;} + L7734: { 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 L7731;} + goto L7742;} else { arg0K0 = goners_147X; - goto L7784;}} + goto L7795;}} 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 L7723;} + goto L7734;} 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 L7723;}}} - L7731: { + goto L7734;}}} + L7742: { v_159X = arg0K0; Sfinalize_theseS = v_159X; arg0K0 = 0; - goto L12516;} - L7784: { + goto L12528;} + L7795: { 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 L7731;} + goto L7742;} else { arg0K0 = (*((long *) ((((char *) (-3 + l_160X))) + 4))); - goto L7784;}} - L12516: { + goto L7795;}} + L12528: { 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 L12552;} + goto L12564;} else { header_164X = *((long *) ((((char *) (-3 + channel_163X))) + -4)); if ((3 == (3 & header_164X))) { arg0K0 = header_164X; - goto L12545;} + goto L12557;} else { if ((0 == (*((long *) (((char *) (-3 + channel_163X))))))) { arg0K0 = 1; - goto L12545;} + goto L12557;} else { id_165X = *((long *) ((((char *) (-3 + channel_163X))) + 4)); if ((0 == (3 & id_165X))) { arg0K0 = id_165X; - goto L12228;} + goto L12240;} else { if ((3 == (3 & (*((long *) ((((char *) (-3 + id_165X))) + -4)))))) { arg0K0 = (*((long *) ((((char *) (-3 + id_165X))) + -4))); - goto L12228;} + goto L12240;} else { arg0K0 = id_165X; - goto L12228;}}}}}}} - L12552: { + goto L12240;}}}}}}} + L12564: { arg0K0 = (1 + i_162X); - goto L12516;} - L12545: { + goto L12528;} + L12557: { new_166X = arg0K0; *((Svm_channelsS) + i_162X) = new_166X; - goto L12552;} - L12228: { + goto L12564;} + L12240: { id_167X = arg0K0; status_168X = close_channelB(channel_163X); if ((status_168X == NO_ERRORS)) { - goto L12243;} + goto L12255;} else { channel_close_error(status_168X, (*((long *) ((((char *) (-3 + channel_163X))) + 8))), id_167X); - goto L12243;}} - L12243: { + goto L12255;}} + L12255: { ps_write_string("Channel closed: ", (stderr)); if ((0 == (3 & id_167X))) { ps_write_integer((((id_167X)>>2)), (stderr)); - goto L12261;} + goto L12273;} else { ps_write_string((((char *)(((char *) (-3 + id_167X))))), (stderr)); - goto L12261;}} - L12261: { + goto L12273;}} + L12273: { 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 L12545;} + goto L12557;} } static long collect_saving_temps(long value0_169X, long value1_170X, long *TT0) { @@ -993,6 +993,7 @@ char s48_release_gc_roots_baseB(char * old_base_177X) char okayP_178X; { okayP_178X = (Sexternal_root_stackS) == (Sexternal_root_stack_baseS); Sexternal_root_stack_baseS = old_base_177X; + Sexternal_root_stackS = old_base_177X; return okayP_178X;} } void s48_disable_interruptsB(void) @@ -1016,10 +1017,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 L3176;} + goto L3187;} else { - goto L3176;}} - L3176: { + goto L3187;}} + L3187: { *((long *) frame_182X) = (((long) (Spermanent_external_rootsS))); *((long *) (frame_182X + 4)) = (((long) loc_addr_181X)); Spermanent_external_rootsS = frame_182X; @@ -1087,15 +1088,15 @@ void s48_mark_traced_channels_closedB(void) long channel_192X; long i_191X; { arg0K0 = 0; - goto L6333;} - L6333: { + goto L6344;} + L6344: { i_191X = arg0K0; if ((i_191X == (Snumber_of_channelsS))) { return;} else { channel_192X = *((Svm_channelsS) + i_191X); if ((1 == channel_192X)) { - goto L6393;} + goto L6404;} else { header_193X = *((long *) ((((char *) (-3 + channel_192X))) + -4)); if ((3 == (3 & header_193X))) { @@ -1103,16 +1104,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 L6379;} + goto L6390;} else { ps_write_string((((char *)(((char *) (-3 + (*((long *) ((((char *) (-3 + channel_192X))) + 4)))))))), (stderr)); - goto L6379;}} + goto L6390;}} else { - goto L6393;}}}} - L6393: { + goto L6404;}}}} + L6404: { arg0K0 = (1 + i_191X); - goto L6333;} - L6379: { + goto L6344;} + L6390: { { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } addr_195X = ((char *) (-3 + header_193X)); @@ -1121,7 +1122,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 L6393;} + goto L6404;} } long s48_set_channel_os_index(long channel_197X, long os_index_198X) { @@ -1134,26 +1135,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 L7902;} + goto L7913;} else { x_200X = add_more_channels(os_index_198X); if (x_200X) { - goto L7902;} + goto L7913;} else { return 36;}}} - L7902: { + L7913: { 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 L7888;} + goto L7899;} else { - goto L7888;}} + goto L7899;}} else { return 44;}} - L7888: { + L7899: { *((Svm_channelsS) + old_index_201X) = 1; *((Svm_channelsS) + os_index_198X) = channel_197X; val_204X = ((os_index_198X)<<2); @@ -1183,25 +1184,25 @@ long s48_cleaned_imported_bindings(void) { table_206X = s48_trace_value((Simported_bindingsS)); table_207X = s48_trace_value(table_206X); arg0K0 = 0; - goto L8579;} - L8579: { + goto L8590;} + L8590: { i_208X = arg0K0; if ((1024 == i_208X)) { arg0K0 = 0; - goto L9668;} + goto L9679;} else { foo_209X = *((long *) ((((char *) (-3 + table_207X))) + (((i_208X)<<2)))); arg0K0 = foo_209X; arg0K1 = 1; - goto L8599;}} - L9668: { + goto L8610;}} + L9679: { i_210X = arg0K0; if ((1024 == i_210X)) { return table_206X;} else { arg0K0 = (*((long *) ((((char *) (-3 + table_206X))) + (((i_210X)<<2))))); - goto L9676;}} - L8599: { + goto L9687;}} + L8610: { foo_211X = arg0K0; okay_212X = arg0K1; if ((1 == foo_211X)) { @@ -1209,7 +1210,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 L8579;} + goto L8590;} else { v_214X = s48_extantP(foo_211X); if (v_214X) { @@ -1218,32 +1219,32 @@ 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 L8604;} + goto L8615;} else { arg0K0 = okay_212X; - goto L8604;}}} - L9676: { + goto L8615;}}} + L9687: { entry_217X = arg0K0; if ((1 == entry_217X)) { arg0K0 = (1 + i_210X); - goto L9668;} + goto L9679;} 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 L9676;}} - L8604: { + goto L9687;}} + L8615: { v_219X = arg0K0; arg0K0 = (*((long *) ((((char *) (-3 + foo_211X))) + 12))); arg0K1 = v_219X; - goto L8599;} + goto L8610;} } long s48_copy_symbol_table(void) { long new_220X; { new_220X = s48_trace_value((Sthe_symbol_tableS)); - HcleanerB2160(new_220X); + HcleanerB2170(new_220X); return new_220X;} } void s48_setup_external_exception(long why_221X, long nargs_222X) @@ -1252,10 +1253,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 L11019;} + goto L11031;} else { - goto L11019;}} - L11019: { + goto L11031;}} + L11031: { Sexternal_exception_nargsS = nargs_222X; Sexternal_exceptionPS = 1; return;} @@ -1291,20 +1292,20 @@ char s48_warn_about_undefined_imported_bindings(void) { out_225X = stderr; table_226X = Simported_bindingsS; arg0K0 = 0; - goto L11559;} - L11559: { + goto L11571;} + L11571: { 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 L11567;}} - L11567: { + goto L11579;}} + L11579: { entry_229X = arg0K0; if ((1 == entry_229X)) { arg0K0 = (1 + i_227X); - goto L11559;} + goto L11571;} else { if ((17 == (255 & (*((long *) ((((char *) (-3 + entry_229X))) + 8)))))) { name_230X = *((long *) (((char *) (-3 + entry_229X)))); @@ -1312,23 +1313,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 L11547;} + goto L11559;} else { - goto L11545;}} + goto L11557;}} else { - goto L11545;}} + goto L11557;}} else { - goto L11570;}}} - L11547: { + goto L11582;}}} + L11559: { { long ignoreXX; PS_WRITE_CHAR(10, out_225X, ignoreXX) } - goto L11570;} - L11545: { + goto L11582;} + L11557: { ps_write_string("", out_225X); - goto L11547;} - L11570: { + goto L11559;} + L11582: { arg0K0 = (*((long *) ((((char *) (-3 + entry_229X))) + 12))); - goto L11567;} + goto L11579;} } void s48_define_exported_binding(char *name_231X, long value_232X) { @@ -1355,7 +1356,7 @@ void s48_define_exported_binding(char *name_231X, long value_232X) arg2K0 = 1; arg0K1 = 0; arg0K2 = value_232X; - goto L14339;} + goto L14351;} else { temp0_235X = collect_saving_temps(value_232X, 1, &temp1_236X); v_237X = AVAILABLEp(space_233X); @@ -1363,30 +1364,30 @@ void s48_define_exported_binding(char *name_231X, long value_232X) arg2K0 = 1; arg0K1 = 0; arg0K2 = temp0_235X; - goto L14339;} + goto L14351;} else { arg2K0 = 0; arg0K1 = 0; arg0K2 = temp0_235X; - goto L14339;}}} - L14339: { + goto L14351;}}} + L14351: { okayP_238X = arg2K0; key_239X = arg0K1; temp_240X = arg0K2; if (okayP_238X) { arg0K0 = key_239X; arg0K1 = temp_240X; - goto L14320;} + goto L14332;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_239X; arg0K1 = temp_240X; - goto L14320;}} - L14320: { + goto L14332;}} + L14332: { key_241X = arg0K0; value_242X = arg0K1; name_243X = enter_string(name_231X, key_241X); - x_244X = Hlookup2083((Simported_bindingsS), name_243X, key_241X); + x_244X = Hlookup2093((Simported_bindingsS), name_243X, key_241X); addr_245X = (((char *) (-3 + x_244X))) + 8; S48_WRITE_BARRIER(x_244X, addr_245X, value_242X); *((long *) addr_245X) = value_242X; @@ -1409,39 +1410,39 @@ long s48_add_channel(long mode_246X, long id_247X, long os_index_248X) if (v_249X) { arg2K0 = 1; arg0K1 = 0; - goto L14728;} + goto L14740;} else { collect_saving_temps(1, 1, &temp1_250X); v_251X = AVAILABLEp(6); if (v_251X) { arg2K0 = 1; arg0K1 = 0; - goto L14728;} + goto L14740;} else { arg2K0 = 0; arg0K1 = 0; - goto L14728;}}} - L14728: { + goto L14740;}}} + L14740: { okayP_252X = arg2K0; key_253X = arg0K1; if (okayP_252X) { arg0K0 = key_253X; - goto L14711;} + goto L14723;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_253X; - goto L14711;}} - L14711: { + goto L14723;}} + L14723: { 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 L14722;}} + goto L14734;}} else { - goto L14722;}} - L14722: { + goto L14734;}} + L14734: { return (((status_256X)<<2));} } long s48_get_imported_binding(char *name_257X) @@ -1462,32 +1463,32 @@ long s48_get_imported_binding(char *name_257X) if (v_259X) { arg2K0 = 1; arg0K1 = 0; - goto L15417;} + goto L15429;} else { collect_saving_temps(1, 1, &temp1_260X); v_261X = AVAILABLEp(space_258X); if (v_261X) { arg2K0 = 1; arg0K1 = 0; - goto L15417;} + goto L15429;} else { arg2K0 = 0; arg0K1 = 0; - goto L15417;}}} - L15417: { + goto L15429;}}} + L15429: { okayP_262X = arg2K0; key_263X = arg0K1; if (okayP_262X) { arg0K0 = key_263X; - goto L15404;} + goto L15416;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = key_263X; - goto L15404;}} - L15404: { + goto L15416;}} + L15416: { key_264X = arg0K0; name_265X = enter_string(name_257X, key_264X); - return Hlookup2102((Sexported_bindingsS), name_265X, key_264X);} + return Hlookup2112((Sexported_bindingsS), name_265X, key_264X);} } long s48_allocate_stob(long type_266X, long size_267X) { @@ -1497,16 +1498,16 @@ long s48_allocate_stob(long type_266X, long size_267X) char v_268X; { v_268X = AVAILABLEp(size_267X); if (v_268X) { - goto L15712;} + goto L15724;} else { collect_saving_temps(1, 1, &temp1_269X); v_270X = AVAILABLEp(size_267X); if (v_270X) { - goto L15712;} + goto L15724;} else { ps_error("Scheme48 heap overflow", 0); - goto L15712;}}} - L15712: { + goto L15724;}}} + L15724: { 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 +1594,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 L15443;} + goto L15455;} else { collect_saving_temps(1, 1, &temp1_276X); v_277X = AVAILABLEp(1025); if (v_277X) { - goto L15443;} + goto L15455;} else { ps_error("Scheme48 heap overflow", 0); - goto L15443;}}} + goto L15455;}}} else { Sthe_symbol_tableS = symbol_table_274X; - goto L15835;}} - L15443: { + goto L15847;}} + L15455: { addr_278X = ALLOCATE_SPACE(2, 4100); *((long *) addr_278X) = 1048586; table_279X = 3 + (((long) (addr_278X + 4))); arg0K0 = 0; - goto L15518;} - L15835: { + goto L15530;} + L15847: { exported_bindings_280X = s48_initial_exported_bindings(); imported_bindings_281X = s48_initial_imported_bindings(); v_282X = AVAILABLEp(2050); @@ -1619,7 +1620,7 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) arg2K0 = 1; arg0K1 = imported_bindings_281X; arg0K2 = exported_bindings_280X; - goto L14421;} + goto L14433;} else { temp0_283X = collect_saving_temps(imported_bindings_281X, exported_bindings_280X, &temp1_284X); v_285X = AVAILABLEp(2050); @@ -1627,13 +1628,13 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) arg2K0 = 1; arg0K1 = temp0_283X; arg0K2 = temp1_284X; - goto L14421;} + goto L14433;} else { arg2K0 = 0; arg0K1 = temp0_283X; arg0K2 = temp1_284X; - goto L14421;}}} - L15518: { + goto L14433;}}} + L15530: { i_286X = arg0K0; if ((1024 == i_286X)) { Sthe_symbol_tableS = table_279X; @@ -1644,38 +1645,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 L15472;} + goto L15484;} else { arg0K0 = maybe_289X; - goto L15472;}} + goto L15484;}} else { arg0K0 = maybe_287X; - goto L15472;}} + goto L15484;}} 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 L15518;}} - L14421: { + goto L15530;}} + L14433: { okayP_291X = arg2K0; temp0_292X = arg0K1; temp1_293X = arg0K2; if (okayP_291X) { arg0K0 = temp0_292X; arg0K1 = temp1_293X; - goto L14382;} + goto L14394;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = temp0_292X; arg0K1 = temp1_293X; - goto L14382;}} - L15472: { + goto L14394;}} + L15484: { symbols_294X = arg0K0; n_295X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + symbols_294X))) + -4))))>>8))))>>2); arg0K0 = 0; - goto L15539;} - L14382: { + goto L15551;} + L14394: { imported_bindings_296X = arg0K0; exported_bindings_297X = arg0K1; if ((1 == imported_bindings_296X)) { @@ -1683,14 +1684,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 L14483;} + goto L14495;} else { arg0K0 = imported_bindings_296X; - goto L14397;}} - L15539: { + goto L14409;}} + L15551: { i_300X = arg0K0; if ((i_300X == n_295X)) { - goto L15835;} + goto L15847;} else { table_301X = Sthe_symbol_tableS; foo_302X = *((long *) ((((char *) (-3 + symbols_294X))) + (((i_300X)<<2)))); @@ -1698,19 +1699,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 L13006;}} - L14483: { + goto L13018;}} + L14495: { i_305X = arg0K0; if ((1024 == i_305X)) { arg0K0 = table_299X; - goto L14397;} + goto L14409;} 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 L14483;}} - L14397: { + goto L14495;}} + L14409: { v_307X = arg0K0; Simported_bindingsS = v_307X; if ((1 == exported_bindings_297X)) { @@ -1718,17 +1719,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 L14460;} + goto L14472;} else { arg0K0 = exported_bindings_297X; - goto L14410;}} - L13006: { + goto L14422;}} + L13018: { 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 L13006;} + goto L13018;} else { index_312X = 1023 & h_311X; val_313X = *((long *) ((((char *) (-3 + table_301X))) + (((index_312X)<<2)))); @@ -1739,19 +1740,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 L15539;}} - L14460: { + goto L15551;}} + L14472: { i_316X = arg0K0; if ((1024 == i_316X)) { arg0K0 = table_309X; - goto L14410;} + goto L14422;} 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 L14460;}} - L14410: { + goto L14472;}} + L14422: { v_318X = arg0K0; Sexported_bindingsS = v_318X; if ((stack_size_273X < 8131)) { @@ -1760,16 +1761,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 L14929;} + goto L14941;} else { arg1K0 = stack_319X; arg0K1 = 8131; - goto L14929;}} + goto L14941;}} else { arg1K0 = stack_begin_272X; arg0K1 = stack_size_273X; - goto L14929;}} - L14929: { + goto L14941;}} + L14941: { start_320X = arg1K0; size_321X = arg0K1; Sstack_beginS = start_320X; @@ -1779,26 +1780,26 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) ScontS = 1; SenvS = 17; arg1K0 = start_320X; - goto L14961;} - L14961: { + goto L14973;} + L14973: { a_322X = arg1K0; if ((a_322X == (Sstack_endS))) { v_323X = AVAILABLEp(5); if (v_323X) { - goto L14978;} + goto L14990;} else { collect_saving_temps(1, 1, &temp1_324X); v_325X = AVAILABLEp(5); if (v_325X) { - goto L14978;} + goto L14990;} else { ps_error("Scheme48 heap overflow", 0); - goto L14978;}}} + goto L14990;}}} else { *((long *) a_322X) = 252645135; arg1K0 = (a_322X + 4); - goto L14961;}} - L14978: { + goto L14973;}} + L14990: { addr_326X = ALLOCATE_SPACE(17, 6); *((long *) addr_326X) = 582; addr_327X = ALLOCATE_SPACE(11, 12); @@ -1821,16 +1822,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 L15157;} + goto L15169;} else { collect_saving_temps(1, 1, &temp1_333X); v_334X = AVAILABLEp(5); if (v_334X) { - goto L15157;} + goto L15169;} else { ps_error("Scheme48 heap overflow", 0); - goto L15157;}}} - L15157: { + goto L15169;}}} + L15169: { addr_335X = ALLOCATE_SPACE(17, 6); *((long *) addr_335X) = 582; addr_336X = ALLOCATE_SPACE(11, 12); @@ -1841,7 +1842,7 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) S48_WRITE_BARRIER(temp_337X, addr_339X, code_338X); *((long *) addr_339X) = code_338X; *((unsigned char *) (((char *) (-3 + code_338X)))) = 34; - *((unsigned char *) ((((char *) (-3 + code_338X))) + 1)) = 140; + *((unsigned char *) ((((char *) (-3 + code_338X))) + 1)) = 141; Sinterrupt_templateS = temp_337X; addr_340X = ALLOCATE_SPACE(17, 6); *((long *) addr_340X) = 582; @@ -1852,8 +1853,8 @@ void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X) addr_344X = ((char *) (-3 + temp_342X)); S48_WRITE_BARRIER(temp_342X, addr_344X, code_343X); *((long *) addr_344X) = code_343X; - *((unsigned char *) (((char *) (-3 + code_343X)))) = 137; - *((unsigned char *) ((((char *) (-3 + code_343X))) + 1)) = 123; + *((unsigned char *) (((char *) (-3 + code_343X)))) = 138; + *((unsigned char *) ((((char *) (-3 + code_343X))) + 1)) = 124; Sexception_templateS = temp_342X; return;} } @@ -1926,655 +1927,667 @@ long s48_restart(long proc_345X, long nargs_346X) long list_args_367X; long list_arg_count_368X; char *message_369X; - long pc_1284X; - long tem_1283X; - long cont_1282X; - long i_1281X; - long string_1280X; - char * addr_1279X; - long len_1278X; - long len_1277X; - long x_1276X; - char *string_1275X; - char move_slowP_1274X; - long slow_1273X; - long len_1272X; - long fast_1271X; - long v_1270X; - char *v_1269X; - long v_1268X; - long v_1267X; - long obj_1266X; - long env_1265X; - long thread_1264X; - long v_1263X; - long new_cont_1262X; - char * top_1261X; - char * addr_1260X; - long x_1259X; - char * addr_1258X; - long a_1257X; - long last_1256X; - long l_1255X; - long x_1254X; - char * addr_1253X; - long a_1252X; - long list_1251X; - long temp_1250X; - char okayP_1249X; - char v_1248X; - long temp1_1247X; - long temp0_1246X; - char v_1245X; - long space_1244X; - long x_1243X; - char * addr_1242X; - long a_1241X; - long count_1240X; - long args_1239X; - long start_1238X; - long temp_1237X; - char okayP_1236X; - char v_1235X; - long temp1_1234X; - long temp0_1233X; - char v_1232X; - long space_1231X; - long env_1230X; - long cont_1229X; + long pc_1296X; + long tem_1295X; + long cont_1294X; + long i_1293X; + long string_1292X; + char * addr_1291X; + long len_1290X; + long len_1289X; + long x_1288X; + char *string_1287X; + char move_slowP_1286X; + long slow_1285X; + long len_1284X; + long fast_1283X; + long v_1282X; + char *v_1281X; + long v_1280X; + long v_1279X; + long obj_1278X; + long env_1277X; + long thread_1276X; + long v_1275X; + long new_cont_1274X; + char * top_1273X; + char * addr_1272X; + long x_1271X; + char * addr_1270X; + long a_1269X; + long last_1268X; + long l_1267X; + long x_1266X; + char * addr_1265X; + long a_1264X; + long list_1263X; + long temp_1262X; + char okayP_1261X; + char v_1260X; + long temp1_1259X; + long temp0_1258X; + char v_1257X; + long space_1256X; + long x_1255X; + char * addr_1254X; + long a_1253X; + long count_1252X; + long args_1251X; + long start_1250X; + long temp_1249X; + char okayP_1248X; + char v_1247X; + long temp1_1246X; + long temp0_1245X; + char v_1244X; + long space_1243X; + long env_1242X; + long cont_1241X; + char * addr_1240X; + long new_1239X; + long p_1238X; + long env_1237X; + long top_1236X; + char * addr_1235X; + long new_1234X; + char * data_addr_1233X; + char * addr_1232X; + long header_1231X; + long new_1230X; + char * data_addr_1229X; char * addr_1228X; - long new_1227X; + long header_1227X; long p_1226X; - long env_1225X; - long top_1224X; - char * addr_1223X; - long new_1222X; - char * data_addr_1221X; - char * addr_1220X; - long header_1219X; - long new_1218X; - char * data_addr_1217X; - char * addr_1216X; - long header_1215X; - long p_1214X; - long previous_1213X; - long cont_1212X; - long end_1211X; - long v_1210X; - long p_1209X; - char * arg_1208X; - char * loc_1207X; - long stob_1206X; - char * top_1205X; - long arg_count_1204X; - long i_1203X; - char * p_1202X; - long v_1201X; - long l_1200X; - long i_1199X; - long key_1198X; - char okayP_1197X; - long list_1196X; - char v_1195X; - long temp1_1194X; + long previous_1225X; + long cont_1224X; + long end_1223X; + long v_1222X; + long p_1221X; + char * arg_1220X; + char * loc_1219X; + long stob_1218X; + char * top_1217X; + long arg_count_1216X; + long i_1215X; + char * p_1214X; + long v_1213X; + long l_1212X; + long i_1211X; + long key_1210X; + char okayP_1209X; + long list_1208X; + char v_1207X; + long temp1_1206X; + char v_1205X; + long space_1204X; + long x_1203X; + long v_1202X; + long x_1201X; + long v_1200X; + long count_1199X; + long x_1198X; + long v_1197X; + long status_1196X; + long channel_1195X; + long type_1194X; char v_1193X; - long space_1192X; - long x_1191X; - long v_1190X; - long x_1189X; - long v_1188X; - long count_1187X; - long x_1186X; - long v_1185X; - long status_1184X; - long channel_1183X; - long type_1182X; - char v_1181X; - long template_1180X; - char not_firstP_1179X; - long cont_1178X; - char not_firstP_1177X; - FILE * out_1176X; - long current_template_1175X; - long why_1174X; - long x_1173X; - long x_1172X; - long x_1171X; - char * addr_1170X; - long status_1169X; - char pendingP_1168X; - char eofP_1167X; - long got_1166X; - long length_1165X; - long v_1164X; - long obj_1163X; - long reason_1162X; - long status_1161X; - long v_1160X; - long v_1159X; - long key_1158X; - char okayP_1157X; - char v_1156X; - char * addr_1155X; - long value_1154X; - long offset_1153X; - long i_1152X; - long count_1151X; - long y_1150X; - char * addr_1149X; - long val_1148X; - char * addr_1147X; - long value_1146X; - long len_1145X; - long s2_1144X; - long foo_1143X; - long previous_foo_1142X; - long val_1141X; - long x_1140X; - char * addr_1139X; - long status_1138X; - char pendingP_1137X; - long got_1136X; - long length_1135X; - long count_1134X; - long start_1133X; - char waitP_1132X; - long x_1131X; - long status_1130X; - long channel_1129X; - long v_1128X; - long v_1127X; - long v_1126X; - long reason_1125X; - long channel_1124X; - long index_1123X; - long val_1122X; - long final_stack_arg_count_1121X; - char v_1120X; - long temp1_1119X; - char v_1118X; - long space_1117X; - long stack_arg_count_1116X; - long stack_slots_1115X; - char x_1114X; - long channel_1113X; - long obj_1112X; - long arg_count_1111X; - long count_1110X; - long i_1109X; - long env_1108X; - long value_1107X; - char *v_1106X; - long y_1105X; - long i_1104X; - long l_1103X; - long bucket_1102X; - long index_1101X; - long h_1100X; - long i_1099X; - long v_1098X; - long v_1097X; - long x_1096X; - long status_1095X; - long reason_1094X; - long v_1093X; - long reason_1092X; - long x_1091X; - long obj_1090X; - long v_1089X; - long v_1088X; - long len_1087X; - long s2_1086X; - char * addr_1085X; - long x_1084X; - char * addr_1083X; - long foo_1082X; - long rest_list_1081X; - long i_1080X; - long n_1079X; - long args_1078X; - long skip_1077X; - long template_1076X; - long stack_arg_count_1075X; - long skip_1074X; - long skip_1073X; - long template_1072X; - long stack_arg_count_1071X; - long skip_1070X; + long template_1192X; + char not_firstP_1191X; + long cont_1190X; + char not_firstP_1189X; + FILE * out_1188X; + long current_template_1187X; + long why_1186X; + long x_1185X; + long x_1184X; + long x_1183X; + char * addr_1182X; + long status_1181X; + char pendingP_1180X; + char eofP_1179X; + long got_1178X; + long length_1177X; + long v_1176X; + long obj_1175X; + long reason_1174X; + long status_1173X; + long v_1172X; + long v_1171X; + long key_1170X; + char okayP_1169X; + char v_1168X; + char * addr_1167X; + long value_1166X; + long offset_1165X; + long i_1164X; + long count_1163X; + long y_1162X; + char * addr_1161X; + long val_1160X; + char * addr_1159X; + long value_1158X; + long len_1157X; + long s2_1156X; + long foo_1155X; + long previous_foo_1154X; + long val_1153X; + long x_1152X; + char * addr_1151X; + long status_1150X; + char pendingP_1149X; + long got_1148X; + long length_1147X; + long count_1146X; + long start_1145X; + char waitP_1144X; + long x_1143X; + long status_1142X; + long channel_1141X; + long v_1140X; + long v_1139X; + long v_1138X; + long reason_1137X; + long channel_1136X; + long index_1135X; + long val_1134X; + long final_stack_arg_count_1133X; + char v_1132X; + long temp1_1131X; + char v_1130X; + long space_1129X; + long stack_arg_count_1128X; + long stack_slots_1127X; + char x_1126X; + long channel_1125X; + long obj_1124X; + long arg_count_1123X; + long count_1122X; + long i_1121X; + long env_1120X; + long value_1119X; + char *v_1118X; + long y_1117X; + long i_1116X; + long l_1115X; + long bucket_1114X; + long index_1113X; + long h_1112X; + long i_1111X; + long v_1110X; + long v_1109X; + long x_1108X; + long status_1107X; + long reason_1106X; + long v_1105X; + long val_1104X; + long reason_1103X; + long x_1102X; + long obj_1101X; + long v_1100X; + long v_1099X; + long len_1098X; + long s2_1097X; + char * addr_1096X; + long x_1095X; + char * addr_1094X; + long foo_1093X; + long rest_list_1092X; + long i_1091X; + long n_1090X; + long args_1089X; + long skip_1088X; + long template_1087X; + long stack_arg_count_1086X; + long skip_1085X; + long skip_1084X; + long template_1083X; + long stack_arg_count_1082X; + long skip_1081X; + char * addr_1080X; + long next_1079X; + long channel_1078X; + long m_1077X; + long i_1076X; + long value_1075X; + long back_1074X; + long env_1073X; + long offset_1072X; + long i_1071X; + long x_1070X; char * addr_1069X; - long next_1068X; - long channel_1067X; - long m_1066X; - long i_1065X; - long value_1064X; - long back_1063X; - long env_1062X; - long offset_1061X; - long i_1060X; - long x_1059X; - char * addr_1058X; - long a_1057X; - long env_1056X; - long v_1055X; - long p_1054X; - long key_1053X; - long string_1052X; - char * addr_1051X; - long len_1050X; - long n_1049X; - long table_1048X; - long x_1047X; - long arg2_1046X; - long key_1045X; - char temp_1044X; - char minutesP_1043X; - long status_1042X; - long status_1041X; - long undumpable_count_1040X; - long undumpables_1039X; - long status_1038X; - long status_1037X; - long status_1036X; - long status_1035X; - FILE * port_1034X; - char x_1033X; - long comment_string_1032X; - long obj_1031X; - long arg3_1030X; - long arg2_1029X; - long key_1028X; - long x_1027X; - char * addr_1026X; - long channel_1025X; - long res_1024X; - long i_1023X; - char * addr_1022X; - char * addr_1021X; - long val_1020X; - char v_1019X; - long channel_1018X; - long count_1017X; - long start_1016X; - long obj_1015X; + long a_1068X; + long env_1067X; + long v_1066X; + long p_1065X; + long key_1064X; + long string_1063X; + char * addr_1062X; + long len_1061X; + long n_1060X; + long table_1059X; + long x_1058X; + long arg2_1057X; + long key_1056X; + char temp_1055X; + char minutesP_1054X; + long status_1053X; + long status_1052X; + long undumpable_count_1051X; + long undumpables_1050X; + long status_1049X; + long status_1048X; + long status_1047X; + long status_1046X; + FILE * port_1045X; + char x_1044X; + long comment_string_1043X; + long obj_1042X; + long arg3_1041X; + long arg2_1040X; + long key_1039X; + long x_1038X; + char * addr_1037X; + long channel_1036X; + long res_1035X; + long i_1034X; + char * addr_1033X; + char * addr_1032X; + long val_1031X; + long x_1030X; + long status_1029X; + char readyP_1028X; + long channel_1027X; + long obj_1026X; + long key_1025X; + char v_1024X; + long channel_1023X; + long count_1022X; + long start_1021X; + long obj_1020X; + long arg4_1019X; + long arg3_1018X; + long arg2_1017X; + long key_1016X; + long arg5_1015X; long arg4_1014X; long arg3_1013X; long arg2_1012X; long key_1011X; - long arg5_1010X; - long arg4_1009X; - long arg3_1008X; - long arg2_1007X; + long x_1010X; + long status_1009X; + long channel_1008X; + long obj_1007X; long key_1006X; - long x_1005X; - long status_1004X; - long channel_1003X; - long obj_1002X; - long key_1001X; - long mode_1000X; - long arg2_999X; - long key_998X; - long bucket_997X; - long index_996X; - long h_995X; + long mode_1005X; + long arg2_1004X; + long key_1003X; + long bucket_1002X; + long index_1001X; + long h_1000X; + long i_999X; + long i_998X; + long i_997X; + char * addr_996X; + long i_995X; long i_994X; long i_993X; - long i_992X; - char * addr_991X; - long i_990X; - long i_989X; - long i_988X; + long c_992X; + long b_991X; + long c_990X; + long b_989X; + char x_988X; long c_987X; long b_986X; long c_985X; - long b_984X; - char x_983X; - long c_982X; - long b_981X; - long c_980X; - long mid_c_979X; - long v_978X; - long v_977X; - long lo_c_976X; - long hi_b_975X; - long hi_a_974X; - long lo_b_973X; - long lo_a_972X; - long b_971X; - long v_970X; - long v_969X; - long args_968X; - long next_967X; - long next_op_966X; - long cont_965X; - long index_964X; - long length_963X; - long wants_stack_args_962X; - long skip_961X; - long skip_960X; - long stack_space_959X; - long protocol_958X; - long index_957X; - long length_956X; - long wants_stack_args_955X; - long skip_954X; - long skip_953X; - long stack_space_952X; - long protocol_951X; - long n_950X; - long tem_949X; - long stack_arg_count_948X; - long v_947X; - long v_946X; - long key_945X; - long start_i_944X; - long temp_943X; - char okayP_942X; - long key_941X; - char okayP_940X; - long obj_939X; - long obj_938X; - long type_937X; - long thing_936X; - long stuff_935X; - char * addr_934X; - long val_933X; - long x_932X; - long i_931X; - long b_930X; - long p_929X; - long port_928X; - long Kchar_927X; - long x_926X; - long i_925X; - long b_924X; - long p_923X; - long p_922X; - long port_921X; - char * addr_920X; - long val_919X; - long x_918X; - long i_917X; - long b_916X; - long p_915X; - long p_914X; - long port_913X; - long list_912X; - long head_911X; - char move_slowP_910X; - long slow_909X; - long list_908X; - long n_907X; - long arg2_906X; - long val_905X; - long mseconds_904X; - long seconds_903X; - long option_902X; - long key_901X; - char okayP_900X; - long result_899X; - char * args_898X; - long name_897X; - long proc_896X; - long rest_list_895X; - long x_894X; - long tem_893X; - long pc_892X; + long mid_c_984X; + long v_983X; + long v_982X; + long lo_c_981X; + long hi_b_980X; + long hi_a_979X; + long lo_b_978X; + long lo_a_977X; + long b_976X; + long v_975X; + long v_974X; + long args_973X; + long next_972X; + long next_op_971X; + long cont_970X; + long index_969X; + long length_968X; + long wants_stack_args_967X; + long skip_966X; + long skip_965X; + long stack_space_964X; + long protocol_963X; + long index_962X; + long length_961X; + long wants_stack_args_960X; + long skip_959X; + long skip_958X; + long stack_space_957X; + long protocol_956X; + long n_955X; + long tem_954X; + long stack_arg_count_953X; + long v_952X; + long v_951X; + long key_950X; + long start_i_949X; + long temp_948X; + char okayP_947X; + long key_946X; + char okayP_945X; + long obj_944X; + long obj_943X; + long type_942X; + long thing_941X; + long stuff_940X; + char * addr_939X; + long val_938X; + long x_937X; + long i_936X; + long b_935X; + long p_934X; + long port_933X; + long Kchar_932X; + long x_931X; + long i_930X; + long b_929X; + long p_928X; + long p_927X; + long port_926X; + char * addr_925X; + long val_924X; + long x_923X; + long i_922X; + long b_921X; + long p_920X; + long p_919X; + long port_918X; + long list_917X; + long head_916X; + char move_slowP_915X; + long slow_914X; + long list_913X; + long n_912X; + long arg2_911X; + long val_910X; + long mseconds_909X; + long seconds_908X; + long option_907X; + long key_906X; + char okayP_905X; + long result_904X; + char * args_903X; + long name_902X; + long proc_901X; + long rest_list_900X; + long x_899X; + long tem_898X; + long pc_897X; + long v_896X; + long value_895X; + long vector_894X; + long type_893X; + char firstP_892X; long v_891X; - long value_890X; - long vector_889X; - long type_888X; - char firstP_887X; - long v_886X; - long vector_885X; - char firstP_884X; - long x_883X; - char * addr_882X; - long b_881X; - long x_880X; - char * addr_879X; - long proc_878X; - long stob_877X; - long h_876X; - long i_875X; - long key_874X; - char okayP_873X; - long y_872X; - long n_871X; - char * addr_870X; - long prev_869X; - long ch_868X; - long val_867X; - long key_866X; - char okayP_865X; - long key_864X; - char okayP_863X; - long key_862X; - char okayP_861X; - long key_860X; - char okayP_859X; + long vector_890X; + char firstP_889X; + long x_888X; + char * addr_887X; + long b_886X; + long x_885X; + char * addr_884X; + long proc_883X; + long stob_882X; + long h_881X; + long i_880X; + long key_879X; + char okayP_878X; + long y_877X; + long n_876X; + char * addr_875X; + long prev_874X; + long ch_873X; + long val_872X; + long key_871X; + char okayP_870X; + long key_869X; + char okayP_868X; + long key_867X; + char okayP_866X; + long key_865X; + char okayP_864X; + long key_863X; + char okayP_862X; + long val_861X; + char * addr_860X; + char * addr_859X; long val_858X; - char * addr_857X; - char * addr_856X; - long val_855X; - long n_854X; + long n_857X; + long string_856X; + long table_855X; + long obj_854X; long string_853X; - long table_852X; - long obj_851X; - long string_850X; + char * addr_852X; + long len_851X; + long vector_850X; char * addr_849X; - long len_848X; - long vector_847X; - char * addr_846X; - long value_845X; - char * addr_844X; - long len_843X; - long init_842X; - char okayP_841X; - long rest_list_840X; - long stack_nargs_839X; - long new_838X; - char * addr_837X; - long len_836X; - long type_835X; - long new_834X; - char * addr_833X; - long len_832X; - long type_831X; - long value_830X; + long value_848X; + char * addr_847X; + long len_846X; + long init_845X; + char okayP_844X; + long rest_list_843X; + long stack_nargs_842X; + long new_841X; + char * addr_840X; + long len_839X; + long type_838X; + long new_837X; + char * addr_836X; + long len_835X; + long type_834X; + long value_833X; + long val_832X; + long val_831X; + long val_830X; long val_829X; - long val_828X; - long val_827X; - long val_826X; - long r_825X; - long n_824X; - long a_823X; - long a_822X; + long r_828X; + long n_827X; + long a_826X; + long a_825X; + long val_824X; + long val_823X; + long val_822X; long val_821X; long val_820X; - long val_819X; - long val_818X; + long a_819X; + long a_818X; long val_817X; - long a_816X; - long a_815X; - long val_814X; - long val_813X; - long delta_812X; - long delta_811X; - long offset_810X; - long key_809X; - char okayP_808X; - char v_807X; - long tem_806X; - long key_805X; - char okayP_804X; - long list_arg_count_803X; - long list_args_802X; - long stack_nargs_801X; - long obj_800X; - char * addr_799X; - long list_args_798X; - long follower_797X; - long list_796X; - long args_795X; - long list_arg_count_794X; - char okayP_793X; - long stack_nargs_792X; - long list_args_791X; - long total_arg_count_790X; - long code_789X; - long obj_788X; - long obj_787X; - long list_arg_count_786X; - long list_args_785X; - long stack_arg_count_784X; - long obj_783X; - char * arg_782X; - char * loc_781X; - long args_780X; - long v_779X; - long v_778X; - long v_777X; - long list_arg_count_776X; - long list_args_775X; + long val_816X; + long delta_815X; + long delta_814X; + long offset_813X; + long key_812X; + char okayP_811X; + char v_810X; + long tem_809X; + long key_808X; + char okayP_807X; + long list_arg_count_806X; + long list_args_805X; + long stack_nargs_804X; + long obj_803X; + char * addr_802X; + long list_args_801X; + long follower_800X; + long list_799X; + long args_798X; + long list_arg_count_797X; + char okayP_796X; + long stack_nargs_795X; + long list_args_794X; + long total_arg_count_793X; + long code_792X; + long obj_791X; + long obj_790X; + long list_arg_count_789X; + long list_args_788X; + long stack_arg_count_787X; + long obj_786X; + char * arg_785X; + char * loc_784X; + long args_783X; + long v_782X; + long v_781X; + long v_780X; + long list_arg_count_779X; + long list_args_778X; + long stack_arg_count_777X; + long exception_776X; + long code_775X; long stack_arg_count_774X; - long exception_773X; - long code_772X; - long stack_arg_count_771X; - char v_770X; - long key_769X; - char okayP_768X; - long key_767X; - char okayP_766X; - char * addr_765X; - long value_764X; - long v_763X; - long new_env_762X; - char * addr_761X; - long len_760X; + char v_773X; + long key_772X; + char okayP_771X; + long key_770X; + char okayP_769X; + char * addr_768X; + long value_767X; + long v_766X; + long new_env_765X; + char * addr_764X; + long len_763X; + char v_762X; + long temp1_761X; + long temp0_760X; char v_759X; - long temp1_758X; - long temp0_757X; - char v_756X; - long env_755X; - char v_754X; - long temp1_753X; - char v_752X; - long space_751X; - char * addr_750X; - long value_749X; - long index_748X; - long i_747X; - long env_746X; - long i_745X; - long env_744X; - long i_743X; - long env_742X; - long obj_741X; - long opcode_740X; - long nargs_739X; - FILE * out_738X; - long x_737X; + long env_758X; + char v_757X; + long temp1_756X; + char v_755X; + long space_754X; + char * addr_753X; + long value_752X; + long index_751X; + long i_750X; + long env_749X; + long i_748X; + long env_747X; + long i_746X; + long env_745X; + long obj_744X; + long opcode_743X; + long nargs_742X; + FILE * out_741X; + long x_740X; + long v_739X; + long v_738X; + long v_737X; long v_736X; long v_735X; long v_734X; long v_733X; - long v_732X; - long v_731X; - long v_730X; - long count_729X; - long to_index_728X; - long from_index_727X; - long arg5_726X; - long arg4_725X; - long arg3_724X; - long arg2_723X; - char * addr_722X; - long len_721X; - long value_720X; - long index_719X; - long arg4_718X; - long arg3_717X; - long arg2_716X; - long len_715X; - long index_714X; - long arg3_713X; - long arg2_712X; - long list_711X; - long thing_710X; - char v_709X; - long temp1_708X; - char v_707X; - long space_706X; - long len_705X; + long count_732X; + long to_index_731X; + long from_index_730X; + long arg5_729X; + long arg4_728X; + long arg3_727X; + long arg2_726X; + char * addr_725X; + long len_724X; + long value_723X; + long index_722X; + long arg4_721X; + long arg3_720X; + long arg2_719X; + long len_718X; + long index_717X; + long arg3_716X; + long arg2_715X; + long list_714X; + long thing_713X; + char v_712X; + long temp1_711X; + char v_710X; + long space_709X; + long len_708X; + long x_707X; + long obj_706X; + long arg2_705X; long x_704X; - long obj_703X; - long arg2_702X; - long x_701X; - long arg2_700X; - long status_699X; - long value_698X; - long key_697X; - long arg2_696X; - long mseconds_695X; - long seconds_694X; - long mseconds_693X; - long seconds_692X; - long x_691X; - long other_690X; - long option_689X; - long arg2_688X; - long x_687X; - long arg2_686X; - char v_685X; - long temp1_684X; - char v_683X; - long rest_list_682X; - long p_681X; - long nargs_680X; - long x_679X; - long arg2_678X; - long p_677X; - long p_676X; - long p_675X; - long old_674X; - long temp_673X; - long obj_672X; - long p_671X; - long template_670X; - long p_669X; - long temp_668X; - long obj_667X; - long x_666X; - long type_665X; - long x_664X; - long bytes_663X; - long x_662X; - long other_661X; - long key_660X; - long arg2_659X; - char v_658X; - long temp1_657X; - char v_656X; - long n_655X; - long x_654X; - long obj_653X; - long v_652X; - char v_651X; - long temp1_650X; - char v_649X; - long x_648X; - char v_647X; - long temp1_646X; - char v_645X; - long space_644X; - char * addr_643X; - long next_642X; - long channel_641X; - long n_640X; - char * addr_639X; - long head_638X; - long channel_637X; - long obj_636X; + long arg2_703X; + long status_702X; + long value_701X; + long key_700X; + long arg2_699X; + long mseconds_698X; + long seconds_697X; + long mseconds_696X; + long seconds_695X; + long x_694X; + long other_693X; + long option_692X; + long arg2_691X; + long x_690X; + long arg2_689X; + char v_688X; + long temp1_687X; + char v_686X; + long rest_list_685X; + long p_684X; + long nargs_683X; + long x_682X; + long arg2_681X; + long p_680X; + long p_679X; + long p_678X; + long old_677X; + long temp_676X; + long obj_675X; + long p_674X; + long template_673X; + long p_672X; + long temp_671X; + long obj_670X; + long x_669X; + long type_668X; + long x_667X; + long bytes_666X; + long x_665X; + long other_664X; + long key_663X; + long arg2_662X; + char v_661X; + long temp1_660X; + char v_659X; + long n_658X; + long x_657X; + long obj_656X; + long v_655X; + char v_654X; + long temp1_653X; + char v_652X; + long x_651X; + char v_650X; + long temp1_649X; + char v_648X; + long space_647X; + char * addr_646X; + long next_645X; + long channel_644X; + long n_643X; + char * addr_642X; + long head_641X; + long channel_640X; + long obj_639X; + char v_638X; + long temp1_637X; + char v_636X; char v_635X; long temp1_634X; char v_633X; @@ -2845,29 +2858,29 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_370X) { arg2K0 = 1; arg0K1 = proc_345X; - goto L19376;} + goto L19388;} else { temp0_371X = collect_saving_temps(proc_345X, 1, &temp1_372X); v_373X = AVAILABLEp(2); if (v_373X) { arg2K0 = 1; arg0K1 = temp0_371X; - goto L19376;} + goto L19388;} else { arg2K0 = 0; arg0K1 = temp0_371X; - goto L19376;}}} - L19376: { + goto L19388;}}} + L19388: { okayP_374X = arg2K0; temp_375X = arg0K1; if (okayP_374X) { arg0K0 = temp_375X; - goto L19347;} + goto L19359;} else { ps_error("Scheme48 heap overflow", 0); arg0K0 = temp_375X; - goto L19347;}} - L19347: { + goto L19359;}} + L19359: { proc_376X = arg0K0; addr_377X = ALLOCATE_SPACE(17, 6); *((long *) addr_377X) = 582; @@ -2877,15 +2890,15 @@ long s48_restart(long proc_345X, long nargs_346X) Scode_pointerS = (((char *) (-3 + code_378X))); SvalS = proc_376X; arg1K0 = (Scode_pointerS); - goto L18439;} - L18439: { + goto L18451;} + L18451: { code_pointer_379X = arg1K0; switch ((*((unsigned char *) code_pointer_379X))) { case 0 : - case 145 : { + case 146 : { push_exception_continuationB(15, 1); arg0K0 = 0; - goto L16666;} + goto L16678;} break; case 1 : { count_380X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))); @@ -2896,73 +2909,73 @@ long s48_restart(long proc_345X, long nargs_346X) SenvS = (3 + (((long) ((SstackS) + 8)))); Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} 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 L18439;} + goto L18451;} break; case 3 : { SvalS = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))); Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; case 4 : { back_381X = *((unsigned char *) ((Scode_pointerS) + 1)); env_382X = SenvS; arg0K0 = env_382X; arg0K1 = back_381X; - goto L23833;} + goto L23845;} 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 L16666;} + goto L16678;} else { Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} 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 L16666;} + goto L16678;} else { Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} 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 L16666;} + goto L16678;} else { Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} 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 L20248;} + goto L20260;} 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 L20186;} + goto L20198;} break; case 10 : { location_387X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); @@ -2972,11 +2985,11 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = location_387X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} else { Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} break; case 11 : { location_388X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); @@ -2987,7 +3000,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { val_389X = SvalS; addr_390X = (((char *) (-3 + location_388X))) + 4; @@ -2996,7 +3009,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} break; case 12 : { v_391X = *((unsigned char *) ((Scode_pointerS) + 3)); @@ -3005,55 +3018,55 @@ long s48_restart(long proc_345X, long nargs_346X) if ((3 == (3 & p_392X))) { if ((p_392X < (((long) (Sstack_beginS))))) { arg0K0 = 0; - goto L20965;} + goto L20977;} else { if (((((long) (Sstack_endS))) < p_392X)) { arg0K0 = 0; - goto L20965;} + goto L20977;} else { arg0K0 = ((Sstack_endS) - (Sstack_beginS)); - goto L20965;}}} + goto L20977;}}} else { arg0K0 = 0; - goto L20965;}} + goto L20977;}} else { arg0K0 = (SvalS); - goto L20972;}} + goto L20984;}} 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 L20767;} + goto L20779;} else { collect_saving_temps(1, 1, &temp1_396X); v_397X = AVAILABLEp(space_394X); if (v_397X) { - goto L20767;} + goto L20779;} else { ps_error("Scheme48 heap overflow", 0); - goto L20767;}}} + goto L20779;}}} break; case 14 : { *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} 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 L16666;} + goto L16678;} else { *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} break; case 16 : { *((long *) (SstackS)) = (SvalS); @@ -3062,42 +3075,42 @@ long s48_restart(long proc_345X, long nargs_346X) if ((529 == (SvalS))) { push_exception_continuationB(0, 3); arg0K0 = 0; - goto L16666;} + goto L16678;} else { Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} break; case 17 : { SstackS = ((SstackS) + 4); SvalS = (*((long *) (SstackS))); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; case 18 : { SvalS = (*((long *) ((SstackS) + (4 + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; case 19 : { *((long *) ((SstackS) + (4 + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))) = (SvalS); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} 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 L18439;} + goto L18451;} 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 L18439;} + goto L18451;} break; case 22 : { space_398X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); @@ -3105,18 +3118,18 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_399X) { arg2K0 = 1; arg0K1 = 0; - goto L20693;} + goto L20705;} else { collect_saving_temps(1, 1, &temp1_400X); v_401X = AVAILABLEp(space_398X); if (v_401X) { arg2K0 = 1; arg0K1 = 0; - goto L20693;} + goto L20705;} else { arg2K0 = 0; arg0K1 = 0; - goto L20693;}}} + goto L20705;}}} break; case 23 : { cont_402X = *((long *) (((char *) (-3 + (Sbottom_of_stackS))))); @@ -3128,15 +3141,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 L19848;} + goto L19860;} else { - goto L19883;}} + goto L19895;}} else { - goto L19883;}} + goto L19895;}} else { - goto L19849;}} + goto L19861;}} else { - goto L19849;}} + goto L19861;}} break; case 24 : { stack_arg_count_403X = *((unsigned char *) ((Scode_pointerS) + 1)); @@ -3155,35 +3168,35 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_408X) { arg2K0 = 1; arg0K1 = 0; - goto L19209;} + goto L19221;} else { collect_saving_temps(1, 1, &temp1_409X); v_410X = AVAILABLEp(space_407X); if (v_410X) { arg2K0 = 1; arg0K1 = 0; - goto L19209;} + goto L19221;} else { arg2K0 = 0; arg0K1 = 0; - goto L19209;}}} + goto L19221;}}} else { - goto L19121;}} + goto L19133;}} else { arg0K0 = stack_arg_count_403X; - goto L16067;}} + goto L16079;}} else { arg0K0 = 3; arg0K1 = stack_arg_count_403X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} else { arg0K0 = 3; arg0K1 = stack_arg_count_403X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} break; case 25 : { stack_arg_count_411X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))); @@ -3191,19 +3204,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 L16067;} + goto L16079;} else { arg0K0 = 3; arg0K1 = stack_arg_count_411X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} else { arg0K0 = 3; arg0K1 = stack_arg_count_411X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} break; case 26 : { nargs_413X = *((unsigned char *) ((Scode_pointerS) + 1)); @@ -3211,7 +3224,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 L17629;} + goto L17641;} break; case 27 : { SstackS = ((SstackS) + 4); @@ -3226,7 +3239,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 L17667;} + goto L17679;} else { *((long *) (SstackS)) = list_args_416X; SstackS = ((SstackS) + -4); @@ -3242,7 +3255,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = args_419X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 28 : { SstackS = ((SstackS) + 4); @@ -3256,16 +3269,16 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + 4); arg0K0 = (*((long *) (SstackS))); arg0K1 = (-2 + stack_nargs_420X); - goto L11274;} + goto L11286;} else { if ((25 == (*((long *) ((((char *) (-3 + rest_list_422X))) + 4))))) { arg0K0 = (*((long *) (((char *) (-3 + rest_list_422X))))); arg0K1 = (-1 + stack_nargs_420X); - goto L11274;} + goto L11286;} else { arg0K0 = (*((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + rest_list_422X))) + 4)))))) + 4))); arg0K1 = rest_list_422X; - goto L11315;}}} + goto L11327;}}} break; case 29 : { SstackS = ((SstackS) + 4); @@ -3276,11 +3289,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 L17572;} + goto L17584;} else { - goto L17579;}} + goto L17591;}} else { - goto L17579;}} + goto L17591;}} break; case 30 : { SstackS = ((SstackS) + 4); @@ -3292,32 +3305,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 L16067;} + goto L16079;} else { arg0K0 = 3; arg0K1 = 1; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} else { arg0K0 = 3; arg0K1 = 1; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} break; case 31 : { pop_continuationB_return_tag = 0; goto pop_continuationB; pop_continuationB_return_0: arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; case 32 : { arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))); arg0K1 = 25; arg0K2 = 0; - goto L20428;} + goto L20440;} break; case 33 : { SstackS = ((SstackS) + 4); @@ -3328,19 +3341,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 L20428;} + goto L20440;} break; case 34 : { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} 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 L18439;} + goto L18451;} 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 +3364,20 @@ long s48_restart(long proc_345X, long nargs_346X) if (v_431X) { arg2K0 = 1; arg0K1 = 0; - goto L18945;} + goto L18957;} else { collect_saving_temps(1, 1, &temp1_432X); v_433X = AVAILABLEp(space_430X); if (v_433X) { arg2K0 = 1; arg0K1 = 0; - goto L18945;} + goto L18957;} else { arg2K0 = 0; arg0K1 = 0; - goto L18945;}}} + goto L18957;}}} else { - goto L18818;}} + goto L18830;}} else { v_434X = *((unsigned char *) ((((char *) (-3 + code_429X))) + 1)); if ((66 == v_434X)) { @@ -3372,44 +3385,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 L18818;} + goto L18830;} else { space_437X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); v_438X = AVAILABLEp(space_437X); if (v_438X) { arg2K0 = 1; arg0K1 = 0; - goto L19001;} + goto L19013;} else { collect_saving_temps(1, 1, &temp1_439X); v_440X = AVAILABLEp(space_437X); if (v_440X) { arg2K0 = 1; arg0K1 = 0; - goto L19001;} + goto L19013;} else { arg2K0 = 0; arg0K1 = 0; - goto L19001;}}}} + goto L19013;}}}} else { - goto L18863;}} + goto L18875;}} else { - goto L18863;}}} + goto L18875;}}} 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 L18439;} + goto L18451;} else { Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} break; case 38 : { Scode_pointerS = ((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; case 39 : { if ((0 == (3 & (SvalS)))) { @@ -3417,20 +3430,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 L18719;} + goto L18731;} 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 L18721;} + goto L18733;} else { - goto L18719;}}} + goto L18731;}}} else { push_exception_continuationB(5, 0); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 40 : { stack_nargs_445X = (((*((long *) ((SstackS) + 4))))>>2); @@ -3440,7 +3453,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 L19751;} + goto L19763;} else { arg1_448X = *((long *) ((SstackS) + (4 + (((stack_nargs_445X)<<2))))); arg0_449X = *((long *) ((SstackS) + (8 + (((stack_nargs_445X)<<2))))); @@ -3449,7 +3462,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = arg0_449X; SstackS = ((SstackS) + -4); SvalS = arg1_448X; - goto L19751;}} + goto L19763;}} break; case 41 : { stack_nargs_450X = (((*((long *) ((SstackS) + 4))))>>2); @@ -3457,56 +3470,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 L18617;} + goto L18629;} else { *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_451X))) + 4))); *((long *) ((SstackS) + 12)) = (SvalS); arg0K0 = -2; - goto L18617;}} + goto L18629;}} else { if ((stack_nargs_450X == 1)) { if ((25 == (*((long *) ((SstackS) + 8))))) { arg0K0 = 1; - goto L18617;} + goto L18629;} else { *((long *) ((SstackS) + 4)) = 0; *((long *) ((SstackS) + 12)) = (SvalS); arg0K0 = -2; - goto L18617;}} + goto L18629;}} else { *((long *) ((SstackS) + (8 + (((stack_nargs_450X)<<2))))) = (SvalS); arg0K0 = -2; - goto L18617;}}} + goto L18629;}}} break; case 42 : { if ((1 == (SvalS))) { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} 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 L19642;} + goto L19654;} else { *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_453X))) + 4))); *((long *) ((SstackS) + 12)) = (*((long *) (((char *) (-3 + rest_list_453X))))); arg0K0 = -2; - goto L19642;}} + goto L19654;}} else { if ((x_452X == 1)) { if ((25 == (*((long *) ((SstackS) + 8))))) { arg0K0 = 1; - goto L19642;} + goto L19654;} else { *((long *) ((SstackS) + 4)) = 0; arg0K0 = -2; - goto L19642;}} + goto L19654;}} else { arg0K0 = -2; - goto L19642;}}}} + goto L19654;}}}} break; case 43 : { SstackS = ((SstackS) + 4); @@ -3514,77 +3527,77 @@ long s48_restart(long proc_345X, long nargs_346X) x_455X = SvalS; if ((arg2_454X == x_455X)) { arg0K0 = 5; - goto L38035;} + goto L38236;} else { arg0K0 = 1; - goto L38035;}} + goto L38236;}} break; case 44 : { x_456X = SvalS; if ((0 == (3 & x_456X))) { arg0K0 = 5; - goto L38047;} + goto L38248;} else { if ((3 == (3 & x_456X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) { arg0K0 = 5; - goto L38047;} + goto L38248;} else { - goto L10623;}} + goto L10634;}} else { - goto L10623;}}} + goto L10634;}}} break; case 45 : { n_457X = SvalS; if ((0 == (3 & n_457X))) { - goto L28400;} + goto L28412;} else { if ((3 == (3 & n_457X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_457X))) + -4))))>>2))))) { - goto L28400;} + goto L28412;} else { - goto L28401;}} + goto L28413;}} else { - goto L28401;}}} + goto L28413;}}} break; case 46 : { n_458X = SvalS; if ((0 == (3 & n_458X))) { - goto L28557;} + goto L28569;} else { if ((3 == (3 & n_458X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) { - goto L28557;} + goto L28569;} else { - goto L28532;}} + goto L28544;}} else { - goto L28532;}}} + goto L28544;}}} break; case 47 : { n_459X = SvalS; if ((0 == (3 & n_459X))) { - goto L28756;} + goto L28768;} else { if ((3 == (3 & n_459X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) { - goto L28756;} + goto L28768;} else { - goto L28731;}} + goto L28743;}} else { - goto L28731;}}} + goto L28743;}}} break; case 48 : { n_460X = SvalS; if ((0 == (3 & n_460X))) { - goto L28955;} + goto L28967;} else { if ((3 == (3 & n_460X))) { if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) { - goto L28955;} + goto L28967;} else { - goto L28930;}} + goto L28942;}} else { - goto L28930;}}} + goto L28942;}}} break; case 49 : { x_461X = SvalS; @@ -3592,13 +3605,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_461X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 50 : { x_462X = SvalS; @@ -3606,7 +3619,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_462X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 51 : { x_463X = SvalS; @@ -3614,7 +3627,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_463X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 52 : { SstackS = ((SstackS) + 4); @@ -3629,7 +3642,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_465X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { if ((z_466X < -536870912)) { push_exception_continuationB(5, 1); @@ -3638,12 +3651,12 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_465X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { SvalS = (((z_466X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}}} + goto L18451;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_464X; @@ -3651,7 +3664,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_465X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 53 : { SstackS = ((SstackS) + 4); @@ -3662,10 +3675,10 @@ long s48_restart(long proc_345X, long nargs_346X) b_470X = ((x_468X)>>2); if ((a_469X < 0)) { arg0K0 = (0 - a_469X); - goto L6776;} + goto L6787;} else { arg0K0 = a_469X; - goto L6776;}} + goto L6787;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; @@ -3673,7 +3686,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 54 : { SstackS = ((SstackS) + 4); @@ -3688,7 +3701,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_472X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { if ((z_473X < -536870912)) { push_exception_continuationB(5, 1); @@ -3697,12 +3710,12 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_472X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { SvalS = (((z_473X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}}} + goto L18451;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_471X; @@ -3710,7 +3723,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_472X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 55 : { SstackS = ((SstackS) + 4); @@ -3724,16 +3737,16 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_475X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { a_476X = ((arg2_474X)>>2); b_477X = ((x_475X)>>2); if ((a_476X < 0)) { arg0K0 = (0 - a_476X); - goto L7057;} + goto L7068;} else { arg0K0 = a_476X; - goto L7057;}}} + goto L7068;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_474X; @@ -3741,7 +3754,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_475X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 56 : { SstackS = ((SstackS) + 4); @@ -3750,10 +3763,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 L31753;} + goto L31877;} else { arg0K0 = 1; - goto L31753;}} + goto L31877;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_478X; @@ -3761,7 +3774,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_479X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 57 : { SstackS = ((SstackS) + 4); @@ -3770,10 +3783,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 L31831;} + goto L31955;} else { arg0K0 = 1; - goto L31831;}} + goto L31955;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_480X; @@ -3781,7 +3794,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_481X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 58 : { SstackS = ((SstackS) + 4); @@ -3790,10 +3803,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 L31909;} + goto L32033;} else { arg0K0 = 1; - goto L31909;}} + goto L32033;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_482X; @@ -3801,7 +3814,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_483X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 59 : { SstackS = ((SstackS) + 4); @@ -3810,10 +3823,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 L31987;} + goto L32111;} else { arg0K0 = 5; - goto L31987;}} + goto L32111;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_484X; @@ -3821,7 +3834,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_485X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 60 : { SstackS = ((SstackS) + 4); @@ -3830,10 +3843,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 L32065;} + goto L32189;} else { arg0K0 = 5; - goto L32065;}} + goto L32189;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_486X; @@ -3841,7 +3854,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_487X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 61 : { SstackS = ((SstackS) + 4); @@ -3855,16 +3868,16 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_489X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { a_490X = ((arg2_488X)>>2); b_491X = ((x_489X)>>2); if ((a_490X < 0)) { arg0K0 = (0 - a_490X); - goto L7234;} + goto L7245;} else { arg0K0 = a_490X; - goto L7234;}}} + goto L7245;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_488X; @@ -3872,7 +3885,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_489X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 62 : { SstackS = ((SstackS) + 4); @@ -3886,15 +3899,15 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_493X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { a_494X = ((x_492X)>>2); if ((a_494X < 0)) { arg0K0 = (0 - a_494X); - goto L25347;} + goto L25359;} else { arg0K0 = a_494X; - goto L25347;}}} + goto L25359;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_492X; @@ -3902,7 +3915,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_493X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 63 : { x_495X = SvalS; @@ -3910,13 +3923,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = x_495X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_495X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 64 : { x_496X = SvalS; @@ -3924,13 +3937,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = x_496X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_496X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 65 : { x_497X = SvalS; @@ -3938,13 +3951,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 4; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_497X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 66 : { x_498X = SvalS; @@ -3952,13 +3965,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = x_498X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_498X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 67 : { x_499X = SvalS; @@ -3966,13 +3979,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 0; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_499X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 68 : { x_500X = SvalS; @@ -3980,7 +3993,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_500X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 69 : { x_501X = SvalS; @@ -3988,7 +4001,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_501X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 70 : { x_502X = SvalS; @@ -3996,7 +4009,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_502X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 71 : { x_503X = SvalS; @@ -4004,7 +4017,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_503X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 72 : { x_504X = SvalS; @@ -4012,7 +4025,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_504X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 73 : { x_505X = SvalS; @@ -4020,7 +4033,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_505X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 74 : { x_506X = SvalS; @@ -4028,7 +4041,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_506X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 75 : { x_507X = SvalS; @@ -4036,20 +4049,20 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_507X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} break; case 76 : { x_508X = SvalS; if ((0 == (3 & x_508X))) { if ((x_508X < 0)) { - goto L38304;} + goto L38505;} else { SvalS = 0; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} else { - goto L38304;}} + goto L38505;}} break; case 77 : { n_509X = SvalS; @@ -4057,16 +4070,16 @@ long s48_restart(long proc_345X, long nargs_346X) n_510X = ((n_509X)>>2); if ((n_510X < 0)) { arg0K0 = (0 - n_510X); - goto L25633;} + goto L25645;} else { arg0K0 = n_510X; - goto L25633;}} + goto L25645;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = n_509X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 78 : { SstackS = ((SstackS) + 4); @@ -4078,7 +4091,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_512X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} break; case 79 : { SstackS = ((SstackS) + 4); @@ -4090,7 +4103,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_514X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} break; case 80 : { SstackS = ((SstackS) + 4); @@ -4102,7 +4115,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_516X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} break; case 81 : { x_517X = SvalS; @@ -4110,13 +4123,13 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (~ (3 | x_517X)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_517X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 82 : { SstackS = ((SstackS) + 4); @@ -4126,7 +4139,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (arg2_518X & x_519X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_518X; @@ -4134,7 +4147,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_519X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 83 : { SstackS = ((SstackS) + 4); @@ -4144,7 +4157,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (arg2_520X | x_521X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_520X; @@ -4152,7 +4165,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_521X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 84 : { SstackS = ((SstackS) + 4); @@ -4162,7 +4175,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (arg2_522X ^ x_523X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_522X; @@ -4170,7 +4183,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_523X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 85 : { SstackS = ((SstackS) + 4); @@ -4184,7 +4197,7 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = (((x_528X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { PS_SHIFT_LEFT(value_526X, count_527X, x_529X) result_530X = (((((x_529X)<<2)))>>2); @@ -4192,7 +4205,7 @@ long s48_restart(long proc_345X, long nargs_346X) if ((value_526X == x_531X)) { if ((value_526X < 0)) { if ((result_530X < 0)) { - goto L25912;} + goto L25924;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_524X; @@ -4200,7 +4213,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_525X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} else { if ((result_530X < 0)) { push_exception_continuationB(5, 1); @@ -4209,9 +4222,9 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_525X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - goto L25912;}}} + goto L25924;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_524X; @@ -4219,7 +4232,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_525X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}} + goto L16678;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_524X; @@ -4227,16 +4240,16 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = y_525X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 86 : { x_532X = SvalS; if ((9 == (255 & x_532X))) { arg0K0 = 5; - goto L38392;} + goto L38593;} else { arg0K0 = 1; - goto L38392;}} + goto L38593;}} break; case 87 : { SstackS = ((SstackS) + 4); @@ -4246,14 +4259,14 @@ long s48_restart(long proc_345X, long nargs_346X) x_534X = SvalS; if ((arg2_533X == x_534X)) { arg0K0 = 5; - goto L28175;} + goto L28187;} else { arg0K0 = 1; - goto L28175;}} + goto L28187;}} else { - goto L28148;}} + goto L28160;}} else { - goto L28148;}} + goto L28160;}} break; case 88 : { SstackS = ((SstackS) + 4); @@ -4263,56 +4276,56 @@ long s48_restart(long proc_345X, long nargs_346X) x_536X = SvalS; if ((arg2_535X < x_536X)) { arg0K0 = 5; - goto L28085;} + goto L28097;} else { arg0K0 = 1; - goto L28085;}} + goto L28097;}} else { - goto L28058;}} + goto L28070;}} else { - goto L28058;}} + goto L28070;}} break; case 89 : { if ((9 == (255 & (SvalS)))) { SvalS = (((((((((SvalS))>>8)))))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 90 : { if ((0 == (3 & (SvalS)))) { x_537X = (((SvalS))>>2); if ((255 < x_537X)) { - goto L32757;} + goto L32881;} else { if ((x_537X < 0)) { - goto L32757;} + goto L32881;} else { SvalS = (9 + (((((x_537X)))<<8))); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}}} + goto L18451;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} break; case 91 : { x_538X = SvalS; if ((21 == x_538X)) { arg0K0 = 5; - goto L38421;} + goto L38622;} else { arg0K0 = 1; - goto L38421;}} + goto L38622;}} break; case 92 : { x_539X = SvalS; @@ -4320,13 +4333,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 L38435;} + goto L38636;} else { arg0K0 = 1; - goto L38435;}} + goto L38636;}} else { arg0K0 = 1; - goto L38435;}} + goto L38636;}} break; case 93 : { stob_541X = SvalS; @@ -4336,26 +4349,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 L18439;} + goto L18451;} else { - goto L21230;}} + goto L21242;}} else { - goto L21230;}} + goto L21242;}} 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 L21302;} + goto L21314;} else { collect_saving_temps(1, 1, &temp1_546X); v_547X = AVAILABLEp(space_544X); if (v_547X) { - goto L21302;} + goto L21314;} else { ps_error("Scheme48 heap overflow", 0); - goto L21302;}}} + goto L21314;}}} break; case 95 : { SstackS = ((SstackS) + 4); @@ -4363,15 +4376,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 L21484;} + goto L21496;} else { collect_saving_temps(1, 1, &temp1_551X); v_552X = AVAILABLEp(space_549X); if (v_552X) { - goto L21484;} + goto L21496;} else { ps_error("Scheme48 heap overflow", 0); - goto L21484;}}} + goto L21496;}}} break; case 96 : { stob_553X = SvalS; @@ -4382,11 +4395,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 L18439;} + goto L18451;} else { - goto L21694;}} + goto L21706;}} else { - goto L21694;}} + goto L21706;}} break; case 97 : { SstackS = ((SstackS) + 4); @@ -4404,15 +4417,15 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - goto L21797;}} + goto L21809;}} else { - goto L21797;}} + goto L21809;}} else { - goto L21797;}} + goto L21809;}} else { - goto L21797;}} + goto L21809;}} break; case 98 : { SstackS = ((SstackS) + 4); @@ -4423,27 +4436,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 L21982;} + goto L21994;} else { if ((4194305 < size_565X)) { - goto L21982;} + goto L21994;} else { v_566X = AVAILABLEp(size_565X); if (v_566X) { arg2K0 = 1; arg0K1 = init_562X; - goto L22000;} + goto L22012;} 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 L22000;} + goto L22012;} else { arg2K0 = 0; arg0K1 = temp0_567X; - goto L22000;}}}}} + goto L22012;}}}}} else { push_exception_continuationB(5, 2); *((long *) (SstackS)) = (((type_563X)<<2)); @@ -4453,7 +4466,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = init_562X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;}} + goto L16678;}} break; case 99 : { SstackS = ((SstackS) + 4); @@ -4466,21 +4479,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 L22278;} + goto L22290;} else { if ((index_574X < len_573X)) { SvalS = (*((long *) ((((char *) (-3 + stob_570X))) + (-4 & index_571X)))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - goto L22278;}}} + goto L22290;}}} else { - goto L22255;}} + goto L22267;}} else { - goto L22255;}} + goto L22267;}} else { - goto L22255;}} + goto L22267;}} break; case 100 : { SstackS = ((SstackS) + 4); @@ -4497,7 +4510,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 L22518;} + goto L22530;} else { if ((index_580X < len_579X)) { addr_581X = (((char *) (-3 + stob_576X))) + (-4 & arg2_575X); @@ -4506,19 +4519,19 @@ long s48_restart(long proc_345X, long nargs_346X) SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - goto L22518;}}} + goto L22530;}}} else { - goto L22493;}} + goto L22505;}} else { - goto L22493;}} + goto L22505;}} else { - goto L22493;}} + goto L22505;}} else { - goto L22493;}} + goto L22505;}} else { - goto L22493;}} + goto L22505;}} break; case 101 : { SstackS = ((SstackS) + 4); @@ -4528,19 +4541,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 L26083;} + goto L26095;} else { if ((4194305 < size_585X)) { - goto L26083;} + goto L26095;} else { v_586X = AVAILABLEp(size_585X); if (v_586X) { - goto L26175;} + goto L26187;} else { collect_saving_temps(1, 1, &temp1_587X); v_588X = AVAILABLEp(size_585X); if (v_588X) { - goto L26175;} + goto L26187;} else { push_exception_continuationB(8, 1); *((long *) (SstackS)) = (((len_583X)<<2)); @@ -4548,7 +4561,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((init_584X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}}}} + goto L16678;}}}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_582X; @@ -4556,7 +4569,7 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 102 : { obj_589X = SvalS; @@ -4565,11 +4578,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 L18439;} + goto L18451;} else { - goto L36248;}} + goto L36448;}} else { - goto L36248;}} + goto L36448;}} break; case 103 : { SstackS = ((SstackS) + 4); @@ -4580,21 +4593,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 L32863;} + goto L32987;} 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 L18439;} + goto L18451;} else { - goto L32863;}}} + goto L32987;}}} else { - goto L35827;}} + goto L36024;}} else { - goto L35827;}} + goto L36024;}} else { - goto L35827;}} + goto L36024;}} break; case 104 : { SstackS = ((SstackS) + 4); @@ -4610,26 +4623,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 L29811;} + goto L29935;} 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 L18439;} + goto L18451;} else { - goto L29811;}}} + goto L29935;}}} else { - goto L29790;}} + goto L29914;}} else { - goto L29790;}} + goto L29914;}} else { - goto L34239;}} + goto L34436;}} else { - goto L34239;}} + goto L34436;}} else { - goto L34239;}} + goto L34436;}} break; case 105 : { SstackS = ((SstackS) + 4); @@ -4640,19 +4653,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 L26317;} + goto L26329;} else { if ((4194305 < size_601X)) { - goto L26317;} + goto L26329;} else { v_602X = AVAILABLEp(size_601X); if (v_602X) { - goto L26409;} + goto L26421;} else { collect_saving_temps(1, 1, &temp1_603X); v_604X = AVAILABLEp(size_601X); if (v_604X) { - goto L26409;} + goto L26421;} else { push_exception_continuationB(8, 1); *((long *) (SstackS)) = (((len_599X)<<2)); @@ -4660,11 +4673,11 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (9 + ((((init_600X))<<8))); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}}}} + goto L16678;}}}}} else { - goto L32944;}} + goto L33068;}} else { - goto L32944;}} + goto L33068;}} break; case 106 : { obj_605X = SvalS; @@ -4673,11 +4686,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 L18439;} + goto L18451;} else { - goto L36298;}} + goto L36498;}} else { - goto L36298;}} + goto L36498;}} break; case 107 : { SstackS = ((SstackS) + 4); @@ -4688,21 +4701,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 L33007;} + goto L33131;} 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 L18439;} + goto L18451;} else { - goto L33007;}}} + goto L33131;}}} else { - goto L35923;}} + goto L36120;}} else { - goto L35923;}} + goto L36120;}} else { - goto L35923;}} + goto L36120;}} break; case 108 : { SstackS = ((SstackS) + 4); @@ -4719,41 +4732,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 L29966;} + goto L30090;} 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 L18439;} + goto L18451;} else { - goto L29966;}}} + goto L30090;}}} else { - goto L29945;}} + goto L30069;}} else { - goto L29945;}} + goto L30069;}} else { - goto L34365;}} + goto L34562;}} else { - goto L34365;}} + goto L34562;}} else { - goto L34365;}} + goto L34562;}} else { - goto L34365;}} + goto L34562;}} break; case 109 : { v_614X = AVAILABLEp(3); if (v_614X) { - goto L24487;} + goto L24499;} else { collect_saving_temps(1, 1, &temp1_615X); v_616X = AVAILABLEp(3); if (v_616X) { - goto L24487;} + goto L24499;} else { ps_error("Scheme48 heap overflow", 0); - goto L24487;}}} + goto L24499;}}} break; case 110 : { obj_617X = SvalS; @@ -4764,17 +4777,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 L33985;} + goto L34109;} else { arg0K0 = 1; - goto L33985;}} + goto L34109;}} else { arg0K0 = 5; - goto L33985;}} + goto L34109;}} else { - goto L33966;}} + goto L34090;}} else { - goto L33966;}} + goto L34090;}} break; case 111 : { SstackS = ((SstackS) + 4); @@ -4783,1534 +4796,1552 @@ 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 L29553;} + goto L29677;} else { if ((5 == x_621X)) { - goto L29553;} + goto L29677;} else { - goto L29560;}}} + goto L29684;}}} else { - goto L29560;}} + goto L29684;}} else { - goto L29560;}} + goto L29684;}} break; case 112 : { x_622X = SvalS; if ((3 == (3 & x_622X))) { if ((0 == (128 & (*((long *) ((((char *) (-3 + x_622X))) + -4)))))) { arg0K0 = 1; - goto L38507;} + goto L38708;} else { arg0K0 = 5; - goto L38507;}} + goto L38708;}} else { arg0K0 = 5; - goto L38507;}} + goto L38708;}} 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 L33089;} + goto L33213;} else { - goto L33089;}} + goto L33213;}} else { - goto L33089;}} + goto L33213;}} break; case 114 : { v_624X = AVAILABLEp(72); if (v_624X) { arg2K0 = 1; arg0K1 = 0; - goto L33140;} + goto L33264;} else { collect_saving_temps(1, 1, &temp1_625X); v_626X = AVAILABLEp(72); if (v_626X) { arg2K0 = 1; arg0K1 = 0; - goto L33140;} + goto L33264;} else { arg2K0 = 0; arg0K1 = 0; - goto L33140;}}} + goto L33264;}}} break; case 115 : { v_627X = AVAILABLEp(66); if (v_627X) { arg2K0 = 1; arg0K1 = 0; - goto L34483;} + goto L34680;} else { collect_saving_temps(1, 1, &temp1_628X); v_629X = AVAILABLEp(66); if (v_629X) { arg2K0 = 1; arg0K1 = 0; - goto L34483;} + goto L34680;} else { arg2K0 = 0; arg0K1 = 0; - goto L34483;}}} + goto L34680;}}} break; case 116 : { v_630X = AVAILABLEp(66); if (v_630X) { arg2K0 = 1; arg0K1 = 0; - goto L37352;} + goto L37552;} else { collect_saving_temps(1, 1, &temp1_631X); v_632X = AVAILABLEp(66); if (v_632X) { arg2K0 = 1; arg0K1 = 0; - goto L37352;} + goto L37552;} else { arg2K0 = 0; arg0K1 = 0; - goto L37352;}}} + goto L37552;}}} break; case 117 : { v_633X = AVAILABLEp(66); if (v_633X) { arg2K0 = 1; arg0K1 = 0; - goto L37612;} + goto L37812;} else { collect_saving_temps(1, 1, &temp1_634X); v_635X = AVAILABLEp(66); if (v_635X) { arg2K0 = 1; arg0K1 = 0; - goto L37612;} + goto L37812;} else { arg2K0 = 0; arg0K1 = 0; - goto L37612;}}} + goto L37812;}}} break; case 118 : { - obj_636X = SvalS; - if ((3 == (3 & obj_636X))) { - if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_636X))) + -4))))>>2))))) { - channel_637X = SvalS; - head_638X = Spending_channels_headS; - if ((1 == head_638X)) { - addr_639X = (((char *) (-3 + channel_637X))) + 16; - S48_WRITE_BARRIER(channel_637X, addr_639X, 1); - *((long *) addr_639X) = 1; - n_640X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_637X))) + 8))))>>2))); - arg0K0 = (((n_640X)<<2)); - goto L33211;} - else { - if ((channel_637X == head_638X)) { - channel_641X = Spending_channels_headS; - next_642X = *((long *) ((((char *) (-3 + channel_641X))) + 12)); - Spending_channels_headS = next_642X; - addr_643X = (((char *) (-3 + channel_641X))) + 12; - S48_WRITE_BARRIER(channel_641X, addr_643X, 1); - *((long *) addr_643X) = 1; - if ((1 == next_642X)) { - Spending_channels_tailS = 1; - goto L8174;} - else { - goto L8174;}} - else { - arg0K0 = (*((long *) ((((char *) (-3 + head_638X))) + 12))); - arg0K1 = head_638X; - goto L8180;}}} - else { - goto L33194;}} + v_636X = AVAILABLEp(66); + if (v_636X) { + arg2K0 = 1; + arg0K1 = 0; + goto L34165;} else { - goto L33194;}} + collect_saving_temps(1, 1, &temp1_637X); + v_638X = AVAILABLEp(66); + if (v_638X) { + arg2K0 = 1; + arg0K1 = 0; + goto L34165;} + else { + arg2K0 = 0; + arg0K1 = 0; + goto L34165;}}} break; case 119 : { - space_644X = 3 * (Snumber_of_channelsS); - v_645X = AVAILABLEp(space_644X); - if (v_645X) { - goto L14778;} - else { - collect_saving_temps(1, 1, &temp1_646X); - v_647X = AVAILABLEp(space_644X); - if (v_647X) { - goto L14778;} + obj_639X = SvalS; + if ((3 == (3 & obj_639X))) { + if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_639X))) + -4))))>>2))))) { + channel_640X = SvalS; + head_641X = Spending_channels_headS; + if ((1 == head_641X)) { + addr_642X = (((char *) (-3 + channel_640X))) + 16; + S48_WRITE_BARRIER(channel_640X, addr_642X, 1); + *((long *) addr_642X) = 1; + n_643X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_640X))) + 8))))>>2))); + arg0K0 = (((n_643X)<<2)); + goto L33335;} + else { + if ((channel_640X == head_641X)) { + channel_644X = Spending_channels_headS; + next_645X = *((long *) ((((char *) (-3 + channel_644X))) + 12)); + Spending_channels_headS = next_645X; + addr_646X = (((char *) (-3 + channel_644X))) + 12; + S48_WRITE_BARRIER(channel_644X, addr_646X, 1); + *((long *) addr_646X) = 1; + if ((1 == next_645X)) { + Spending_channels_tailS = 1; + goto L8185;} + else { + goto L8185;}} + else { + arg0K0 = (*((long *) ((((char *) (-3 + head_641X))) + 12))); + arg0K1 = head_641X; + goto L8191;}}} else { - ps_error("Scheme48 heap overflow", 0); - goto L14778;}}} + goto L33318;}} + else { + goto L33318;}} break; case 120 : { + space_647X = 3 * (Snumber_of_channelsS); + v_648X = AVAILABLEp(space_647X); + if (v_648X) { + goto L14790;} + else { + collect_saving_temps(1, 1, &temp1_649X); + v_650X = AVAILABLEp(space_647X); + if (v_650X) { + goto L14790;} + else { + ps_error("Scheme48 heap overflow", 0); + goto L14790;}}} + break; + case 121 : { SvalS = 529; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; - case 121 : { + case 122 : { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - break; - case 122 : { - x_648X = SvalS; - push_exception_continuationB(16, 1); - *((long *) (SstackS)) = x_648X; - SstackS = ((SstackS) + -4); - arg0K0 = 1; - goto L16666;} + goto L18451;} break; case 123 : { + x_651X = SvalS; + push_exception_continuationB(16, 1); + *((long *) (SstackS)) = x_651X; + SstackS = ((SstackS) + -4); + arg0K0 = 1; + goto L16678;} + break; + case 124 : { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; - case 124 : { + case 125 : { SvalS = 21; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; - case 125 : { - v_649X = AVAILABLEp(66); - if (v_649X) { + case 126 : { + v_652X = AVAILABLEp(66); + if (v_652X) { arg2K0 = 1; arg0K1 = 0; - goto L34584;} + goto L34781;} else { - collect_saving_temps(1, 1, &temp1_650X); - v_651X = AVAILABLEp(66); - if (v_651X) { + collect_saving_temps(1, 1, &temp1_653X); + v_654X = AVAILABLEp(66); + if (v_654X) { arg2K0 = 1; arg0K1 = 0; - goto L34584;} + goto L34781;} else { arg2K0 = 0; arg0K1 = 0; - goto L34584;}}} - break; - case 126 : { - SvalS = 13; - collect_saving_temps(0, 0, &v_652X); - Scode_pointerS = ((Scode_pointerS) + 1); - arg1K0 = (Scode_pointerS); - goto L18439;} + goto L34781;}}} break; case 127 : { - obj_653X = SvalS; - if ((3 == (3 & obj_653X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_653X))) + -4))))>>2))))) { - x_654X = SvalS; - n_655X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_654X))) + -4))))>>8)); - arg0K0 = 0; - arg0K1 = 0; - goto L35416;} - else { - goto L35393;}} - else { - goto L35393;}} + SvalS = 13; + collect_saving_temps(0, 0, &v_655X); + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;} break; case 128 : { - v_656X = AVAILABLEp(6); - if (v_656X) { - goto L38573;} - else { - collect_saving_temps(1, 1, &temp1_657X); - v_658X = AVAILABLEp(6); - if (v_658X) { - goto L38573;} + obj_656X = SvalS; + if ((3 == (3 & obj_656X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_656X))) + -4))))>>2))))) { + x_657X = SvalS; + n_658X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_657X))) + -4))))>>8)); + arg0K0 = 0; + arg0K1 = 0; + goto L35613;} else { - ps_error("Scheme48 heap overflow", 0); - goto L38573;}}} + goto L35590;}} + else { + goto L35590;}} break; case 129 : { + v_659X = AVAILABLEp(6); + if (v_659X) { + goto L38776;} + else { + collect_saving_temps(1, 1, &temp1_660X); + v_661X = AVAILABLEp(6); + if (v_661X) { + goto L38776;} + else { + ps_error("Scheme48 heap overflow", 0); + goto L38776;}}} + break; + case 130 : { SstackS = ((SstackS) + 4); - arg2_659X = *((long *) (SstackS)); - if ((0 == (3 & arg2_659X))) { - key_660X = ((arg2_659X)>>2); - other_661X = SvalS; - if ((5 == key_660X)) { - SvalS = (-4 & other_661X); + arg2_662X = *((long *) (SstackS)); + if ((0 == (3 & arg2_662X))) { + key_663X = ((arg2_662X)>>2); + other_664X = SvalS; + if ((5 == key_663X)) { + SvalS = (-4 & other_664X); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if ((0 == key_660X)) { - x_662X = s48_available(); - SvalS = (((x_662X)<<2)); + if ((0 == key_663X)) { + x_665X = s48_available(); + SvalS = (((x_665X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if ((1 == key_660X)) { - bytes_663X = s48_heap_size(); - SvalS = (-4 & (3 + bytes_663X)); + if ((1 == key_663X)) { + bytes_666X = s48_heap_size(); + SvalS = (-4 & (3 + bytes_666X)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if ((2 == key_660X)) { + if ((2 == key_663X)) { SvalS = (((((Sstack_endS) - (Sstack_beginS)))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if ((3 == key_660X)) { - x_664X = s48_gc_count(); - SvalS = (((x_664X)<<2)); + if ((3 == key_663X)) { + x_667X = s48_gc_count(); + SvalS = (((x_667X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if ((4 == key_660X)) { + if ((4 == key_663X)) { push_exception_continuationB(15, 1); - *((long *) (SstackS)) = (((key_660X)<<2)); + *((long *) (SstackS)) = (((key_663X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = other_661X; + *((long *) (SstackS)) = other_664X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { push_exception_continuationB(18, 1); - *((long *) (SstackS)) = (((key_660X)<<2)); + *((long *) (SstackS)) = (((key_663X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = other_661X; + *((long *) (SstackS)) = other_664X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}}}}}} + goto L16678;}}}}}}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_659X; + *((long *) (SstackS)) = arg2_662X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; - case 130 : { + case 131 : { if ((0 == (3 & (SvalS)))) { - type_665X = (((SvalS))>>2); + type_668X = (((SvalS))>>2); arg2K0 = 1; - goto L33302;} + goto L33426;} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} - break; - case 131 : { - x_666X = SvalS; - arg2K0 = 1; - arg0K1 = x_666X; - goto L38623;} + goto L16678;}} break; case 132 : { + x_669X = SvalS; + arg2K0 = 1; + arg0K1 = x_669X; + goto L38826;} + break; + case 133 : { SvalS = (Scurrent_threadS); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; - case 133 : { + case 134 : { Scurrent_threadS = (SvalS); SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; - case 134 : { + case 135 : { SvalS = (Ssession_dataS); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} break; - case 135 : { + case 136 : { Ssession_dataS = (SvalS); SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - 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 L20571;} - else { - temp_668X = Sexception_handlersS; - Sexception_handlersS = (SvalS); - SvalS = temp_668X; - Scode_pointerS = ((Scode_pointerS) + 1); - arg1K0 = (Scode_pointerS); - goto L18439;}} - else { - goto L20571;}} - else { - goto L20571;}} + goto L18451;} break; case 137 : { - SstackS = ((SstackS) + 4); - p_669X = *((long *) (SstackS)); - SstackS = ((SstackS) + 4); - template_670X = *((long *) (SstackS)); - SstackS = ((SstackS) + 4); - SstackS = ((SstackS) + 4); - p_671X = *((long *) (SstackS)); - StemplateS = template_670X; - Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_670X)))))))) + ((((((((((p_669X)>>2)) + (((p_671X)>>2))))<<2)))>>2))); - arg1K0 = (Scode_pointerS); - 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 L19495;} + obj_670X = SvalS; + if ((3 == (3 & obj_670X))) { + if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_670X))) + -4))))>>2))))) { + if ((((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8))))>>2)) < 161)) { + goto L20583;} else { - temp_673X = Sinterrupt_handlersS; - Sinterrupt_handlersS = (SvalS); - SvalS = temp_673X; + temp_671X = Sexception_handlersS; + Sexception_handlersS = (SvalS); + SvalS = temp_671X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} else { - goto L19495;}} + goto L20583;}} else { - goto L19495;}} + goto L20583;}} + break; + case 138 : { + SstackS = ((SstackS) + 4); + p_672X = *((long *) (SstackS)); + SstackS = ((SstackS) + 4); + template_673X = *((long *) (SstackS)); + SstackS = ((SstackS) + 4); + SstackS = ((SstackS) + 4); + p_674X = *((long *) (SstackS)); + StemplateS = template_673X; + Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_673X)))))))) + ((((((((((p_672X)>>2)) + (((p_674X)>>2))))<<2)))>>2))); + arg1K0 = (Scode_pointerS); + goto L18451;} break; case 139 : { - old_674X = Senabled_interruptsS; - p_675X = SvalS; - Senabled_interruptsS = (((p_675X)>>2)); - if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { - s48_Spending_interruptPS = 0; - if ((s48_Spending_eventsPS)) { - s48_Spending_interruptPS = 1; - goto L38664;} + obj_675X = SvalS; + if ((3 == (3 & obj_675X))) { + if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_675X))) + -4))))>>2))))) { + if ((((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8))))>>2)) < 5)) { + goto L19507;} + else { + temp_676X = Sinterrupt_handlersS; + Sinterrupt_handlersS = (SvalS); + SvalS = temp_676X; + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;}} else { - goto L38664;}} + goto L19507;}} else { - s48_Spending_interruptPS = 1; - goto L38664;}} + goto L19507;}} break; case 140 : { - SstackS = ((SstackS) + 4); - p_676X = *((long *) (SstackS)); - Senabled_interruptsS = (((p_676X)>>2)); + old_677X = Senabled_interruptsS; + p_678X = SvalS; + Senabled_interruptsS = (((p_678X)>>2)); if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L18453;} + goto L38867;} else { - goto L18453;}} + goto L38867;}} else { s48_Spending_interruptPS = 1; - goto L18453;}} + goto L38867;}} break; case 141 : { + SstackS = ((SstackS) + 4); + p_679X = *((long *) (SstackS)); + Senabled_interruptsS = (((p_679X)>>2)); + if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { + s48_Spending_interruptPS = 0; + if ((s48_Spending_eventsPS)) { + s48_Spending_interruptPS = 1; + goto L18465;} + else { + goto L18465;}} + else { + s48_Spending_interruptPS = 1; + goto L18465;}} + break; + case 142 : { if ((0 == (3 & (SvalS)))) { - p_677X = SvalS; + p_680X = SvalS; Spending_interruptsS = (-2 & (Spending_interruptsS)); if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L37172;} + goto L37372;} else { - goto L37172;}} + goto L37372;}} else { s48_Spending_interruptPS = 1; - goto L37172;}} + goto L37372;}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} - break; - case 142 : { - SstackS = ((SstackS) + 4); - arg2_678X = *((long *) (SstackS)); - if ((0 == (3 & arg2_678X))) { - x_679X = SvalS; - if ((1 == x_679X)) { - goto L34112;} - else { - if ((5 == x_679X)) { - goto L34112;} - else { - goto L34117;}}} - else { - goto L34117;}} + goto L16678;}} break; case 143 : { SstackS = ((SstackS) + 4); - nargs_680X = (((*((long *) (SstackS))))>>2); - SstackS = ((SstackS) + 4); - p_681X = *((long *) (SstackS)); - SstackS = ((SstackS) + 4); - rest_list_682X = *((long *) (SstackS)); - 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 = 2; - goto L16666;} + arg2_681X = *((long *) (SstackS)); + if ((0 == (3 & arg2_681X))) { + x_682X = SvalS; + if ((1 == x_682X)) { + goto L34309;} + else { + if ((5 == x_682X)) { + goto L34309;} + else { + goto L34314;}}} else { - arg0K0 = rest_list_682X; - goto L22790;}} + goto L34314;}} break; case 144 : { - v_683X = AVAILABLEp(5); - if (v_683X) { + SstackS = ((SstackS) + 4); + nargs_683X = (((*((long *) (SstackS))))>>2); + SstackS = ((SstackS) + 4); + p_684X = *((long *) (SstackS)); + SstackS = ((SstackS) + 4); + rest_list_685X = *((long *) (SstackS)); + if ((14 < nargs_683X)) { + push_exception_continuationB(20, 1); + *((long *) (SstackS)) = (*((long *) ((SstackS) + (-4 & p_684X)))); + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = nargs_683X; + SstackS = ((SstackS) + -4); + arg0K0 = 2; + goto L16678;} + else { + arg0K0 = rest_list_685X; + goto L22802;}} + break; + case 145 : { + v_686X = AVAILABLEp(5); + if (v_686X) { arg2K0 = 1; arg0K1 = 0; - goto L33411;} + goto L33535;} else { - collect_saving_temps(1, 1, &temp1_684X); - v_685X = AVAILABLEp(5); - if (v_685X) { + collect_saving_temps(1, 1, &temp1_687X); + v_688X = AVAILABLEp(5); + if (v_688X) { arg2K0 = 1; arg0K1 = 0; - goto L33411;} + goto L33535;} else { arg2K0 = 0; arg0K1 = 0; - goto L33411;}}} - break; - case 146 : { - SstackS = ((SstackS) + 4); - arg2_686X = *((long *) (SstackS)); - if ((3 == (3 & arg2_686X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_686X))) + -4))))>>2))))) { - x_687X = SvalS; - if ((1 == x_687X)) { - goto L23914;} - else { - if ((5 == x_687X)) { - goto L23914;} - else { - goto L23919;}}} - else { - goto L23919;}} - else { - goto L23919;}} + goto L33535;}}} break; case 147 : { SstackS = ((SstackS) + 4); - arg2_688X = *((long *) (SstackS)); - if ((0 == (3 & arg2_688X))) { - option_689X = ((arg2_688X)>>2); - other_690X = SvalS; - if ((2 == option_689X)) { - x_691X = CHEAP_TIME(); - SvalS = (((x_691X)<<2)); - Scode_pointerS = ((Scode_pointerS) + 1); - arg1K0 = (Scode_pointerS); - goto L18439;} - else { - if ((0 == option_689X)) { - seconds_692X = s48_run_time(&mseconds_693X); - arg0K0 = option_689X; - arg0K1 = seconds_692X; - arg0K2 = mseconds_693X; - goto L35327;} + arg2_689X = *((long *) (SstackS)); + if ((3 == (3 & arg2_689X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_689X))) + -4))))>>2))))) { + x_690X = SvalS; + if ((1 == x_690X)) { + goto L23926;} else { - if ((1 == option_689X)) { - seconds_694X = s48_real_time(&mseconds_695X); - arg0K0 = option_689X; - arg0K1 = seconds_694X; - arg0K2 = mseconds_695X; - goto L35327;} + if ((5 == x_690X)) { + goto L23926;} else { - push_exception_continuationB(18, 1); - *((long *) (SstackS)) = (((option_689X)<<2)); - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = other_690X; - SstackS = ((SstackS) + -4); - arg0K0 = 2; - goto L16666;}}}} + goto L23931;}}} + else { + goto L23931;}} else { - push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_688X; - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (SvalS); - SstackS = ((SstackS) + -4); - arg0K0 = 2; - goto L16666;}} + goto L23931;}} break; case 148 : { SstackS = ((SstackS) + 4); - arg2_696X = *((long *) (SstackS)); - if ((0 == (3 & arg2_696X))) { - key_697X = ((arg2_696X)>>2); - value_698X = SvalS; - status_699X = s48_extended_vm(key_697X, value_698X); - if ((0 == status_699X)) { - SvalS = (s48_Sextension_valueS); + arg2_691X = *((long *) (SstackS)); + if ((0 == (3 & arg2_691X))) { + option_692X = ((arg2_691X)>>2); + other_693X = SvalS; + if ((2 == option_692X)) { + x_694X = CHEAP_TIME(); + SvalS = (((x_694X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if ((1 == status_699X)) { - push_exception_continuationB(23, 1); - *((long *) (SstackS)) = (((key_697X)<<2)); - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = value_698X; - SstackS = ((SstackS) + -4); - arg0K0 = 2; - goto L16666;} + if ((0 == option_692X)) { + seconds_695X = s48_run_time(&mseconds_696X); + arg0K0 = option_692X; + arg0K1 = seconds_695X; + arg0K2 = mseconds_696X; + goto L35524;} else { - push_exception_continuationB(24, 1); - *((long *) (SstackS)) = (((key_697X)<<2)); - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = value_698X; - SstackS = ((SstackS) + -4); - arg0K0 = 2; - goto L16666;}}} + if ((1 == option_692X)) { + seconds_697X = s48_real_time(&mseconds_698X); + arg0K0 = option_692X; + arg0K1 = seconds_697X; + arg0K2 = mseconds_698X; + goto L35524;} + else { + push_exception_continuationB(18, 1); + *((long *) (SstackS)) = (((option_692X)<<2)); + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = other_693X; + SstackS = ((SstackS) + -4); + arg0K0 = 2; + goto L16678;}}}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_696X; + *((long *) (SstackS)) = arg2_691X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} break; case 149 : { SstackS = ((SstackS) + 4); - arg2_700X = *((long *) (SstackS)); - x_701X = SvalS; + arg2_699X = *((long *) (SstackS)); + if ((0 == (3 & arg2_699X))) { + key_700X = ((arg2_699X)>>2); + value_701X = SvalS; + status_702X = s48_extended_vm(key_700X, value_701X); + if ((0 == status_702X)) { + SvalS = (s48_Sextension_valueS); + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;} + else { + if ((1 == status_702X)) { + push_exception_continuationB(23, 1); + *((long *) (SstackS)) = (((key_700X)<<2)); + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = value_701X; + SstackS = ((SstackS) + -4); + arg0K0 = 2; + goto L16678;} + else { + push_exception_continuationB(24, 1); + *((long *) (SstackS)) = (((key_700X)<<2)); + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = value_701X; + SstackS = ((SstackS) + -4); + arg0K0 = 2; + goto L16678;}}} + else { + push_exception_continuationB(5, 1); + *((long *) (SstackS)) = arg2_699X; + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = (SvalS); + SstackS = ((SstackS) + -4); + arg0K0 = 2; + goto L16678;}} + break; + case 150 : { + SstackS = ((SstackS) + 4); + arg2_703X = *((long *) (SstackS)); + x_704X = SvalS; Senabled_interruptsS = -1; if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L38724;} + goto L38927;} else { - goto L38724;}} + goto L38927;}} else { s48_Spending_interruptPS = 1; - goto L38724;}} - break; - case 150 : { - SstackS = ((SstackS) + 4); - arg2_702X = *((long *) (SstackS)); - if ((3 == (3 & arg2_702X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_702X))) + -4))))>>2))))) { - obj_703X = SvalS; - if ((3 == (3 & obj_703X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_703X))) + -4))))>>2))))) { - x_704X = SvalS; - len_705X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_702X))) + -4))))>>8); - 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 L27851;} - else { - arg0K0 = 1; - goto L27851;}} - else { - arg0K0 = 1; - goto L27851;}} - else { - goto L27818;}} - else { - goto L27818;}} - else { - goto L27818;}} - else { - goto L27818;}} + goto L38927;}} break; case 151 : { - space_706X = 1 + ((((4 + ((((SvalS))>>2))))>>2)); - v_707X = AVAILABLEp(space_706X); - if (v_707X) { - goto L33620;} - else { - collect_saving_temps(1, 1, &temp1_708X); - v_709X = AVAILABLEp(space_706X); - if (v_709X) { - goto L33620;} + SstackS = ((SstackS) + 4); + arg2_705X = *((long *) (SstackS)); + if ((3 == (3 & arg2_705X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_705X))) + -4))))>>2))))) { + obj_706X = SvalS; + if ((3 == (3 & obj_706X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_706X))) + -4))))>>2))))) { + x_707X = SvalS; + len_708X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_705X))) + -4))))>>8); + if ((len_708X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_707X))) + -4))))>>8)))) { + if (((!memcmp((void *)(((char *) (-3 + x_707X))), (void *)(((char *) (-3 + arg2_705X))),len_708X)))) { + arg0K0 = 5; + goto L27863;} + else { + arg0K0 = 1; + goto L27863;}} + else { + arg0K0 = 1; + goto L27863;}} + else { + goto L27830;}} + else { + goto L27830;}} else { - ps_error("Scheme48 heap overflow", 0); - goto L33620;}}} + goto L27830;}} + else { + goto L27830;}} break; case 152 : { - SstackS = ((SstackS) + 4); - thing_710X = *((long *) (SstackS)); - list_711X = SvalS; - arg0K0 = list_711X; - arg0K1 = list_711X; - arg2K2 = 1; - goto L29208;} + space_709X = 1 + ((((4 + ((((SvalS))>>2))))>>2)); + v_710X = AVAILABLEp(space_709X); + if (v_710X) { + goto L33744;} + else { + collect_saving_temps(1, 1, &temp1_711X); + v_712X = AVAILABLEp(space_709X); + if (v_712X) { + goto L33744;} + else { + ps_error("Scheme48 heap overflow", 0); + goto L33744;}}} break; case 153 : { SstackS = ((SstackS) + 4); - arg2_712X = *((long *) (SstackS)); + thing_713X = *((long *) (SstackS)); + list_714X = SvalS; + arg0K0 = list_714X; + arg0K1 = list_714X; + arg2K2 = 1; + goto L29332;} + break; + case 154 : { SstackS = ((SstackS) + 4); - arg3_713X = *((long *) (SstackS)); + arg2_715X = *((long *) (SstackS)); + SstackS = ((SstackS) + 4); + arg3_716X = *((long *) (SstackS)); if ((0 == (3 & (SvalS)))) { - index_714X = (((SvalS))>>2); - if ((3 == (3 & arg3_713X))) { - if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg3_713X))) + -4))))>>2))))) { - 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 L27524;} + index_717X = (((SvalS))>>2); + if ((3 == (3 & arg3_716X))) { + if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg3_716X))) + -4))))>>2))))) { + if ((arg2_715X == (*((long *) (((char *) (-3 + arg3_716X))))))) { + len_718X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_716X))) + -4))))>>8))))>>2); + if ((index_717X < 0)) { + goto L27536;} else { - if ((index_714X < len_715X)) { - SvalS = (*((long *) ((((char *) (-3 + arg3_713X))) + (((index_714X)<<2))))); + if ((index_717X < len_718X)) { + SvalS = (*((long *) ((((char *) (-3 + arg3_716X))) + (((index_717X)<<2))))); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - goto L27524;}}} + goto L27536;}}} else { - goto L27544;}} + goto L27556;}} else { - goto L27544;}} + goto L27556;}} else { - goto L27544;}} + goto L27556;}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg3_713X; + *((long *) (SstackS)) = arg3_716X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_712X; + *((long *) (SstackS)) = arg2_715X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;}} + goto L16678;}} break; - case 154 : { + case 155 : { SstackS = ((SstackS) + 4); - arg2_716X = *((long *) (SstackS)); + arg2_719X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); - arg3_717X = *((long *) (SstackS)); + arg3_720X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); - arg4_718X = *((long *) (SstackS)); - if ((0 == (3 & arg2_716X))) { - index_719X = ((arg2_716X)>>2); - value_720X = SvalS; - if ((3 == (3 & arg4_718X))) { - if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg4_718X))) + -4))))>>2))))) { - if ((arg3_717X == (*((long *) (((char *) (-3 + arg4_718X))))))) { - if ((3 == (3 & arg4_718X))) { - 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 L30713;} + arg4_721X = *((long *) (SstackS)); + if ((0 == (3 & arg2_719X))) { + index_722X = ((arg2_719X)>>2); + value_723X = SvalS; + if ((3 == (3 & arg4_721X))) { + if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg4_721X))) + -4))))>>2))))) { + if ((arg3_720X == (*((long *) (((char *) (-3 + arg4_721X))))))) { + if ((3 == (3 & arg4_721X))) { + if ((0 == (128 & (*((long *) ((((char *) (-3 + arg4_721X))) + -4)))))) { + len_724X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_721X))) + -4))))>>8))))>>2); + if ((index_722X < 0)) { + goto L30837;} else { - if ((index_719X < len_721X)) { - addr_722X = (((char *) (-3 + arg4_718X))) + (((index_719X)<<2)); - S48_WRITE_BARRIER(arg4_718X, addr_722X, value_720X); - *((long *) addr_722X) = value_720X; + if ((index_722X < len_724X)) { + addr_725X = (((char *) (-3 + arg4_721X))) + (((index_722X)<<2)); + S48_WRITE_BARRIER(arg4_721X, addr_725X, value_723X); + *((long *) addr_725X) = value_723X; SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - goto L30713;}}} + goto L30837;}}} else { - goto L30735;}} + goto L30859;}} else { - goto L30735;}} + goto L30859;}} else { - goto L30735;}} + goto L30859;}} else { - goto L30735;}} + goto L30859;}} else { - goto L30735;}} + goto L30859;}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg4_718X; + *((long *) (SstackS)) = arg4_721X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg3_717X; + *((long *) (SstackS)) = arg3_720X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_716X; + *((long *) (SstackS)) = arg2_719X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16666;}} + goto L16678;}} break; - case 155 : { + case 156 : { SstackS = ((SstackS) + 4); - arg2_723X = *((long *) (SstackS)); + arg2_726X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); - arg3_724X = *((long *) (SstackS)); + arg3_727X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); - arg4_725X = *((long *) (SstackS)); + arg4_728X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); - arg5_726X = *((long *) (SstackS)); - if ((0 == (3 & ((arg4_725X | arg2_723X) | (SvalS))))) { - from_index_727X = ((arg4_725X)>>2); - to_index_728X = ((arg2_723X)>>2); - count_729X = (((SvalS))>>2); - if ((3 == (3 & arg5_726X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { - goto L30964;} + arg5_729X = *((long *) (SstackS)); + if ((0 == (3 & ((arg4_728X | arg2_726X) | (SvalS))))) { + from_index_730X = ((arg4_728X)>>2); + to_index_731X = ((arg2_726X)>>2); + count_732X = (((SvalS))>>2); + if ((3 == (3 & arg5_729X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) { + goto L31088;} else { - goto L30959;}} + goto L31083;}} else { - goto L30959;}} + goto L31083;}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg5_726X; + *((long *) (SstackS)) = arg5_729X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg4_725X; + *((long *) (SstackS)) = arg4_728X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg3_724X; + *((long *) (SstackS)) = arg3_727X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_723X; + *((long *) (SstackS)) = arg2_726X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16666;}} + goto L16678;}} break; - case 156 : { - v_730X = *((unsigned char *) ((Scode_pointerS) + 1)); - if ((0 == v_730X)) { + case 157 : { + v_733X = *((unsigned char *) ((Scode_pointerS) + 1)); + if ((0 == v_733X)) { arg0K0 = (SvalS); - goto L23046;} + goto L23058;} else { merged_arg0K0 = 0; get_current_port_return_tag = 0; goto get_current_port; get_current_port_return_0: - v_731X = get_current_port0_return_value; - arg0K0 = v_731X; - goto L23046;}} + v_734X = get_current_port0_return_value; + arg0K0 = v_734X; + goto L23058;}} break; - case 157 : { - v_732X = *((unsigned char *) ((Scode_pointerS) + 1)); - if ((0 == v_732X)) { + case 158 : { + v_735X = *((unsigned char *) ((Scode_pointerS) + 1)); + if ((0 == v_735X)) { arg0K0 = (SvalS); - goto L23266;} + goto L23278;} else { merged_arg0K0 = 0; get_current_port_return_tag = 1; goto get_current_port; get_current_port_return_1: - v_733X = get_current_port0_return_value; - arg0K0 = v_733X; - goto L23266;}} + v_736X = get_current_port0_return_value; + arg0K0 = v_736X; + goto L23278;}} break; - case 158 : { - v_734X = *((unsigned char *) ((Scode_pointerS) + 1)); - if ((0 == v_734X)) { - v_735X = SvalS; + case 159 : { + v_737X = *((unsigned char *) ((Scode_pointerS) + 1)); + if ((0 == v_737X)) { + v_738X = SvalS; SstackS = ((SstackS) + 4); arg0K0 = (*((long *) (SstackS))); - arg0K1 = v_735X; - goto L23479;} + arg0K1 = v_738X; + goto L23491;} else { merged_arg0K0 = 4; get_current_port_return_tag = 2; goto get_current_port; get_current_port_return_2: - v_736X = get_current_port0_return_value; + v_739X = get_current_port0_return_value; arg0K0 = (SvalS); - arg0K1 = v_736X; - goto L23479;}} + arg0K1 = v_739X; + goto L23491;}} break; - case 159 : { - x_737X = SvalS; - out_738X = stderr; - arg0K0 = x_737X; - goto L29461;} + case 160 : { + x_740X = SvalS; + out_741X = stderr; + arg0K0 = x_740X; + goto L29585;} break; }} - 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 L16725;} + L16678: { + nargs_742X = arg0K0; + opcode_743X = (((*((long *) ((SstackS) + (8 + (((nargs_742X)<<2)))))))>>2); + obj_744X = Sexception_handlersS; + if ((3 == (3 & obj_744X))) { + if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_744X))) + -4))))>>2))))) { + goto L16737;} else { - goto L16798;}} + goto L16810;}} else { - goto L16798;}} - L23833: { - env_742X = arg0K0; - i_743X = arg0K1; - if ((0 == i_743X)) { - SvalS = (*((long *) ((((char *) (-3 + env_742X))) + ((((*((unsigned char *) ((Scode_pointerS) + 2))))<<2))))); + goto L16810;}} + L23845: { + env_745X = arg0K0; + i_746X = arg0K1; + if ((0 == i_746X)) { + SvalS = (*((long *) ((((char *) (-3 + env_745X))) + ((((*((unsigned char *) ((Scode_pointerS) + 2))))<<2))))); if ((529 == (SvalS))) { push_exception_continuationB(0, 3); arg0K0 = 0; - goto L16666;} + goto L16678;} else { Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} else { - arg0K0 = (*((long *) (((char *) (-3 + env_742X))))); - arg0K1 = (-1 + i_743X); - goto L23833;}} - L20248: { - env_744X = arg0K0; - i_745X = arg0K1; - if ((0 == i_745X)) { - SvalS = (*((long *) ((((char *) (-3 + env_744X))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))))<<2))))); + arg0K0 = (*((long *) (((char *) (-3 + env_745X))))); + arg0K1 = (-1 + i_746X); + goto L23845;}} + L20260: { + env_747X = arg0K0; + i_748X = arg0K1; + if ((0 == i_748X)) { + SvalS = (*((long *) ((((char *) (-3 + env_747X))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))))<<2))))); if ((529 == (SvalS))) { push_exception_continuationB(0, 5); arg0K0 = 0; - goto L16666;} + goto L16678;} else { Scode_pointerS = ((Scode_pointerS) + 5); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} else { - arg0K0 = (*((long *) (((char *) (-3 + env_744X))))); - arg0K1 = (-1 + i_745X); - goto L20248;}} - L20186: { - env_746X = arg0K0; - i_747X = arg0K1; - if ((0 == i_747X)) { - index_748X = ((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4))); - value_749X = SvalS; - addr_750X = (((char *) (-3 + env_746X))) + (((index_748X)<<2)); - S48_WRITE_BARRIER(env_746X, addr_750X, value_749X); - *((long *) addr_750X) = value_749X; + arg0K0 = (*((long *) (((char *) (-3 + env_747X))))); + arg0K1 = (-1 + i_748X); + goto L20260;}} + L20198: { + env_749X = arg0K0; + i_750X = arg0K1; + if ((0 == i_750X)) { + index_751X = ((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4))); + value_752X = SvalS; + addr_753X = (((char *) (-3 + env_749X))) + (((index_751X)<<2)); + S48_WRITE_BARRIER(env_749X, addr_753X, value_752X); + *((long *) addr_753X) = value_752X; SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 5); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - arg0K0 = (*((long *) (((char *) (-3 + env_746X))))); - arg0K1 = (-1 + i_747X); - goto L20186;}} - L20965: { - space_751X = arg0K0; - v_752X = AVAILABLEp(space_751X); - if (v_752X) { + arg0K0 = (*((long *) (((char *) (-3 + env_749X))))); + arg0K1 = (-1 + i_750X); + goto L20198;}} + L20977: { + space_754X = arg0K0; + v_755X = AVAILABLEp(space_754X); + if (v_755X) { arg2K0 = 1; arg0K1 = 0; - goto L21039;} + goto L21051;} else { - collect_saving_temps(1, 1, &temp1_753X); - v_754X = AVAILABLEp(space_751X); - if (v_754X) { + collect_saving_temps(1, 1, &temp1_756X); + v_757X = AVAILABLEp(space_754X); + if (v_757X) { arg2K0 = 1; arg0K1 = 0; - goto L21039;} + goto L21051;} else { arg2K0 = 0; arg0K1 = 0; - goto L21039;}}} - L20972: { - env_755X = arg0K0; - v_756X = AVAILABLEp(3); - if (v_756X) { + goto L21051;}}} + L20984: { + env_758X = arg0K0; + v_759X = AVAILABLEp(3); + if (v_759X) { arg2K0 = 1; - arg0K1 = env_755X; - goto L20997;} + arg0K1 = env_758X; + goto L21009;} else { - temp0_757X = collect_saving_temps(env_755X, 1, &temp1_758X); - v_759X = AVAILABLEp(3); - if (v_759X) { + temp0_760X = collect_saving_temps(env_758X, 1, &temp1_761X); + v_762X = AVAILABLEp(3); + if (v_762X) { arg2K0 = 1; - arg0K1 = temp0_757X; - goto L20997;} + arg0K1 = temp0_760X; + goto L21009;} else { arg2K0 = 0; - arg0K1 = temp0_757X; - goto L20997;}}} - L20767: { - len_760X = ((total_count_393X)<<2); - addr_761X = ALLOCATE_SPACE(2, (4 + len_760X)); - *((long *) addr_761X) = (10 + (((len_760X)<<8))); - new_env_762X = 3 + (((long) (addr_761X + 4))); - v_763X = *((unsigned char *) ((Scode_pointerS) + 1)); - if ((0 == v_763X)) { + arg0K1 = temp0_760X; + goto L21009;}}} + L20779: { + len_763X = ((total_count_393X)<<2); + addr_764X = ALLOCATE_SPACE(2, (4 + len_763X)); + *((long *) addr_764X) = (10 + (((len_763X)<<8))); + new_env_765X = 3 + (((long) (addr_764X + 4))); + v_766X = *((unsigned char *) ((Scode_pointerS) + 1)); + if ((0 == v_766X)) { arg0K0 = 0; - goto L20781;} + goto L20793;} 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; + value_767X = SvalS; + addr_768X = ((char *) (-3 + new_env_765X)); + S48_WRITE_BARRIER(new_env_765X, addr_768X, value_767X); + *((long *) addr_768X) = value_767X; arg0K0 = 1; - goto L20781;}} - L20693: { - okayP_766X = arg2K0; - key_767X = arg0K1; - if (okayP_766X) { - arg0K0 = key_767X; - goto L20681;} + goto L20793;}} + L20705: { + okayP_769X = arg2K0; + key_770X = arg0K1; + if (okayP_769X) { + arg0K0 = key_770X; + goto L20693;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_767X; - goto L20681;}} - L19848: { + arg0K0 = key_770X; + goto L20693;}} + L19860: { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L19883: { + goto L18451;} + L19895: { SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8); *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_402X; ScontS = (Sbottom_of_stackS); - goto L19848;} - L19849: { + goto L19860;} + L19861: { if ((1 == cont_402X)) { if ((0 == (3 & (SvalS)))) { s48_Scallback_return_stack_blockS = 1; return ((((SvalS))>>2));} else { - goto L19864;}} + goto L19876;}} else { - goto L19864;}} - L19209: { - okayP_768X = arg2K0; - key_769X = arg0K1; - if (okayP_768X) { - arg0K0 = key_769X; - goto L19164;} + goto L19876;}} + L19221: { + okayP_771X = arg2K0; + key_772X = arg0K1; + if (okayP_771X) { + arg0K0 = key_772X; + goto L19176;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_769X; - goto L19164;}} - L19121: { + arg0K0 = key_772X; + goto L19176;}} + L19133: { if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { s48_Spending_eventsPS = 0; check_events_return_tag = 0; goto check_events; check_events_return_0: - v_770X = check_events0_return_value; - if (v_770X) { + v_773X = check_events0_return_value; + if (v_773X) { arg0K0 = stack_arg_count_403X; - goto L16895;} + goto L16907;} else { - goto L19125;}} + goto L19137;}} else { arg0K0 = stack_arg_count_403X; - goto L16895;}} + goto L16907;}} else { - 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))); + goto L19137;}} + L16079: { + stack_arg_count_774X = arg0K0; + code_775X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS)))))))))); + arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_775X))) + 1))); arg0K1 = 64; - goto L16081;} - L17162: { - exception_773X = arg0K0; - stack_arg_count_774X = arg0K1; - list_args_775X = arg0K2; - list_arg_count_776X = arg0K3; + goto L16093;} + L17174: { + exception_776X = arg0K0; + stack_arg_count_777X = arg0K1; + list_args_778X = arg0K2; + list_arg_count_779X = arg0K3; if (((StemplateS) == (SvalS))) { if ((0 < (Slosing_opcodeS))) { ps_error("wrong number of arguments to exception handler", 1, (Slosing_opcodeS)); - return v_777X;} + return v_780X;} else { ps_error("wrong number of arguments to interrupt handler", 1, (0 - (Slosing_opcodeS))); - return v_778X;}} + return v_781X;}} else { - merged_arg0K0 = list_args_775X; - merged_arg0K1 = list_arg_count_776X; + merged_arg0K0 = list_args_778X; + merged_arg0K1 = list_arg_count_779X; copy_listS_return_tag = 0; goto copy_listS; copy_listS_return_0: - v_779X = copy_listS0_return_value; - merged_arg0K0 = v_779X; - merged_arg0K1 = stack_arg_count_774X; + v_782X = copy_listS0_return_value; + merged_arg0K0 = v_782X; + merged_arg0K1 = stack_arg_count_777X; pop_args_GlistS_return_tag = 1; goto pop_args_GlistS; pop_args_GlistS_return_1: - args_780X = pop_args_GlistS0_return_value; - push_exception_continuationB(exception_773X, 0); + args_783X = pop_args_GlistS0_return_value; + push_exception_continuationB(exception_776X, 0); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = args_780X; + *((long *) (SstackS)) = args_783X; SstackS = ((SstackS) + -4); arg0K0 = 2; - 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 L17629;} + goto L16678;}} + L17641: { + loc_784X = arg1K0; + arg_785X = arg1K1; + if ((top_of_args_414X < arg_785X)) { + *((long *) loc_784X) = (*((long *) arg_785X)); + arg1K0 = (loc_784X + -4); + arg1K1 = (arg_785X + -4); + goto L17641;} else { - SstackS = loc_781X; - obj_783X = SvalS; - if ((3 == (3 & obj_783X))) { - if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_783X))) + -4))))>>2))))) { + SstackS = loc_784X; + obj_786X = SvalS; + if ((3 == (3 & obj_786X))) { + if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_786X))) + -4))))>>2))))) { arg0K0 = nargs_413X; - goto L16067;} + goto L16079;} else { arg0K0 = 3; arg0K1 = nargs_413X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} else { arg0K0 = 3; arg0K1 = nargs_413X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}}} - L17667: { - stack_arg_count_784X = arg0K0; - list_args_785X = arg0K1; - list_arg_count_786X = arg0K2; - if ((0 == list_arg_count_786X)) { - obj_787X = SvalS; - if ((3 == (3 & obj_787X))) { - if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_787X))) + -4))))>>2))))) { - arg0K0 = stack_arg_count_784X; - goto L16067;} + goto L17174;}}} + L17679: { + stack_arg_count_787X = arg0K0; + list_args_788X = arg0K1; + list_arg_count_789X = arg0K2; + if ((0 == list_arg_count_789X)) { + obj_790X = SvalS; + if ((3 == (3 & obj_790X))) { + if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_790X))) + -4))))>>2))))) { + arg0K0 = stack_arg_count_787X; + goto L16079;} else { arg0K0 = 3; - arg0K1 = stack_arg_count_784X; + arg0K1 = stack_arg_count_787X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} else { arg0K0 = 3; - arg0K1 = stack_arg_count_784X; + arg0K1 = stack_arg_count_787X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} else { - obj_788X = SvalS; - if ((3 == (3 & obj_788X))) { - if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_788X))) + -4))))>>2))))) { - code_789X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS)))))))))); - total_arg_count_790X = stack_arg_count_784X + list_arg_count_786X; - arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_789X))) + 1))); + obj_791X = SvalS; + if ((3 == (3 & obj_791X))) { + if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_791X))) + -4))))>>2))))) { + code_792X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS)))))))))); + total_arg_count_793X = stack_arg_count_787X + list_arg_count_789X; + arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_792X))) + 1))); arg0K1 = 64; - goto L16358;} + goto L16370;} else { arg0K0 = 3; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;}} + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;}} else { arg0K0 = 3; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;}}} - L11274: { - list_args_791X = arg0K0; - stack_nargs_792X = arg0K1; - merged_arg0K0 = list_args_791X; + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;}}} + L11286: { + list_args_794X = arg0K0; + stack_nargs_795X = arg0K1; + merged_arg0K0 = list_args_794X; okay_argument_list_return_tag = 1; goto okay_argument_list; okay_argument_list_return_1: - okayP_793X = okay_argument_list0_return_value; - list_arg_count_794X = okay_argument_list1_return_value; - if (okayP_793X) { + okayP_796X = okay_argument_list0_return_value; + list_arg_count_797X = okay_argument_list1_return_value; + if (okayP_796X) { SvalS = proc_421X; - arg0K0 = stack_nargs_792X; - arg0K1 = list_args_791X; - arg0K2 = list_arg_count_794X; - goto L17667;} + arg0K0 = stack_nargs_795X; + arg0K1 = list_args_794X; + arg0K2 = list_arg_count_797X; + goto L17679;} else { - *((long *) (SstackS)) = list_args_791X; + *((long *) (SstackS)) = list_args_794X; SstackS = ((SstackS) + -4); merged_arg0K0 = 25; - merged_arg0K1 = (1 + stack_nargs_792X); + merged_arg0K1 = (1 + stack_nargs_795X); pop_args_GlistS_return_tag = 2; goto pop_args_GlistS; pop_args_GlistS_return_2: - args_795X = pop_args_GlistS0_return_value; + args_798X = pop_args_GlistS0_return_value; SstackS = ((SstackS) + 4); push_exception_continuationB(5, 0); *((long *) (SstackS)) = proc_421X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = args_795X; + *((long *) (SstackS)) = args_798X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} - L11315: { - list_796X = arg0K0; - follower_797X = arg0K1; - if ((25 == list_796X)) { - list_args_798X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + follower_797X))) + 4))))))); - addr_799X = (((char *) (-3 + follower_797X))) + 4; - S48_WRITE_BARRIER(follower_797X, addr_799X, list_args_798X); - *((long *) addr_799X) = list_args_798X; + goto L16678;}} + L11327: { + list_799X = arg0K0; + follower_800X = arg0K1; + if ((25 == list_799X)) { + list_args_801X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + follower_800X))) + 4))))))); + addr_802X = (((char *) (-3 + follower_800X))) + 4; + S48_WRITE_BARRIER(follower_800X, addr_802X, list_args_801X); + *((long *) addr_802X) = list_args_801X; arg0K0 = rest_list_422X; arg0K1 = (-1 + stack_nargs_420X); - goto L11274;} + goto L11286;} else { - arg0K0 = (*((long *) ((((char *) (-3 + list_796X))) + 4))); - arg0K1 = (*((long *) ((((char *) (-3 + follower_797X))) + 4))); - goto L11315;}} - L17572: { - obj_800X = SvalS; - if ((3 == (3 & obj_800X))) { - if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_800X))) + -4))))>>2))))) { + arg0K0 = (*((long *) ((((char *) (-3 + list_799X))) + 4))); + arg0K1 = (*((long *) ((((char *) (-3 + follower_800X))) + 4))); + goto L11327;}} + L17584: { + obj_803X = SvalS; + if ((3 == (3 & obj_803X))) { + if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_803X))) + -4))))>>2))))) { arg0K0 = 0; - goto L16067;} + goto L16079;} else { arg0K0 = 3; arg0K1 = 0; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} else { arg0K0 = 3; arg0K1 = 0; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} - L17579: { + goto L17174;}} + L17591: { SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8); *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_423X; ScontS = (Sbottom_of_stackS); - goto L17572;} - L20428: { - stack_nargs_801X = arg0K0; - list_args_802X = arg0K1; - list_arg_count_803X = arg0K2; - if ((1 == stack_nargs_801X)) { + goto L17584;} + L20440: { + stack_nargs_804X = arg0K0; + list_args_805X = arg0K1; + list_arg_count_806X = arg0K2; + if ((1 == stack_nargs_804X)) { SstackS = ((SstackS) + 4); SvalS = (*((long *) (SstackS))); pop_continuationB_return_tag = 1; goto pop_continuationB; pop_continuationB_return_1: arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { if (((ScontS) == (Sbottom_of_stackS))) { arg0K0 = (*((long *) (((char *) (-3 + (Sbottom_of_stackS)))))); - goto L20439;} + goto L20451;} else { arg0K0 = (ScontS); - goto L20439;}}} - L18945: { - okayP_804X = arg2K0; - key_805X = arg0K1; - if (okayP_804X) { - arg0K0 = key_805X; - goto L18933;} + goto L20451;}}} + L18957: { + okayP_807X = arg2K0; + key_808X = arg0K1; + if (okayP_807X) { + arg0K0 = key_808X; + goto L18945;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_805X; - 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); + arg0K0 = key_808X; + goto L18945;}} + L18830: { + tem_809X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); + StemplateS = tem_809X; + Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_809X)))))))) + 2); if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { s48_Spending_eventsPS = 0; check_events_return_tag = 1; goto check_events; check_events_return_1: - v_807X = check_events0_return_value; - if (v_807X) { - goto L18827;} + v_810X = check_events0_return_value; + if (v_810X) { + goto L18839;} else { - goto L18830;}} + goto L18842;}} else { - goto L18827;}} + goto L18839;}} else { - goto L18830;}} - L19001: { - okayP_808X = arg2K0; - key_809X = arg0K1; - if (okayP_808X) { - arg0K0 = key_809X; - goto L18988;} + goto L18842;}} + L19013: { + okayP_811X = arg2K0; + key_812X = arg0K1; + if (okayP_811X) { + arg0K0 = key_812X; + goto L19000;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_809X; - goto L18988;}} - L18863: { + arg0K0 = key_812X; + goto L19000;}} + L18875: { 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 L16666;} - L18719: { + goto L16678;} + L18731: { arg0K0 = (2 + (((max_442X)<<1))); - goto L18721;} - L18721: { - offset_810X = arg0K0; - Scode_pointerS = ((Scode_pointerS) + offset_810X); + goto L18733;} + L18733: { + offset_813X = arg0K0; + Scode_pointerS = ((Scode_pointerS) + offset_813X); arg1K0 = (Scode_pointerS); - goto L18439;} - L19751: { + goto L18451;} + L19763: { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L18617: { - delta_811X = arg0K0; - Scode_pointerS = ((Scode_pointerS) + delta_811X); + goto L18451;} + L18629: { + delta_814X = arg0K0; + Scode_pointerS = ((Scode_pointerS) + delta_814X); arg1K0 = (Scode_pointerS); - goto L18439;} - L19642: { - delta_812X = arg0K0; - Scode_pointerS = ((Scode_pointerS) + delta_812X); + goto L18451;} + L19654: { + delta_815X = arg0K0; + Scode_pointerS = ((Scode_pointerS) + delta_815X); arg1K0 = (Scode_pointerS); - goto L18439;} - L38035: { - val_813X = arg0K0; - SvalS = val_813X; + goto L18451;} + L38236: { + val_816X = arg0K0; + SvalS = val_816X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L38047: { - val_814X = arg0K0; - SvalS = val_814X; + goto L18451;} + L38248: { + val_817X = arg0K0; + SvalS = val_817X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L10623: { + goto L18451;} + L10634: { if ((3 == (3 & x_456X))) { if ((7 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) { arg0K0 = 5; - goto L38047;} + goto L38248;} else { - goto L10629;}} + goto L10640;}} else { - goto L10629;}} - L28400: { + goto L10640;}} + L28412: { SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28401: { + goto L18451;} + L28413: { 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 L16666;} + goto L16678;} else { - goto L28405;}} + goto L28417;}} else { - goto L28405;}} - L28557: { + goto L28417;}} + L28569: { SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28532: { + goto L18451;} + L28544: { if ((3 == (3 & n_458X))) { if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) { - goto L28557;} + goto L28569;} else { - goto L28546;}} + goto L28558;}} else { - goto L28546;}} - L28756: { + goto L28558;}} + L28768: { SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28731: { + goto L18451;} + L28743: { if ((3 == (3 & n_459X))) { if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) { - goto L28756;} + goto L28768;} else { - goto L28745;}} + goto L28757;}} else { - goto L28745;}} - L28955: { + goto L28757;}} + L28967: { SvalS = 5; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28930: { + goto L18451;} + L28942: { if ((3 == (3 & n_460X))) { if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) { - goto L28955;} + goto L28967;} else { - goto L28944;}} + goto L28956;}} else { - goto L28944;}} - L6776: { - a_815X = arg0K0; + goto L28956;}} + L6787: { + a_818X = arg0K0; if ((b_470X < 0)) { arg0K0 = (0 - b_470X); - goto L6780;} + goto L6791;} else { arg0K0 = b_470X; - goto L6780;}} - L7057: { - a_816X = arg0K0; + goto L6791;}} + L7068: { + a_819X = arg0K0; if ((b_477X < 0)) { arg0K0 = (0 - b_477X); - goto L7061;} + goto L7072;} else { arg0K0 = b_477X; - goto L7061;}} - L31753: { - val_817X = arg0K0; - SvalS = val_817X; - Scode_pointerS = ((Scode_pointerS) + 1); - arg1K0 = (Scode_pointerS); - goto L18439;} - L31831: { - val_818X = arg0K0; - SvalS = val_818X; - Scode_pointerS = ((Scode_pointerS) + 1); - arg1K0 = (Scode_pointerS); - goto L18439;} - L31909: { - val_819X = arg0K0; - SvalS = val_819X; - Scode_pointerS = ((Scode_pointerS) + 1); - arg1K0 = (Scode_pointerS); - goto L18439;} - L31987: { + goto L7072;}} + L31877: { val_820X = arg0K0; SvalS = val_820X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L32065: { + goto L18451;} + L31955: { val_821X = arg0K0; SvalS = val_821X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L7234: { - a_822X = arg0K0; + goto L18451;} + L32033: { + val_822X = arg0K0; + SvalS = val_822X; + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;} + L32111: { + val_823X = arg0K0; + SvalS = val_823X; + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;} + L32189: { + val_824X = arg0K0; + SvalS = val_824X; + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;} + L7245: { + a_825X = arg0K0; if ((b_491X < 0)) { arg0K0 = (0 - b_491X); - goto L7238;} + goto L7249;} else { arg0K0 = b_491X; - goto L7238;}} - L25347: { - a_823X = arg0K0; - n_824X = ((y_493X)>>2); - if ((n_824X < 0)) { - arg0K0 = (0 - n_824X); - goto L25349;} + goto L7249;}} + L25359: { + a_826X = arg0K0; + n_827X = ((y_493X)>>2); + if ((n_827X < 0)) { + arg0K0 = (0 - n_827X); + goto L25361;} else { - arg0K0 = n_824X; - goto L25349;}} - L38304: { + arg0K0 = n_827X; + goto L25361;}} + L38505: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = x_508X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L25633: { - r_825X = arg0K0; - if ((536870911 < r_825X)) { + goto L16678;} + L25645: { + r_828X = arg0K0; + if ((536870911 < r_828X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = n_509X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} else { - SvalS = (((r_825X)<<2)); + SvalS = (((r_828X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L25912: { + goto L18451;}} + L25924: { SvalS = (((result_530X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L38392: { - val_826X = arg0K0; - SvalS = val_826X; + goto L18451;} + L38593: { + val_829X = arg0K0; + SvalS = val_829X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28175: { - val_827X = arg0K0; - SvalS = val_827X; + goto L18451;} + L28187: { + val_830X = arg0K0; + SvalS = val_830X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28148: { + goto L18451;} + L28160: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_533X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L28085: { - val_828X = arg0K0; - SvalS = val_828X; + goto L16678;} + L28097: { + val_831X = arg0K0; + SvalS = val_831X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28058: { + goto L18451;} + L28070: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_535X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L32757: { + goto L16678;} + L32881: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (((x_537X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L38421: { - val_829X = arg0K0; - SvalS = val_829X; + goto L16678;} + L38622: { + val_832X = arg0K0; + SvalS = val_832X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L38435: { - value_830X = arg0K0; - SvalS = value_830X; + goto L18451;} + L38636: { + value_833X = arg0K0; + SvalS = value_833X; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;} - L21230: { + goto L18451;} + L21242: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = stob_541X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((type_542X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - 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))); + goto L16678;} + L21314: { + type_834X = *((unsigned char *) ((Scode_pointerS) + 2)); + len_835X = ((len_543X)<<2); + addr_836X = ALLOCATE_SPACE(type_834X, (4 + len_835X)); + *((long *) addr_836X) = (2 + (((((((len_835X)<<6)) + type_834X))<<2))); + new_837X = 3 + (((long) (addr_836X + 4))); if ((len_543X < 1)) { - goto L21337;} + goto L21349;} else { - *((long *) ((((char *) (-3 + new_834X))) + (-4 + (((len_543X)<<2))))) = (SvalS); + *((long *) ((((char *) (-3 + new_837X))) + (-4 + (((len_543X)<<2))))) = (SvalS); arg0K0 = (-2 + len_543X); - goto L21321;}} - L21484: { - type_835X = *((unsigned char *) ((Scode_pointerS) + 1)); - len_836X = ((len_548X)<<2); - addr_837X = ALLOCATE_SPACE(type_835X, (4 + len_836X)); - *((long *) addr_837X) = (2 + (((((((len_836X)<<6)) + type_835X))<<2))); - new_838X = 3 + (((long) (addr_837X + 4))); + goto L21333;}} + L21496: { + type_838X = *((unsigned char *) ((Scode_pointerS) + 1)); + len_839X = ((len_548X)<<2); + addr_840X = ALLOCATE_SPACE(type_838X, (4 + len_839X)); + *((long *) addr_840X) = (2 + (((((((len_839X)<<6)) + type_838X))<<2))); + new_841X = 3 + (((long) (addr_840X + 4))); SstackS = ((SstackS) + 4); - stack_nargs_839X = (((*((long *) (SstackS))))>>2); + stack_nargs_842X = (((*((long *) (SstackS))))>>2); SstackS = ((SstackS) + 4); - rest_list_840X = *((long *) (SstackS)); - arg0K0 = (-1 + stack_nargs_839X); - goto L21506;} - L21694: { + rest_list_843X = *((long *) (SstackS)); + arg0K0 = (-1 + stack_nargs_842X); + goto L21518;} + L21706: { push_exception_continuationB(5, 3); *((long *) (SstackS)) = stob_553X; SstackS = ((SstackS) + -4); @@ -6319,8 +6350,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((offset_554X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L21797: { + goto L16678;} + L21809: { push_exception_continuationB(5, 3); *((long *) (SstackS)) = stob_556X; SstackS = ((SstackS) + -4); @@ -6331,8 +6362,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_557X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16666;} - L21982: { + goto L16678;} + L21994: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = (((type_563X)<<2)); SstackS = ((SstackS) + -4); @@ -6341,28 +6372,28 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = init_562X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L22000: { - okayP_841X = arg2K0; - init_842X = arg0K1; - if (okayP_841X) { - len_843X = ((len_564X)<<2); - addr_844X = ALLOCATE_SPACE(type_563X, (4 + len_843X)); - *((long *) addr_844X) = (2 + (((((((len_843X)<<6)) + type_563X))<<2))); - value_845X = 3 + (((long) (addr_844X + 4))); + goto L16678;} + L22012: { + okayP_844X = arg2K0; + init_845X = arg0K1; + if (okayP_844X) { + len_846X = ((len_564X)<<2); + addr_847X = ALLOCATE_SPACE(type_563X, (4 + len_846X)); + *((long *) addr_847X) = (2 + (((((((len_846X)<<6)) + type_563X))<<2))); + value_848X = 3 + (((long) (addr_847X + 4))); arg0K0 = (-1 + len_564X); - goto L22029;} + goto L22041;} else { push_exception_continuationB(8, 2); *((long *) (SstackS)) = (((type_563X)<<2)); SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((len_564X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = init_842X; + *((long *) (SstackS)) = init_845X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;}} - L22278: { + goto L16678;}} + L22290: { push_exception_continuationB(7, 2); *((long *) (SstackS)) = stob_570X; SstackS = ((SstackS) + -4); @@ -6371,8 +6402,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = index_571X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L22255: { + goto L16678;} + L22267: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = stob_570X; SstackS = ((SstackS) + -4); @@ -6381,8 +6412,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = index_571X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L22518: { + goto L16678;} + L22530: { push_exception_continuationB(7, 2); *((long *) (SstackS)) = stob_576X; SstackS = ((SstackS) + -4); @@ -6393,8 +6424,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_577X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16666;} - L22493: { + goto L16678;} + L22505: { push_exception_continuationB(5, 2); *((long *) (SstackS)) = stob_576X; SstackS = ((SstackS) + -4); @@ -6405,44 +6436,44 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = value_577X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16666;} - L26083: { + goto L16678;} + L26095: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (((len_583X)<<2)); SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((init_584X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - 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))); + goto L16678;} + L26187: { + addr_849X = ALLOCATE_SPACE(17, (4 + len_583X)); + *((long *) addr_849X) = (70 + (((len_583X)<<8))); + vector_850X = 3 + (((long) (addr_849X + 4))); arg0K0 = (-1 + len_583X); - goto L26124;} - L36248: { + goto L26136;} + L36448: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L32863: { + goto L16678;} + L32987: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg2_590X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((index_591X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L35827: { + goto L16678;} + L36024: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_590X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L29811: { + goto L16678;} + L29935: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg3_594X; SstackS = ((SstackS) + -4); @@ -6451,8 +6482,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((Kchar_596X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L29790: { + goto L16678;} + L29914: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_594X; SstackS = ((SstackS) + -4); @@ -6461,8 +6492,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (((Kchar_596X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L34239: { + goto L16678;} + L34436: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_594X; SstackS = ((SstackS) + -4); @@ -6471,54 +6502,54 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L26317: { + goto L16678;} + L26329: { 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 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; + goto L16678;} + L26421: { + len_851X = 1 + len_599X; + addr_852X = ALLOCATE_SPACE(16, (4 + len_851X)); + *((long *) addr_852X) = (66 + (((len_851X)<<8))); + string_853X = 3 + (((long) (addr_852X + 4))); + *((unsigned char *) ((((char *) (-3 + string_853X))) + len_599X)) = 0; arg0K0 = (-1 + len_599X); - goto L26358;} - L32944: { + goto L26370;} + L33068: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_598X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L36298: { + goto L16678;} + L36498: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L33007: { + goto L16678;} + L33131: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg2_606X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (((index_607X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L35923: { + goto L16678;} + L36120: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_606X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L29966: { + goto L16678;} + L30090: { push_exception_continuationB(7, 1); *((long *) (SstackS)) = arg3_610X; SstackS = ((SstackS) + -4); @@ -6527,8 +6558,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (9 + ((((Kchar_612X))<<8))); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L29945: { + goto L16678;} + L30069: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_610X; SstackS = ((SstackS) + -4); @@ -6537,8 +6568,8 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (9 + ((((Kchar_612X))<<8))); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L34365: { + goto L16678;} + L34562: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg3_610X; SstackS = ((SstackS) + -4); @@ -6547,742 +6578,752 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L24487: { - obj_851X = SvalS; - if ((3 == (3 & obj_851X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_851X))) + -4))))>>2))))) { - table_852X = Sthe_symbol_tableS; - string_853X = SvalS; - n_854X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_853X))) + -4))))>>8)); + goto L16678;} + L24499: { + obj_854X = SvalS; + if ((3 == (3 & obj_854X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_854X))) + -4))))>>2))))) { + table_855X = Sthe_symbol_tableS; + string_856X = SvalS; + n_857X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_856X))) + -4))))>>8)); arg0K0 = 0; arg0K1 = 0; - goto L13334;} + goto L13346;} else { - goto L24497;}} + goto L24509;}} else { - goto L24497;}} - L33985: { - val_855X = arg0K0; - SvalS = val_855X; + goto L24509;}} + L34109: { + val_858X = arg0K0; + SvalS = val_858X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L33966: { + goto L18451;} + L34090: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L29553: { + goto L16678;} + L29677: { if ((1 == (SvalS))) { - addr_856X = (((char *) (-3 + arg2_620X))) + 4; - S48_WRITE_BARRIER(arg2_620X, addr_856X, 273); - *((long *) addr_856X) = 273; - goto L29559;} + addr_859X = (((char *) (-3 + arg2_620X))) + 4; + S48_WRITE_BARRIER(arg2_620X, addr_859X, 273); + *((long *) addr_859X) = 273; + goto L29683;} 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 L29559;} + addr_860X = (((char *) (-3 + arg2_620X))) + 4; + S48_WRITE_BARRIER(arg2_620X, addr_860X, 529); + *((long *) addr_860X) = 529; + goto L29683;} else { - goto L29559;}}} - L29560: { + goto L29683;}}} + L29684: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_620X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L38507: { - val_858X = arg0K0; - SvalS = val_858X; + goto L16678;} + L38708: { + val_861X = arg0K0; + SvalS = val_861X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L33089: { + goto L18451;} + L33213: { SvalS = x_623X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L33140: { - okayP_859X = arg2K0; - key_860X = arg0K1; - if (okayP_859X) { - arg0K0 = key_860X; - goto L33106;} + goto L18451;} + L33264: { + okayP_862X = arg2K0; + key_863X = arg0K1; + if (okayP_862X) { + arg0K0 = key_863X; + goto L33230;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_860X; - goto L33106;}} - L34483: { - okayP_861X = arg2K0; - key_862X = arg0K1; - if (okayP_861X) { - arg0K0 = key_862X; - goto L34465;} + arg0K0 = key_863X; + goto L33230;}} + L34680: { + okayP_864X = arg2K0; + key_865X = arg0K1; + if (okayP_864X) { + arg0K0 = key_865X; + goto L34662;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_862X; - goto L34465;}} - L37352: { - okayP_863X = arg2K0; - key_864X = arg0K1; - if (okayP_863X) { - arg0K0 = key_864X; - goto L37282;} + arg0K0 = key_865X; + goto L34662;}} + L37552: { + okayP_866X = arg2K0; + key_867X = arg0K1; + if (okayP_866X) { + arg0K0 = key_867X; + goto L37482;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_864X; - goto L37282;}} - L37612: { - okayP_865X = arg2K0; - key_866X = arg0K1; - if (okayP_865X) { - arg0K0 = key_866X; - goto L37554;} + arg0K0 = key_867X; + goto L37482;}} + L37812: { + okayP_868X = arg2K0; + key_869X = arg0K1; + if (okayP_868X) { + arg0K0 = key_869X; + goto L37754;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_866X; - goto L37554;}} - L33211: { - val_867X = arg0K0; - SvalS = val_867X; + arg0K0 = key_869X; + goto L37754;}} + L34165: { + okayP_870X = arg2K0; + key_871X = arg0K1; + if (okayP_870X) { + arg0K0 = key_871X; + goto L34147;} + else { + ps_error("Scheme48 heap overflow", 0); + arg0K0 = key_871X; + goto L34147;}} + L33335: { + val_872X = arg0K0; + SvalS = val_872X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L8174: { - arg0K0 = (*((long *) ((((char *) (-3 + channel_637X))) + 16))); - goto L33211;} - L8180: { - ch_868X = arg0K0; - prev_869X = arg0K1; - if ((1 == ch_868X)) { - addr_870X = (((char *) (-3 + channel_637X))) + 16; - S48_WRITE_BARRIER(channel_637X, addr_870X, 1); - *((long *) addr_870X) = 1; - n_871X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_637X))) + 8))))>>2))); - arg0K0 = (((n_871X)<<2)); - goto L33211;} + goto L18451;} + L8185: { + arg0K0 = (*((long *) ((((char *) (-3 + channel_640X))) + 16))); + goto L33335;} + L8191: { + ch_873X = arg0K0; + prev_874X = arg0K1; + if ((1 == ch_873X)) { + addr_875X = (((char *) (-3 + channel_640X))) + 16; + S48_WRITE_BARRIER(channel_640X, addr_875X, 1); + *((long *) addr_875X) = 1; + n_876X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_640X))) + 8))))>>2))); + arg0K0 = (((n_876X)<<2)); + goto L33335;} else { - if ((ch_868X == channel_637X)) { - y_872X = Spending_channels_tailS; - if ((ch_868X == y_872X)) { - Spending_channels_tailS = prev_869X; - goto L8204;} + if ((ch_873X == channel_640X)) { + y_877X = Spending_channels_tailS; + if ((ch_873X == y_877X)) { + Spending_channels_tailS = prev_874X; + goto L8215;} else { - goto L8204;}} + goto L8215;}} else { - arg0K0 = (*((long *) ((((char *) (-3 + ch_868X))) + 12))); - arg0K1 = ch_868X; - goto L8180;}}} - L33194: { + arg0K0 = (*((long *) ((((char *) (-3 + ch_873X))) + 12))); + arg0K1 = ch_873X; + goto L8191;}}} + L33318: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L14778: { + goto L16678;} + L14790: { arg0K0 = (-1 + (Snumber_of_channelsS)); arg0K1 = 25; - goto L14785;} - L34584: { - okayP_873X = arg2K0; - key_874X = arg0K1; - if (okayP_873X) { - arg0K0 = key_874X; - goto L34538;} + goto L14797;} + L34781: { + okayP_878X = arg2K0; + key_879X = arg0K1; + if (okayP_878X) { + arg0K0 = key_879X; + goto L34735;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_874X; - 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 L35416;} + arg0K0 = key_879X; + goto L34735;}} + L35613: { + i_880X = arg0K0; + h_881X = arg0K1; + if ((i_880X < n_658X)) { + arg0K0 = (1 + i_880X); + arg0K1 = (h_881X + (((*((unsigned char *) ((((char *) (-3 + x_657X))) + i_880X)))))); + goto L35613;} else { - SvalS = (((h_876X)<<2)); + SvalS = (((h_881X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L35393: { + goto L18451;}} + L35590: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L38573: { + goto L16678;} + L38776: { SstackS = ((SstackS) + 4); - stob_877X = *((long *) (SstackS)); - proc_878X = SvalS; - if ((3 == (3 & stob_877X))) { - if ((3 == (3 & proc_878X))) { - if ((3 == (31 & ((((*((long *) ((((char *) (-3 + proc_878X))) + -4))))>>2))))) { - addr_879X = ALLOCATE_SPACE(0, 12); - *((long *) addr_879X) = 2050; - x_880X = 3 + (((long) (addr_879X + 4))); - *((long *) (((char *) (-3 + x_880X)))) = stob_877X; - *((long *) ((((char *) (-3 + x_880X))) + 4)) = proc_878X; - b_881X = Sfinalizer_alistS; - addr_882X = ALLOCATE_SPACE(0, 12); - *((long *) addr_882X) = 2050; - x_883X = 3 + (((long) (addr_882X + 4))); - *((long *) (((char *) (-3 + x_883X)))) = x_880X; - *((long *) ((((char *) (-3 + x_883X))) + 4)) = b_881X; - Sfinalizer_alistS = x_883X; + stob_882X = *((long *) (SstackS)); + proc_883X = SvalS; + if ((3 == (3 & stob_882X))) { + if ((3 == (3 & proc_883X))) { + if ((3 == (31 & ((((*((long *) ((((char *) (-3 + proc_883X))) + -4))))>>2))))) { + addr_884X = ALLOCATE_SPACE(0, 12); + *((long *) addr_884X) = 2050; + x_885X = 3 + (((long) (addr_884X + 4))); + *((long *) (((char *) (-3 + x_885X)))) = stob_882X; + *((long *) ((((char *) (-3 + x_885X))) + 4)) = proc_883X; + b_886X = Sfinalizer_alistS; + addr_887X = ALLOCATE_SPACE(0, 12); + *((long *) addr_887X) = 2050; + x_888X = 3 + (((long) (addr_887X + 4))); + *((long *) (((char *) (-3 + x_888X)))) = x_885X; + *((long *) ((((char *) (-3 + x_888X))) + 4)) = b_886X; + Sfinalizer_alistS = x_888X; SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - goto L30572;}} + goto L30696;}} else { - goto L30572;}} + goto L30696;}} else { - 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); + goto L30696;}} + L33426: { + firstP_889X = arg2K0; + vector_890X = s48_find_all(type_668X); + if ((1 == vector_890X)) { + if (firstP_889X) { + collect_saving_temps(0, 0, &v_891X); arg2K0 = 0; - goto L33302;} + goto L33426;} else { push_exception_continuationB(8, 1); - *((long *) (SstackS)) = (((type_665X)<<2)); + *((long *) (SstackS)) = (((type_668X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} else { - SvalS = vector_885X; + SvalS = vector_890X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L38623: { - firstP_887X = arg2K0; - type_888X = arg0K1; - vector_889X = s48_find_all_records(type_888X); - if ((1 == vector_889X)) { - if (firstP_887X) { - value_890X = collect_saving_temps(type_888X, 0, &v_891X); + goto L18451;}} + L38826: { + firstP_892X = arg2K0; + type_893X = arg0K1; + vector_894X = s48_find_all_records(type_893X); + if ((1 == vector_894X)) { + if (firstP_892X) { + value_895X = collect_saving_temps(type_893X, 0, &v_896X); arg2K0 = 0; - arg0K1 = value_890X; - goto L38623;} + arg0K1 = value_895X; + goto L38826;} else { push_exception_continuationB(8, 1); - *((long *) (SstackS)) = type_888X; + *((long *) (SstackS)) = type_893X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;}} + goto L16678;}} else { - SvalS = vector_889X; + SvalS = vector_894X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L20571: { + goto L18451;}} + L20583: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L19495: { + goto L16678;} + L19507: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L38664: { - SvalS = (((old_674X)<<2)); + goto L16678;} + L38867: { + SvalS = (((old_677X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L18453: { + goto L18451;} + L18465: { SstackS = ((SstackS) + 4); - pc_892X = *((long *) (SstackS)); + pc_897X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); - tem_893X = *((long *) (SstackS)); - StemplateS = tem_893X; - Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_893X)))))))) + (((pc_892X)>>2))); + tem_898X = *((long *) (SstackS)); + StemplateS = tem_898X; + Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_898X)))))))) + (((pc_897X)>>2))); SstackS = ((SstackS) + 4); SvalS = (*((long *) (SstackS))); arg1K0 = (Scode_pointerS); - goto L18439;} - L37172: { - x_894X = s48_schedule_alarm_interrupt((((p_677X)>>2))); - SvalS = (((x_894X)<<2)); + goto L18451;} + L37372: { + x_899X = s48_schedule_alarm_interrupt((((p_680X)>>2))); + SvalS = (((x_899X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L34112: { + goto L18451;} + L34309: { if ((1 == (SvalS))) { arg2K0 = 0; - goto L34116;} + goto L34313;} else { arg2K0 = 1; - goto L34116;}} - L34117: { + goto L34313;}} + L34314: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_678X; + *((long *) (SstackS)) = arg2_681X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L22790: { - rest_list_895X = arg0K0; - if ((25 == rest_list_895X)) { - proc_896X = *((long *) ((SstackS) + (((nargs_680X)<<2)))); - name_897X = *((long *) ((SstackS) + (-4 + (((nargs_680X)<<2))))); - args_898X = (SstackS) + 4; - *((long *) (SstackS)) = (10 + (((nargs_680X)<<10))); + goto L16678;} + L22802: { + rest_list_900X = arg0K0; + if ((25 == rest_list_900X)) { + proc_901X = *((long *) ((SstackS) + (((nargs_683X)<<2)))); + name_902X = *((long *) ((SstackS) + (-4 + (((nargs_683X)<<2))))); + args_903X = (SstackS) + 4; + *((long *) (SstackS)) = (10 + (((nargs_683X)<<10))); SstackS = ((SstackS) + -4); - if ((3 == (3 & name_897X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_897X))) + -4))))>>2))))) { - if ((3 == (3 & proc_896X))) { - if ((17 == (31 & ((((*((long *) ((((char *) (-3 + proc_896X))) + -4))))>>2))))) { - if ((4 == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + proc_896X))) + -4))))>>8)))) { - result_899X = s48_external_call(proc_896X, name_897X, (-2 + nargs_680X), args_898X); + if ((3 == (3 & name_902X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_902X))) + -4))))>>2))))) { + if ((3 == (3 & proc_901X))) { + if ((17 == (31 & ((((*((long *) ((((char *) (-3 + proc_901X))) + -4))))>>2))))) { + if ((4 == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + proc_901X))) + -4))))>>8)))) { + result_904X = s48_external_call(proc_901X, name_902X, (-2 + nargs_683X), args_903X); if ((Sexternal_exceptionPS)) { Sexternal_exceptionPS = 0; arg0K0 = (Sexternal_exception_nargsS); - goto L16666;} + goto L16678;} else { - SvalS = result_899X; + SvalS = result_904X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} + goto L18451;}} else { - goto L22850;}} + goto L22862;}} else { - goto L22850;}} + goto L22862;}} else { - goto L22850;}} + goto L22862;}} else { - goto L22850;}} + goto L22862;}} else { - goto L22850;}} + goto L22862;}} else { - *((long *) (SstackS)) = (*((long *) (((char *) (-3 + rest_list_895X))))); + *((long *) (SstackS)) = (*((long *) (((char *) (-3 + rest_list_900X))))); SstackS = ((SstackS) + -4); - arg0K0 = (*((long *) ((((char *) (-3 + rest_list_895X))) + 4))); - goto L22790;}} - L33411: { - okayP_900X = arg2K0; - key_901X = arg0K1; - if (okayP_900X) { - arg0K0 = key_901X; - goto L33377;} + arg0K0 = (*((long *) ((((char *) (-3 + rest_list_900X))) + 4))); + goto L22802;}} + L33535: { + okayP_905X = arg2K0; + key_906X = arg0K1; + if (okayP_905X) { + arg0K0 = key_906X; + goto L33501;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_901X; - goto L33377;}} - L23914: { + arg0K0 = key_906X; + goto L33501;}} + L23926: { if ((1 == (SvalS))) { arg0K0 = (Sexported_bindingsS); - goto L23947;} + goto L23959;} else { arg0K0 = (Simported_bindingsS); - goto L23947;}} - L23919: { + goto L23959;}} + L23931: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_686X; + *((long *) (SstackS)) = arg2_689X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L35327: { - option_902X = arg0K0; - seconds_903X = arg0K1; - mseconds_904X = arg0K2; - if ((536869 < seconds_903X)) { + goto L16678;} + L35524: { + option_907X = arg0K0; + seconds_908X = arg0K1; + mseconds_909X = arg0K2; + if ((536869 < seconds_908X)) { push_exception_continuationB(6, 1); - *((long *) (SstackS)) = (((option_902X)<<2)); + *((long *) (SstackS)) = (((option_907X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((seconds_903X)<<2)); + *((long *) (SstackS)) = (((seconds_908X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mseconds_904X)<<2)); + *((long *) (SstackS)) = (((mseconds_909X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} + goto L16678;} else { - SvalS = (((((1000 * seconds_903X) + mseconds_904X))<<2)); + SvalS = (((((1000 * seconds_908X) + mseconds_909X))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L38724: { - s48_Scallback_return_stack_blockS = arg2_700X; - return x_701X;} - L27851: { - val_905X = arg0K0; - SvalS = val_905X; + goto L18451;}} + L38927: { + s48_Scallback_return_stack_blockS = arg2_703X; + return x_704X;} + L27863: { + val_910X = arg0K0; + SvalS = val_910X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L27818: { + goto L18451;} + L27830: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_702X; + *((long *) (SstackS)) = arg2_705X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L33620: { + goto L16678;} + L33744: { SstackS = ((SstackS) + 4); - arg2_906X = *((long *) (SstackS)); + arg2_911X = *((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 L27378;} + n_912X = (((SvalS))>>2); + if ((3 == (3 & arg2_911X))) { + if ((0 == (31 & ((((*((long *) ((((char *) (-3 + arg2_911X))) + -4))))>>2))))) { + goto L27390;} else { - goto L27330;}} + goto L27342;}} else { - goto L27330;}} + goto L27342;}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_906X; + *((long *) (SstackS)) = arg2_911X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} - L29208: { - list_908X = arg0K0; - slow_909X = arg0K1; - move_slowP_910X = arg2K2; - if ((25 == list_908X)) { + goto L16678;}} + L29332: { + list_913X = arg0K0; + slow_914X = arg0K1; + move_slowP_915X = arg2K2; + if ((25 == list_913X)) { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if ((3 == (3 & list_908X))) { - if ((0 == (31 & ((((*((long *) ((((char *) (-3 + list_908X))) + -4))))>>2))))) { - head_911X = *((long *) (((char *) (-3 + list_908X)))); - if ((3 == (3 & head_911X))) { - if ((0 == (31 & ((((*((long *) ((((char *) (-3 + head_911X))) + -4))))>>2))))) { - if (((*((long *) (((char *) (-3 + head_911X))))) == thing_710X)) { - SvalS = head_911X; + if ((3 == (3 & list_913X))) { + if ((0 == (31 & ((((*((long *) ((((char *) (-3 + list_913X))) + -4))))>>2))))) { + head_916X = *((long *) (((char *) (-3 + list_913X)))); + if ((3 == (3 & head_916X))) { + if ((0 == (31 & ((((*((long *) ((((char *) (-3 + head_916X))) + -4))))>>2))))) { + if (((*((long *) (((char *) (-3 + head_916X))))) == thing_713X)) { + SvalS = head_916X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - list_912X = *((long *) ((((char *) (-3 + list_908X))) + 4)); - if ((list_912X == slow_909X)) { + list_917X = *((long *) ((((char *) (-3 + list_913X))) + 4)); + if ((list_917X == slow_914X)) { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = thing_710X; + *((long *) (SstackS)) = thing_713X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = list_711X; + *((long *) (SstackS)) = list_714X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - if (move_slowP_910X) { - arg0K0 = list_912X; - arg0K1 = (*((long *) ((((char *) (-3 + slow_909X))) + 4))); + if (move_slowP_915X) { + arg0K0 = list_917X; + arg0K1 = (*((long *) ((((char *) (-3 + slow_914X))) + 4))); arg2K2 = 0; - goto L29208;} + goto L29332;} else { - arg0K0 = list_912X; - arg0K1 = slow_909X; + arg0K0 = list_917X; + arg0K1 = slow_914X; arg2K2 = 1; - goto L29208;}}}} + goto L29332;}}}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = thing_710X; + *((long *) (SstackS)) = thing_713X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = list_711X; + *((long *) (SstackS)) = list_714X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = thing_710X; + *((long *) (SstackS)) = thing_713X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = list_711X; + *((long *) (SstackS)) = list_714X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = thing_710X; + *((long *) (SstackS)) = thing_713X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = list_711X; + *((long *) (SstackS)) = list_714X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = thing_710X; + *((long *) (SstackS)) = thing_713X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = list_711X; + *((long *) (SstackS)) = list_714X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}} - L27524: { + goto L16678;}}} + L27536: { push_exception_continuationB(7, 1); - *((long *) (SstackS)) = arg3_713X; + *((long *) (SstackS)) = arg3_716X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_712X; + *((long *) (SstackS)) = arg2_715X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((index_714X)<<2)); + *((long *) (SstackS)) = (((index_717X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L27544: { + goto L16678;} + L27556: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg3_713X; + *((long *) (SstackS)) = arg3_716X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_712X; + *((long *) (SstackS)) = arg2_715X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((index_714X)<<2)); + *((long *) (SstackS)) = (((index_717X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L30713: { + goto L16678;} + L30837: { push_exception_continuationB(7, 1); - *((long *) (SstackS)) = arg4_718X; + *((long *) (SstackS)) = arg4_721X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg3_717X; + *((long *) (SstackS)) = arg3_720X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((index_719X)<<2)); + *((long *) (SstackS)) = (((index_722X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = value_720X; + *((long *) (SstackS)) = value_723X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16666;} - L30735: { + goto L16678;} + L30859: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg4_718X; + *((long *) (SstackS)) = arg4_721X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg3_717X; + *((long *) (SstackS)) = arg3_720X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((index_719X)<<2)); + *((long *) (SstackS)) = (((index_722X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = value_720X; + *((long *) (SstackS)) = value_723X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16666;} - L30964: { - if ((3 == (3 & arg5_726X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { - goto L30977;} + goto L16678;} + L31088: { + if ((3 == (3 & arg5_729X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) { + goto L31101;} else { - goto L30972;}} + goto L31096;}} else { - goto L30972;}} - L30959: { - if ((3 == (3 & arg5_726X))) { - if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { - goto L30964;} + goto L31096;}} + L31083: { + if ((3 == (3 & arg5_729X))) { + if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) { + goto L31088;} else { - goto L31031;}} + goto L31155;}} else { - 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 L23106;} + goto L31155;}} + L23058: { + port_918X = arg0K0; + if ((3 == (3 & port_918X))) { + if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_918X))) + -4))))>>2))))) { + if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_918X))) + 4))))>>2))))) { + goto L23118;} else { - p_914X = *((long *) ((((char *) (-3 + port_913X))) + 24)); - p_915X = *((long *) ((((char *) (-3 + port_913X))) + 28)); - b_916X = *((long *) ((((char *) (-3 + port_913X))) + 20)); - i_917X = ((p_914X)>>2); - x_918X = *((long *) ((((char *) (-3 + port_913X))) + 12)); - if ((5 == x_918X)) { - goto L23086;} + p_919X = *((long *) ((((char *) (-3 + port_918X))) + 24)); + p_920X = *((long *) ((((char *) (-3 + port_918X))) + 28)); + b_921X = *((long *) ((((char *) (-3 + port_918X))) + 20)); + i_922X = ((p_919X)>>2); + x_923X = *((long *) ((((char *) (-3 + port_918X))) + 12)); + if ((5 == x_923X)) { + goto L23098;} else { - if ((i_917X == (((p_915X)>>2)))) { - goto L23086;} + if ((i_922X == (((p_920X)>>2)))) { + goto L23098;} else { - val_919X = 4 + (((i_917X)<<2)); - addr_920X = (((char *) (-3 + port_913X))) + 24; - S48_WRITE_BARRIER(port_913X, addr_920X, val_919X); - *((long *) addr_920X) = val_919X; - SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_916X))) + i_917X))))))<<8))); + val_924X = 4 + (((i_922X)<<2)); + addr_925X = (((char *) (-3 + port_918X))) + 24; + S48_WRITE_BARRIER(port_918X, addr_925X, val_924X); + *((long *) addr_925X) = val_924X; + SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_921X))) + i_922X))))))<<8))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;}}}} + goto L18451;}}}} else { - goto L23106;}} + goto L23118;}} else { - 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 L23326;} + goto L23118;}} + L23278: { + port_926X = arg0K0; + if ((3 == (3 & port_926X))) { + if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_926X))) + -4))))>>2))))) { + if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_926X))) + 4))))>>2))))) { + goto L23338;} else { - p_922X = *((long *) ((((char *) (-3 + port_921X))) + 24)); - p_923X = *((long *) ((((char *) (-3 + port_921X))) + 28)); - b_924X = *((long *) ((((char *) (-3 + port_921X))) + 20)); - i_925X = ((p_922X)>>2); - x_926X = *((long *) ((((char *) (-3 + port_921X))) + 12)); - if ((5 == x_926X)) { - goto L23306;} + p_927X = *((long *) ((((char *) (-3 + port_926X))) + 24)); + p_928X = *((long *) ((((char *) (-3 + port_926X))) + 28)); + b_929X = *((long *) ((((char *) (-3 + port_926X))) + 20)); + i_930X = ((p_927X)>>2); + x_931X = *((long *) ((((char *) (-3 + port_926X))) + 12)); + if ((5 == x_931X)) { + goto L23318;} else { - if ((i_925X == (((p_923X)>>2)))) { - goto L23306;} + if ((i_930X == (((p_928X)>>2)))) { + goto L23318;} else { - SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_924X))) + i_925X))))))<<8))); + SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_929X))) + i_930X))))))<<8))); Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;}}}} + goto L18451;}}}} else { - goto L23326;}} + goto L23338;}} else { - 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 L23540;} + goto L23338;}} + L23491: { + Kchar_932X = arg0K0; + port_933X = arg0K1; + if ((9 == (255 & Kchar_932X))) { + if ((3 == (3 & port_933X))) { + if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_933X))) + -4))))>>2))))) { + if ((0 == (8 & ((((*((long *) ((((char *) (-3 + port_933X))) + 4))))>>2))))) { + goto L23552;} 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 L23522;} + p_934X = *((long *) ((((char *) (-3 + port_933X))) + 24)); + b_935X = *((long *) ((((char *) (-3 + port_933X))) + 20)); + i_936X = ((p_934X)>>2); + x_937X = *((long *) ((((char *) (-3 + port_933X))) + 12)); + if ((5 == x_937X)) { + goto L23534;} else { - if ((i_931X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + b_930X))) + -4))))>>8)))) { - goto L23522;} + if ((i_936X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + b_935X))) + -4))))>>8)))) { + goto L23534;} else { - val_933X = 4 + (((i_931X)<<2)); - addr_934X = (((char *) (-3 + port_928X))) + 24; - S48_WRITE_BARRIER(port_928X, addr_934X, val_933X); - *((long *) addr_934X) = val_933X; - *((unsigned char *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + port_928X))) + 20)))))) + i_931X)) = (((((Kchar_927X)>>8)))); + val_938X = 4 + (((i_936X)<<2)); + addr_939X = (((char *) (-3 + port_933X))) + 24; + S48_WRITE_BARRIER(port_933X, addr_939X, val_938X); + *((long *) addr_939X) = val_938X; + *((unsigned char *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + port_933X))) + 20)))))) + i_936X)) = (((((Kchar_932X)>>8)))); SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;}}}} + goto L18451;}}}} else { - goto L23540;}} + goto L23552;}} else { - goto L23540;}} + goto L23552;}} else { - 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 L29467;} + goto L23552;}} + L29585: { + stuff_940X = arg0K0; + if ((3 == (3 & stuff_940X))) { + if ((0 == (31 & ((((*((long *) ((((char *) (-3 + stuff_940X))) + -4))))>>2))))) { + thing_941X = *((long *) (((char *) (-3 + stuff_940X)))); + if ((0 == (3 & thing_941X))) { + ps_write_integer((((thing_941X)>>2)), out_741X); + goto L29591;} else { - if ((9 == (255 & thing_936X))) { - ps_write_string("#\\", out_738X); + if ((9 == (255 & thing_941X))) { + ps_write_string("#\\", out_741X); { long ignoreXX; - PS_WRITE_CHAR(((((thing_936X)>>8))), out_738X, ignoreXX) } - goto L29467;} + PS_WRITE_CHAR(((((thing_941X)>>8))), out_741X, ignoreXX) } + goto L29591;} else { - if ((3 == (3 & thing_936X))) { - if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { - if ((0 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>8))))>>2)))) { - type_937X = *((long *) (((char *) (-3 + thing_936X)))); - if ((3 == (3 & type_937X))) { - if ((8 == (31 & ((((*((long *) ((((char *) (-3 + type_937X))) + -4))))>>2))))) { - if ((2 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + type_937X))) + -4))))>>8))))>>2)))) { - obj_938X = *((long *) ((((char *) (-3 + type_937X))) + 8)); - if ((3 == (3 & obj_938X))) { - if ((1 == (31 & ((((*((long *) ((((char *) (-3 + obj_938X))) + -4))))>>2))))) { - ps_write_string("#{", out_738X); - ps_write_string((((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + thing_936X)))))))) + 8))))))))))))), out_738X); + if ((3 == (3 & thing_941X))) { + if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) { + if ((0 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>8))))>>2)))) { + type_942X = *((long *) (((char *) (-3 + thing_941X)))); + if ((3 == (3 & type_942X))) { + if ((8 == (31 & ((((*((long *) ((((char *) (-3 + type_942X))) + -4))))>>2))))) { + if ((2 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + type_942X))) + -4))))>>8))))>>2)))) { + obj_943X = *((long *) ((((char *) (-3 + type_942X))) + 8)); + if ((3 == (3 & obj_943X))) { + if ((1 == (31 & ((((*((long *) ((((char *) (-3 + obj_943X))) + -4))))>>2))))) { + ps_write_string("#{", out_741X); + ps_write_string((((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + thing_941X)))))))) + 8))))))))))))), out_741X); { long ignoreXX; - PS_WRITE_CHAR(125, out_738X, ignoreXX) } - goto L29467;} + PS_WRITE_CHAR(125, out_741X, ignoreXX) } + goto L29591;} else { - goto L11651;}} + goto L11663;}} else { - goto L11651;}} + goto L11663;}} else { - goto L11651;}} + goto L11663;}} else { - goto L11651;}} + goto L11663;}} else { - goto L11651;}} + goto L11663;}} else { - goto L11651;}} + goto L11663;}} else { - goto L11651;}} + goto L11663;}} else { - goto L11651;}}}} + goto L11663;}}}} else { - goto L29452;}} + goto L29576;}} else { - 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 L16742;} + goto L29576;}} + L16737: { + SvalS = (*((long *) ((((char *) (-3 + (Sexception_handlersS)))) + (((opcode_743X)<<2))))); + obj_944X = SvalS; + if ((3 == (3 & obj_944X))) { + if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_944X))) + -4))))>>2))))) { + goto L16754;} else { - goto L16812;}} + goto L16824;}} else { - goto L16812;}} - L16798: { + goto L16824;}} + L16810: { merged_arg3K0 = "exception-handlers is not a vector"; loseD0_return_tag = 0; goto loseD0; loseD0_return_0: - goto L16725;} - L21039: { - okayP_940X = arg2K0; - key_941X = arg0K1; - if (okayP_940X) { - arg0K0 = key_941X; - goto L20967;} + goto L16737;} + L21051: { + okayP_945X = arg2K0; + key_946X = arg0K1; + if (okayP_945X) { + arg0K0 = key_946X; + goto L20979;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_941X; - goto L20967;}} - L20997: { - okayP_942X = arg2K0; - temp_943X = arg0K1; - if (okayP_942X) { - arg0K0 = temp_943X; - goto L20978;} + arg0K0 = key_946X; + goto L20979;}} + L21009: { + okayP_947X = arg2K0; + temp_948X = arg0K1; + if (okayP_947X) { + arg0K0 = temp_948X; + goto L20990;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = temp_943X; - goto L20978;}} - L20781: { - start_i_944X = arg0K0; - arg0K0 = start_i_944X; + arg0K0 = temp_948X; + goto L20990;}} + L20793: { + start_i_949X = arg0K0; + arg0K0 = start_i_949X; arg0K1 = 2; arg0K2 = (SenvS); - goto L20789;} - L20681: { - key_945X = arg0K0; + goto L20801;} + L20693: { + key_950X = arg0K0; if ((1 == (ScontS))) { arg0K0 = 1; - goto L20685;} + goto L20697;} else { - merged_arg0K0 = key_945X; + merged_arg0K0 = key_950X; merged_arg0K1 = 2; really_preserve_continuation_return_tag = 0; goto really_preserve_continuation; really_preserve_continuation_return_0: - v_946X = really_preserve_continuation0_return_value; - arg0K0 = v_946X; - goto L20685;}} - L19864: { + v_951X = really_preserve_continuation0_return_value; + arg0K0 = v_951X; + goto L20697;}} + L19876: { SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8); *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = 1; ScontS = (Sbottom_of_stackS); @@ -7292,20 +7333,20 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = cont_402X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L19164: { - v_947X = arg0K0; - merged_arg0K0 = v_947X; + goto L16678;} + L19176: { + v_952X = arg0K0; + merged_arg0K0 = v_952X; copy_stack_into_heap_return_tag = 0; goto copy_stack_into_heap; copy_stack_into_heap_return_0: if (((SstackS) < (Sstack_limitS))) { ps_error("Couldn't get default procedure space (how can this happen?)", 0); - goto L19121;} + goto L19133;} else { - goto L19121;}} - L16895: { - stack_arg_count_948X = arg0K0; + goto L19133;}} + L16907: { + stack_arg_count_953X = arg0K0; *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (StemplateS); @@ -7314,367 +7355,367 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + -4); *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); - tem_949X = Sinterrupt_templateS; - StemplateS = tem_949X; - Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_949X)))))))); - push_continuationB((Scode_pointerS), (4 + stack_arg_count_948X)); - n_950X = (Spending_interruptsS) & (Senabled_interruptsS); + tem_954X = Sinterrupt_templateS; + StemplateS = tem_954X; + Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_954X)))))))); + push_continuationB((Scode_pointerS), (4 + stack_arg_count_953X)); + n_955X = (Spending_interruptsS) & (Senabled_interruptsS); arg0K0 = 0; arg0K1 = 1; - goto L17000;} - L19125: { + goto L17012;} + L19137: { arg1K0 = (Scode_pointerS); - goto L18439;} - L16081: { - protocol_951X = arg0K0; - stack_space_952X = arg0K1; - if ((68 == protocol_951X)) { - if ((stack_arg_count_771X < 3)) { - skip_953X = *((unsigned char *) ((((char *) (-3 + code_772X))) + (2 + stack_arg_count_771X))); - if ((0 == skip_953X)) { + goto L18451;} + L16093: { + protocol_956X = arg0K0; + stack_space_957X = arg0K1; + if ((68 == protocol_956X)) { + if ((stack_arg_count_774X < 3)) { + skip_958X = *((unsigned char *) ((((char *) (-3 + code_775X))) + (2 + stack_arg_count_774X))); + if ((0 == skip_958X)) { arg0K0 = 4; - arg0K1 = stack_arg_count_771X; + arg0K1 = stack_arg_count_774X; arg0K2 = 25; arg0K3 = 0; - goto L17162;} + goto L17174;} else { - arg0K0 = skip_953X; - arg0K1 = stack_arg_count_771X; - goto L16085;}} + arg0K0 = skip_958X; + arg0K1 = stack_arg_count_774X; + goto L16097;}} else { - skip_954X = *((unsigned char *) ((((char *) (-3 + code_772X))) + 5)); - if ((0 == skip_954X)) { + skip_959X = *((unsigned char *) ((((char *) (-3 + code_775X))) + 5)); + if ((0 == skip_959X)) { arg0K0 = 4; - arg0K1 = stack_arg_count_771X; + arg0K1 = stack_arg_count_774X; arg0K2 = 25; arg0K3 = 0; - goto L17162;} + goto L17174;} else { - arg0K0 = skip_954X; - goto L16108;}}} + arg0K0 = skip_959X; + goto L16120;}}} else { - if ((67 == protocol_951X)) { - if ((stack_arg_count_771X < (*((unsigned char *) ((((char *) (-3 + code_772X))) + 2))))) { + if ((67 == protocol_956X)) { + if ((stack_arg_count_774X < (*((unsigned char *) ((((char *) (-3 + code_775X))) + 2))))) { arg0K0 = 4; - arg0K1 = stack_arg_count_771X; + arg0K1 = stack_arg_count_774X; arg0K2 = 25; arg0K3 = 0; - goto L17162;} + goto L17174;} else { arg0K0 = 3; - goto L16108;}} + goto L16120;}} else { - if ((65 == protocol_951X)) { - wants_stack_args_955X = ((((*((unsigned char *) ((((char *) (-3 + code_772X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_772X))) + 3))); - if ((stack_arg_count_771X < wants_stack_args_955X)) { + if ((65 == protocol_956X)) { + wants_stack_args_960X = ((((*((unsigned char *) ((((char *) (-3 + code_775X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_775X))) + 3))); + if ((stack_arg_count_774X < wants_stack_args_960X)) { arg0K0 = 4; - arg0K1 = stack_arg_count_771X; + arg0K1 = stack_arg_count_774X; arg0K2 = 25; arg0K3 = 0; - goto L17162;} + goto L17174;} else { - merged_arg0K0 = wants_stack_args_955X; - merged_arg0K1 = stack_arg_count_771X; + merged_arg0K0 = wants_stack_args_960X; + merged_arg0K1 = stack_arg_count_774X; merged_arg0K2 = 25; merged_arg0K3 = 0; rest_list_setup_return_tag = 0; goto rest_list_setup; rest_list_setup_return_0: arg0K0 = 4; - arg0K1 = (1 + wants_stack_args_955X); - goto L16085;}} + arg0K1 = (1 + wants_stack_args_960X); + goto L16097;}} 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)) { + if ((63 < protocol_956X)) { + if ((64 == protocol_956X)) { + if (((((((*((unsigned char *) ((((char *) (-3 + code_775X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_775X))) + 3)))) == stack_arg_count_774X)) { arg0K0 = 4; - arg0K1 = stack_arg_count_771X; - goto L16085;} + arg0K1 = stack_arg_count_774X; + goto L16097;} else { arg0K0 = 4; - arg0K1 = stack_arg_count_771X; + arg0K1 = stack_arg_count_774X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}} + goto L17174;}} 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 L16081;} + if ((66 == protocol_956X)) { + length_961X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_775X))) + -4))))>>8); + index_962X = -2 + length_961X; + arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_775X))) + (-3 + length_961X)))); + arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_775X))) + index_962X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_775X))) + (1 + index_962X))))); + goto L16093;} else { - ps_error("unknown protocol", 1, protocol_951X); + ps_error("unknown protocol", 1, protocol_956X); arg0K0 = 4; - arg0K1 = stack_arg_count_771X; + arg0K1 = stack_arg_count_774X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}}} + goto L17174;}}} else { - if ((protocol_951X == stack_arg_count_771X)) { + if ((protocol_956X == stack_arg_count_774X)) { arg0K0 = 2; - arg0K1 = stack_arg_count_771X; - goto L16085;} + arg0K1 = stack_arg_count_774X; + goto L16097;} else { arg0K0 = 4; - arg0K1 = stack_arg_count_771X; + arg0K1 = stack_arg_count_774X; arg0K2 = 25; arg0K3 = 0; - goto L17162;}}}}}} - L16358: { - protocol_958X = arg0K0; - stack_space_959X = arg0K1; - if ((68 == protocol_958X)) { - if ((total_arg_count_790X < 3)) { - skip_960X = *((unsigned char *) ((((char *) (-3 + code_789X))) + (2 + total_arg_count_790X))); - if ((0 == skip_960X)) { + goto L17174;}}}}}} + L16370: { + protocol_963X = arg0K0; + stack_space_964X = arg0K1; + if ((68 == protocol_963X)) { + if ((total_arg_count_793X < 3)) { + skip_965X = *((unsigned char *) ((((char *) (-3 + code_792X))) + (2 + total_arg_count_793X))); + if ((0 == skip_965X)) { arg0K0 = 4; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;} + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;} else { - merged_arg0K0 = list_args_785X; - merged_arg0K1 = list_arg_count_786X; + merged_arg0K0 = list_args_788X; + merged_arg0K1 = list_arg_count_789X; push_list_return_tag = 0; goto push_list; push_list_return_0: - arg0K0 = skip_960X; - arg0K1 = total_arg_count_790X; - goto L16362;}} + arg0K0 = skip_965X; + arg0K1 = total_arg_count_793X; + goto L16374;}} else { - skip_961X = *((unsigned char *) ((((char *) (-3 + code_789X))) + 5)); - if ((0 == skip_961X)) { + skip_966X = *((unsigned char *) ((((char *) (-3 + code_792X))) + 5)); + if ((0 == skip_966X)) { arg0K0 = 4; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;} + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;} else { - arg0K0 = skip_961X; - goto L16387;}}} + arg0K0 = skip_966X; + goto L16399;}}} else { - if ((67 == protocol_958X)) { - if ((total_arg_count_790X < (*((unsigned char *) ((((char *) (-3 + code_789X))) + 2))))) { + if ((67 == protocol_963X)) { + if ((total_arg_count_793X < (*((unsigned char *) ((((char *) (-3 + code_792X))) + 2))))) { arg0K0 = 4; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;} + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;} else { arg0K0 = 3; - goto L16387;}} + goto L16399;}} else { - if ((63 < protocol_958X)) { - if ((65 == protocol_958X)) { - wants_stack_args_962X = ((((*((unsigned char *) ((((char *) (-3 + code_789X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_789X))) + 3))); - if ((total_arg_count_790X < wants_stack_args_962X)) { + if ((63 < protocol_963X)) { + if ((65 == protocol_963X)) { + wants_stack_args_967X = ((((*((unsigned char *) ((((char *) (-3 + code_792X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_792X))) + 3))); + if ((total_arg_count_793X < wants_stack_args_967X)) { arg0K0 = 4; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;} + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;} else { - merged_arg0K0 = wants_stack_args_962X; - merged_arg0K1 = stack_arg_count_784X; - merged_arg0K2 = list_args_785X; - merged_arg0K3 = list_arg_count_786X; + merged_arg0K0 = wants_stack_args_967X; + merged_arg0K1 = stack_arg_count_787X; + merged_arg0K2 = list_args_788X; + merged_arg0K3 = list_arg_count_789X; rest_list_setup_return_tag = 1; goto rest_list_setup; rest_list_setup_return_1: arg0K0 = 4; - arg0K1 = (1 + wants_stack_args_962X); - goto L16362;}} + arg0K1 = (1 + wants_stack_args_967X); + goto L16374;}} 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)) { - merged_arg0K0 = list_args_785X; - merged_arg0K1 = list_arg_count_786X; + if ((64 == protocol_963X)) { + if (((((((*((unsigned char *) ((((char *) (-3 + code_792X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_792X))) + 3)))) == total_arg_count_793X)) { + merged_arg0K0 = list_args_788X; + merged_arg0K1 = list_arg_count_789X; push_list_return_tag = 1; goto push_list; push_list_return_1: arg0K0 = 4; - arg0K1 = total_arg_count_790X; - goto L16362;} + arg0K1 = total_arg_count_793X; + goto L16374;} else { arg0K0 = 4; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;}} + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;}} 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 L16358;} + if ((66 == protocol_963X)) { + length_968X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_792X))) + -4))))>>8); + index_969X = -2 + length_968X; + arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_792X))) + (-3 + length_968X)))); + arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_792X))) + index_969X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_792X))) + (1 + index_969X))))); + goto L16370;} else { - ps_error("unknown protocol", 1, protocol_958X); + ps_error("unknown protocol", 1, protocol_963X); arg0K0 = 4; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;}}}} + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;}}}} else { - if ((protocol_958X == total_arg_count_790X)) { - merged_arg0K0 = list_args_785X; - merged_arg0K1 = list_arg_count_786X; + if ((protocol_963X == total_arg_count_793X)) { + merged_arg0K0 = list_args_788X; + merged_arg0K1 = list_arg_count_789X; push_list_return_tag = 2; goto push_list; push_list_return_2: arg0K0 = 2; - arg0K1 = total_arg_count_790X; - goto L16362;} + arg0K1 = total_arg_count_793X; + goto L16374;} else { arg0K0 = 4; - arg0K1 = stack_arg_count_784X; - arg0K2 = list_args_785X; - arg0K3 = list_arg_count_786X; - goto L17162;}}}}} - L20439: { - cont_965X = arg0K0; - if ((3 == (3 & cont_965X))) { - if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_965X))) + -4))))>>2))))) { - next_op_966X = *((unsigned char *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + cont_965X))) + 8))))))))))) + ((((*((long *) ((((char *) (-3 + cont_965X))) + 4))))>>2)))); - if ((34 == next_op_966X)) { + arg0K1 = stack_arg_count_787X; + arg0K2 = list_args_788X; + arg0K3 = list_arg_count_789X; + goto L17174;}}}}} + L20451: { + cont_970X = arg0K0; + if ((3 == (3 & cont_970X))) { + if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_970X))) + -4))))>>2))))) { + next_op_971X = *((unsigned char *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + cont_970X))) + 8))))))))))) + ((((*((long *) ((((char *) (-3 + cont_970X))) + 4))))>>2)))); + if ((34 == next_op_971X)) { pop_continuationB_return_tag = 2; goto pop_continuationB; pop_continuationB_return_2: arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if ((30 == next_op_966X)) { - next_967X = *((long *) (((char *) (-3 + (ScontS))))); + if ((30 == next_op_971X)) { + next_972X = *((long *) (((char *) (-3 + (ScontS))))); if (((ScontS) == (Sbottom_of_stackS))) { - *((long *) (((char *) (-3 + (ScontS))))) = (*((long *) (((char *) (-3 + next_967X))))); - goto L19283;} + *((long *) (((char *) (-3 + (ScontS))))) = (*((long *) (((char *) (-3 + next_972X))))); + goto L19295;} else { - ScontS = next_967X; - goto L19283;}} + ScontS = next_972X; + goto L19295;}} else { - merged_arg0K0 = list_args_802X; - merged_arg0K1 = stack_nargs_801X; + merged_arg0K0 = list_args_805X; + merged_arg0K1 = stack_nargs_804X; pop_args_GlistS_return_tag = 3; goto pop_args_GlistS; pop_args_GlistS_return_3: - args_968X = pop_args_GlistS0_return_value; + args_973X = pop_args_GlistS0_return_value; push_exception_continuationB(4, 0); *((long *) (SstackS)) = 1; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = args_968X; + *((long *) (SstackS)) = args_973X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}} + goto L16678;}}} else { - goto L20445;}} + goto L20457;}} else { - goto L20445;}} - L18933: { - v_969X = arg0K0; - merged_arg0K0 = v_969X; + goto L20457;}} + L18945: { + v_974X = arg0K0; + merged_arg0K0 = v_974X; copy_stack_into_heap_return_tag = 1; goto copy_stack_into_heap; copy_stack_into_heap_return_1: if (((SstackS) < (Sstack_limitS))) { ps_error("Couldn't get default procedure space (how can this happen?)", 0); - goto L18818;} + goto L18830;} else { - goto L18818;}} - L18827: { + goto L18830;}} + L18839: { arg0K0 = (*((unsigned char *) ((Scode_pointerS) + 3))); - goto L16895;} - L18830: { + goto L16907;} + L18842: { arg1K0 = (Scode_pointerS); - goto L18439;} - L18988: { - v_970X = arg0K0; - merged_arg0K0 = v_970X; + goto L18451;} + L19000: { + v_975X = arg0K0; + merged_arg0K0 = v_975X; 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 L18818;} + goto L18830;} else { ps_error("VM's stack is too small (how can this happen?)", 0); - goto L18818;}} - L10629: { + goto L18830;}} + L10640: { if ((3 == (3 & x_456X))) { if ((18 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) { arg0K0 = 5; - goto L38047;} + goto L38248;} else { - goto L10635;}} + goto L10646;}} else { - goto L10635;}} - L28405: { + goto L10646;}} + L28417: { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28546: { + goto L18451;} + L28558: { if ((3 == (3 & n_458X))) { if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) { - goto L28557;} + goto L28569;} else { - goto L28558;}} + goto L28570;}} else { - goto L28558;}} - L28745: { + goto L28570;}} + L28757: { if ((3 == (3 & n_459X))) { if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) { - goto L28756;} + goto L28768;} else { - goto L28757;}} + goto L28769;}} else { - goto L28757;}} - L28944: { + goto L28769;}} + L28956: { if ((3 == (3 & n_460X))) { if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) { - goto L28955;} + goto L28967;} else { - goto L28956;}} + goto L28968;}} else { - goto L28956;}} - L6780: { - b_971X = arg0K0; - lo_a_972X = 65535 & a_815X; - lo_b_973X = 65535 & b_971X; - hi_a_974X = 65535 & (((a_815X)>>16)); - hi_b_975X = 65535 & (((b_971X)>>16)); - lo_c_976X = SMALL_MULTIPLY(lo_a_972X, lo_b_973X); - v_977X = SMALL_MULTIPLY(lo_b_973X, hi_a_974X); - v_978X = SMALL_MULTIPLY(lo_a_972X, hi_b_975X); - mid_c_979X = v_978X + v_977X; - c_980X = lo_c_976X + (((mid_c_979X)<<16)); - if ((0 < hi_a_974X)) { - if ((0 < hi_b_975X)) { + goto L28968;}} + L6791: { + b_976X = arg0K0; + lo_a_977X = 65535 & a_818X; + lo_b_978X = 65535 & b_976X; + hi_a_979X = 65535 & (((a_818X)>>16)); + hi_b_980X = 65535 & (((b_976X)>>16)); + lo_c_981X = SMALL_MULTIPLY(lo_a_977X, lo_b_978X); + v_982X = SMALL_MULTIPLY(lo_b_978X, hi_a_979X); + v_983X = SMALL_MULTIPLY(lo_a_977X, hi_b_980X); + mid_c_984X = v_983X + v_982X; + c_985X = lo_c_981X + (((mid_c_984X)<<16)); + if ((0 < hi_a_979X)) { + if ((0 < hi_b_980X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - goto L6822;}} + goto L6833;}} else { - goto L6822;}} - L7061: { - b_981X = arg0K0; - c_982X = a_816X / b_981X; - x_983X = 0 == (a_816X % b_981X); - if (x_983X) { + goto L6833;}} + L7072: { + b_986X = arg0K0; + c_987X = a_819X / b_986X; + x_988X = 0 == (a_819X % b_986X); + if (x_988X) { if ((a_476X < 0)) { if ((b_477X < 0)) { - goto L7116;} + goto L7127;} else { - goto L7115;}} + goto L7126;}} else { if ((b_477X < 0)) { - goto L7115;} + goto L7126;} else { - goto L7116;}}} + goto L7127;}}} else { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_474X; @@ -7682,203 +7723,183 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = x_475X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} - L7238: { - b_984X = arg0K0; - c_985X = a_822X / b_984X; + goto L16678;}} + L7249: { + b_989X = arg0K0; + c_990X = a_825X / b_989X; if ((a_490X < 0)) { if ((b_491X < 0)) { - goto L7284;} + goto L7295;} else { - goto L7283;}} + goto L7294;}} else { if ((b_491X < 0)) { - goto L7283;} + goto L7294;} else { - goto L7284;}}} - L25349: { - b_986X = arg0K0; - c_987X = a_823X % b_986X; + goto L7295;}}} + L25361: { + b_991X = arg0K0; + c_992X = a_826X % b_991X; if ((a_494X < 0)) { - arg0K0 = (0 - c_987X); - goto L25353;} + arg0K0 = (0 - c_992X); + goto L25365;} else { - arg0K0 = c_987X; - goto L25353;}} - L21337: { - SvalS = new_834X; + arg0K0 = c_992X; + goto L25365;}} + L21349: { + SvalS = new_837X; Scode_pointerS = ((Scode_pointerS) + 3); arg1K0 = (Scode_pointerS); - goto L18439;} - L21321: { - i_988X = arg0K0; - if ((i_988X < 0)) { - goto L21337;} - else { - SstackS = ((SstackS) + 4); - *((long *) ((((char *) (-3 + new_834X))) + (((i_988X)<<2)))) = (*((long *) (SstackS))); - arg0K0 = (-1 + i_988X); - goto L21321;}} - L21506: { - i_989X = arg0K0; - if ((i_989X < 0)) { - arg0K0 = stack_nargs_839X; - arg0K1 = rest_list_840X; - goto L21524;} - else { - SstackS = ((SstackS) + 4); - *((long *) ((((char *) (-3 + new_838X))) + (((i_989X)<<2)))) = (*((long *) (SstackS))); - arg0K0 = (-1 + i_989X); - goto L21506;}} - L22029: { - i_990X = arg0K0; - if ((i_990X < 0)) { - SvalS = value_845X; - Scode_pointerS = ((Scode_pointerS) + 2); - arg1K0 = (Scode_pointerS); - 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 L22029;}} - L26124: { - i_992X = arg0K0; - if ((i_992X < 0)) { - SvalS = vector_847X; - Scode_pointerS = ((Scode_pointerS) + 1); - arg1K0 = (Scode_pointerS); - goto L18439;} - else { - *((unsigned char *) ((((char *) (-3 + vector_847X))) + i_992X)) = init_584X; - arg0K0 = (-1 + i_992X); - goto L26124;}} - L26358: { + goto L18451;} + L21333: { i_993X = arg0K0; if ((i_993X < 0)) { - SvalS = string_850X; + goto L21349;} + else { + SstackS = ((SstackS) + 4); + *((long *) ((((char *) (-3 + new_837X))) + (((i_993X)<<2)))) = (*((long *) (SstackS))); + arg0K0 = (-1 + i_993X); + goto L21333;}} + L21518: { + i_994X = arg0K0; + if ((i_994X < 0)) { + arg0K0 = stack_nargs_842X; + arg0K1 = rest_list_843X; + goto L21536;} + else { + SstackS = ((SstackS) + 4); + *((long *) ((((char *) (-3 + new_841X))) + (((i_994X)<<2)))) = (*((long *) (SstackS))); + arg0K0 = (-1 + i_994X); + goto L21518;}} + L22041: { + i_995X = arg0K0; + if ((i_995X < 0)) { + SvalS = value_848X; + Scode_pointerS = ((Scode_pointerS) + 2); + arg1K0 = (Scode_pointerS); + goto L18451;} + else { + addr_996X = (((char *) (-3 + value_848X))) + (((i_995X)<<2)); + S48_WRITE_BARRIER(value_848X, addr_996X, init_845X); + *((long *) addr_996X) = init_845X; + arg0K0 = (-1 + i_995X); + goto L22041;}} + L26136: { + i_997X = arg0K0; + if ((i_997X < 0)) { + SvalS = vector_850X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - *((unsigned char *) ((((char *) (-3 + string_850X))) + i_993X)) = (init_600X); - arg0K0 = (-1 + i_993X); - 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 L13334;} + *((unsigned char *) ((((char *) (-3 + vector_850X))) + i_997X)) = init_584X; + arg0K0 = (-1 + i_997X); + goto L26136;}} + L26370: { + i_998X = arg0K0; + if ((i_998X < 0)) { + SvalS = string_853X; + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;} else { - index_996X = 1023 & h_995X; - bucket_997X = *((long *) ((((char *) (-3 + table_852X))) + (((index_996X)<<2)))); - arg0K0 = bucket_997X; - goto L13302;}} - L24497: { + *((unsigned char *) ((((char *) (-3 + string_853X))) + i_998X)) = (init_600X); + arg0K0 = (-1 + i_998X); + goto L26370;}} + L13346: { + i_999X = arg0K0; + h_1000X = arg0K1; + if ((i_999X < n_857X)) { + arg0K0 = (1 + i_999X); + arg0K1 = (h_1000X + (((*((unsigned char *) ((((char *) (-3 + string_856X))) + i_999X)))))); + goto L13346;} + else { + index_1001X = 1023 & h_1000X; + bucket_1002X = *((long *) ((((char *) (-3 + table_855X))) + (((index_1001X)<<2)))); + arg0K0 = bucket_1002X; + goto L13314;}} + L24509: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L29559: { + goto L16678;} + L29683: { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L33106: { - key_998X = arg0K0; + goto L18451;} + L33230: { + key_1003X = arg0K0; SstackS = ((SstackS) + 4); - arg2_999X = *((long *) (SstackS)); + arg2_1004X = *((long *) (SstackS)); if ((0 == (3 & (SvalS)))) { - mode_1000X = (((SvalS))>>2); - if ((1 == mode_1000X)) { - goto L26782;} + mode_1005X = (((SvalS))>>2); + if ((1 == mode_1005X)) { + goto L26794;} else { - if ((2 == mode_1000X)) { - goto L26782;} + if ((2 == mode_1005X)) { + goto L26794;} else { - if ((3 == mode_1000X)) { - goto L26782;} + if ((3 == mode_1005X)) { + goto L26794;} else { - if ((4 == mode_1000X)) { - goto L26782;} + if ((4 == mode_1005X)) { + goto L26794;} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_999X; + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}}}} + goto L16678;}}}}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_999X; + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} - L34465: { - key_1001X = arg0K0; - obj_1002X = SvalS; - if ((3 == (3 & obj_1002X))) { - if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1002X))) + -4))))>>2))))) { - channel_1003X = SvalS; - if ((0 == (*((long *) (((char *) (-3 + channel_1003X))))))) { + goto L16678;}} + L34662: { + key_1006X = arg0K0; + obj_1007X = SvalS; + if ((3 == (3 & obj_1007X))) { + if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1007X))) + -4))))>>2))))) { + channel_1008X = SvalS; + if ((0 == (*((long *) (((char *) (-3 + channel_1008X))))))) { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = channel_1003X; + *((long *) (SstackS)) = channel_1008X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} + goto L16678;} else { - status_1004X = close_channelB(channel_1003X); - if ((status_1004X == NO_ERRORS)) { + status_1009X = close_channelB(channel_1008X); + if ((status_1009X == NO_ERRORS)) { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(25, 1); - *((long *) (SstackS)) = channel_1003X; + *((long *) (SstackS)) = channel_1008X; SstackS = ((SstackS) + -4); - merged_arg0K0 = status_1004X; - merged_arg0K1 = key_1001X; + merged_arg0K0 = status_1009X; + merged_arg0K1 = key_1006X; get_error_string_return_tag = 0; goto get_error_string; get_error_string_return_0: - x_1005X = get_error_string0_return_value; - *((long *) (SstackS)) = x_1005X; + x_1010X = get_error_string0_return_value; + *((long *) (SstackS)) = x_1010X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}} + goto L16678;}}} else { - goto L34473;}} + goto L34670;}} else { - goto L34473;}} - L37282: { - key_1006X = arg0K0; - SstackS = ((SstackS) + 4); - arg2_1007X = *((long *) (SstackS)); - SstackS = ((SstackS) + 4); - arg3_1008X = *((long *) (SstackS)); - SstackS = ((SstackS) + 4); - arg4_1009X = *((long *) (SstackS)); - SstackS = ((SstackS) + 4); - arg5_1010X = *((long *) (SstackS)); - if ((0 == (3 & (arg4_1009X | arg3_1008X)))) { - if ((1 == arg2_1007X)) { - goto L37314;} - else { - if ((5 == arg2_1007X)) { - goto L37314;} - else { - goto L37334;}}} - else { - goto L37334;}} - L37554: { + goto L34670;}} + L37482: { key_1011X = arg0K0; SstackS = ((SstackS) + 4); arg2_1012X = *((long *) (SstackS)); @@ -7886,451 +7907,510 @@ long s48_restart(long proc_345X, long nargs_346X) arg3_1013X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); arg4_1014X = *((long *) (SstackS)); - if ((0 == (3 & (arg3_1013X | arg2_1012X)))) { - obj_1015X = SvalS; - if ((3 == (3 & obj_1015X))) { - if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1015X))) + -4))))>>2))))) { - start_1016X = ((arg3_1013X)>>2); - count_1017X = ((arg2_1012X)>>2); - channel_1018X = SvalS; - v_1019X = 8 == (*((long *) (((char *) (-3 + channel_1018X))))); - if (v_1019X) { - if ((3 == (3 & arg4_1014X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1014X))) + -4))))>>2))))) { - goto L36865;} + SstackS = ((SstackS) + 4); + arg5_1015X = *((long *) (SstackS)); + if ((0 == (3 & (arg4_1014X | arg3_1013X)))) { + if ((1 == arg2_1012X)) { + goto L37514;} + else { + if ((5 == arg2_1012X)) { + goto L37514;} + else { + goto L37534;}}} + else { + goto L37534;}} + L37754: { + key_1016X = arg0K0; + SstackS = ((SstackS) + 4); + arg2_1017X = *((long *) (SstackS)); + SstackS = ((SstackS) + 4); + arg3_1018X = *((long *) (SstackS)); + SstackS = ((SstackS) + 4); + arg4_1019X = *((long *) (SstackS)); + if ((0 == (3 & (arg3_1018X | arg2_1017X)))) { + obj_1020X = SvalS; + if ((3 == (3 & obj_1020X))) { + if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1020X))) + -4))))>>2))))) { + start_1021X = ((arg3_1018X)>>2); + count_1022X = ((arg2_1017X)>>2); + channel_1023X = SvalS; + v_1024X = 8 == (*((long *) (((char *) (-3 + channel_1023X))))); + if (v_1024X) { + if ((3 == (3 & arg4_1019X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>2))))) { + goto L37065;} else { - goto L36857;}} + goto L37057;}} else { - goto L36857;}} + goto L37057;}} else { arg0K0 = 5; - goto L36748;}} + goto L36948;}} else { - goto L37596;}} + goto L37796;}} else { - goto L37596;}} + goto L37796;}} else { - 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); - *((long *) addr_1021X) = val_1020X; - addr_1022X = (((char *) (-3 + ch_868X))) + 12; - S48_WRITE_BARRIER(ch_868X, addr_1022X, 1); - *((long *) addr_1022X) = 1; - arg0K0 = (*((long *) ((((char *) (-3 + ch_868X))) + 16))); - goto L33211;} - L14785: { - i_1023X = arg0K0; - res_1024X = arg0K1; - if ((-1 == i_1023X)) { - SvalS = res_1024X; + goto L37796;}} + L34147: { + key_1025X = arg0K0; + obj_1026X = SvalS; + if ((3 == (3 & obj_1026X))) { + if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1026X))) + -4))))>>2))))) { + channel_1027X = SvalS; + if ((0 == (*((long *) (((char *) (-3 + channel_1027X))))))) { + push_exception_continuationB(5, 1); + *((long *) (SstackS)) = channel_1027X; + SstackS = ((SstackS) + -4); + arg0K0 = 1; + goto L16678;} + else { + readyP_1028X = ps_check_fd(((((*((long *) ((((char *) (-3 + channel_1027X))) + 8))))>>2)), (4 == (*((long *) (((char *) (-3 + channel_1027X)))))), &status_1029X); + if ((status_1029X == NO_ERRORS)) { + if (readyP_1028X) { + arg0K0 = 5; + goto L29269;} + else { + arg0K0 = 1; + goto L29269;}} + else { + push_exception_continuationB(25, 1); + *((long *) (SstackS)) = channel_1027X; + SstackS = ((SstackS) + -4); + merged_arg0K0 = status_1029X; + merged_arg0K1 = key_1025X; + get_error_string_return_tag = 1; + goto get_error_string; + get_error_string_return_1: + x_1030X = get_error_string0_return_value; + *((long *) (SstackS)) = x_1030X; + SstackS = ((SstackS) + -4); + arg0K0 = 2; + goto L16678;}}} + else { + goto L34155;}} + else { + goto L34155;}} + L8215: { + val_1031X = *((long *) ((((char *) (-3 + ch_873X))) + 12)); + addr_1032X = (((char *) (-3 + prev_874X))) + 12; + S48_WRITE_BARRIER(prev_874X, addr_1032X, val_1031X); + *((long *) addr_1032X) = val_1031X; + addr_1033X = (((char *) (-3 + ch_873X))) + 12; + S48_WRITE_BARRIER(ch_873X, addr_1033X, 1); + *((long *) addr_1033X) = 1; + arg0K0 = (*((long *) ((((char *) (-3 + ch_873X))) + 16))); + goto L33335;} + L14797: { + i_1034X = arg0K0; + res_1035X = arg0K1; + if ((-1 == i_1034X)) { + SvalS = res_1035X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - channel_1025X = *((Svm_channelsS) + i_1023X); - if ((3 == (3 & channel_1025X))) { - if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_1025X))) + -4))))>>2))))) { - addr_1026X = ALLOCATE_SPACE(0, 12); - *((long *) addr_1026X) = 2050; - x_1027X = 3 + (((long) (addr_1026X + 4))); - *((long *) (((char *) (-3 + x_1027X)))) = channel_1025X; - *((long *) ((((char *) (-3 + x_1027X))) + 4)) = res_1024X; - arg0K0 = x_1027X; - goto L14799;} + channel_1036X = *((Svm_channelsS) + i_1034X); + if ((3 == (3 & channel_1036X))) { + if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_1036X))) + -4))))>>2))))) { + addr_1037X = ALLOCATE_SPACE(0, 12); + *((long *) addr_1037X) = 2050; + x_1038X = 3 + (((long) (addr_1037X + 4))); + *((long *) (((char *) (-3 + x_1038X)))) = channel_1036X; + *((long *) ((((char *) (-3 + x_1038X))) + 4)) = res_1035X; + arg0K0 = x_1038X; + goto L14811;} else { - arg0K0 = res_1024X; - goto L14799;}} + arg0K0 = res_1035X; + goto L14811;}} else { - arg0K0 = res_1024X; - goto L14799;}}} - L34538: { - key_1028X = arg0K0; + arg0K0 = res_1035X; + goto L14811;}}} + L34735: { + key_1039X = arg0K0; SstackS = ((SstackS) + 4); - arg2_1029X = *((long *) (SstackS)); + arg2_1040X = *((long *) (SstackS)); SstackS = ((SstackS) + 4); - arg3_1030X = *((long *) (SstackS)); - if ((3 == (3 & arg3_1030X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_1030X))) + -4))))>>2))))) { - obj_1031X = SvalS; - if ((3 == (3 & obj_1031X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_1031X))) + -4))))>>2))))) { - comment_string_1032X = SvalS; - x_1033X = s48_image_writing_okayP(); - if (x_1033X) { - port_1034X = ps_open_output_file((((char *)(((char *) (-3 + arg3_1030X))))), &status_1035X); - if ((status_1035X == NO_ERRORS)) { - status_1036X = ps_write_string((((char *)(((char *) (-3 + comment_string_1032X))))), port_1034X); - if ((status_1036X == NO_ERRORS)) { - status_1037X = s48_write_image(arg2_1029X, port_1034X); - if ((status_1037X == NO_ERRORS)) { - status_1038X = ps_close(port_1034X); - if ((status_1038X == NO_ERRORS)) { - undumpables_1039X = s48_undumpable_records(&undumpable_count_1040X); - if ((0 == undumpable_count_1040X)) { + arg3_1041X = *((long *) (SstackS)); + if ((3 == (3 & arg3_1041X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_1041X))) + -4))))>>2))))) { + obj_1042X = SvalS; + if ((3 == (3 & obj_1042X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_1042X))) + -4))))>>2))))) { + comment_string_1043X = SvalS; + x_1044X = s48_image_writing_okayP(); + if (x_1044X) { + port_1045X = ps_open_output_file((((char *)(((char *) (-3 + arg3_1041X))))), &status_1046X); + if ((status_1046X == NO_ERRORS)) { + status_1047X = ps_write_string((((char *)(((char *) (-3 + comment_string_1043X))))), port_1045X); + if ((status_1047X == NO_ERRORS)) { + status_1048X = s48_write_image(arg2_1040X, port_1045X); + if ((status_1048X == NO_ERRORS)) { + status_1049X = ps_close(port_1045X); + if ((status_1049X == NO_ERRORS)) { + undumpables_1050X = s48_undumpable_records(&undumpable_count_1051X); + if ((0 == undumpable_count_1051X)) { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { push_exception_continuationB(26, 1); - *((long *) (SstackS)) = arg3_1030X; + *((long *) (SstackS)) = arg3_1041X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_1029X; + *((long *) (SstackS)) = arg2_1040X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = comment_string_1032X; + *((long *) (SstackS)) = comment_string_1043X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = undumpables_1039X; + *((long *) (SstackS)) = undumpables_1050X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((undumpable_count_1040X)<<2)); + *((long *) (SstackS)) = (((undumpable_count_1051X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16666;}} + goto L16678;}} else { arg0K0 = 25; - arg0K1 = status_1038X; - goto L30193;}} + arg0K1 = status_1049X; + goto L30317;}} else { - status_1041X = ps_close(port_1034X); - if ((status_1041X == NO_ERRORS)) { + status_1052X = ps_close(port_1045X); + if ((status_1052X == NO_ERRORS)) { arg0K0 = 25; - arg0K1 = status_1037X; - goto L30193;} + arg0K1 = status_1048X; + goto L30317;} else { ps_write_string("Unable to close image file", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 25; - arg0K1 = status_1037X; - goto L30193;}}} + arg0K1 = status_1048X; + goto L30317;}}} else { - status_1042X = ps_close(port_1034X); - if ((status_1042X == NO_ERRORS)) { + status_1053X = ps_close(port_1045X); + if ((status_1053X == NO_ERRORS)) { arg0K0 = 25; - arg0K1 = status_1036X; - goto L30193;} + arg0K1 = status_1047X; + goto L30317;} else { ps_write_string("Unable to close image file", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 25; - arg0K1 = status_1036X; - goto L30193;}}} + arg0K1 = status_1047X; + goto L30317;}}} else { arg0K0 = 10; - arg0K1 = status_1035X; - goto L30193;}} + arg0K1 = status_1046X; + goto L30317;}} else { push_exception_continuationB(15, 1); - *((long *) (SstackS)) = arg3_1030X; + *((long *) (SstackS)) = arg3_1041X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_1029X; + *((long *) (SstackS)) = arg2_1040X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = comment_string_1032X; + *((long *) (SstackS)) = comment_string_1043X; SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;}} + goto L16678;}} else { - goto L34570;}} + goto L34767;}} else { - goto L34570;}} + goto L34767;}} else { - goto L34570;}} + goto L34767;}} else { - goto L34570;}} - L30572: { + goto L34767;}} + L30696: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = stob_877X; + *((long *) (SstackS)) = stob_882X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = proc_878X; + *((long *) (SstackS)) = proc_883X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L34116: { - minutesP_1043X = arg2K0; + goto L16678;} + L34313: { + minutesP_1054X = arg2K0; if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { s48_Spending_eventsPS = 0; check_events_return_tag = 2; goto check_events; check_events_return_2: - temp_1044X = check_events0_return_value; - if (temp_1044X) { - goto L34142;} + temp_1055X = check_events0_return_value; + if (temp_1055X) { + goto L34339;} else { - goto L34147;}} + goto L34344;}} else { - goto L34142;}} + goto L34339;}} else { - goto L34147;}} - L22850: { + goto L34344;}} + L22862: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = proc_896X; + *((long *) (SstackS)) = proc_901X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = name_897X; + *((long *) (SstackS)) = name_902X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L33377: { - key_1045X = arg0K0; + goto L16678;} + L33501: { + key_1056X = arg0K0; SstackS = ((SstackS) + 4); - arg2_1046X = *((long *) (SstackS)); - if ((3 == (3 & arg2_1046X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1046X))) + -4))))>>2))))) { - x_1047X = SvalS; - if ((1 == x_1047X)) { - goto L33394;} + arg2_1057X = *((long *) (SstackS)); + if ((3 == (3 & arg2_1057X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1057X))) + -4))))>>2))))) { + x_1058X = SvalS; + if ((1 == x_1058X)) { + goto L33518;} else { - if ((5 == x_1047X)) { - goto L33394;} + if ((5 == x_1058X)) { + goto L33518;} else { - goto L33399;}}} + goto L33523;}}} else { - goto L33399;}} + goto L33523;}} else { - goto L33399;}} - L23947: { - table_1048X = arg0K0; - n_1049X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_686X))) + -4))))>>8)); + goto L33523;}} + L23959: { + table_1059X = arg0K0; + n_1060X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_689X))) + -4))))>>8)); arg0K0 = 0; arg0K1 = 0; - goto L12881;} - L27378: { - len_1050X = 1 + n_907X; - addr_1051X = ALLOCATE_SPACE(16, (4 + len_1050X)); - *((long *) addr_1051X) = (66 + (((len_1050X)<<8))); - string_1052X = 3 + (((long) (addr_1051X + 4))); - *((unsigned char *) ((((char *) (-3 + string_1052X))) + n_907X)) = 0; - arg0K0 = arg2_906X; - arg0K1 = (-1 + n_907X); - goto L27355;} - L27330: { - if ((25 == arg2_906X)) { - goto L27378;} + goto L12893;} + L27390: { + len_1061X = 1 + n_912X; + addr_1062X = ALLOCATE_SPACE(16, (4 + len_1061X)); + *((long *) addr_1062X) = (66 + (((len_1061X)<<8))); + string_1063X = 3 + (((long) (addr_1062X + 4))); + *((unsigned char *) ((((char *) (-3 + string_1063X))) + n_912X)) = 0; + arg0K0 = arg2_911X; + arg0K1 = (-1 + n_912X); + goto L27367;} + L27342: { + if ((25 == arg2_911X)) { + goto L27390;} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_906X; + *((long *) (SstackS)) = arg2_911X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((n_907X)<<2)); + *((long *) (SstackS)) = (((n_912X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} - L30977: { - if ((from_index_727X < 0)) { - goto L31031;} + goto L16678;}} + L31101: { + if ((from_index_730X < 0)) { + goto L31155;} else { - if ((to_index_728X < 0)) { - goto L31031;} + if ((to_index_731X < 0)) { + goto L31155;} else { - if ((count_729X < 0)) { - goto L31031;} + if ((count_732X < 0)) { + goto L31155;} 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 L30998;} + if ((3 == (3 & arg5_729X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) { + arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>8))); + goto L31122;} else { - goto L30994;}} + goto L31118;}} else { - goto L30994;}}}}} - L30972: { - if ((3 == (3 & arg5_726X))) { - if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>2))))) { - goto L30977;} + goto L31118;}}}}} + L31096: { + if ((3 == (3 & arg5_729X))) { + if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) { + goto L31101;} else { - goto L31031;}} + goto L31155;}} else { - goto L31031;}} - L31031: { + goto L31155;}} + L31155: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg5_726X; + *((long *) (SstackS)) = arg5_729X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((from_index_727X)<<2)); + *((long *) (SstackS)) = (((from_index_730X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg3_724X; + *((long *) (SstackS)) = arg3_727X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((to_index_728X)<<2)); + *((long *) (SstackS)) = (((to_index_731X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((count_729X)<<2)); + *((long *) (SstackS)) = (((count_732X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16666;} - L23106: { + goto L16678;} + L23118: { push_exception_continuationB(5, 2); - *((long *) (SstackS)) = port_913X; + *((long *) (SstackS)) = port_918X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L23086: { + goto L16678;} + L23098: { push_exception_continuationB(14, 2); - *((long *) (SstackS)) = port_913X; + *((long *) (SstackS)) = port_918X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L23326: { + goto L16678;} + L23338: { push_exception_continuationB(5, 2); - *((long *) (SstackS)) = port_921X; + *((long *) (SstackS)) = port_926X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L23306: { + goto L16678;} + L23318: { push_exception_continuationB(14, 2); - *((long *) (SstackS)) = port_921X; + *((long *) (SstackS)) = port_926X; SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16666;} - L23540: { + goto L16678;} + L23552: { push_exception_continuationB(5, 2); - *((long *) (SstackS)) = Kchar_927X; + *((long *) (SstackS)) = Kchar_932X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = port_928X; + *((long *) (SstackS)) = port_933X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L23522: { + goto L16678;} + L23534: { push_exception_continuationB(14, 2); - *((long *) (SstackS)) = Kchar_927X; + *((long *) (SstackS)) = Kchar_932X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = port_928X; + *((long *) (SstackS)) = port_933X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L29467: { - arg0K0 = (*((long *) ((((char *) (-3 + stuff_935X))) + 4))); - 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 L11693;} + goto L16678;} + L29591: { + arg0K0 = (*((long *) ((((char *) (-3 + stuff_940X))) + 4))); + goto L29585;} + L11663: { + if ((3 == (3 & thing_941X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) { + arg3K0 = (((char *)(((char *) (-3 + thing_941X))))); + goto L11705;} else { - goto L11659;}} + goto L11671;}} else { - goto L11659;}} - L29452: { + goto L11671;}} + L29576: { { long ignoreXX; - PS_WRITE_CHAR(10, out_738X, ignoreXX) } + PS_WRITE_CHAR(10, out_741X, ignoreXX) } SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L16742: { + goto L18451;} + L16754: { StemplateS = (SvalS); - Slosing_opcodeS = opcode_740X; - arg0K0 = (2 + nargs_739X); - goto L16067;} - L16812: { + Slosing_opcodeS = opcode_743X; + arg0K0 = (2 + nargs_742X); + goto L16079;} + L16824: { merged_arg3K0 = "exception handler is not a closure"; loseD0_return_tag = 1; goto loseD0; loseD0_return_1: - goto L16742;} - L20967: { - key_1053X = arg0K0; - p_1054X = SenvS; - if ((3 == (3 & p_1054X))) { - if ((p_1054X < (((long) (Sstack_beginS))))) { - goto L21062;} + goto L16754;} + L20979: { + key_1064X = arg0K0; + p_1065X = SenvS; + if ((3 == (3 & p_1065X))) { + if ((p_1065X < (((long) (Sstack_beginS))))) { + goto L21074;} else { - if (((((long) (Sstack_endS))) < p_1054X)) { - goto L21062;} + if (((((long) (Sstack_endS))) < p_1065X)) { + goto L21074;} else { merged_arg0K0 = (SenvS); merged_arg0K1 = (ScontS); - merged_arg0K2 = key_1053X; + merged_arg0K2 = key_1064X; merged_arg0K3 = 0; save_env_in_heap_return_tag = 0; goto save_env_in_heap; save_env_in_heap_return_0: - v_1055X = save_env_in_heap0_return_value; - SenvS = v_1055X; - goto L21062;}}} + v_1066X = save_env_in_heap0_return_value; + SenvS = v_1066X; + goto L21074;}}} else { - 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); - *((long *) addr_1058X) = 2062; - x_1059X = 3 + (((long) (addr_1058X + 4))); - *((long *) (((char *) (-3 + x_1059X)))) = a_1057X; - *((long *) ((((char *) (-3 + x_1059X))) + 4)) = env_1056X; - if ((3 == (3 & x_1059X))) { - 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 L20986;} + goto L21074;}} + L20990: { + env_1067X = arg0K0; + a_1068X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))); + addr_1069X = ALLOCATE_SPACE(3, 12); + *((long *) addr_1069X) = 2062; + x_1070X = 3 + (((long) (addr_1069X + 4))); + *((long *) (((char *) (-3 + x_1070X)))) = a_1068X; + *((long *) ((((char *) (-3 + x_1070X))) + 4)) = env_1067X; + if ((3 == (3 & x_1070X))) { + if ((0 == (128 & (*((long *) ((((char *) (-3 + x_1070X))) + -4)))))) { + *((long *) ((((char *) (-3 + x_1070X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_1070X))) + -4)))); + arg0K0 = x_1070X; + goto L20998;} else { - arg0K0 = x_1059X; - goto L20986;}} + arg0K0 = x_1070X; + goto L20998;}} else { - arg0K0 = x_1059X; - goto L20986;}} - L20789: { - i_1060X = arg0K0; - offset_1061X = arg0K1; - env_1062X = arg0K2; - if ((i_1060X == total_count_393X)) { - SvalS = new_env_762X; - Scode_pointerS = ((Scode_pointerS) + (1 + offset_1061X)); + arg0K0 = x_1070X; + goto L20998;}} + L20801: { + i_1071X = arg0K0; + offset_1072X = arg0K1; + env_1073X = arg0K2; + if ((i_1071X == total_count_393X)) { + SvalS = new_env_765X; + Scode_pointerS = ((Scode_pointerS) + (1 + offset_1072X)); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - back_1063X = *((unsigned char *) ((Scode_pointerS) + (1 + offset_1061X))); - arg0K0 = env_1062X; - arg0K1 = back_1063X; - goto L20885;}} - L20685: { - value_1064X = arg0K0; - SvalS = value_1064X; + back_1074X = *((unsigned char *) ((Scode_pointerS) + (1 + offset_1072X))); + arg0K0 = env_1073X; + arg0K1 = back_1074X; + goto L20897;}} + L20697: { + value_1075X = arg0K0; + SvalS = value_1075X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L17000: { - i_1065X = arg0K0; - m_1066X = arg0K1; - if ((0 == (n_950X & m_1066X))) { - arg0K0 = (1 + i_1065X); - arg0K1 = (((m_1066X)<<1)); - goto L17000;} + goto L18451;} + L17012: { + i_1076X = arg0K0; + m_1077X = arg0K1; + if ((0 == (n_955X & m_1077X))) { + arg0K0 = (1 + i_1076X); + arg0K1 = (((m_1077X)<<1)); + goto L17012;} else { - Spending_interruptsS = ((Spending_interruptsS) & (~ m_1066X)); - if ((i_1065X == 0)) { + Spending_interruptsS = ((Spending_interruptsS) & (~ m_1077X)); + if ((i_1076X == 0)) { *((long *) (SstackS)) = (Sinterrupted_templateS); SstackS = ((SstackS) + -4); Sinterrupted_templateS = 1; *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16919;} + goto L16931;} else { - if ((i_1065X == 2)) { + if ((i_1076X == 2)) { *((long *) (SstackS)) = (Sfinalize_theseS); SstackS = ((SstackS) + -4); Sfinalize_theseS = 25; *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16919;} + goto L16931;} else { - if ((i_1065X == 3)) { - channel_1067X = Spending_channels_headS; - next_1068X = *((long *) ((((char *) (-3 + channel_1067X))) + 12)); - Spending_channels_headS = next_1068X; - addr_1069X = (((char *) (-3 + channel_1067X))) + 12; - S48_WRITE_BARRIER(channel_1067X, addr_1069X, 1); - *((long *) addr_1069X) = 1; - if ((1 == next_1068X)) { + if ((i_1076X == 3)) { + channel_1078X = Spending_channels_headS; + next_1079X = *((long *) ((((char *) (-3 + channel_1078X))) + 12)); + Spending_channels_headS = next_1079X; + addr_1080X = (((char *) (-3 + channel_1078X))) + 12; + S48_WRITE_BARRIER(channel_1078X, addr_1080X, 1); + *((long *) addr_1080X) = 1; + if ((1 == next_1079X)) { Spending_channels_tailS = 1; - arg0K0 = channel_1067X; - goto L8365;} + arg0K0 = channel_1078X; + goto L8376;} else { - arg0K0 = channel_1067X; - goto L8365;}} + arg0K0 = channel_1078X; + goto L8376;}} else { - if ((i_1065X == 4)) { + if ((i_1076X == 4)) { *((long *) (SstackS)) = (Sos_signal_typeS); SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (Sos_signal_argumentS); @@ -8340,352 +8420,308 @@ long s48_restart(long proc_345X, long nargs_346X) *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16919;} + goto L16931;} else { *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 1; - goto L16919;}}}}}} - L16085: { - skip_1070X = arg0K0; - stack_arg_count_1071X = arg0K1; - template_1072X = *((long *) (((char *) (-3 + (SvalS))))); - StemplateS = template_1072X; - Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_1072X)))))))) + skip_1070X); + goto L16931;}}}}}} + L16097: { + skip_1081X = arg0K0; + stack_arg_count_1082X = arg0K1; + template_1083X = *((long *) (((char *) (-3 + (SvalS))))); + StemplateS = template_1083X; + Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_1083X)))))))) + skip_1081X); SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4))); - arg0K0 = stack_space_952X; - arg0K1 = stack_arg_count_1071X; - goto L15975;} - L16108: { - skip_1073X = arg0K0; + arg0K0 = stack_space_957X; + arg0K1 = stack_arg_count_1082X; + goto L15987;} + L16120: { + skip_1084X = arg0K0; *((long *) (SstackS)) = 25; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((stack_arg_count_771X)<<2)); + *((long *) (SstackS)) = (((stack_arg_count_774X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((stack_arg_count_771X)<<2)); + *((long *) (SstackS)) = (((stack_arg_count_774X)<<2)); SstackS = ((SstackS) + -4); - arg0K0 = skip_1073X; - arg0K1 = (3 + stack_arg_count_771X); - goto L16085;} - L16362: { - skip_1074X = arg0K0; - stack_arg_count_1075X = arg0K1; - template_1076X = *((long *) (((char *) (-3 + (SvalS))))); - StemplateS = template_1076X; - Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_1076X)))))))) + skip_1074X); + arg0K0 = skip_1084X; + arg0K1 = (3 + stack_arg_count_774X); + goto L16097;} + L16374: { + skip_1085X = arg0K0; + stack_arg_count_1086X = arg0K1; + template_1087X = *((long *) (((char *) (-3 + (SvalS))))); + StemplateS = template_1087X; + Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_1087X)))))))) + skip_1085X); SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4))); - arg0K0 = stack_space_959X; - arg0K1 = stack_arg_count_1075X; - goto L15975;} - L16387: { - skip_1077X = arg0K0; - if ((total_arg_count_790X < 3)) { - arg0K0 = total_arg_count_790X; - goto L16395;} + arg0K0 = stack_space_964X; + arg0K1 = stack_arg_count_1086X; + goto L15987;} + L16399: { + skip_1088X = arg0K0; + if ((total_arg_count_793X < 3)) { + arg0K0 = total_arg_count_793X; + goto L16407;} else { - if ((2 < stack_arg_count_784X)) { - arg0K0 = stack_arg_count_784X; - goto L16395;} + if ((2 < stack_arg_count_787X)) { + arg0K0 = stack_arg_count_787X; + goto L16407;} else { arg0K0 = 2; - goto L16395;}}} - L19283: { - SvalS = (*((long *) ((((char *) (-3 + cont_965X))) + 16))); - arg0K0 = stack_nargs_801X; - arg0K1 = list_args_802X; - arg0K2 = list_arg_count_803X; - goto L17667;} - L20445: { - merged_arg0K0 = list_args_802X; - merged_arg0K1 = stack_nargs_801X; + goto L16407;}}} + L19295: { + SvalS = (*((long *) ((((char *) (-3 + cont_970X))) + 16))); + arg0K0 = stack_nargs_804X; + arg0K1 = list_args_805X; + arg0K2 = list_arg_count_806X; + goto L17679;} + L20457: { + merged_arg0K0 = list_args_805X; + merged_arg0K1 = stack_nargs_804X; pop_args_GlistS_return_tag = 4; goto pop_args_GlistS; pop_args_GlistS_return_4: - args_1078X = pop_args_GlistS0_return_value; + args_1089X = pop_args_GlistS0_return_value; push_exception_continuationB(4, 0); *((long *) (SstackS)) = 1; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = args_1078X; + *((long *) (SstackS)) = args_1089X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} - L10635: { + goto L16678;} + L10646: { if ((3 == (3 & x_456X))) { if ((10 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) { arg0K0 = 5; - goto L38047;} + goto L38248;} else { arg0K0 = 1; - goto L38047;}} + goto L38248;}} else { arg0K0 = 1; - goto L38047;}} - L28558: { + goto L38248;}} + L28570: { 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 L16666;} + goto L16678;} else { - goto L28562;}} + goto L28574;}} else { - goto L28562;}} - L28757: { + goto L28574;}} + L28769: { 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 L16666;} + goto L16678;} else { - goto L28761;}} + goto L28773;}} else { - goto L28761;}} - L28956: { + goto L28773;}} + L28968: { 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 L16666;} + goto L16678;} else { - goto L28960;}} + goto L28972;}} else { - goto L28960;}} - L6822: { - if ((536870911 < lo_c_976X)) { + goto L28972;}} + L6833: { + if ((536870911 < lo_c_981X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - if ((lo_c_976X < 0)) { + if ((lo_c_981X < 0)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - if ((8192 < mid_c_979X)) { + if ((8192 < mid_c_984X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { if ((a_469X < 0)) { if ((b_470X < 0)) { - goto L6849;} + goto L6860;} else { - goto L6856;}} + goto L6867;}} else { if ((b_470X < 0)) { - goto L6856;} + goto L6867;} else { - goto L6849;}}}}}} - L7116: { - if ((536870911 < c_982X)) { + goto L6860;}}}}}} + L7127: { + if ((536870911 < c_987X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_474X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_475X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - SvalS = (((c_982X)<<2)); + SvalS = (((c_987X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L7115: { - SvalS = ((((0 - c_982X))<<2)); + goto L18451;}} + L7126: { + SvalS = ((((0 - c_987X))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L7284: { - if ((536870911 < c_985X)) { + goto L18451;} + L7295: { + if ((536870911 < c_990X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_488X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_489X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - SvalS = (((c_985X)<<2)); + SvalS = (((c_990X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L7283: { - SvalS = ((((0 - c_985X))<<2)); + goto L18451;}} + L7294: { + SvalS = ((((0 - c_990X))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L25353: { - n_1079X = arg0K0; - SvalS = (((n_1079X)<<2)); + goto L18451;} + L25365: { + n_1090X = arg0K0; + SvalS = (((n_1090X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L21524: { - i_1080X = arg0K0; - rest_list_1081X = arg0K1; - if ((25 == rest_list_1081X)) { - SvalS = new_838X; + goto L18451;} + L21536: { + i_1091X = arg0K0; + rest_list_1092X = arg0K1; + if ((25 == rest_list_1092X)) { + SvalS = new_841X; Scode_pointerS = ((Scode_pointerS) + 2); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} 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 L21524;}} - L13302: { - foo_1082X = arg0K0; - if ((1 == foo_1082X)) { - addr_1083X = ALLOCATE_SPACE(1, 12); - *((long *) addr_1083X) = 2054; - x_1084X = 3 + (((long) (addr_1083X + 4))); - *((long *) (((char *) (-3 + x_1084X)))) = string_853X; - *((long *) ((((char *) (-3 + x_1084X))) + 4)) = bucket_997X; - addr_1085X = (((char *) (-3 + table_852X))) + (((index_996X)<<2)); - S48_WRITE_BARRIER(table_852X, addr_1085X, x_1084X); - *((long *) addr_1085X) = x_1084X; - arg0K0 = x_1084X; - goto L24538;} + *((long *) ((((char *) (-3 + new_841X))) + (((i_1091X)<<2)))) = (*((long *) (((char *) (-3 + rest_list_1092X))))); + arg0K0 = (1 + i_1091X); + arg0K1 = (*((long *) ((((char *) (-3 + rest_list_1092X))) + 4))); + goto L21536;}} + L13314: { + foo_1093X = arg0K0; + if ((1 == foo_1093X)) { + addr_1094X = ALLOCATE_SPACE(1, 12); + *((long *) addr_1094X) = 2054; + x_1095X = 3 + (((long) (addr_1094X + 4))); + *((long *) (((char *) (-3 + x_1095X)))) = string_856X; + *((long *) ((((char *) (-3 + x_1095X))) + 4)) = bucket_1002X; + addr_1096X = (((char *) (-3 + table_855X))) + (((index_1001X)<<2)); + S48_WRITE_BARRIER(table_855X, addr_1096X, x_1095X); + *((long *) addr_1096X) = x_1095X; + arg0K0 = x_1095X; + goto L24550;} 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 L24538;} + s2_1097X = *((long *) (((char *) (-3 + foo_1093X)))); + len_1098X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + string_856X))) + -4))))>>8); + if ((len_1098X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1097X))) + -4))))>>8)))) { + if (((!memcmp((void *)(((char *) (-3 + s2_1097X))), (void *)(((char *) (-3 + string_856X))),len_1098X)))) { + arg0K0 = foo_1093X; + goto L24550;} else { - goto L13318;}} + goto L13330;}} else { - goto L13318;}}} - L26782: { - if ((0 == (3 & arg2_999X))) { - if (((((arg2_999X)>>2)) < 0)) { + goto L13330;}}} + L26794: { + if ((0 == (3 & arg2_1004X))) { + if (((((arg2_1004X)>>2)) < 0)) { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_999X; + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - arg0K0 = (((arg2_999X)>>2)); - goto L26602;}} + arg0K0 = (((arg2_1004X)>>2)); + goto L26614;}} else { - if ((3 == (3 & arg2_999X))) { - if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_999X))) + -4))))>>2))))) { - if ((1 == mode_1000X)) { - goto L26660;} + if ((3 == (3 & arg2_1004X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1004X))) + -4))))>>2))))) { + if ((1 == mode_1005X)) { + goto L26672;} else { - if ((3 == mode_1000X)) { - goto L26660;} + if ((3 == mode_1005X)) { + goto L26672;} else { - v_1088X = ps_open_fd((((char *)(((char *) (-3 + arg2_999X))))), 0, &v_1089X); - arg0K0 = v_1088X; - arg0K1 = v_1089X; - goto L26673;}}} + v_1099X = ps_open_fd((((char *)(((char *) (-3 + arg2_1004X))))), 0, &v_1100X); + arg0K0 = v_1099X; + arg0K1 = v_1100X; + goto L26685;}}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_999X; + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} else { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_999X; + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}}} - L34473: { + goto L16678;}}} + L34670: { push_exception_continuationB(5, 1); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 1; - 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)) { + goto L16678;} + L37514: { + obj_1101X = SvalS; + if ((3 == (3 & obj_1101X))) { + if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1101X))) + -4))))>>2))))) { + x_1102X = SvalS; + if ((1 == arg2_1012X)) { arg2K0 = 0; - goto L37331;} + goto L37531;} else { arg2K0 = 1; - goto L37331;}} + goto L37531;}} else { - goto L37334;}} + goto L37534;}} else { - goto L37334;}} - L37334: { + goto L37534;}} + L37534: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg5_1010X; + *((long *) (SstackS)) = arg5_1015X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg4_1009X; - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg3_1008X; - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_1007X; - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (SvalS); - SstackS = ((SstackS) + -4); - arg0K0 = 5; - 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 L36877;} - else { - goto L36873;}} - else { - goto L36873;}} - L36857: { - if ((3 == (3 & arg4_1014X))) { - if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1014X))) + -4))))>>2))))) { - goto L36865;} - else { - arg0K0 = 5; - goto L36748;}} - else { - arg0K0 = 5; - goto L36748;}} - L36748: { - reason_1092X = arg0K0; - push_exception_continuationB(reason_1092X, 1); - *((long *) (SstackS)) = arg4_1014X; - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((start_1016X)<<2)); - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((count_1017X)<<2)); - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = channel_1018X; - SstackS = ((SstackS) + -4); - arg0K0 = 4; - goto L16666;} - L37596: { - push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg4_1014X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = arg3_1013X; @@ -8694,806 +8730,862 @@ long s48_restart(long proc_345X, long nargs_346X) SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); - arg0K0 = 4; - goto L16666;} - L14799: { - v_1093X = arg0K0; - arg0K0 = (-1 + i_1023X); - arg0K1 = v_1093X; - goto L14785;} - L30193: { - reason_1094X = arg0K0; - status_1095X = arg0K1; - push_exception_continuationB(reason_1094X, 1); - *((long *) (SstackS)) = arg3_1030X; + arg0K0 = 5; + goto L16678;} + L37065: { + if ((3 == (3 & arg4_1019X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>2))))) { + arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>8))); + goto L37077;} + else { + goto L37073;}} + else { + goto L37073;}} + L37057: { + if ((3 == (3 & arg4_1019X))) { + if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>2))))) { + goto L37065;} + else { + arg0K0 = 5; + goto L36948;}} + else { + arg0K0 = 5; + goto L36948;}} + L36948: { + reason_1103X = arg0K0; + push_exception_continuationB(reason_1103X, 1); + *((long *) (SstackS)) = arg4_1019X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_1029X; + *((long *) (SstackS)) = (((start_1021X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = comment_string_1032X; + *((long *) (SstackS)) = (((count_1022X)<<2)); SstackS = ((SstackS) + -4); - merged_arg0K0 = status_1095X; - merged_arg0K1 = key_1028X; - get_error_string_return_tag = 1; - goto get_error_string; - get_error_string_return_1: - x_1096X = get_error_string0_return_value; - *((long *) (SstackS)) = x_1096X; + *((long *) (SstackS)) = channel_1023X; SstackS = ((SstackS) + -4); arg0K0 = 4; - goto L16666;} - L34570: { + goto L16678;} + L37796: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg3_1030X; + *((long *) (SstackS)) = arg4_1019X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = arg2_1029X; + *((long *) (SstackS)) = arg3_1018X; + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = arg2_1017X; + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = (SvalS); + SstackS = ((SstackS) + -4); + arg0K0 = 4; + goto L16678;} + L29269: { + val_1104X = arg0K0; + SvalS = val_1104X; + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;} + L34155: { + push_exception_continuationB(5, 1); + *((long *) (SstackS)) = (SvalS); + SstackS = ((SstackS) + -4); + arg0K0 = 1; + goto L16678;} + L14811: { + v_1105X = arg0K0; + arg0K0 = (-1 + i_1034X); + arg0K1 = v_1105X; + goto L14797;} + L30317: { + reason_1106X = arg0K0; + status_1107X = arg0K1; + push_exception_continuationB(reason_1106X, 1); + *((long *) (SstackS)) = arg3_1041X; + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = arg2_1040X; + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = comment_string_1043X; + SstackS = ((SstackS) + -4); + merged_arg0K0 = status_1107X; + merged_arg0K1 = key_1039X; + get_error_string_return_tag = 2; + goto get_error_string; + get_error_string_return_2: + x_1108X = get_error_string0_return_value; + *((long *) (SstackS)) = x_1108X; + SstackS = ((SstackS) + -4); + arg0K0 = 4; + goto L16678;} + L34767: { + push_exception_continuationB(5, 1); + *((long *) (SstackS)) = arg3_1041X; + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = arg2_1040X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16666;} - L34142: { + goto L16678;} + L34339: { SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L34147: { + goto L18451;} + L34344: { if ((0 == (Spending_interruptsS))) { - s48_wait_for_event((((arg2_678X)>>2)), minutesP_1043X); - goto L34142;} + s48_wait_for_event((((arg2_681X)>>2)), minutesP_1054X); + goto L34339;} else { - goto L34142;}} - L33394: { + goto L34339;}} + L33518: { if ((1 == (SvalS))) { - v_1097X = Hlookup2102((Sexported_bindingsS), arg2_1046X, key_1045X); - arg0K0 = v_1097X; - goto L33451;} + v_1109X = Hlookup2112((Sexported_bindingsS), arg2_1057X, key_1056X); + arg0K0 = v_1109X; + goto L33575;} else { - v_1098X = Hlookup2083((Simported_bindingsS), arg2_1046X, key_1045X); - arg0K0 = v_1098X; - goto L33451;}} - L33399: { + v_1110X = Hlookup2093((Simported_bindingsS), arg2_1057X, key_1056X); + arg0K0 = v_1110X; + goto L33575;}} + L33523: { push_exception_continuationB(5, 1); - *((long *) (SstackS)) = arg2_1046X; + *((long *) (SstackS)) = arg2_1057X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = (SvalS); SstackS = ((SstackS) + -4); arg0K0 = 2; - 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 L12881;} + goto L16678;} + L12893: { + i_1111X = arg0K0; + h_1112X = arg0K1; + if ((i_1111X < n_1060X)) { + arg0K0 = (1 + i_1111X); + arg0K1 = (h_1112X + (((*((unsigned char *) ((((char *) (-3 + arg2_689X))) + i_1111X)))))); + goto L12893;} else { - index_1101X = 1023 & h_1100X; - bucket_1102X = *((long *) ((((char *) (-3 + table_1048X))) + (((index_1101X)<<2)))); + index_1113X = 1023 & h_1112X; + bucket_1114X = *((long *) ((((char *) (-3 + table_1059X))) + (((index_1113X)<<2)))); arg0K0 = 1; - arg0K1 = bucket_1102X; - goto L12845;}} - L27355: { - l_1103X = arg0K0; - i_1104X = arg0K1; - if ((i_1104X < 0)) { - SvalS = string_1052X; + arg0K1 = bucket_1114X; + goto L12857;}} + L27367: { + l_1115X = arg0K0; + i_1116X = arg0K1; + if ((i_1116X < 0)) { + SvalS = string_1063X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} 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 L27355;}} - L30998: { - y_1105X = arg0K0; - if ((y_1105X < (from_index_727X + count_729X))) { - goto L31031;} + *((unsigned char *) ((((char *) (-3 + string_1063X))) + i_1116X)) = ((((((*((long *) (((char *) (-3 + l_1115X))))))>>8)))); + arg0K0 = (*((long *) ((((char *) (-3 + l_1115X))) + 4))); + arg0K1 = (-1 + i_1116X); + goto L27367;}} + L31122: { + y_1117X = arg0K0; + if ((y_1117X < (from_index_730X + count_732X))) { + goto L31155;} 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 L31013;} + if ((3 == (3 & arg3_727X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_727X))) + -4))))>>2))))) { + arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_727X))) + -4))))>>8))); + goto L31137;} else { - goto L31009;}} + goto L31133;}} else { - goto L31009;}}} - L30994: { - arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_726X))) + -4))))>>8)); - goto L30998;} - L11693: { - v_1106X = arg3K0; - ps_write_string(v_1106X, out_738X); - 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 L11693;} + goto L31133;}}} + L31118: { + arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>8)); + goto L31122;} + L11705: { + v_1118X = arg3K0; + ps_write_string(v_1118X, out_741X); + goto L29591;} + L11671: { + if ((3 == (3 & thing_941X))) { + if ((1 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) { + arg3K0 = (((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + thing_941X)))))))))); + goto L11705;} else { - goto L11667;}} + goto L11679;}} else { - goto L11667;}} - L21062: { + goto L11679;}} + L21074: { arg0K0 = (SenvS); - goto L20972;} - L20986: { - value_1107X = arg0K0; - SvalS = value_1107X; + goto L20984;} + L20998: { + value_1119X = arg0K0; + SvalS = value_1119X; Scode_pointerS = ((Scode_pointerS) + 4); arg1K0 = (Scode_pointerS); - goto L18439;} - L20885: { - env_1108X = arg0K0; - i_1109X = arg0K1; - if ((0 == i_1109X)) { - count_1110X = *((unsigned char *) ((Scode_pointerS) + (2 + offset_1061X))); - arg0K0 = count_1110X; - arg0K1 = i_1060X; - arg0K2 = (2 + offset_1061X); - goto L20806;} + goto L18451;} + L20897: { + env_1120X = arg0K0; + i_1121X = arg0K1; + if ((0 == i_1121X)) { + count_1122X = *((unsigned char *) ((Scode_pointerS) + (2 + offset_1072X))); + arg0K0 = count_1122X; + arg0K1 = i_1071X; + arg0K2 = (2 + offset_1072X); + goto L20818;} else { - arg0K0 = (*((long *) (((char *) (-3 + env_1108X))))); - arg0K1 = (-1 + i_1109X); - 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 L16933;} + arg0K0 = (*((long *) (((char *) (-3 + env_1120X))))); + arg0K1 = (-1 + i_1121X); + goto L20897;}} + L16931: { + arg_count_1123X = arg0K0; + obj_1124X = Sinterrupt_handlersS; + if ((3 == (3 & obj_1124X))) { + if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_1124X))) + -4))))>>2))))) { + goto L16945;} else { - goto L17013;}} + goto L17025;}} else { - goto L17013;}} - L8365: { - channel_1113X = arg0K0; - x_1114X = 1 == (Spending_channels_headS); - if (x_1114X) { - goto L8379;} + goto L17025;}} + L8376: { + channel_1125X = arg0K0; + x_1126X = 1 == (Spending_channels_headS); + if (x_1126X) { + goto L8390;} 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 L8379;} + goto L8390;} else { - goto L8379;}} + goto L8390;}} else { s48_Spending_interruptPS = 1; - goto L8379;}}} - L15975: { - stack_slots_1115X = arg0K0; - stack_arg_count_1116X = arg0K1; - if ((stack_slots_1115X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { - goto L15977;} + goto L8390;}}} + L15987: { + stack_slots_1127X = arg0K0; + stack_arg_count_1128X = arg0K1; + if ((stack_slots_1127X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { + goto L15989;} else { - space_1117X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); - v_1118X = AVAILABLEp(space_1117X); - if (v_1118X) { + space_1129X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); + v_1130X = AVAILABLEp(space_1129X); + if (v_1130X) { arg2K0 = 1; arg0K1 = 0; - goto L16034;} + goto L16046;} else { - collect_saving_temps(1, 1, &temp1_1119X); - v_1120X = AVAILABLEp(space_1117X); - if (v_1120X) { + collect_saving_temps(1, 1, &temp1_1131X); + v_1132X = AVAILABLEp(space_1129X); + if (v_1132X) { arg2K0 = 1; arg0K1 = 0; - goto L16034;} + goto L16046;} else { arg2K0 = 0; arg0K1 = 0; - 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 L16399;} + goto L16046;}}}} + L16407: { + final_stack_arg_count_1133X = arg0K0; + if ((stack_arg_count_787X < final_stack_arg_count_1133X)) { + arg0K0 = final_stack_arg_count_1133X; + goto L16411;} else { - arg0K0 = stack_arg_count_784X; - goto L16399;}} - L28562: { + arg0K0 = stack_arg_count_787X; + goto L16411;}} + L28574: { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28761: { + goto L18451;} + L28773: { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L28960: { + goto L18451;} + L28972: { SvalS = 1; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L6849: { - if ((536870911 < c_980X)) { + goto L18451;} + L6860: { + if ((536870911 < c_985X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - SvalS = (((c_980X)<<2)); + SvalS = (((c_985X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L6856: { - if ((536870912 < c_980X)) { + goto L18451;}} + L6867: { + if ((536870912 < c_985X)) { push_exception_continuationB(5, 1); *((long *) (SstackS)) = arg2_467X; SstackS = ((SstackS) + -4); *((long *) (SstackS)) = x_468X; SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - SvalS = ((((0 - c_980X))<<2)); + SvalS = ((((0 - c_985X))<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L24538: { - val_1122X = arg0K0; - SvalS = val_1122X; + goto L18451;}} + L24550: { + val_1134X = arg0K0; + SvalS = val_1134X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L13318: { - arg0K0 = (*((long *) ((((char *) (-3 + foo_1082X))) + 4))); - 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 L26717;} + goto L18451;} + L13330: { + arg0K0 = (*((long *) ((((char *) (-3 + foo_1093X))) + 4))); + goto L13314;} + L26614: { + index_1135X = arg0K0; + channel_1136X = make_registered_channel(mode_1005X, arg2_1004X, index_1135X, key_1003X, &reason_1137X); + if ((1 == channel_1136X)) { + if ((3 == (3 & arg2_1004X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1004X))) + -4))))>>2))))) { + if ((1 == mode_1005X)) { + goto L26729;} else { - if ((3 == mode_1000X)) { - goto L26717;} + if ((3 == mode_1005X)) { + goto L26729;} else { - v_1126X = ps_close_fd(index_1123X); - arg0K0 = v_1126X; - goto L26712;}}} + v_1138X = ps_close_fd(index_1135X); + arg0K0 = v_1138X; + goto L26724;}}} else { - push_exception_continuationB(reason_1125X, 1); - *((long *) (SstackS)) = arg2_999X; + push_exception_continuationB(reason_1137X, 1); + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} else { - push_exception_continuationB(reason_1125X, 1); - *((long *) (SstackS)) = arg2_999X; + push_exception_continuationB(reason_1137X, 1); + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;}} + goto L16678;}} else { - SvalS = channel_1124X; + SvalS = channel_1136X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L26660: { - v_1127X = ps_open_fd((((char *)(((char *) (-3 + arg2_999X))))), 1, &v_1128X); - arg0K0 = v_1127X; - arg0K1 = v_1128X; - goto L26673;} - L26673: { - channel_1129X = arg0K0; - status_1130X = arg0K1; - if ((status_1130X == NO_ERRORS)) { - arg0K0 = channel_1129X; - goto L26602;} + goto L18451;}} + L26672: { + v_1139X = ps_open_fd((((char *)(((char *) (-3 + arg2_1004X))))), 1, &v_1140X); + arg0K0 = v_1139X; + arg0K1 = v_1140X; + goto L26685;} + L26685: { + channel_1141X = arg0K0; + status_1142X = arg0K1; + if ((status_1142X == NO_ERRORS)) { + arg0K0 = channel_1141X; + goto L26614;} else { - if ((status_1130X == ENOENT)) { + if ((status_1142X == ENOENT)) { push_exception_continuationB(10, 1); - *((long *) (SstackS)) = arg2_999X; + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { push_exception_continuationB(25, 1); - *((long *) (SstackS)) = arg2_999X; + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); - merged_arg0K0 = status_1130X; - merged_arg0K1 = key_998X; - get_error_string_return_tag = 2; - goto get_error_string; - get_error_string_return_2: - x_1131X = get_error_string0_return_value; - *((long *) (SstackS)) = x_1131X; - SstackS = ((SstackS) + -4); - arg0K0 = 3; - goto L16666;}}} - L37331: { - waitP_1132X = arg2K0; - start_1133X = ((arg4_1009X)>>2); - count_1134X = ((arg3_1008X)>>2); - if ((4 == (*((long *) (((char *) (-3 + x_1091X))))))) { - if ((3 == (3 & arg5_1010X))) { - 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 L36467;} - else { - goto L36459;}} - else { - goto L36459;}} - else { - arg0K0 = 5; - goto L36350;}} - else { - arg0K0 = 5; - goto L36350;}} - else { - arg0K0 = 5; - goto L36350;}} - L36877: { - length_1135X = arg0K0; - if ((length_1135X < (start_1016X + count_1017X))) { - arg0K0 = 7; - 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)) { - if (pendingP_1137X) { - addr_1139X = (((char *) (-3 + channel_1018X))) + 16; - S48_WRITE_BARRIER(channel_1018X, addr_1139X, 5); - *((long *) addr_1139X) = 5; - s48_Spending_interruptPS = 0; - Senabled_interruptsS = 0; - arg0K0 = 13; - goto L36748;} - else { - SvalS = (((got_1136X)<<2)); - Scode_pointerS = ((Scode_pointerS) + 1); - arg1K0 = (Scode_pointerS); - goto L18439;}} - else { - push_exception_continuationB(25, 1); - *((long *) (SstackS)) = arg4_1014X; - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((start_1016X)<<2)); - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((count_1017X)<<2)); - SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = channel_1018X; - SstackS = ((SstackS) + -4); - merged_arg0K0 = status_1138X; - merged_arg0K1 = key_1011X; + merged_arg0K0 = status_1142X; + merged_arg0K1 = key_1003X; get_error_string_return_tag = 3; goto get_error_string; get_error_string_return_3: - x_1140X = get_error_string0_return_value; - *((long *) (SstackS)) = x_1140X; + x_1143X = get_error_string0_return_value; + *((long *) (SstackS)) = x_1143X; + SstackS = ((SstackS) + -4); + arg0K0 = 3; + goto L16678;}}} + L37531: { + waitP_1144X = arg2K0; + start_1145X = ((arg4_1014X)>>2); + count_1146X = ((arg3_1013X)>>2); + if ((4 == (*((long *) (((char *) (-3 + x_1102X))))))) { + if ((3 == (3 & arg5_1015X))) { + if ((0 == (128 & (*((long *) ((((char *) (-3 + arg5_1015X))) + -4)))))) { + if ((3 == (3 & arg5_1015X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>2))))) { + goto L36667;} + else { + goto L36659;}} + else { + goto L36659;}} + else { + arg0K0 = 5; + goto L36550;}} + else { + arg0K0 = 5; + goto L36550;}} + else { + arg0K0 = 5; + goto L36550;}} + L37077: { + length_1147X = arg0K0; + if ((length_1147X < (start_1021X + count_1022X))) { + arg0K0 = 7; + goto L36948;} + else { + got_1148X = ps_write_fd(((((*((long *) ((((char *) (-3 + channel_1023X))) + 8))))>>2)), ((((char *) (-3 + arg4_1019X))) + start_1021X), count_1022X, &pendingP_1149X, &status_1150X); + if ((status_1150X == NO_ERRORS)) { + if (pendingP_1149X) { + addr_1151X = (((char *) (-3 + channel_1023X))) + 16; + S48_WRITE_BARRIER(channel_1023X, addr_1151X, 5); + *((long *) addr_1151X) = 5; + s48_Spending_interruptPS = 0; + Senabled_interruptsS = 0; + arg0K0 = 13; + goto L36948;} + else { + SvalS = (((got_1148X)<<2)); + Scode_pointerS = ((Scode_pointerS) + 1); + arg1K0 = (Scode_pointerS); + goto L18451;}} + else { + push_exception_continuationB(25, 1); + *((long *) (SstackS)) = arg4_1019X; + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = (((start_1021X)<<2)); + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = (((count_1022X)<<2)); + SstackS = ((SstackS) + -4); + *((long *) (SstackS)) = channel_1023X; + SstackS = ((SstackS) + -4); + merged_arg0K0 = status_1150X; + merged_arg0K1 = key_1016X; + get_error_string_return_tag = 4; + goto get_error_string; + get_error_string_return_4: + x_1152X = get_error_string0_return_value; + *((long *) (SstackS)) = x_1152X; SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16666;}}} - L36873: { - arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1014X))) + -4))))>>8)); - goto L36877;} - L33451: { - val_1141X = arg0K0; - SvalS = val_1141X; + goto L16678;}}} + L37073: { + arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>8)); + goto L37077;} + L33575: { + val_1153X = arg0K0; + SvalS = val_1153X; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L12845: { - previous_foo_1142X = arg0K0; - foo_1143X = arg0K1; - if ((1 == foo_1143X)) { - goto L23949;} + goto L18451;} + L12857: { + previous_foo_1154X = arg0K0; + foo_1155X = arg0K1; + if ((1 == foo_1155X)) { + goto L23961;} else { - s2_1144X = *((long *) (((char *) (-3 + foo_1143X)))); - len_1145X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_686X))) + -4))))>>8); - if ((len_1145X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1144X))) + -4))))>>8)))) { - if (((!memcmp((void *)(((char *) (-3 + s2_1144X))), (void *)(((char *) (-3 + arg2_686X))),len_1145X)))) { - if ((1 == previous_foo_1142X)) { - value_1146X = *((long *) ((((char *) (-3 + foo_1143X))) + 12)); - addr_1147X = (((char *) (-3 + table_1048X))) + (((index_1101X)<<2)); - S48_WRITE_BARRIER(table_1048X, addr_1147X, value_1146X); - *((long *) addr_1147X) = value_1146X; - goto L23949;} + s2_1156X = *((long *) (((char *) (-3 + foo_1155X)))); + len_1157X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_689X))) + -4))))>>8); + if ((len_1157X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1156X))) + -4))))>>8)))) { + if (((!memcmp((void *)(((char *) (-3 + s2_1156X))), (void *)(((char *) (-3 + arg2_689X))),len_1157X)))) { + if ((1 == previous_foo_1154X)) { + value_1158X = *((long *) ((((char *) (-3 + foo_1155X))) + 12)); + addr_1159X = (((char *) (-3 + table_1059X))) + (((index_1113X)<<2)); + S48_WRITE_BARRIER(table_1059X, addr_1159X, value_1158X); + *((long *) addr_1159X) = value_1158X; + goto L23961;} 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 L23949;}} + val_1160X = *((long *) ((((char *) (-3 + foo_1155X))) + 12)); + addr_1161X = (((char *) (-3 + previous_foo_1154X))) + 12; + S48_WRITE_BARRIER(previous_foo_1154X, addr_1161X, val_1160X); + *((long *) addr_1161X) = val_1160X; + goto L23961;}} else { - goto L12907;}} + goto L12919;}} else { - goto L12907;}}} - L31013: { - y_1150X = arg0K0; - if ((y_1150X < (to_index_728X + count_729X))) { - goto L31031;} + goto L12919;}}} + L31137: { + y_1162X = arg0K0; + if ((y_1162X < (to_index_731X + count_732X))) { + goto L31155;} else { - memcpy((void *)((((char *) (-3 + arg3_724X))) + to_index_728X), (void *)((((char *) (-3 + arg5_726X))) + from_index_727X),count_729X); + memcpy((void *)((((char *) (-3 + arg3_727X))) + to_index_731X), (void *)((((char *) (-3 + arg5_729X))) + from_index_730X),count_732X); SvalS = 13; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}} - L31009: { - arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_724X))) + -4))))>>8)); - goto L31013;} - L11667: { - if ((1 == thing_936X)) { - goto L11670;} + goto L18451;}} + L31133: { + arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_727X))) + -4))))>>8)); + goto L31137;} + L11679: { + if ((1 == thing_941X)) { + goto L11682;} else { - if ((5 == thing_936X)) { - goto L11670;} + if ((5 == thing_941X)) { + goto L11682;} else { - if ((25 == thing_936X)) { + if ((25 == thing_941X)) { arg3K0 = "()"; - goto L11693;} + goto L11705;} else { - if ((3 == (3 & thing_936X))) { - if ((0 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { + if ((3 == (3 & thing_941X))) { + if ((0 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) { arg3K0 = "(...)"; - goto L11693;} + goto L11705;} else { - goto L11683;}} + goto L11695;}} else { - goto L11683;}}}}} - L20806: { - count_1151X = arg0K0; - i_1152X = arg0K1; - offset_1153X = arg0K2; - if ((0 == count_1151X)) { - arg0K0 = i_1152X; - arg0K1 = offset_1153X; - arg0K2 = env_1108X; - goto L20789;} + goto L11695;}}}}} + L20818: { + count_1163X = arg0K0; + i_1164X = arg0K1; + offset_1165X = arg0K2; + if ((0 == count_1163X)) { + arg0K0 = i_1164X; + arg0K1 = offset_1165X; + arg0K2 = env_1120X; + goto L20801;} 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)); - S48_WRITE_BARRIER(new_env_762X, addr_1155X, value_1154X); - *((long *) addr_1155X) = value_1154X; - arg0K0 = (-1 + count_1151X); - arg0K1 = (1 + i_1152X); - arg0K2 = (1 + offset_1153X); - goto L20806;}} - L16933: { + value_1166X = *((long *) ((((char *) (-3 + env_1120X))) + ((((*((unsigned char *) ((Scode_pointerS) + (1 + offset_1165X)))))<<2)))); + addr_1167X = (((char *) (-3 + new_env_765X))) + (((i_1164X)<<2)); + S48_WRITE_BARRIER(new_env_765X, addr_1167X, value_1166X); + *((long *) addr_1167X) = value_1166X; + arg0K0 = (-1 + count_1163X); + arg0K1 = (1 + i_1164X); + arg0K2 = (1 + offset_1165X); + goto L20818;}} + L16945: { Senabled_interruptsS = 0; if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L16935;} + goto L16947;} else { - goto L16935;}} + goto L16947;}} else { s48_Spending_interruptPS = 1; - goto L16935;}} - L17013: { + goto L16947;}} + L17025: { ps_error("interrupt handler is not a vector", 0); - goto L16933;} - L8379: { - *((long *) (SstackS)) = channel_1113X; + goto L16945;} + L8390: { + *((long *) (SstackS)) = channel_1125X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + channel_1113X))) + 16))); + *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + channel_1125X))) + 16))); SstackS = ((SstackS) + -4); *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2)); SstackS = ((SstackS) + -4); arg0K0 = 3; - goto L16919;} - L15977: { + goto L16931;} + L15989: { if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { s48_Spending_eventsPS = 0; check_events_return_tag = 3; goto check_events; check_events_return_3: - v_1156X = check_events0_return_value; - if (v_1156X) { - arg0K0 = stack_arg_count_1116X; - goto L16895;} + v_1168X = check_events0_return_value; + if (v_1168X) { + arg0K0 = stack_arg_count_1128X; + goto L16907;} else { - goto L15981;}} + goto L15993;}} else { - arg0K0 = stack_arg_count_1116X; - goto L16895;}} + arg0K0 = stack_arg_count_1128X; + goto L16907;}} else { - goto L15981;}} - L16034: { - okayP_1157X = arg2K0; - key_1158X = arg0K1; - if (okayP_1157X) { - arg0K0 = key_1158X; - goto L15988;} + goto L15993;}} + L16046: { + okayP_1169X = arg2K0; + key_1170X = arg0K1; + if (okayP_1169X) { + arg0K0 = key_1170X; + goto L16000;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_1158X; - goto L15988;}} - L16399: { - v_1159X = arg0K0; - merged_arg0K0 = v_1159X; - merged_arg0K1 = stack_arg_count_784X; - merged_arg0K2 = list_args_785X; - merged_arg0K3 = list_arg_count_786X; + arg0K0 = key_1170X; + goto L16000;}} + L16411: { + v_1171X = arg0K0; + merged_arg0K0 = v_1171X; + merged_arg0K1 = stack_arg_count_787X; + merged_arg0K2 = list_args_788X; + merged_arg0K3 = list_arg_count_789X; rest_list_setup_return_tag = 2; goto rest_list_setup; rest_list_setup_return_2: - *((long *) (SstackS)) = (((final_stack_arg_count_1121X)<<2)); + *((long *) (SstackS)) = (((final_stack_arg_count_1133X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((total_arg_count_790X)<<2)); + *((long *) (SstackS)) = (((total_arg_count_793X)<<2)); SstackS = ((SstackS) + -4); - arg0K0 = skip_1077X; - arg0K1 = (3 + final_stack_arg_count_1121X); - goto L16362;} - L26717: { - v_1160X = ps_close_fd(index_1123X); - arg0K0 = v_1160X; - goto L26712;} - L26712: { - status_1161X = arg0K0; - if ((status_1161X == NO_ERRORS)) { - push_exception_continuationB(reason_1125X, 1); - *((long *) (SstackS)) = arg2_999X; + arg0K0 = skip_1088X; + arg0K1 = (3 + final_stack_arg_count_1133X); + goto L16374;} + L26729: { + v_1172X = ps_close_fd(index_1135X); + arg0K0 = v_1172X; + goto L26724;} + L26724: { + status_1173X = arg0K0; + if ((status_1173X == NO_ERRORS)) { + push_exception_continuationB(reason_1137X, 1); + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - goto L16666;} + goto L16678;} else { - channel_close_error(status_1161X, index_1123X, arg2_999X); - push_exception_continuationB(reason_1125X, 1); - *((long *) (SstackS)) = arg2_999X; + channel_close_error(status_1173X, index_1135X, arg2_1004X); + push_exception_continuationB(reason_1137X, 1); + *((long *) (SstackS)) = arg2_1004X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((mode_1000X)<<2)); + *((long *) (SstackS)) = (((mode_1005X)<<2)); SstackS = ((SstackS) + -4); arg0K0 = 2; - 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 L36479;} + goto L16678;}} + L36667: { + if ((3 == (3 & arg5_1015X))) { + if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>2))))) { + arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>8))); + goto L36679;} else { - goto L36475;}} + goto L36675;}} else { - goto L36475;}} - L36459: { - if ((3 == (3 & arg5_1010X))) { - if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1010X))) + -4))))>>2))))) { - goto L36467;} + goto L36675;}} + L36659: { + if ((3 == (3 & arg5_1015X))) { + if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>2))))) { + goto L36667;} else { arg0K0 = 5; - goto L36350;}} + goto L36550;}} else { arg0K0 = 5; - goto L36350;}} - L36350: { - reason_1162X = arg0K0; - push_exception_continuationB(reason_1162X, 1); - *((long *) (SstackS)) = arg5_1010X; + goto L36550;}} + L36550: { + reason_1174X = arg0K0; + push_exception_continuationB(reason_1174X, 1); + *((long *) (SstackS)) = arg5_1015X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((start_1133X)<<2)); + *((long *) (SstackS)) = (((start_1145X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((count_1134X)<<2)); + *((long *) (SstackS)) = (((count_1146X)<<2)); SstackS = ((SstackS) + -4); - if (waitP_1132X) { + if (waitP_1144X) { arg0K0 = 5; - goto L36365;} + goto L36565;} else { arg0K0 = 1; - goto L36365;}} - L23949: { + goto L36565;}} + L23961: { Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} - L12907: { - arg0K0 = foo_1143X; - arg0K1 = (*((long *) ((((char *) (-3 + foo_1143X))) + 12))); - goto L12845;} - L11670: { - if ((1 == thing_936X)) { + goto L18451;} + L12919: { + arg0K0 = foo_1155X; + arg0K1 = (*((long *) ((((char *) (-3 + foo_1155X))) + 12))); + goto L12857;} + L11682: { + if ((1 == thing_941X)) { arg3K0 = "#f"; - goto L11693;} + goto L11705;} else { arg3K0 = "#t"; - goto L11693;}} - L11683: { - if ((3 == (3 & thing_936X))) { - if ((2 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { + goto L11705;}} + L11695: { + if ((3 == (3 & thing_941X))) { + if ((2 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) { arg3K0 = "#(...)"; - goto L11693;} + goto L11705;} else { - goto L11687;}} + goto L11699;}} else { - 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 L16952;} + goto L11699;}} + L16947: { + SvalS = (*((long *) ((((char *) (-3 + (Sinterrupt_handlersS)))) + (((i_1076X)<<2))))); + obj_1175X = SvalS; + if ((3 == (3 & obj_1175X))) { + if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_1175X))) + -4))))>>2))))) { + goto L16964;} else { - goto L17038;}} + goto L17050;}} else { - goto L17038;}} - L15981: { + goto L17050;}} + L15993: { arg1K0 = (Scode_pointerS); - goto L18439;} - L15988: { - v_1164X = arg0K0; - merged_arg0K0 = v_1164X; + goto L18451;} + L16000: { + v_1176X = arg0K0; + merged_arg0K0 = v_1176X; 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 L15977;} + if ((stack_slots_1127X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) { + goto L15989;} else { ps_error("VM's stack is too small (how can this happen?)", 0); - goto L15977;}} - L36479: { - length_1165X = arg0K0; - if ((length_1165X < (start_1133X + count_1134X))) { + goto L15989;}} + L36679: { + length_1177X = arg0K0; + if ((length_1177X < (start_1145X + count_1146X))) { arg0K0 = 7; - goto L36350;} + goto L36550;} 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)) { - if (eofP_1167X) { + got_1178X = ps_read_fd(((((*((long *) ((((char *) (-3 + x_1102X))) + 8))))>>2)), ((((char *) (-3 + arg5_1015X))) + start_1145X), count_1146X, waitP_1144X, &eofP_1179X, &pendingP_1180X, &status_1181X); + if ((status_1181X == NO_ERRORS)) { + if (eofP_1179X) { SvalS = 21; Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;} + goto L18451;} else { - if (pendingP_1168X) { - addr_1170X = (((char *) (-3 + x_1091X))) + 16; - S48_WRITE_BARRIER(x_1091X, addr_1170X, 5); - *((long *) addr_1170X) = 5; + if (pendingP_1180X) { + addr_1182X = (((char *) (-3 + x_1102X))) + 16; + S48_WRITE_BARRIER(x_1102X, addr_1182X, 5); + *((long *) addr_1182X) = 5; s48_Spending_interruptPS = 0; Senabled_interruptsS = 0; arg0K0 = 13; - goto L36350;} + goto L36550;} else { - SvalS = (((got_1166X)<<2)); + SvalS = (((got_1178X)<<2)); Scode_pointerS = ((Scode_pointerS) + 1); arg1K0 = (Scode_pointerS); - goto L18439;}}} + goto L18451;}}} else { push_exception_continuationB(25, 1); - *((long *) (SstackS)) = arg5_1010X; + *((long *) (SstackS)) = arg5_1015X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((start_1133X)<<2)); + *((long *) (SstackS)) = (((start_1145X)<<2)); SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = (((count_1134X)<<2)); + *((long *) (SstackS)) = (((count_1146X)<<2)); SstackS = ((SstackS) + -4); - if (waitP_1132X) { + if (waitP_1144X) { arg0K0 = 5; - goto L36402;} + goto L36602;} else { arg0K0 = 1; - goto L36402;}}}} - L36475: { - arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1010X))) + -4))))>>8)); - goto L36479;} - L36365: { - x_1171X = arg0K0; - *((long *) (SstackS)) = x_1171X; + goto L36602;}}}} + L36675: { + arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>8)); + goto L36679;} + L36565: { + x_1183X = arg0K0; + *((long *) (SstackS)) = x_1183X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = x_1091X; + *((long *) (SstackS)) = x_1102X; SstackS = ((SstackS) + -4); arg0K0 = 5; - goto L16666;} - L11687: { - if ((3 == (3 & thing_936X))) { - if ((3 == (31 & ((((*((long *) ((((char *) (-3 + thing_936X))) + -4))))>>2))))) { + goto L16678;} + L11699: { + if ((3 == (3 & thing_941X))) { + if ((3 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) { arg3K0 = "#{procedure}"; - goto L11693;} + goto L11705;} else { arg3K0 = "???"; - goto L11693;}} + goto L11705;}} else { arg3K0 = "???"; - goto L11693;}} - L16952: { + goto L11705;}} + L16964: { StemplateS = (SvalS); - Slosing_opcodeS = (0 - i_1065X); - arg0K0 = arg_count_1111X; - goto L16067;} - L17038: { - ps_error("interrupt handler is not a closure", 1, i_1065X); - goto L16952;} - L36402: { - x_1172X = arg0K0; - *((long *) (SstackS)) = x_1172X; + Slosing_opcodeS = (0 - i_1076X); + arg0K0 = arg_count_1123X; + goto L16079;} + L17050: { + ps_error("interrupt handler is not a closure", 1, i_1076X); + goto L16964;} + L36602: { + x_1184X = arg0K0; + *((long *) (SstackS)) = x_1184X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = x_1091X; + *((long *) (SstackS)) = x_1102X; SstackS = ((SstackS) + -4); - merged_arg0K0 = status_1169X; - merged_arg0K1 = key_1006X; - get_error_string_return_tag = 4; + merged_arg0K0 = status_1181X; + merged_arg0K1 = key_1011X; + get_error_string_return_tag = 5; goto get_error_string; - get_error_string_return_4: - x_1173X = get_error_string0_return_value; - *((long *) (SstackS)) = x_1173X; + get_error_string_return_5: + x_1185X = get_error_string0_return_value; + *((long *) (SstackS)) = x_1185X; SstackS = ((SstackS) + -4); arg0K0 = 6; - goto L16666;} + goto L16678;} loseD0: { message_369X = merged_arg3K0;{ - why_1174X = (((*((long *) ((SstackS) + (4 + (((nargs_739X)<<2)))))))>>2); + why_1186X = (((*((long *) ((SstackS) + (4 + (((nargs_742X)<<2)))))))>>2); ps_write_string("Template UIDs: ", (stderr)); - current_template_1175X = StemplateS; - out_1176X = stderr; - if ((0 == (3 & (*((long *) ((((char *) (-3 + current_template_1175X))) + 4)))))) { - if ((current_template_1175X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) { + current_template_1187X = StemplateS; + out_1188X = stderr; + if ((0 == (3 & (*((long *) ((((char *) (-3 + current_template_1187X))) + 4)))))) { + if ((current_template_1187X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) { arg2K0 = 0; - goto L10519;} + goto L10530;} else { - ps_write_integer(((((*((long *) ((((char *) (-3 + current_template_1175X))) + 4))))>>2)), out_1176X); + ps_write_integer(((((*((long *) ((((char *) (-3 + current_template_1187X))) + 4))))>>2)), out_1188X); arg2K0 = 1; - goto L10519;}} + goto L10530;}} else { arg2K0 = 0; - goto L10519;}} - L10519: { - not_firstP_1177X = arg2K0; + goto L10530;}} + L10530: { + not_firstP_1189X = arg2K0; arg0K0 = (ScontS); - arg2K1 = not_firstP_1177X; - goto L10526;} - L10526: { - cont_1178X = arg0K0; - not_firstP_1179X = arg2K1; - if ((3 == (3 & cont_1178X))) { - if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_1178X))) + -4))))>>2))))) { - template_1180X = *((long *) ((((char *) (-3 + cont_1178X))) + 8)); - if ((0 == (3 & (*((long *) ((((char *) (-3 + template_1180X))) + 4)))))) { - if ((template_1180X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) { - arg2K0 = not_firstP_1179X; - goto L10535;} + arg2K1 = not_firstP_1189X; + goto L10537;} + L10537: { + cont_1190X = arg0K0; + not_firstP_1191X = arg2K1; + if ((3 == (3 & cont_1190X))) { + if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_1190X))) + -4))))>>2))))) { + template_1192X = *((long *) ((((char *) (-3 + cont_1190X))) + 8)); + if ((0 == (3 & (*((long *) ((((char *) (-3 + template_1192X))) + 4)))))) { + if ((template_1192X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) { + arg2K0 = not_firstP_1191X; + goto L10546;} else { - if (not_firstP_1179X) { - ps_write_string(" <- ", out_1176X); - goto L10574;} + if (not_firstP_1191X) { + ps_write_string(" <- ", out_1188X); + goto L10585;} else { - goto L10574;}}} + goto L10585;}}} else { - arg2K0 = not_firstP_1179X; - goto L10535;}} + arg2K0 = not_firstP_1191X; + goto L10546;}} else { - goto L16685;}} + goto L16697;}} else { - goto L16685;}} - L10535: { - v_1181X = arg2K0; - arg0K0 = (*((long *) (((char *) (-3 + cont_1178X))))); - arg2K1 = v_1181X; - goto L10526;} - L10574: { - ps_write_integer(((((*((long *) ((((char *) (-3 + template_1180X))) + 4))))>>2)), out_1176X); + goto L16697;}} + L10546: { + v_1193X = arg2K0; + arg0K0 = (*((long *) (((char *) (-3 + cont_1190X))))); + arg2K1 = v_1193X; + goto L10537;} + L10585: { + ps_write_integer(((((*((long *) ((((char *) (-3 + template_1192X))) + 4))))>>2)), out_1188X); arg2K0 = 1; - goto L10535;} - L16685: { + goto L10546;} + L16697: { { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - if ((why_1174X == 1)) { - if ((0 == (3 & (*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_739X)<<2))))))))))))) { - ps_error(message_369X, 3, opcode_740X, why_1174X, ((((*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_739X)<<2)))))))))))>>2))); + if ((why_1186X == 1)) { + if ((0 == (3 & (*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_742X)<<2))))))))))))) { + ps_error(message_369X, 3, opcode_743X, why_1186X, ((((*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_742X)<<2)))))))))))>>2))); goto loseD0_return;} else { - goto L16709;}} + goto L16721;}} else { - goto L16709;}} - L16709: { - ps_error(message_369X, 2, opcode_740X, why_1174X); + goto L16721;}} + L16721: { + ps_error(message_369X, 2, opcode_743X, why_1186X); goto loseD0_return;} loseD0_return: switch (loseD0_return_tag) { @@ -9502,71 +9594,71 @@ long s48_restart(long proc_345X, long nargs_346X) }} check_events: { -{ goto L39797;} - L39797: { - type_1182X = s48_get_next_event(&channel_1183X, &status_1184X); - if ((type_1182X == ALARM_EVENT)) { +{ goto L40005;} + L40005: { + type_1194X = s48_get_next_event(&channel_1195X, &status_1196X); + if ((type_1194X == ALARM_EVENT)) { if ((1 == (Sinterrupted_templateS))) { Sinterrupted_templateS = (StemplateS); arg0K0 = 1; - goto L15870;} + goto L15882;} else { arg0K0 = 1; - goto L15870;}} + goto L15882;}} else { - if ((type_1182X == KEYBOARD_INTERRUPT_EVENT)) { + if ((type_1194X == KEYBOARD_INTERRUPT_EVENT)) { arg0K0 = 2; - goto L15870;} + goto L15882;} else { - if ((type_1182X == IO_COMPLETION_EVENT)) { - enqueue_channelB(channel_1183X, status_1184X); + if ((type_1194X == IO_COMPLETION_EVENT)) { + enqueue_channelB(channel_1195X, status_1196X); arg0K0 = 8; - goto L15870;} + goto L15882;} else { - if ((type_1182X == OS_SIGNAL_EVENT)) { + if ((type_1194X == OS_SIGNAL_EVENT)) { arg0K0 = 16; - goto L15870;} + goto L15882;} else { - if ((type_1182X == NO_EVENT)) { + if ((type_1194X == NO_EVENT)) { arg0K0 = 0; - goto L15870;} + goto L15882;} else { - if ((type_1182X == ERROR_EVENT)) { + if ((type_1194X == ERROR_EVENT)) { ps_write_string("OS error while getting event", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } - ps_write_string((ps_error_string(status_1184X)), (stderr)); + ps_write_string((ps_error_string(status_1196X)), (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 0; - goto L15870;} + goto L15882;} else { ps_write_string("unknown type of event", (stderr)); { long ignoreXX; PS_WRITE_CHAR(10, (stderr), ignoreXX) } arg0K0 = 0; - goto L15870;}}}}}}} - L15870: { - v_1185X = arg0K0; - Spending_interruptsS = (v_1185X | (Spending_interruptsS)); - if ((type_1182X == NO_EVENT)) { + goto L15882;}}}}}}} + L15882: { + v_1197X = arg0K0; + Spending_interruptsS = (v_1197X | (Spending_interruptsS)); + if ((type_1194X == NO_EVENT)) { if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) { s48_Spending_interruptPS = 0; if ((s48_Spending_eventsPS)) { s48_Spending_interruptPS = 1; - goto L15897;} + goto L15909;} else { - goto L15897;}} + goto L15909;}} else { s48_Spending_interruptPS = 1; - goto L15897;}} + goto L15909;}} else { - goto L39797;}} - L15897: { + goto L40005;}} + L15909: { if ((s48_Spending_interruptPS)) { if ((s48_Spending_eventsPS)) { s48_Spending_eventsPS = 0; - goto L39797;} + goto L40005;} else { check_events0_return_value = 1; goto check_events_return;}} @@ -9592,26 +9684,26 @@ long s48_restart(long proc_345X, long nargs_346X) copy_listS_return_tag = 1; goto copy_listS; copy_listS_return_1: - x_1186X = copy_listS0_return_value; - *((long *) (SstackS)) = x_1186X; + x_1198X = copy_listS0_return_value; + *((long *) (SstackS)) = x_1198X; SstackS = ((SstackS) + -4); goto rest_list_setup_return;} else { if ((stack_arg_count_366X < wants_stack_args_365X)) { - count_1187X = wants_stack_args_365X - stack_arg_count_366X; + count_1199X = wants_stack_args_365X - stack_arg_count_366X; merged_arg0K0 = list_args_367X; - merged_arg0K1 = count_1187X; + merged_arg0K1 = count_1199X; push_list_return_tag = 3; goto push_list; push_list_return_3: - v_1188X = push_list0_return_value; - merged_arg0K0 = v_1188X; - merged_arg0K1 = (list_arg_count_368X - count_1187X); + v_1200X = push_list0_return_value; + merged_arg0K0 = v_1200X; + merged_arg0K1 = (list_arg_count_368X - count_1199X); copy_listS_return_tag = 2; goto copy_listS; copy_listS_return_2: - x_1189X = copy_listS0_return_value; - *((long *) (SstackS)) = x_1189X; + x_1201X = copy_listS0_return_value; + *((long *) (SstackS)) = x_1201X; SstackS = ((SstackS) + -4); goto rest_list_setup_return;} else { @@ -9620,14 +9712,14 @@ long s48_restart(long proc_345X, long nargs_346X) copy_listS_return_tag = 3; goto copy_listS; copy_listS_return_3: - v_1190X = copy_listS0_return_value; - merged_arg0K0 = v_1190X; + v_1202X = copy_listS0_return_value; + merged_arg0K0 = v_1202X; merged_arg0K1 = (stack_arg_count_366X - wants_stack_args_365X); pop_args_GlistS_return_tag = 5; goto pop_args_GlistS; pop_args_GlistS_return_5: - x_1191X = pop_args_GlistS0_return_value; - *((long *) (SstackS)) = x_1191X; + x_1203X = pop_args_GlistS0_return_value; + *((long *) (SstackS)) = x_1203X; SstackS = ((SstackS) + -4); goto rest_list_setup_return;}}} rest_list_setup_return: @@ -9643,64 +9735,64 @@ 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 L15286;} + goto L15298;} else { - space_1192X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); - v_1193X = AVAILABLEp(space_1192X); - if (v_1193X) { + space_1204X = 1 + (((((Sstack_endS) - (SstackS)))>>2)); + v_1205X = AVAILABLEp(space_1204X); + if (v_1205X) { arg2K0 = 1; arg0K1 = 0; - goto L15370;} + goto L15382;} else { - collect_saving_temps(1, 1, &temp1_1194X); - v_1195X = AVAILABLEp(space_1192X); - if (v_1195X) { + collect_saving_temps(1, 1, &temp1_1206X); + v_1207X = AVAILABLEp(space_1204X); + if (v_1207X) { arg2K0 = 1; arg0K1 = 0; - goto L15370;} + goto L15382;} else { arg2K0 = 0; arg0K1 = 0; - goto L15370;}}}} - L15286: { + goto L15382;}}}} + L15298: { SstackS = ((SstackS) + 4); - list_1196X = *((long *) (SstackS)); + list_1208X = *((long *) (SstackS)); arg0K0 = count_364X; - arg0K1 = list_1196X; - goto L15295;} - L15370: { - okayP_1197X = arg2K0; - key_1198X = arg0K1; - if (okayP_1197X) { - arg0K0 = key_1198X; - goto L15321;} + arg0K1 = list_1208X; + goto L15307;} + L15382: { + okayP_1209X = arg2K0; + key_1210X = arg0K1; + if (okayP_1209X) { + arg0K0 = key_1210X; + goto L15333;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_1198X; - goto L15321;}} - L15295: { - i_1199X = arg0K0; - l_1200X = arg0K1; - if ((0 < i_1199X)) { - *((long *) (SstackS)) = (*((long *) (((char *) (-3 + l_1200X))))); + arg0K0 = key_1210X; + goto L15333;}} + L15307: { + i_1211X = arg0K0; + l_1212X = arg0K1; + if ((0 < i_1211X)) { + *((long *) (SstackS)) = (*((long *) (((char *) (-3 + l_1212X))))); SstackS = ((SstackS) + -4); - arg0K0 = (-1 + i_1199X); - arg0K1 = (*((long *) ((((char *) (-3 + l_1200X))) + 4))); - goto L15295;} + arg0K0 = (-1 + i_1211X); + arg0K1 = (*((long *) ((((char *) (-3 + l_1212X))) + 4))); + goto L15307;} else { - push_list0_return_value = l_1200X; + push_list0_return_value = l_1212X; goto push_list_return;}} - L15321: { - v_1201X = arg0K0; - merged_arg0K0 = v_1201X; + L15333: { + v_1213X = arg0K0; + merged_arg0K0 = v_1213X; 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 L15286;} + goto L15298;} else { ps_error("VM's stack is too small (how can this happen?)", 0); - goto L15286;}} + goto L15298;}} push_list_return: switch (push_list_return_tag) { case 0: goto push_list_return_0; @@ -9713,48 +9805,48 @@ long s48_restart(long proc_345X, long nargs_346X) key_362X = merged_arg0K0;{ arg1K0 = ((SstackS) + 4); arg0K1 = 0; - 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 L13502;} + goto L13527;} + L13527: { + p_1214X = arg1K0; + i_1215X = arg0K1; + if ((2 == (3 & (*((long *) p_1214X))))) { + if ((22 == (*((long *) p_1214X)))) { + arg0K0 = (-1 + i_1215X); + goto L13514;} else { - arg0K0 = i_1203X; - goto L13502;}} + arg0K0 = i_1215X; + goto L13514;}} else { - arg1K0 = (p_1202X + 4); - arg0K1 = (1 + i_1203X); - goto L13515;}} - L13502: { - arg_count_1204X = arg0K0; - top_1205X = SstackS; + arg1K0 = (p_1214X + 4); + arg0K1 = (1 + i_1215X); + goto L13527;}} + L13514: { + arg_count_1216X = arg0K0; + top_1217X = SstackS; if ((1 == (ScontS))) { - goto L13507;} + goto L13519;} else { merged_arg0K0 = key_362X; merged_arg0K1 = 1; really_preserve_continuation_return_tag = 1; goto really_preserve_continuation; really_preserve_continuation_return_1: - goto L13507;}} - L13507: { - stob_1206X = ScontS; - arg1K0 = ((((char *) (-3 + stob_1206X))) + -8); - arg1K1 = (top_1205X + (((arg_count_1204X)<<2))); - 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 L13540;} + goto L13519;}} + L13519: { + stob_1218X = ScontS; + arg1K0 = ((((char *) (-3 + stob_1218X))) + -8); + arg1K1 = (top_1217X + (((arg_count_1216X)<<2))); + goto L13552;} + L13552: { + loc_1219X = arg1K0; + arg_1220X = arg1K1; + if ((top_1217X < arg_1220X)) { + *((long *) loc_1219X) = (*((long *) arg_1220X)); + arg1K0 = (loc_1219X + -4); + arg1K1 = (arg_1220X + -4); + goto L13552;} else { - SstackS = loc_1207X; + SstackS = loc_1219X; goto copy_stack_into_heap_return;}} copy_stack_into_heap_return: switch (copy_stack_into_heap_return_tag) { @@ -9768,13 +9860,13 @@ long s48_restart(long proc_345X, long nargs_346X) really_preserve_continuation: { key_360X = merged_arg0K0; reason_361X = merged_arg0K1;{ - p_1209X = SenvS; - if ((3 == (3 & p_1209X))) { - if ((p_1209X < (((long) (Sstack_beginS))))) { - goto L12691;} + p_1221X = SenvS; + if ((3 == (3 & p_1221X))) { + if ((p_1221X < (((long) (Sstack_beginS))))) { + goto L12703;} else { - if (((((long) (Sstack_endS))) < p_1209X)) { - goto L12691;} + if (((((long) (Sstack_endS))) < p_1221X)) { + goto L12703;} else { merged_arg0K0 = (SenvS); merged_arg0K1 = (ScontS); @@ -9783,54 +9875,54 @@ long s48_restart(long proc_345X, long nargs_346X) save_env_in_heap_return_tag = 1; goto save_env_in_heap; save_env_in_heap_return_1: - v_1210X = save_env_in_heap0_return_value; - SenvS = v_1210X; - goto L12691;}}} + v_1222X = save_env_in_heap0_return_value; + SenvS = v_1222X; + goto L12703;}}} else { - goto L12691;}} - L12691: { - end_1211X = *((long *) (((char *) (-3 + (Sbottom_of_stackS))))); + goto L12703;}} + L12703: { + end_1223X = *((long *) (((char *) (-3 + (Sbottom_of_stackS))))); arg0K0 = (ScontS); arg0K1 = (Sbottom_of_stackS); - goto L12644;} - L12644: { - cont_1212X = arg0K0; - previous_1213X = arg0K1; - if ((cont_1212X == (Sbottom_of_stackS))) { - *((long *) (((char *) (-3 + previous_1213X)))) = end_1211X; + goto L12656;} + L12656: { + cont_1224X = arg0K0; + previous_1225X = arg0K1; + if ((cont_1224X == (Sbottom_of_stackS))) { + *((long *) (((char *) (-3 + previous_1225X)))) = end_1223X; ScontS = (Sbottom_of_stackS); really_preserve_continuation0_return_value = (*((long *) (((char *) (-3 + (Sbottom_of_stackS)))))); goto really_preserve_continuation_return;} else { - p_1214X = *((long *) ((((char *) (-3 + cont_1212X))) + 12)); - if ((3 == (3 & p_1214X))) { - if ((p_1214X < (((long) (Sstack_beginS))))) { - goto L12662;} + p_1226X = *((long *) ((((char *) (-3 + cont_1224X))) + 12)); + if ((3 == (3 & p_1226X))) { + if ((p_1226X < (((long) (Sstack_beginS))))) { + goto L12674;} else { - if (((((long) (Sstack_endS))) < p_1214X)) { - goto L12662;} + if (((((long) (Sstack_endS))) < p_1226X)) { + goto L12674;} else { - merged_arg0K0 = (*((long *) ((((char *) (-3 + cont_1212X))) + 12))); - merged_arg0K1 = cont_1212X; + merged_arg0K0 = (*((long *) ((((char *) (-3 + cont_1224X))) + 12))); + merged_arg0K1 = cont_1224X; merged_arg0K2 = key_360X; merged_arg0K3 = reason_361X; save_env_in_heap_return_tag = 2; goto save_env_in_heap; save_env_in_heap_return_2: - goto L12662;}}} + goto L12674;}}} else { - 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; - *((long *) addr_1216X) = header_1215X; - memcpy((void *)data_addr_1217X, (void *)(((char *) (-3 + cont_1212X))),((long)(((unsigned long)header_1215X)>>8))); - new_1218X = 3 + (((long) data_addr_1217X)); - *((long *) (((char *) (-3 + previous_1213X)))) = new_1218X; - arg0K0 = (*((long *) (((char *) (-3 + new_1218X))))); - arg0K1 = new_1218X; - goto L12644;} + goto L12674;}}} + L12674: { + header_1227X = *((long *) ((((char *) (-3 + cont_1224X))) + -4)); + addr_1228X = ALLOCATE_SPACE((31 & (((header_1227X)>>2))), (4 + ((long)(((unsigned long)header_1227X)>>8)))); + data_addr_1229X = addr_1228X + 4; + *((long *) addr_1228X) = header_1227X; + memcpy((void *)data_addr_1229X, (void *)(((char *) (-3 + cont_1224X))),((long)(((unsigned long)header_1227X)>>8))); + new_1230X = 3 + (((long) data_addr_1229X)); + *((long *) (((char *) (-3 + previous_1225X)))) = new_1230X; + arg0K0 = (*((long *) (((char *) (-3 + new_1230X))))); + arg0K1 = new_1230X; + goto L12656;} really_preserve_continuation_return: switch (really_preserve_continuation_return_tag) { case 0: goto really_preserve_continuation_return_0; @@ -9839,17 +9931,17 @@ long s48_restart(long proc_345X, long nargs_346X) copy_env: { env_359X = merged_arg0K0;{ - header_1219X = *((long *) ((((char *) (-3 + env_359X))) + -4)); - addr_1220X = ALLOCATE_SPACE((31 & (((header_1219X)>>2))), (4 + ((long)(((unsigned long)header_1219X)>>8)))); - data_addr_1221X = addr_1220X + 4; - *((long *) addr_1220X) = header_1219X; - memcpy((void *)data_addr_1221X, (void *)(((char *) (-3 + env_359X))),((long)(((unsigned long)header_1219X)>>8))); - new_1222X = 3 + (((long) data_addr_1221X)); - addr_1223X = ((char *) (-3 + env_359X)); - S48_WRITE_BARRIER(env_359X, addr_1223X, 22); - *((long *) addr_1223X) = 22; - *((long *) ((((char *) (-3 + env_359X))) + -4)) = new_1222X; - copy_env0_return_value = new_1222X; + header_1231X = *((long *) ((((char *) (-3 + env_359X))) + -4)); + addr_1232X = ALLOCATE_SPACE((31 & (((header_1231X)>>2))), (4 + ((long)(((unsigned long)header_1231X)>>8)))); + data_addr_1233X = addr_1232X + 4; + *((long *) addr_1232X) = header_1231X; + memcpy((void *)data_addr_1233X, (void *)(((char *) (-3 + env_359X))),((long)(((unsigned long)header_1231X)>>8))); + new_1234X = 3 + (((long) data_addr_1233X)); + addr_1235X = ((char *) (-3 + env_359X)); + S48_WRITE_BARRIER(env_359X, addr_1235X, 22); + *((long *) addr_1235X) = 22; + *((long *) ((((char *) (-3 + env_359X))) + -4)) = new_1234X; + copy_env0_return_value = new_1234X; goto copy_env_return;} copy_env_return: switch (copy_env_return_tag) { @@ -9868,49 +9960,49 @@ long s48_restart(long proc_345X, long nargs_346X) copy_env_return_tag = 0; goto copy_env; copy_env_return_0: - top_1224X = copy_env0_return_value; - arg0K0 = top_1224X; - 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 L11942;} + top_1236X = copy_env0_return_value; + arg0K0 = top_1236X; + goto L11935;} + L11935: { + env_1237X = arg0K0; + p_1238X = *((long *) (((char *) (-3 + env_1237X)))); + if ((3 == (3 & p_1238X))) { + if ((p_1238X < (((long) (Sstack_beginS))))) { + goto L11954;} else { - if (((((long) (Sstack_endS))) < p_1226X)) { - goto L11942;} + if (((((long) (Sstack_endS))) < p_1238X)) { + goto L11954;} else { - merged_arg0K0 = (*((long *) (((char *) (-3 + env_1225X))))); + merged_arg0K0 = (*((long *) (((char *) (-3 + env_1237X))))); merged_arg0K1 = key_357X; merged_arg0K2 = reason_358X; copy_env_return_tag = 1; goto copy_env; copy_env_return_1: - new_1227X = copy_env0_return_value; - addr_1228X = ((char *) (-3 + env_1225X)); - S48_WRITE_BARRIER(env_1225X, addr_1228X, new_1227X); - *((long *) addr_1228X) = new_1227X; - arg0K0 = new_1227X; - goto L11923;}}} + new_1239X = copy_env0_return_value; + addr_1240X = ((char *) (-3 + env_1237X)); + S48_WRITE_BARRIER(env_1237X, addr_1240X, new_1239X); + *((long *) addr_1240X) = new_1239X; + arg0K0 = new_1239X; + goto L11935;}}} else { - goto L11942;}} - L11942: { + goto L11954;}} + L11954: { arg0K0 = cont_356X; - 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 L11946;} + goto L11958;} + L11958: { + cont_1241X = arg0K0; + env_1242X = *((long *) ((((char *) (-3 + cont_1241X))) + 12)); + if ((3 == (3 & env_1242X))) { + if ((3 == (3 & (*((long *) ((((char *) (-3 + env_1242X))) + -4)))))) { + *((long *) ((((char *) (-3 + cont_1241X))) + 12)) = (*((long *) ((((char *) (-3 + env_1242X))) + -4))); + arg0K0 = (*((long *) (((char *) (-3 + cont_1241X))))); + goto L11958;} else { - save_env_in_heap0_return_value = top_1224X; + save_env_in_heap0_return_value = top_1236X; goto save_env_in_heap_return;}} else { - save_env_in_heap0_return_value = top_1224X; + save_env_in_heap0_return_value = top_1236X; goto save_env_in_heap_return;}} save_env_in_heap_return: switch (save_env_in_heap_return_tag) { @@ -9922,55 +10014,55 @@ long s48_restart(long proc_345X, long nargs_346X) pop_args_GlistS: { start_353X = merged_arg0K0; count_354X = merged_arg0K1;{ - space_1231X = 3 * count_354X; - v_1232X = AVAILABLEp(space_1231X); - if (v_1232X) { + space_1243X = 3 * count_354X; + v_1244X = AVAILABLEp(space_1243X); + if (v_1244X) { arg2K0 = 1; arg0K1 = start_353X; - goto L14261;} + goto L14273;} else { - temp0_1233X = collect_saving_temps(start_353X, 1, &temp1_1234X); - v_1235X = AVAILABLEp(space_1231X); - if (v_1235X) { + temp0_1245X = collect_saving_temps(start_353X, 1, &temp1_1246X); + v_1247X = AVAILABLEp(space_1243X); + if (v_1247X) { arg2K0 = 1; - arg0K1 = temp0_1233X; - goto L14261;} + arg0K1 = temp0_1245X; + goto L14273;} else { arg2K0 = 0; - arg0K1 = temp0_1233X; - goto L14261;}}} - L14261: { - okayP_1236X = arg2K0; - temp_1237X = arg0K1; - if (okayP_1236X) { - arg0K0 = temp_1237X; - goto L14235;} + arg0K1 = temp0_1245X; + goto L14273;}}} + L14273: { + okayP_1248X = arg2K0; + temp_1249X = arg0K1; + if (okayP_1248X) { + arg0K0 = temp_1249X; + goto L14247;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = temp_1237X; - goto L14235;}} - L14235: { - start_1238X = arg0K0; - arg0K0 = start_1238X; + arg0K0 = temp_1249X; + goto L14247;}} + L14247: { + start_1250X = arg0K0; + arg0K0 = start_1250X; arg0K1 = count_354X; - goto L14244;} - L14244: { - args_1239X = arg0K0; - count_1240X = arg0K1; - if ((0 == count_1240X)) { - pop_args_GlistS0_return_value = args_1239X; + goto L14256;} + L14256: { + args_1251X = arg0K0; + count_1252X = arg0K1; + if ((0 == count_1252X)) { + pop_args_GlistS0_return_value = args_1251X; goto pop_args_GlistS_return;} else { SstackS = ((SstackS) + 4); - a_1241X = *((long *) (SstackS)); - addr_1242X = ALLOCATE_SPACE(0, 12); - *((long *) addr_1242X) = 2050; - x_1243X = 3 + (((long) (addr_1242X + 4))); - *((long *) (((char *) (-3 + x_1243X)))) = a_1241X; - *((long *) ((((char *) (-3 + x_1243X))) + 4)) = args_1239X; - arg0K0 = x_1243X; - arg0K1 = (-1 + count_1240X); - goto L14244;}} + a_1253X = *((long *) (SstackS)); + addr_1254X = ALLOCATE_SPACE(0, 12); + *((long *) addr_1254X) = 2050; + x_1255X = 3 + (((long) (addr_1254X + 4))); + *((long *) (((char *) (-3 + x_1255X)))) = a_1253X; + *((long *) ((((char *) (-3 + x_1255X))) + 4)) = args_1251X; + arg0K0 = x_1255X; + arg0K1 = (-1 + count_1252X); + goto L14256;}} pop_args_GlistS_return: switch (pop_args_GlistS_return_tag) { case 0: goto pop_args_GlistS_return_0; @@ -9988,63 +10080,63 @@ long s48_restart(long proc_345X, long nargs_346X) copy_listS0_return_value = 25; goto copy_listS_return;} else { - space_1244X = 3 * length_352X; - v_1245X = AVAILABLEp(space_1244X); - if (v_1245X) { + space_1256X = 3 * length_352X; + v_1257X = AVAILABLEp(space_1256X); + if (v_1257X) { arg2K0 = 1; arg0K1 = list_351X; - goto L14140;} + goto L14152;} else { - temp0_1246X = collect_saving_temps(list_351X, 1, &temp1_1247X); - v_1248X = AVAILABLEp(space_1244X); - if (v_1248X) { + temp0_1258X = collect_saving_temps(list_351X, 1, &temp1_1259X); + v_1260X = AVAILABLEp(space_1256X); + if (v_1260X) { arg2K0 = 1; - arg0K1 = temp0_1246X; - goto L14140;} + arg0K1 = temp0_1258X; + goto L14152;} else { arg2K0 = 0; - arg0K1 = temp0_1246X; - goto L14140;}}}} - L14140: { - okayP_1249X = arg2K0; - temp_1250X = arg0K1; - if (okayP_1249X) { - arg0K0 = temp_1250X; - goto L14098;} + arg0K1 = temp0_1258X; + goto L14152;}}}} + L14152: { + okayP_1261X = arg2K0; + temp_1262X = arg0K1; + if (okayP_1261X) { + arg0K0 = temp_1262X; + goto L14110;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = temp_1250X; - goto L14098;}} - L14098: { - list_1251X = arg0K0; - a_1252X = *((long *) (((char *) (-3 + list_1251X)))); - addr_1253X = ALLOCATE_SPACE(0, 12); - *((long *) addr_1253X) = 2050; - x_1254X = 3 + (((long) (addr_1253X + 4))); - *((long *) (((char *) (-3 + x_1254X)))) = a_1252X; - *((long *) ((((char *) (-3 + x_1254X))) + 4)) = 25; - arg0K0 = (*((long *) ((((char *) (-3 + list_1251X))) + 4))); - arg0K1 = x_1254X; - goto L14113;} - L14113: { - l_1255X = arg0K0; - last_1256X = arg0K1; - if ((25 == l_1255X)) { - copy_listS0_return_value = x_1254X; + arg0K0 = temp_1262X; + goto L14110;}} + L14110: { + list_1263X = arg0K0; + a_1264X = *((long *) (((char *) (-3 + list_1263X)))); + addr_1265X = ALLOCATE_SPACE(0, 12); + *((long *) addr_1265X) = 2050; + x_1266X = 3 + (((long) (addr_1265X + 4))); + *((long *) (((char *) (-3 + x_1266X)))) = a_1264X; + *((long *) ((((char *) (-3 + x_1266X))) + 4)) = 25; + arg0K0 = (*((long *) ((((char *) (-3 + list_1263X))) + 4))); + arg0K1 = x_1266X; + goto L14125;} + L14125: { + l_1267X = arg0K0; + last_1268X = arg0K1; + if ((25 == l_1267X)) { + copy_listS0_return_value = x_1266X; goto copy_listS_return;} else { - a_1257X = *((long *) (((char *) (-3 + l_1255X)))); - addr_1258X = ALLOCATE_SPACE(0, 12); - *((long *) addr_1258X) = 2050; - x_1259X = 3 + (((long) (addr_1258X + 4))); - *((long *) (((char *) (-3 + x_1259X)))) = a_1257X; - *((long *) ((((char *) (-3 + x_1259X))) + 4)) = 25; - addr_1260X = (((char *) (-3 + last_1256X))) + 4; - S48_WRITE_BARRIER(last_1256X, addr_1260X, x_1259X); - *((long *) addr_1260X) = x_1259X; - arg0K0 = (*((long *) ((((char *) (-3 + l_1255X))) + 4))); - arg0K1 = x_1259X; - goto L14113;}} + a_1269X = *((long *) (((char *) (-3 + l_1267X)))); + addr_1270X = ALLOCATE_SPACE(0, 12); + *((long *) addr_1270X) = 2050; + x_1271X = 3 + (((long) (addr_1270X + 4))); + *((long *) (((char *) (-3 + x_1271X)))) = a_1269X; + *((long *) ((((char *) (-3 + x_1271X))) + 4)) = 25; + addr_1272X = (((char *) (-3 + last_1268X))) + 4; + S48_WRITE_BARRIER(last_1268X, addr_1272X, x_1271X); + *((long *) addr_1272X) = x_1271X; + arg0K0 = (*((long *) ((((char *) (-3 + l_1267X))) + 4))); + arg0K1 = x_1271X; + goto L14125;}} copy_listS_return: switch (copy_listS_return_tag) { case 0: goto copy_listS_return_0; @@ -10055,15 +10147,15 @@ long s48_restart(long proc_345X, long nargs_346X) copy_continuation_from_heapB: { cont_350X = merged_arg0K0;{ - top_1261X = (((char *) (-3 + (Sbottom_of_stackS)))) + (-8 - (-4 & (3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + cont_350X))) + -4))))>>8))))); - new_cont_1262X = 3 + (((long) (top_1261X + 4))); - SstackS = (top_1261X + -4); - ScontS = new_cont_1262X; - v_1263X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + cont_350X))) + -4))))>>8))))>>2); - memcpy((void *)top_1261X, (void *)((((char *) (-3 + cont_350X))) + -4),(4 + (((v_1263X)<<2)))); - *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = (*((long *) (((char *) (-3 + new_cont_1262X))))); - *((long *) (((char *) (-3 + new_cont_1262X)))) = (Sbottom_of_stackS); - copy_continuation_from_heapB0_return_value = new_cont_1262X; + top_1273X = (((char *) (-3 + (Sbottom_of_stackS)))) + (-8 - (-4 & (3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + cont_350X))) + -4))))>>8))))); + new_cont_1274X = 3 + (((long) (top_1273X + 4))); + SstackS = (top_1273X + -4); + ScontS = new_cont_1274X; + v_1275X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + cont_350X))) + -4))))>>8))))>>2); + memcpy((void *)top_1273X, (void *)((((char *) (-3 + cont_350X))) + -4),(4 + (((v_1275X)<<2)))); + *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = (*((long *) (((char *) (-3 + new_cont_1274X))))); + *((long *) (((char *) (-3 + new_cont_1274X)))) = (Sbottom_of_stackS); + copy_continuation_from_heapB0_return_value = new_cont_1274X; goto copy_continuation_from_heapB_return;} copy_continuation_from_heapB_return: switch (copy_continuation_from_heapB_return_tag) { @@ -10073,59 +10165,59 @@ long s48_restart(long proc_345X, long nargs_346X) get_current_port: { marker_349X = merged_arg0K0;{ - thread_1264X = Scurrent_threadS; - if ((3 == (3 & thread_1264X))) { - 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 L10215;} + thread_1276X = Scurrent_threadS; + if ((3 == (3 & thread_1276X))) { + if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thread_1276X))) + -4))))>>2))))) { + if ((1 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thread_1276X))) + -4))))>>8))))>>2)))) { + arg0K0 = (*((long *) ((((char *) (-3 + thread_1276X))) + 4))); + goto L10226;} else { - goto L10265;}} + goto L10276;}} else { - goto L10265;}} + goto L10276;}} else { - goto L10265;}} - L10215: { - env_1265X = arg0K0; - if ((3 == (3 & env_1265X))) { - if ((0 == (31 & ((((*((long *) ((((char *) (-3 + env_1265X))) + -4))))>>2))))) { - obj_1266X = *((long *) (((char *) (-3 + env_1265X)))); - if ((3 == (3 & obj_1266X))) { - if ((0 == (31 & ((((*((long *) ((((char *) (-3 + obj_1266X))) + -4))))>>2))))) { - if ((marker_349X == (*((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + env_1265X)))))))))))) { - get_current_port0_return_value = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + env_1265X)))))))) + 4))); + goto L10276;}} + L10226: { + env_1277X = arg0K0; + if ((3 == (3 & env_1277X))) { + if ((0 == (31 & ((((*((long *) ((((char *) (-3 + env_1277X))) + -4))))>>2))))) { + obj_1278X = *((long *) (((char *) (-3 + env_1277X)))); + if ((3 == (3 & obj_1278X))) { + if ((0 == (31 & ((((*((long *) ((((char *) (-3 + obj_1278X))) + -4))))>>2))))) { + if ((marker_349X == (*((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + env_1277X)))))))))))) { + get_current_port0_return_value = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + env_1277X)))))))) + 4))); goto get_current_port_return;} else { - arg0K0 = (*((long *) ((((char *) (-3 + env_1265X))) + 4))); - goto L10215;}} + arg0K0 = (*((long *) ((((char *) (-3 + env_1277X))) + 4))); + goto L10226;}} else { - goto L10287;}} + goto L10298;}} else { - goto L10287;}} + goto L10298;}} else { - goto L10287;}} + goto L10298;}} else { - goto L10287;}} - L10265: { + goto L10298;}} + L10276: { ps_error("current thread is not a record", 0); - get_current_port0_return_value = v_1267X; + get_current_port0_return_value = v_1279X; goto get_current_port_return;} - L10287: { - if ((25 == env_1265X)) { + L10298: { + if ((25 == env_1277X)) { if (((((marker_349X)>>2)) == 1)) { arg3K0 = "dynamic environment doesn't have current-output-port"; - goto L10241;} + goto L10252;} else { arg3K0 = "dynamic environment doesn't have current-input-port"; - goto L10241;}} + goto L10252;}} else { ps_error("dynamic environment is not a proper list", 0); - get_current_port0_return_value = v_1268X; + get_current_port0_return_value = v_1280X; goto get_current_port_return;}} - L10241: { - v_1269X = arg3K0; - ps_error(v_1269X, 0); - get_current_port0_return_value = v_1270X; + L10252: { + v_1281X = arg3K0; + ps_error(v_1281X, 0); + get_current_port0_return_value = v_1282X; goto get_current_port_return;} get_current_port_return: switch (get_current_port_return_tag) { @@ -10140,36 +10232,36 @@ long s48_restart(long proc_345X, long nargs_346X) arg0K1 = 0; arg0K2 = list_348X; arg2K3 = 0; - goto L10082;} - L10082: { - fast_1271X = arg0K0; - len_1272X = arg0K1; - slow_1273X = arg0K2; - move_slowP_1274X = arg2K3; - if ((25 == fast_1271X)) { + goto L10093;} + L10093: { + fast_1283X = arg0K0; + len_1284X = arg0K1; + slow_1285X = arg0K2; + move_slowP_1286X = arg2K3; + if ((25 == fast_1283X)) { okay_argument_list0_return_value = 1; - okay_argument_list1_return_value = len_1272X; + okay_argument_list1_return_value = len_1284X; goto okay_argument_list_return;} else { - if ((3 == (3 & fast_1271X))) { - if ((0 == (31 & ((((*((long *) ((((char *) (-3 + fast_1271X))) + -4))))>>2))))) { - if (move_slowP_1274X) { - if ((fast_1271X == slow_1273X)) { + if ((3 == (3 & fast_1283X))) { + if ((0 == (31 & ((((*((long *) ((((char *) (-3 + fast_1283X))) + -4))))>>2))))) { + if (move_slowP_1286X) { + if ((fast_1283X == slow_1285X)) { okay_argument_list0_return_value = 0; okay_argument_list1_return_value = 0; goto okay_argument_list_return;} else { - arg0K0 = (*((long *) ((((char *) (-3 + fast_1271X))) + 4))); - arg0K1 = (1 + len_1272X); - arg0K2 = (*((long *) ((((char *) (-3 + slow_1273X))) + 4))); + arg0K0 = (*((long *) ((((char *) (-3 + fast_1283X))) + 4))); + arg0K1 = (1 + len_1284X); + arg0K2 = (*((long *) ((((char *) (-3 + slow_1285X))) + 4))); arg2K3 = 0; - goto L10082;}} + goto L10093;}} else { - arg0K0 = (*((long *) ((((char *) (-3 + fast_1271X))) + 4))); - arg0K1 = (1 + len_1272X); - arg0K2 = slow_1273X; + arg0K0 = (*((long *) ((((char *) (-3 + fast_1283X))) + 4))); + arg0K1 = (1 + len_1284X); + arg0K2 = slow_1285X; arg2K3 = 1; - goto L10082;}} + goto L10093;}} else { okay_argument_list0_return_value = 0; okay_argument_list1_return_value = 0; @@ -10186,50 +10278,51 @@ long s48_restart(long proc_345X, long nargs_346X) get_error_string: { status_347X = merged_arg0K0;{ - string_1275X = ps_error_string(status_347X); - x_1276X = strlen((char *) string_1275X); - if ((x_1276X < 256)) { - arg0K0 = x_1276X; - goto L9590;} + string_1287X = ps_error_string(status_347X); + x_1288X = strlen((char *) string_1287X); + if ((x_1288X < 256)) { + arg0K0 = x_1288X; + goto L9601;} else { arg0K0 = 256; - goto L9590;}} - L9590: { - len_1277X = arg0K0; - len_1278X = 1 + len_1277X; - addr_1279X = ALLOCATE_SPACE(16, (4 + len_1278X)); - *((long *) addr_1279X) = (66 + (((len_1278X)<<8))); - string_1280X = 3 + (((long) (addr_1279X + 4))); - *((unsigned char *) ((((char *) (-3 + string_1280X))) + len_1277X)) = 0; + goto L9601;}} + L9601: { + len_1289X = arg0K0; + len_1290X = 1 + len_1289X; + addr_1291X = ALLOCATE_SPACE(16, (4 + len_1290X)); + *((long *) addr_1291X) = (66 + (((len_1290X)<<8))); + string_1292X = 3 + (((long) (addr_1291X + 4))); + *((unsigned char *) ((((char *) (-3 + string_1292X))) + len_1289X)) = 0; arg0K0 = 0; - goto L9600;} - L9600: { - i_1281X = arg0K0; - if ((i_1281X == len_1277X)) { - get_error_string0_return_value = string_1280X; + goto L9611;} + L9611: { + i_1293X = arg0K0; + if ((i_1293X == len_1289X)) { + get_error_string0_return_value = string_1292X; goto get_error_string_return;} else { - *((unsigned char *) ((((char *) (-3 + string_1280X))) + i_1281X)) = ((*(string_1275X + i_1281X))); - arg0K0 = (1 + i_1281X); - goto L9600;}} + *((unsigned char *) ((((char *) (-3 + string_1292X))) + i_1293X)) = ((*(string_1287X + i_1293X))); + arg0K0 = (1 + i_1293X); + goto L9611;}} get_error_string_return: switch (get_error_string_return_tag) { case 0: goto get_error_string_return_0; case 1: goto get_error_string_return_1; case 2: goto get_error_string_return_2; case 3: goto get_error_string_return_3; - default: goto get_error_string_return_4; + case 4: goto get_error_string_return_4; + default: goto get_error_string_return_5; }} pop_continuationB: { -{ cont_1282X = ScontS; - tem_1283X = *((long *) ((((char *) (-3 + cont_1282X))) + 8)); - pc_1284X = *((long *) ((((char *) (-3 + cont_1282X))) + 4)); - StemplateS = tem_1283X; - Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_1283X)))))))) + (((pc_1284X)>>2))); - SenvS = (*((long *) ((((char *) (-3 + cont_1282X))) + 12))); - ScontS = (*((long *) (((char *) (-3 + cont_1282X))))); - SstackS = ((((char *) (-3 + cont_1282X))) + 12); +{ cont_1294X = ScontS; + tem_1295X = *((long *) ((((char *) (-3 + cont_1294X))) + 8)); + pc_1296X = *((long *) ((((char *) (-3 + cont_1294X))) + 4)); + StemplateS = tem_1295X; + Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_1295X)))))))) + (((pc_1296X)>>2))); + SenvS = (*((long *) ((((char *) (-3 + cont_1294X))) + 12))); + ScontS = (*((long *) (((char *) (-3 + cont_1294X))))); + SstackS = ((((char *) (-3 + cont_1294X))) + 12); goto pop_continuationB_return;} pop_continuationB_return: switch (pop_continuationB_return_tag) { @@ -10239,67 +10332,67 @@ long s48_restart(long proc_345X, long nargs_346X) }} } -long s48_call_startup_procedure(char **startup_vector_1285X, long startup_vector_length_1286X) +long s48_call_startup_procedure(char **startup_vector_1297X, long startup_vector_length_1298X) { char arg2K0; long arg0K1; long arg0K0; - long v_1335X; - long x_1334X; - long x_1333X; - char * addr_1332X; - long b_1331X; - long channel_1330X; - long x_1329X; - char * addr_1328X; - long b_1327X; - long channel_1326X; - long x_1325X; - char * addr_1324X; - long b_1323X; - long channel_1322X; - long key_1321X; - long key_1320X; - char okayP_1319X; - char v_1318X; - long temp1_1317X; - char v_1316X; - long space_1315X; - long i_1314X; - long length_1313X; - long *v_1312X; - long v_1311X; - long v_1310X; - long y_1309X; - long x_1308X; - long v_1307X; - long x_1306X; - long y_1305X; - char * addr_1304X; - long value_1303X; - long x_1302X; - long y_1301X; + long v_1347X; + long x_1346X; + long x_1345X; + char * addr_1344X; + long b_1343X; + long channel_1342X; + long x_1341X; + char * addr_1340X; + long b_1339X; + long channel_1338X; + long x_1337X; + char * addr_1336X; + long b_1335X; + long channel_1334X; + long key_1333X; + long key_1332X; + char okayP_1331X; + char v_1330X; + long temp1_1329X; + char v_1328X; + long space_1327X; + long i_1326X; + long length_1325X; + long *v_1324X; + long v_1323X; + long v_1322X; + long y_1321X; + long x_1320X; + long v_1319X; + long x_1318X; + long y_1317X; + char * addr_1316X; + long value_1315X; + long x_1314X; + long y_1313X; + long i_1312X; + long vector_1311X; + char * addr_1310X; + long len_1309X; + long key_1308X; + long key_1307X; + char okayP_1306X; + char v_1305X; + long temp1_1304X; + char v_1303X; + long space_1302X; + long size_1301X; long i_1300X; - long vector_1299X; - char * addr_1298X; - long len_1297X; - long key_1296X; - long key_1295X; - char okayP_1294X; - char v_1293X; - long temp1_1292X; - char v_1291X; - long space_1290X; - long size_1289X; - long i_1288X; - long tem_1287X; + long tem_1299X; { SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8); *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = 1; ScontS = (Sbottom_of_stackS); SenvS = 13; - tem_1287X = Sinterrupt_templateS; - StemplateS = tem_1287X; - Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_1287X)))))))); + tem_1299X = Sinterrupt_templateS; + StemplateS = tem_1299X; + Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_1299X)))))))); SvalS = 13; Scurrent_threadS = 25; Ssession_dataS = 25; @@ -10313,187 +10406,187 @@ long s48_call_startup_procedure(char **startup_vector_1285X, long startup_vector Sinterrupted_templateS = 1; arg0K0 = 0; arg0K1 = 0; - goto L15604;} - L15604: { - i_1288X = arg0K0; - size_1289X = arg0K1; - if ((i_1288X == startup_vector_length_1286X)) { - space_1290X = 1 + (size_1289X + startup_vector_length_1286X); - v_1291X = AVAILABLEp(space_1290X); - if (v_1291X) { + goto L15616;} + L15616: { + i_1300X = arg0K0; + size_1301X = arg0K1; + if ((i_1300X == startup_vector_length_1298X)) { + space_1302X = 1 + (size_1301X + startup_vector_length_1298X); + v_1303X = AVAILABLEp(space_1302X); + if (v_1303X) { arg2K0 = 1; arg0K1 = 0; - goto L15641;} + goto L15653;} else { - collect_saving_temps(1, 1, &temp1_1292X); - v_1293X = AVAILABLEp(space_1290X); - if (v_1293X) { + collect_saving_temps(1, 1, &temp1_1304X); + v_1305X = AVAILABLEp(space_1302X); + if (v_1305X) { arg2K0 = 1; arg0K1 = 0; - goto L15641;} + goto L15653;} else { arg2K0 = 0; arg0K1 = 0; - goto L15641;}}} + goto L15653;}}} else { - arg0K0 = (1 + i_1288X); - arg0K1 = (1 + (size_1289X + ((((4 + (strlen((char *) (*(startup_vector_1285X + i_1288X))))))>>2)))); - goto L15604;}} - L15641: { - okayP_1294X = arg2K0; - key_1295X = arg0K1; - if (okayP_1294X) { - arg0K0 = key_1295X; - goto L15619;} + arg0K0 = (1 + i_1300X); + arg0K1 = (1 + (size_1301X + ((((4 + (strlen((char *) (*(startup_vector_1297X + i_1300X))))))>>2)))); + goto L15616;}} + L15653: { + okayP_1306X = arg2K0; + key_1307X = arg0K1; + if (okayP_1306X) { + arg0K0 = key_1307X; + goto L15631;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_1295X; - 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 = key_1307X; + goto L15631;}} + L15631: { + key_1308X = arg0K0; + len_1309X = ((startup_vector_length_1298X)<<2); + addr_1310X = ALLOCATE_SPACE(2, (4 + len_1309X)); + *((long *) addr_1310X) = (10 + (((len_1309X)<<8))); + vector_1311X = 3 + (((long) (addr_1310X + 4))); arg0K0 = 0; - goto L15677;} - L15677: { - i_1300X = arg0K0; - if ((i_1300X == startup_vector_length_1286X)) { - *((long *) (SstackS)) = vector_1299X; + goto L15689;} + L15689: { + i_1312X = arg0K0; + if ((i_1312X == startup_vector_length_1298X)) { + *((long *) (SstackS)) = vector_1311X; SstackS = ((SstackS) + -4); - y_1301X = fileno((stderr)); - x_1302X = fileno((stdout)); - if ((x_1302X < y_1301X)) { - arg0K0 = y_1301X; - goto L14513;} + y_1313X = fileno((stderr)); + x_1314X = fileno((stdout)); + if ((x_1314X < y_1313X)) { + arg0K0 = y_1313X; + goto L14525;} else { - arg0K0 = x_1302X; - goto L14513;}} + arg0K0 = x_1314X; + goto L14525;}} 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 L15677;}} - L14513: { - y_1305X = arg0K0; - x_1306X = fileno((stdin)); - if ((x_1306X < y_1305X)) { - arg0K0 = y_1305X; - goto L14515;} + value_1315X = enter_string((*(startup_vector_1297X + i_1312X)), key_1308X); + addr_1316X = (((char *) (-3 + vector_1311X))) + (((i_1312X)<<2)); + S48_WRITE_BARRIER(vector_1311X, addr_1316X, value_1315X); + *((long *) addr_1316X) = value_1315X; + arg0K0 = (1 + i_1312X); + goto L15689;}} + L14525: { + y_1317X = arg0K0; + x_1318X = fileno((stdin)); + if ((x_1318X < y_1317X)) { + arg0K0 = y_1317X; + goto L14527;} else { - arg0K0 = x_1306X; - 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 L14517;} + arg0K0 = x_1318X; + goto L14527;}} + L14527: { + v_1319X = arg0K0; + x_1320X = Snumber_of_channelsS; + y_1321X = 1 + v_1319X; + if ((x_1320X < y_1321X)) { + arg0K0 = y_1321X; + goto L14529;} else { - arg0K0 = x_1308X; - goto L14517;}} - L14517: { - v_1310X = arg0K0; - Snumber_of_channelsS = v_1310X; - v_1311X = fileno((stdin)); + arg0K0 = x_1320X; + goto L14529;}} + L14529: { + v_1322X = arg0K0; + Snumber_of_channelsS = v_1322X; + v_1323X = fileno((stdin)); Svm_channelsS = ((long*)malloc(sizeof(long) * (Snumber_of_channelsS))); Spending_channels_headS = 1; Spending_channels_tailS = 1; if ((NULL == (Svm_channelsS))) { ps_error("out of memory, unable to continue", 0); - goto L14539;} + goto L14551;} else { - goto L14539;}} - L14539: { - v_1312X = Svm_channelsS; - length_1313X = Snumber_of_channelsS; + goto L14551;}} + L14551: { + v_1324X = Svm_channelsS; + length_1325X = Snumber_of_channelsS; arg0K0 = 0; - goto L14587;} - L14587: { - i_1314X = arg0K0; - if ((i_1314X < length_1313X)) { - *(v_1312X + i_1314X) = 1; - arg0K0 = (1 + i_1314X); - goto L14587;} + goto L14599;} + L14599: { + i_1326X = arg0K0; + if ((i_1326X < length_1325X)) { + *(v_1324X + i_1326X) = 1; + arg0K0 = (1 + i_1326X); + goto L14599;} else { - space_1315X = 3 * (7 + ((((4 + (strlen((char *) "standard output"))))>>2))); - v_1316X = AVAILABLEp(space_1315X); - if (v_1316X) { + space_1327X = 3 * (7 + ((((4 + (strlen((char *) "standard output"))))>>2))); + v_1328X = AVAILABLEp(space_1327X); + if (v_1328X) { arg2K0 = 1; arg0K1 = 0; - goto L14601;} + goto L14613;} else { - collect_saving_temps(1, 1, &temp1_1317X); - v_1318X = AVAILABLEp(space_1315X); - if (v_1318X) { + collect_saving_temps(1, 1, &temp1_1329X); + v_1330X = AVAILABLEp(space_1327X); + if (v_1330X) { arg2K0 = 1; arg0K1 = 0; - goto L14601;} + goto L14613;} else { arg2K0 = 0; arg0K1 = 0; - goto L14601;}}}} - L14601: { - okayP_1319X = arg2K0; - key_1320X = arg0K1; - if (okayP_1319X) { - arg0K0 = key_1320X; - goto L14545;} + goto L14613;}}}} + L14613: { + okayP_1331X = arg2K0; + key_1332X = arg0K1; + if (okayP_1331X) { + arg0K0 = key_1332X; + goto L14557;} else { ps_error("Scheme48 heap overflow", 0); - arg0K0 = key_1320X; - goto L14545;}} - L14545: { - key_1321X = arg0K0; - channel_1322X = fileno((stdin)); - b_1323X = enter_string("standard input", key_1321X); - addr_1324X = ALLOCATE_SPACE(5, 24); - *((long *) addr_1324X) = 5142; - x_1325X = 3 + (((long) (addr_1324X + 4))); - *((long *) (((char *) (-3 + x_1325X)))) = 4; - *((long *) ((((char *) (-3 + x_1325X))) + 4)) = b_1323X; - *((long *) ((((char *) (-3 + x_1325X))) + 8)) = (((channel_1322X)<<2)); - *((long *) ((((char *) (-3 + x_1325X))) + 12)) = 1; - *((long *) ((((char *) (-3 + x_1325X))) + 16)) = 1; - *((Svm_channelsS) + channel_1322X) = x_1325X; - channel_1326X = fileno((stderr)); - b_1327X = enter_string("standard error", key_1321X); - addr_1328X = ALLOCATE_SPACE(5, 24); - *((long *) addr_1328X) = 5142; - x_1329X = 3 + (((long) (addr_1328X + 4))); - *((long *) (((char *) (-3 + x_1329X)))) = 8; - *((long *) ((((char *) (-3 + x_1329X))) + 4)) = b_1327X; - *((long *) ((((char *) (-3 + x_1329X))) + 8)) = (((channel_1326X)<<2)); - *((long *) ((((char *) (-3 + x_1329X))) + 12)) = 1; - *((long *) ((((char *) (-3 + x_1329X))) + 16)) = 1; - *((Svm_channelsS) + channel_1326X) = x_1329X; - channel_1330X = fileno((stdout)); - b_1331X = enter_string("standard output", key_1321X); - addr_1332X = ALLOCATE_SPACE(5, 24); - *((long *) addr_1332X) = 5142; - x_1333X = 3 + (((long) (addr_1332X + 4))); - *((long *) (((char *) (-3 + x_1333X)))) = 8; - *((long *) ((((char *) (-3 + x_1333X))) + 4)) = b_1331X; - *((long *) ((((char *) (-3 + x_1333X))) + 8)) = (((channel_1330X)<<2)); - *((long *) ((((char *) (-3 + x_1333X))) + 12)) = 1; - *((long *) ((((char *) (-3 + x_1333X))) + 16)) = 1; - *((Svm_channelsS) + channel_1330X) = x_1333X; - *((long *) (SstackS)) = x_1325X; + arg0K0 = key_1332X; + goto L14557;}} + L14557: { + key_1333X = arg0K0; + channel_1334X = fileno((stdin)); + b_1335X = enter_string("standard input", key_1333X); + addr_1336X = ALLOCATE_SPACE(5, 24); + *((long *) addr_1336X) = 5142; + x_1337X = 3 + (((long) (addr_1336X + 4))); + *((long *) (((char *) (-3 + x_1337X)))) = 4; + *((long *) ((((char *) (-3 + x_1337X))) + 4)) = b_1335X; + *((long *) ((((char *) (-3 + x_1337X))) + 8)) = (((channel_1334X)<<2)); + *((long *) ((((char *) (-3 + x_1337X))) + 12)) = 1; + *((long *) ((((char *) (-3 + x_1337X))) + 16)) = 1; + *((Svm_channelsS) + channel_1334X) = x_1337X; + channel_1338X = fileno((stderr)); + b_1339X = enter_string("standard error", key_1333X); + addr_1340X = ALLOCATE_SPACE(5, 24); + *((long *) addr_1340X) = 5142; + x_1341X = 3 + (((long) (addr_1340X + 4))); + *((long *) (((char *) (-3 + x_1341X)))) = 8; + *((long *) ((((char *) (-3 + x_1341X))) + 4)) = b_1339X; + *((long *) ((((char *) (-3 + x_1341X))) + 8)) = (((channel_1338X)<<2)); + *((long *) ((((char *) (-3 + x_1341X))) + 12)) = 1; + *((long *) ((((char *) (-3 + x_1341X))) + 16)) = 1; + *((Svm_channelsS) + channel_1338X) = x_1341X; + channel_1342X = fileno((stdout)); + b_1343X = enter_string("standard output", key_1333X); + addr_1344X = ALLOCATE_SPACE(5, 24); + *((long *) addr_1344X) = 5142; + x_1345X = 3 + (((long) (addr_1344X + 4))); + *((long *) (((char *) (-3 + x_1345X)))) = 8; + *((long *) ((((char *) (-3 + x_1345X))) + 4)) = b_1343X; + *((long *) ((((char *) (-3 + x_1345X))) + 8)) = (((channel_1342X)<<2)); + *((long *) ((((char *) (-3 + x_1345X))) + 12)) = 1; + *((long *) ((((char *) (-3 + x_1345X))) + 16)) = 1; + *((Svm_channelsS) + channel_1342X) = x_1345X; + *((long *) (SstackS)) = x_1337X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = x_1333X; + *((long *) (SstackS)) = x_1345X; SstackS = ((SstackS) + -4); - *((long *) (SstackS)) = x_1329X; + *((long *) (SstackS)) = x_1341X; SstackS = ((SstackS) + -4); - x_1334X = s48_resumer_records(); - *((long *) (SstackS)) = x_1334X; + x_1346X = s48_resumer_records(); + *((long *) (SstackS)) = x_1346X; SstackS = ((SstackS) + -4); s48_initialization_completeB(); - v_1335X = s48_startup_procedure(); - return s48_restart(v_1335X, 5);} + v_1347X = s48_startup_procedure(); + return s48_restart(v_1347X, 5);} }void s48_init(void) { @@ -10508,8 +10601,8 @@ Sexternal_exceptionPS = 0; Sexternal_root_stackS = NULL; Sexternal_root_stack_baseS = NULL; Spermanent_external_rootsS = NULL; -Sgc_root_procS = HtopD8861; -Spost_gc_cleanupS = HtopD8854; +Sgc_root_procS = HtopD8911; +Spost_gc_cleanupS = HtopD8904; s48_Scallback_return_stack_blockS = 1; s48_Spending_eventsPS = 0; } diff --git a/cig/libcig.c b/cig/libcig.c index 9ac62da..2ff44d8 100644 --- a/cig/libcig.c +++ b/cig/libcig.c @@ -1,5 +1,6 @@ /* This is an Scheme48/C interface file, -** automatically generated by cig. +** automatically generated by a hacked version of cig 3.0. +step 4 */ #include @@ -9,60 +10,80 @@ s48_value df_strlen_or_false(s48_value g1) { extern s48_value strlen_or_false(const char * ); - s48_value ret1; + s48_value ret1 = S48_FALSE; + S48_DECLARE_GC_PROTECT(1); s48_value r1; + + S48_GC_PROTECT_1(ret1); r1 = strlen_or_false((const char * )AlienVal(g1)); ret1 = r1; + S48_GC_UNPROTECT(); return ret1; } s48_value df_cstring_nullp(s48_value g1) { extern int cstring_nullp(const char * ); - s48_value ret1; + s48_value ret1 = S48_FALSE; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = cstring_nullp((const char * )AlienVal(g1)); ret1 = ENTER_BOOLEAN(r1); + S48_GC_UNPROTECT(); return ret1; } s48_value df_c2scheme_strcpy_free(s48_value g1, s48_value g2) { extern int c2scheme_strcpy_free(s48_value , char* ); - s48_value ret1; + s48_value ret1 = S48_FALSE; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = c2scheme_strcpy_free(g1, (char* )AlienVal(g2)); ret1 = ENTER_BOOLEAN(r1); + S48_GC_UNPROTECT(); return ret1; } s48_value df_c2scheme_strcpy(s48_value g1, s48_value g2) { extern int c2scheme_strcpy(s48_value , char* ); - s48_value ret1; + s48_value ret1 = S48_FALSE; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = c2scheme_strcpy(g1, (char* )AlienVal(g2)); ret1 = ENTER_BOOLEAN(r1); + S48_GC_UNPROTECT(); return ret1; } s48_value df_c_veclen(s48_value g1) { extern s48_value c_veclen(long* ); - s48_value ret1; + s48_value ret1 = S48_FALSE; + S48_DECLARE_GC_PROTECT(1); s48_value r1; + + S48_GC_PROTECT_1(ret1); r1 = c_veclen((long* )AlienVal(g1)); ret1 = r1; + S48_GC_UNPROTECT(); return ret1; } @@ -84,7 +105,7 @@ s48_value df_set_strvec_carriers(s48_value g1, s48_value g2) return S48_FALSE; } -s48_value s48_init_cig(void) +void s48_init_cig(void) { S48_EXPORT_FUNCTION(df_strlen_or_false); S48_EXPORT_FUNCTION(df_cstring_nullp); @@ -93,6 +114,4 @@ s48_value s48_init_cig(void) S48_EXPORT_FUNCTION(df_c_veclen); S48_EXPORT_FUNCTION(df_free); S48_EXPORT_FUNCTION(df_set_strvec_carriers); - - return S48_UNSPECIFIC; } diff --git a/cig/libcig.scm b/cig/libcig.scm index 81b3bc1..4b2e0e7 100644 --- a/cig/libcig.scm +++ b/cig/libcig.scm @@ -49,6 +49,7 @@ ;;; Generally speaking, in the following routines, ;;; a NULL C string param causes a function to return #f. +(foreign-init-name "cig") (define-foreign %cstring-length-or-false (strlen_or_false ((C "const char * ~a") cstr)) diff --git a/gdbinit b/gdbinit index db62987..fc3049d 100644 --- a/gdbinit +++ b/gdbinit @@ -4,9 +4,10 @@ #Set a breakpoint at label "raise". #Obtain the proper line number using "egrep -n raise: scheme48vm.c". -break scheme48vm.c:5227 +#break scheme48vm.c:5227 -display/i $pc +#display/i $pc +handle SIGALRM nopass define pcont echo template id = \