scsh-0.6/c/scheme48heap.c

2360 lines
61 KiB
C
Raw Normal View History

1999-09-14 08:45:02 -04:00
#include <stdio.h>
#include "prescheme.h"
#include "scheme48vm.h"
static long copy_weak_pointer(long, char *, char **);
static void clean_weak_pointers(void);
static char gc_recordP(long);
static void note_undumpableB(long);
void s48_write_barrier(long, char *, long);
long s48_heap_size(void);
long s48_preallocate_space(long);
void s48_register_static_areas(long, char **, long*, long, char **, long*);
long s48_gc_count(void);
void s48_end_collection(void);
long s48_undumpable_records(long*);
long s48_startup_procedure(void);
long s48_initial_symbols(void);
long s48_initial_imported_bindings(void);
long s48_initial_exported_bindings(void);
long s48_resumer_records(void);
void s48_set_image_valuesB(long, long, long, long, long);
void s48_initialization_completeB(void);
void s48_initialize_heap(char *, long);
char s48_availableP(long);
char s48_image_writing_okayP(void);
char * s48_allocate_space(long, long, long);
long s48_available(void);
char s48_extantP(long);
long s48_check_image_header(char*);
long s48_find_all(long);
long s48_read_image(void);
long s48_find_all_records(long);
long s48_trace_locationsB(char *, char *);
2002-02-25 04:01:39 -05:00
long s48_do_gc(void);
1999-09-14 08:45:02 -04:00
long s48_trace_stob_contentsB(long);
void s48_begin_collection(void);
long s48_trace_value(long);
long s48_write_image(long, FILE *);
void s48_initializing_gc_root(void);
static char * Soldspace_hpS;
static char * Soldspace_limitS;
static char * Snewspace_beginS;
static char * Snewspace_endS;
static char * Soldspace_beginS;
static char * Soldspace_endS;
static char * *Spure_areasS;
static char * *Simpure_areasS;
static long *Spure_sizesS;
static long *Simpure_sizesS;
static long Spure_area_countS;
static long Simpure_area_countS;
static long Sfinding_typeS;
static long Sgc_countS;
static char Swriting_imagePS;
static long Sundumpable_recordsS;
static long Sundumpable_countS;
static char * Sfrom_beginS;
static char * Sfrom_endS;
static char * Sweak_pointer_hpS;
static char * Sweak_pointer_limitS;
static long SstatusS;
static char SeofPS;
static FILE * Simage_portS;
static char * Sold_beginS;
static char * Sold_hpS;
static long Sstartup_procedureS;
static long SsymbolsS;
static long Simported_bindingsS;
static long Sexported_bindingsS;
static long Sresumer_recordsS;
static char SinitializingPS;
2002-05-10 04:18:09 -04:00
static long Hthe_record_type9330;
1999-09-14 08:45:02 -04:00
char * s48_ShpS;
char * s48_SlimitS;
static long copy_weak_pointer(long weak_1X, char * frontier_2X, char * *TT0)
{
char * arg0K0;
long new_7X;
char * frontier_6X;
char * new_frontier_5X;
char * old_4X;
char * x_3X;
{ x_3X = Sweak_pointer_hpS;
if ((x_3X == NULL)) {
2002-05-10 04:18:09 -04:00
goto L2431;}
1999-09-14 08:45:02 -04:00
else {
if (((Sweak_pointer_hpS) < (Sweak_pointer_limitS))) {
arg0K0 = frontier_2X;
2002-05-10 04:18:09 -04:00
goto L2436;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2431;}}}
L2431: {
1999-09-14 08:45:02 -04:00
old_4X = Sweak_pointer_hpS;
new_frontier_5X = frontier_2X + 1024;
Sweak_pointer_hpS = frontier_2X;
Sweak_pointer_limitS = new_frontier_5X;
2002-05-10 04:18:09 -04:00
*((long *) (Sweak_pointer_hpS)) = 261194;
1999-09-14 08:45:02 -04:00
*((long *) ((Sweak_pointer_hpS) + 8)) = (((long) old_4X));
arg0K0 = new_frontier_5X;
2002-05-10 04:18:09 -04:00
goto L2436;}
L2436: {
1999-09-14 08:45:02 -04:00
frontier_6X = arg0K0;
new_7X = 3 + (((long) ((Sweak_pointer_hpS) + 4)));
*((long *) ((Sweak_pointer_hpS) + 4)) = (*((long *) (((char *) (-3 + weak_1X)))));
Sweak_pointer_hpS = ((Sweak_pointer_hpS) + 8);
*((long *) ((((char *) (-3 + weak_1X))) + -4)) = new_7X;
*TT0 = frontier_6X;
return new_7X;}
}
static void clean_weak_pointers(void)
{
char * arg0K1;
char * arg0K0;
long arg1K0;
long x2_17X;
long h_16X;
char * a_15X;
long value_14X;
char * scan_13X;
char * next_12X;
char * end_11X;
char * start_10X;
char * end_9X;
char * x_8X;
{ if (((Sweak_pointer_hpS) == NULL)) {
return;}
else {
x_8X = Sweak_pointer_limitS;
end_9X = Sweak_pointer_hpS;
arg0K0 = (x_8X + -1024);
arg0K1 = end_9X;
2002-05-10 04:18:09 -04:00
goto L4002;}}
L4002: {
1999-09-14 08:45:02 -04:00
start_10X = arg0K0;
end_11X = arg0K1;
next_12X = ((char *) (*((long *) (start_10X + 8))));
arg0K0 = start_10X;
2002-05-10 04:18:09 -04:00
goto L2643;}
L2643: {
1999-09-14 08:45:02 -04:00
scan_13X = arg0K0;
if ((scan_13X < end_11X)) {
2002-05-10 04:18:09 -04:00
*((long *) scan_13X) = 1078;
1999-09-14 08:45:02 -04:00
value_14X = *((long *) (scan_13X + 4));
if ((3 == (3 & value_14X))) {
a_15X = ((char *) (-3 + value_14X));
if ((a_15X < (Sfrom_beginS))) {
2002-05-10 04:18:09 -04:00
goto L2689;}
1999-09-14 08:45:02 -04:00
else {
if ((a_15X < (Sfrom_endS))) {
if ((3 == (3 & value_14X))) {
h_16X = *((long *) ((((char *) (-3 + value_14X))) + -4));
if ((3 == (3 & h_16X))) {
arg1K0 = h_16X;
2002-05-10 04:18:09 -04:00
goto L2684;}
1999-09-14 08:45:02 -04:00
else {
arg1K0 = 1;
2002-05-10 04:18:09 -04:00
goto L2684;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2689;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2689;}}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2689;}}
1999-09-14 08:45:02 -04:00
else {
if ((next_12X == NULL)) {
if ((end_9X < (Sweak_pointer_limitS))) {
2002-05-10 04:18:09 -04:00
*((long *) end_9X) = (74 + ((((-4 & ((Sweak_pointer_limitS) - (end_9X + 4))))<<8)));
1999-09-14 08:45:02 -04:00
return;}
else {
return;}}
else {
arg0K0 = (next_12X + -1024);
arg0K1 = next_12X;
2002-05-10 04:18:09 -04:00
goto L4002;}}}
L2689: {
1999-09-14 08:45:02 -04:00
arg0K0 = (scan_13X + 8);
2002-05-10 04:18:09 -04:00
goto L2643;}
L2684: {
1999-09-14 08:45:02 -04:00
x2_17X = arg1K0;
*((long *) (scan_13X + 4)) = x2_17X;
2002-05-10 04:18:09 -04:00
goto L2689;}
1999-09-14 08:45:02 -04:00
}
static char gc_recordP(long x_18X)
{
long header_19X;
{ if ((3 == (3 & x_18X))) {
header_19X = *((long *) ((((char *) (-3 + x_18X))) + -4));
if ((3 == (3 & header_19X))) {
if ((3 == (3 & header_19X))) {
2002-05-10 04:18:09 -04:00
return (9 == (31 & ((((*((long *) ((((char *) (-3 + header_19X))) + -4))))>>2))));}
1999-09-14 08:45:02 -04:00
else {
return 0;}}
else {
if ((3 == (3 & x_18X))) {
2002-05-10 04:18:09 -04:00
return (9 == (31 & ((((*((long *) ((((char *) (-3 + x_18X))) + -4))))>>2))));}
1999-09-14 08:45:02 -04:00
else {
return 0;}}}
else {
return 0;}}
}
static void note_undumpableB(long thing_20X)
{
long arg1K0;
char * temp_34X;
char * temp_33X;
char * temp_32X;
char * temp_31X;
long x_30X;
char * new_29X;
long b_28X;
char v_27X;
char * temp_26X;
char * temp_25X;
char * temp_24X;
char * temp_23X;
long list_22X;
long list_21X;
{ if ((1000 < (Sundumpable_countS))) {
return;}
else {
list_21X = Sundumpable_recordsS;
arg1K0 = list_21X;
2002-05-10 04:18:09 -04:00
goto L6375;}}
L6375: {
1999-09-14 08:45:02 -04:00
list_22X = arg1K0;
if ((25 == list_22X)) {
Sundumpable_countS = (1 + (Sundumpable_countS));
temp_23X = s48_SlimitS;
s48_SlimitS = (Soldspace_limitS);
Soldspace_limitS = temp_23X;
temp_24X = s48_ShpS;
s48_ShpS = (Soldspace_hpS);
Soldspace_hpS = temp_24X;
temp_25X = Snewspace_beginS;
Snewspace_beginS = (Soldspace_beginS);
Soldspace_beginS = temp_25X;
temp_26X = Snewspace_endS;
Snewspace_endS = (Soldspace_endS);
Soldspace_endS = temp_26X;
v_27X = ((s48_ShpS) + 12) < (s48_SlimitS);
if (v_27X) {
b_28X = Sundumpable_recordsS;
new_29X = s48_ShpS;
s48_ShpS = ((s48_ShpS) + 12);
*((long *) new_29X) = 2050;
x_30X = 3 + (((long) (new_29X + 4)));
*((long *) (((char *) (-3 + x_30X)))) = thing_20X;
*((long *) ((((char *) (-3 + x_30X))) + 4)) = b_28X;
Sundumpable_recordsS = x_30X;
2002-05-10 04:18:09 -04:00
goto L6297;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6297;}}
1999-09-14 08:45:02 -04:00
else {
if (((*((long *) (((char *) (-3 + list_22X))))) == thing_20X)) {
return;}
else {
arg1K0 = (*((long *) ((((char *) (-3 + list_22X))) + 4)));
2002-05-10 04:18:09 -04:00
goto L6375;}}}
L6297: {
1999-09-14 08:45:02 -04:00
temp_31X = s48_SlimitS;
s48_SlimitS = (Soldspace_limitS);
Soldspace_limitS = temp_31X;
temp_32X = s48_ShpS;
s48_ShpS = (Soldspace_hpS);
Soldspace_hpS = temp_32X;
temp_33X = Snewspace_beginS;
Snewspace_beginS = (Soldspace_beginS);
Soldspace_beginS = temp_33X;
temp_34X = Snewspace_endS;
Snewspace_endS = (Soldspace_endS);
Soldspace_endS = temp_34X;
return;}
}
void s48_write_barrier(long stob_35X, char * address_36X, long value_37X)
{
{ return;}
}
long s48_heap_size(void)
{
{ return ((Snewspace_endS) - (Snewspace_beginS));}
}
long s48_preallocate_space(long cells_38X)
{
{ return 0;}
}
void s48_register_static_areas(long pure_count_39X, char * *pure_areas_40X, long *pure_sizes_41X, long impure_count_42X, char * *impure_areas_43X, long *impure_sizes_44X)
{
{ Spure_area_countS = pure_count_39X;
Spure_areasS = pure_areas_40X;
Spure_sizesS = pure_sizes_41X;
Simpure_area_countS = impure_count_42X;
Simpure_areasS = impure_areas_43X;
Simpure_sizesS = impure_sizes_44X;
return;}
}
long s48_gc_count(void)
{
{ return (Sgc_countS);}
}
void s48_end_collection(void)
{
{ Sgc_countS = (1 + (Sgc_countS));
return;}
}
long s48_undumpable_records(long *TT0)
{
{ *TT0 = (Sundumpable_countS);
return (Sundumpable_recordsS);}
}
long s48_startup_procedure(void)
{
{ return (Sstartup_procedureS);}
}
long s48_initial_symbols(void)
{
{ return (SsymbolsS);}
}
long s48_initial_imported_bindings(void)
{
{ return (Simported_bindingsS);}
}
long s48_initial_exported_bindings(void)
{
{ return (Sexported_bindingsS);}
}
long s48_resumer_records(void)
{
{ return (Sresumer_recordsS);}
}
void s48_set_image_valuesB(long startup_proc_45X, long symbols_46X, long imports_47X, long exports_48X, long records_49X)
{
{ Sstartup_procedureS = startup_proc_45X;
SsymbolsS = symbols_46X;
Simported_bindingsS = imports_47X;
Sexported_bindingsS = exports_48X;
Sresumer_recordsS = records_49X;
return;}
}
void s48_initialization_completeB(void)
{
{ SinitializingPS = 0;
return;}
}
void s48_initialize_heap(char * start_50X, long size_51X)
{
long semisize_53X;
long cells_52X;
{ cells_52X = size_51X / 2;
semisize_53X = ((cells_52X)<<2);
Snewspace_beginS = start_50X;
Snewspace_endS = ((Snewspace_beginS) + semisize_53X);
s48_ShpS = (Snewspace_beginS);
s48_SlimitS = (Snewspace_endS);
Soldspace_beginS = (Snewspace_endS);
Soldspace_endS = ((Soldspace_beginS) + semisize_53X);
Soldspace_hpS = (Soldspace_beginS);
Soldspace_limitS = (Soldspace_endS);
return;}
}
char s48_availableP(long cells_54X)
{
{ return (((s48_ShpS) + (((cells_54X)<<2))) < (s48_SlimitS));}
}
char s48_image_writing_okayP(void)
{
{ if ((0 < (Simpure_area_countS))) {
return 0;}
else {
if ((0 < (Spure_area_countS))) {
return 0;}
else {
return 1;}}}
}
char * s48_allocate_space(long type_55X, long len_56X, long key_57X)
{
char * new_58X;
{ new_58X = s48_ShpS;
s48_ShpS = ((s48_ShpS) + (-4 & (3 + len_56X)));
return new_58X;}
}
long s48_available(void)
{
{ return (((((s48_SlimitS) - (s48_ShpS)))>>2));}
}
char s48_extantP(long thing_59X)
{
char * a_60X;
{ if ((3 == (3 & thing_59X))) {
if ((3 == (3 & thing_59X))) {
a_60X = ((char *) (-3 + thing_59X));
if ((a_60X < (Sfrom_beginS))) {
return 1;}
else {
if ((a_60X < (Sfrom_endS))) {
return (3 == (3 & (*((long *) ((((char *) (-3 + thing_59X))) + -4)))));}
else {
return 1;}}}
else {
return 1;}}
else {
return 1;}}
}
long s48_check_image_header(char *filename_61X)
{
long arg1K0;
long arg1K2;
long arg1K1;
char arg2K1;
char arg2K0;
long status_122X;
char eofP_121X;
long status_120X;
long status_119X;
long status_118X;
long status_117X;
long status_116X;
char eofP_115X;
char ch_114X;
long v_113X;
long status_112X;
char eofP_111X;
long thing_110X;
long v_109X;
long status_108X;
char eofP_107X;
long thing_106X;
long v_105X;
long status_104X;
char eofP_103X;
long thing_102X;
long v_101X;
long status_100X;
char eofP_99X;
long thing_98X;
long v_97X;
long status_96X;
char eofP_95X;
long thing_94X;
long cells_93X;
long status_92X;
char eofP_91X;
long thing_90X;
long cells_89X;
long status_88X;
char eofP_87X;
char thing_86X;
long status_85X;
char eofP_84X;
long thing_83X;
long old_bytes_per_cell_82X;
long status_81X;
char eofP_80X;
long status_79X;
char eofP_78X;
char ch_77X;
long i_76X;
long status_75X;
char eofP_74X;
long thing_73X;
char same_versionP_72X;
long status_71X;
char eofP_70X;
long status_69X;
char eofP_68X;
char ch_67X;
long status_66X;
char eofP_65X;
char ch_64X;
long status_63X;
FILE * port_62X;
{ port_62X = ps_open_input_file(filename_61X, &status_63X);
if ((status_63X == NO_ERRORS)) {
SstatusS = NO_ERRORS;
SeofPS = 0;
if ((SeofPS)) {
2002-05-10 04:18:09 -04:00
goto L2901;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L3634;}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("Can't open heap image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
ps_write_string((ps_error_string(status_63X)), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L2901: {
1999-09-14 08:45:02 -04:00
if ((SeofPS)) {
2002-05-10 04:18:09 -04:00
goto L2934;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L3598;}}
L3634: {
1999-09-14 08:45:02 -04:00
PS_READ_CHAR(port_62X, ch_64X, eofP_65X, status_66X)
if (eofP_65X) {
arg2K0 = eofP_65X;
arg1K1 = status_66X;
2002-05-10 04:18:09 -04:00
goto L2879;}
1999-09-14 08:45:02 -04:00
else {
if ((status_66X == NO_ERRORS)) {
if ((12 == ch_64X)) {
arg2K0 = 0;
arg1K1 = status_66X;
2002-05-10 04:18:09 -04:00
goto L2879;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L3634;}}
1999-09-14 08:45:02 -04:00
else {
arg2K0 = eofP_65X;
arg1K1 = status_66X;
2002-05-10 04:18:09 -04:00
goto L2879;}}}
L2934: {
1999-09-14 08:45:02 -04:00
if ((SeofPS)) {
arg2K0 = 0;
2002-05-10 04:18:09 -04:00
goto L2967;}
1999-09-14 08:45:02 -04:00
else {
arg1K0 = 0;
2002-05-10 04:18:09 -04:00
goto L3574;}}
L3598: {
1999-09-14 08:45:02 -04:00
PS_READ_CHAR(port_62X, ch_67X, eofP_68X, status_69X)
if (eofP_68X) {
arg2K0 = eofP_68X;
arg1K1 = status_69X;
2002-05-10 04:18:09 -04:00
goto L2912;}
1999-09-14 08:45:02 -04:00
else {
if ((status_69X == NO_ERRORS)) {
if ((10 == ch_67X)) {
arg2K0 = 0;
arg1K1 = status_69X;
2002-05-10 04:18:09 -04:00
goto L2912;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L3598;}}
1999-09-14 08:45:02 -04:00
else {
arg2K0 = eofP_68X;
arg1K1 = status_69X;
2002-05-10 04:18:09 -04:00
goto L2912;}}}
L2879: {
1999-09-14 08:45:02 -04:00
eofP_70X = arg2K0;
status_71X = arg1K1;
if (eofP_70X) {
SeofPS = 1;
2002-05-10 04:18:09 -04:00
goto L2901;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L2901;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_71X;
2002-05-10 04:18:09 -04:00
goto L2901;}}}
L2967: {
1999-09-14 08:45:02 -04:00
same_versionP_72X = arg2K0;
if ((SeofPS)) {
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3002;}
1999-09-14 08:45:02 -04:00
else {
PS_READ_INTEGER(port_62X, thing_73X, eofP_74X, status_75X)
if (eofP_74X) {
SeofPS = 1;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3002;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg1K0 = thing_73X;
2002-05-10 04:18:09 -04:00
goto L3002;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_75X;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3002;}}}}
L3574: {
1999-09-14 08:45:02 -04:00
i_76X = arg1K0;
PS_READ_CHAR(port_62X, ch_77X, eofP_78X, status_79X)
if (eofP_78X) {
arg2K0 = 0;
arg2K1 = eofP_78X;
arg1K2 = status_79X;
2002-05-10 04:18:09 -04:00
goto L2945;}
1999-09-14 08:45:02 -04:00
else {
if ((status_79X == NO_ERRORS)) {
if ((i_76X == (strlen((char *) "Vanilla 20")))) {
arg2K0 = (10 == ch_77X);
arg2K1 = 0;
arg1K2 = status_79X;
2002-05-10 04:18:09 -04:00
goto L2945;}
1999-09-14 08:45:02 -04:00
else {
if ((ch_77X == (*("Vanilla 20" + i_76X)))) {
arg1K0 = (1 + i_76X);
2002-05-10 04:18:09 -04:00
goto L3574;}
1999-09-14 08:45:02 -04:00
else {
arg2K0 = 0;
arg2K1 = 0;
arg1K2 = status_79X;
2002-05-10 04:18:09 -04:00
goto L2945;}}}
1999-09-14 08:45:02 -04:00
else {
arg2K0 = 0;
arg2K1 = eofP_78X;
arg1K2 = status_79X;
2002-05-10 04:18:09 -04:00
goto L2945;}}}
L2912: {
1999-09-14 08:45:02 -04:00
eofP_80X = arg2K0;
status_81X = arg1K1;
if (eofP_80X) {
SeofPS = 1;
2002-05-10 04:18:09 -04:00
goto L2934;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L2934;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_81X;
2002-05-10 04:18:09 -04:00
goto L2934;}}}
L3002: {
1999-09-14 08:45:02 -04:00
old_bytes_per_cell_82X = arg1K0;
if ((SeofPS)) {
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3037;}
1999-09-14 08:45:02 -04:00
else {
PS_READ_INTEGER(port_62X, thing_83X, eofP_84X, status_85X)
if (eofP_84X) {
SeofPS = 1;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3037;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg1K0 = thing_83X;
2002-05-10 04:18:09 -04:00
goto L3037;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_85X;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3037;}}}}
L2945: {
1999-09-14 08:45:02 -04:00
thing_86X = arg2K0;
eofP_87X = arg2K1;
status_88X = arg1K2;
if (eofP_87X) {
SeofPS = 1;
arg2K0 = 0;
2002-05-10 04:18:09 -04:00
goto L2967;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg2K0 = thing_86X;
2002-05-10 04:18:09 -04:00
goto L2967;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_88X;
arg2K0 = 0;
2002-05-10 04:18:09 -04:00
goto L2967;}}}
L3037: {
1999-09-14 08:45:02 -04:00
cells_89X = arg1K0;
Sold_beginS = (((char *) (((cells_89X)<<2))));
if ((SeofPS)) {
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3075;}
1999-09-14 08:45:02 -04:00
else {
PS_READ_INTEGER(port_62X, thing_90X, eofP_91X, status_92X)
if (eofP_91X) {
SeofPS = 1;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3075;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg1K0 = thing_90X;
2002-05-10 04:18:09 -04:00
goto L3075;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_92X;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3075;}}}}
L3075: {
1999-09-14 08:45:02 -04:00
cells_93X = arg1K0;
Sold_hpS = (((char *) (((cells_93X)<<2))));
if ((SeofPS)) {
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3113;}
1999-09-14 08:45:02 -04:00
else {
PS_READ_INTEGER(port_62X, thing_94X, eofP_95X, status_96X)
if (eofP_95X) {
SeofPS = 1;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3113;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg1K0 = thing_94X;
2002-05-10 04:18:09 -04:00
goto L3113;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_96X;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3113;}}}}
L3113: {
1999-09-14 08:45:02 -04:00
v_97X = arg1K0;
SsymbolsS = v_97X;
if ((SeofPS)) {
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3149;}
1999-09-14 08:45:02 -04:00
else {
PS_READ_INTEGER(port_62X, thing_98X, eofP_99X, status_100X)
if (eofP_99X) {
SeofPS = 1;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3149;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg1K0 = thing_98X;
2002-05-10 04:18:09 -04:00
goto L3149;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_100X;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3149;}}}}
L3149: {
1999-09-14 08:45:02 -04:00
v_101X = arg1K0;
Simported_bindingsS = v_101X;
if ((SeofPS)) {
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3185;}
1999-09-14 08:45:02 -04:00
else {
PS_READ_INTEGER(port_62X, thing_102X, eofP_103X, status_104X)
if (eofP_103X) {
SeofPS = 1;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3185;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg1K0 = thing_102X;
2002-05-10 04:18:09 -04:00
goto L3185;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_104X;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3185;}}}}
L3185: {
1999-09-14 08:45:02 -04:00
v_105X = arg1K0;
Sexported_bindingsS = v_105X;
if ((SeofPS)) {
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3221;}
1999-09-14 08:45:02 -04:00
else {
PS_READ_INTEGER(port_62X, thing_106X, eofP_107X, status_108X)
if (eofP_107X) {
SeofPS = 1;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3221;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg1K0 = thing_106X;
2002-05-10 04:18:09 -04:00
goto L3221;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_108X;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3221;}}}}
L3221: {
1999-09-14 08:45:02 -04:00
v_109X = arg1K0;
Sresumer_recordsS = v_109X;
if ((SeofPS)) {
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3257;}
1999-09-14 08:45:02 -04:00
else {
PS_READ_INTEGER(port_62X, thing_110X, eofP_111X, status_112X)
if (eofP_111X) {
SeofPS = 1;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3257;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
arg1K0 = thing_110X;
2002-05-10 04:18:09 -04:00
goto L3257;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_112X;
arg1K0 = -1;
2002-05-10 04:18:09 -04:00
goto L3257;}}}}
L3257: {
1999-09-14 08:45:02 -04:00
v_113X = arg1K0;
Sstartup_procedureS = v_113X;
Simage_portS = port_62X;
if ((SeofPS)) {
2002-05-10 04:18:09 -04:00
goto L3296;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L3505;}}
L3296: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
if ((SeofPS)) {
SstatusS = EDOM;
ps_write_string("Premature EOF when reading image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L3377;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L3377;}}
1999-09-14 08:45:02 -04:00
else {
if (same_versionP_72X) {
if ((4 == old_bytes_per_cell_82X)) {
return ((Sold_hpS) - (Sold_beginS));}
else {
ps_write_string("Incompatible bytes-per-cell in image", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L3437;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L3437;}}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("Format of image is incompatible with this version of system", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L3407;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L3407;}}}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("Error reading from image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L3352;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L3352;}}}
L3505: {
1999-09-14 08:45:02 -04:00
PS_READ_CHAR(port_62X, ch_114X, eofP_115X, status_116X)
if (eofP_115X) {
arg2K0 = eofP_115X;
arg1K1 = status_116X;
2002-05-10 04:18:09 -04:00
goto L3274;}
1999-09-14 08:45:02 -04:00
else {
if ((status_116X == NO_ERRORS)) {
if ((12 == ch_114X)) {
arg2K0 = 0;
arg1K1 = status_116X;
2002-05-10 04:18:09 -04:00
goto L3274;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L3505;}}
1999-09-14 08:45:02 -04:00
else {
arg2K0 = eofP_115X;
arg1K1 = status_116X;
2002-05-10 04:18:09 -04:00
goto L3274;}}}
L3377: {
1999-09-14 08:45:02 -04:00
status_117X = ps_close(port_62X);
if ((status_117X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L3437: {
1999-09-14 08:45:02 -04:00
status_118X = ps_close(port_62X);
if ((status_118X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L3407: {
1999-09-14 08:45:02 -04:00
status_119X = ps_close(port_62X);
if ((status_119X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L3352: {
1999-09-14 08:45:02 -04:00
status_120X = ps_close(port_62X);
if ((status_120X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L3274: {
1999-09-14 08:45:02 -04:00
eofP_121X = arg2K0;
status_122X = arg1K1;
if (eofP_121X) {
SeofPS = 1;
2002-05-10 04:18:09 -04:00
goto L3296;}
1999-09-14 08:45:02 -04:00
else {
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L3296;}
1999-09-14 08:45:02 -04:00
else {
SeofPS = 1;
SstatusS = status_122X;
2002-05-10 04:18:09 -04:00
goto L3296;}}}
1999-09-14 08:45:02 -04:00
}
long s48_find_all(long type_123X)
{
char * arg0K0;
long arg1K0;
char * merged_arg0K1;
char * merged_arg0K0;
2002-05-10 04:18:09 -04:00
int Hproc930124_return_tag;
char Hproc9301240_return_value;
1999-09-14 08:45:02 -04:00
char * start_125X;
char * end_126X;
char * next_142X;
long d_141X;
char * addr_140X;
long type_139X;
char v_138X;
long i_137X;
long count_136X;
long *sizes_135X;
char * *areas_134X;
char v_133X;
long i_132X;
long count_131X;
long *sizes_130X;
char * *areas_129X;
char v_128X;
char * start_hp_127X;
{ Sfinding_typeS = type_123X;
start_hp_127X = s48_ShpS;
*((long *) (s48_ShpS)) = 0;
s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_127X;
2002-05-10 04:18:09 -04:00
Hproc930124_return_tag = 0;
goto Hproc930124;
Hproc930124_return_0:
v_128X = Hproc9301240_return_value;
1999-09-14 08:45:02 -04:00
if (v_128X) {
if ((0 < (Simpure_area_countS))) {
areas_129X = Simpure_areasS;
sizes_130X = Simpure_sizesS;
count_131X = Simpure_area_countS;
arg1K0 = 0;
2002-05-10 04:18:09 -04:00
goto L5585;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5525;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5543;}}
L5585: {
1999-09-14 08:45:02 -04:00
i_132X = arg1K0;
if ((i_132X < count_131X)) {
merged_arg0K0 = (*(areas_129X + i_132X));
merged_arg0K1 = ((*(areas_129X + i_132X)) + (*(sizes_130X + i_132X)));
2002-05-10 04:18:09 -04:00
Hproc930124_return_tag = 1;
goto Hproc930124;
Hproc930124_return_1:
v_133X = Hproc9301240_return_value;
1999-09-14 08:45:02 -04:00
if (v_133X) {
arg1K0 = (1 + i_132X);
2002-05-10 04:18:09 -04:00
goto L5585;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5543;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5525;}}
L5525: {
1999-09-14 08:45:02 -04:00
if ((0 < (Spure_area_countS))) {
areas_134X = Spure_areasS;
sizes_135X = Spure_sizesS;
count_136X = Spure_area_countS;
arg1K0 = 0;
2002-05-10 04:18:09 -04:00
goto L5606;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5532;}}
L5543: {
1999-09-14 08:45:02 -04:00
s48_ShpS = start_hp_127X;
return 1;}
2002-05-10 04:18:09 -04:00
L5606: {
1999-09-14 08:45:02 -04:00
i_137X = arg1K0;
if ((i_137X < count_136X)) {
merged_arg0K0 = (*(areas_134X + i_137X));
merged_arg0K1 = ((*(areas_134X + i_137X)) + (*(sizes_135X + i_137X)));
2002-05-10 04:18:09 -04:00
Hproc930124_return_tag = 2;
goto Hproc930124;
Hproc930124_return_2:
v_138X = Hproc9301240_return_value;
1999-09-14 08:45:02 -04:00
if (v_138X) {
arg1K0 = (1 + i_137X);
2002-05-10 04:18:09 -04:00
goto L5606;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5543;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5532;}}
L5532: {
1999-09-14 08:45:02 -04:00
*((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8)));
return (3 + (((long) (start_hp_127X + 4))));}
2002-05-10 04:18:09 -04:00
Hproc930124: {
1999-09-14 08:45:02 -04:00
start_125X = merged_arg0K0;
end_126X = merged_arg0K1;{
type_139X = Sfinding_typeS;
arg0K0 = start_125X;
2002-05-10 04:18:09 -04:00
goto L4511;}
L4511: {
1999-09-14 08:45:02 -04:00
addr_140X = arg0K0;
if ((addr_140X < end_126X)) {
d_141X = *((long *) addr_140X);
next_142X = addr_140X + (4 + (-4 & (3 + ((long)(((unsigned long)d_141X)>>8)))));
if ((2 == (3 & d_141X))) {
if ((type_139X == (31 & (((d_141X)>>2))))) {
if ((((s48_ShpS) + 16) < (s48_SlimitS))) {
*((long *) (s48_ShpS)) = (3 + (((long) (addr_140X + 4))));
s48_ShpS = ((s48_ShpS) + 4);
arg0K0 = next_142X;
2002-05-10 04:18:09 -04:00
goto L4511;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
Hproc9301240_return_value = 0;
goto Hproc930124_return;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_142X;
2002-05-10 04:18:09 -04:00
goto L4511;}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("heap is in an inconsistent state.", (stderr));
2002-05-10 04:18:09 -04:00
Hproc9301240_return_value = 0;
goto Hproc930124_return;}}
else {
Hproc9301240_return_value = 1;
goto Hproc930124_return;}}
Hproc930124_return:
switch (Hproc930124_return_tag) {
case 0: goto Hproc930124_return_0;
case 1: goto Hproc930124_return_1;
default: goto Hproc930124_return_2;
1999-09-14 08:45:02 -04:00
}}
}
long s48_read_image(void)
{
FILE * arg4K0;
char *arg3K1;
char arg2K1;
char arg2K0;
char * arg0K0;
long arg1K0;
long v_192X;
long descriptor_191X;
long v_190X;
long descriptor_189X;
long v_188X;
long descriptor_187X;
long v_186X;
long d_185X;
long descriptor_184X;
long v_183X;
long descriptor_182X;
char * ptr_181X;
long descriptor_180X;
long status_179X;
long status_178X;
long status_177X;
long status_176X;
char * next_175X;
long value_174X;
long x_173X;
long x_172X;
char * ptr_171X;
long status_170X;
long status_169X;
long status_168X;
char eofP_167X;
char v_166X;
char *string_165X;
char okayP_164X;
long status_163X;
long status_162X;
long status_161X;
char eofP_160X;
long got_159X;
long need_158X;
char * start_157X;
char * new_limit_156X;
char * new_hp_155X;
long delta_154X;
char reverseP_153X;
FILE * port_152X;
long x_151X;
long x_150X;
char * addr_149X;
char *string_148X;
char okayP_147X;
long status_146X;
char eofP_145X;
long got_144X;
FILE * port_143X;
{ port_143X = Simage_portS;
got_144X = ps_read_block(port_143X, ((char *) (s48_ShpS)), 4, &eofP_145X, &status_146X);
if ((status_146X == NO_ERRORS)) {
if (eofP_145X) {
arg2K0 = 0;
arg3K1 = "Premature EOF when reading image file";
2002-05-10 04:18:09 -04:00
goto L6087;}
1999-09-14 08:45:02 -04:00
else {
if ((got_144X < 4)) {
arg2K0 = 0;
arg3K1 = "Read returned too few bytes";
2002-05-10 04:18:09 -04:00
goto L6087;}
1999-09-14 08:45:02 -04:00
else {
arg2K0 = 1;
arg3K1 = "";
2002-05-10 04:18:09 -04:00
goto L6087;}}}
1999-09-14 08:45:02 -04:00
else {
SstatusS = status_146X;
arg2K0 = 0;
arg3K1 = "Error reading from image file";
2002-05-10 04:18:09 -04:00
goto L6087;}}
L6087: {
1999-09-14 08:45:02 -04:00
okayP_147X = arg2K0;
string_148X = arg3K1;
if (okayP_147X) {
if ((1 == (*((long *) (s48_ShpS))))) {
arg4K0 = port_143X;
arg2K1 = 0;
2002-05-10 04:18:09 -04:00
goto L5100;}
1999-09-14 08:45:02 -04:00
else {
addr_149X = s48_ShpS;
x_150X = *((unsigned char *) addr_149X);
*((unsigned char *) addr_149X) = (*((unsigned char *) (addr_149X + 3)));
*((unsigned char *) (addr_149X + 3)) = x_150X;
x_151X = *((unsigned char *) (addr_149X + 1));
*((unsigned char *) (addr_149X + 1)) = (*((unsigned char *) (addr_149X + 2)));
*((unsigned char *) (addr_149X + 2)) = x_151X;
if ((1 == (*((long *) (s48_ShpS))))) {
arg4K0 = port_143X;
arg2K1 = 1;
2002-05-10 04:18:09 -04:00
goto L5100;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("Unable to correct byte order", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L6195;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L6195;}}}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string(string_148X, (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L6143;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L6143;}}}
L5100: {
1999-09-14 08:45:02 -04:00
port_152X = arg4K0;
reverseP_153X = arg2K1;
delta_154X = (s48_ShpS) - (Sold_beginS);
new_hp_155X = (Sold_hpS) + delta_154X;
new_limit_156X = Snewspace_endS;
start_157X = s48_ShpS;
if ((new_hp_155X < new_limit_156X)) {
need_158X = (Sold_hpS) - (Sold_beginS);
got_159X = ps_read_block(port_152X, ((char *) (s48_ShpS)), need_158X, &eofP_160X, &status_161X);
if ((status_161X == NO_ERRORS)) {
if (eofP_160X) {
arg2K0 = 0;
arg3K1 = "Premature EOF when reading image file";
2002-05-10 04:18:09 -04:00
goto L5122;}
1999-09-14 08:45:02 -04:00
else {
if ((got_159X < need_158X)) {
arg2K0 = 0;
arg3K1 = "Read returned too few bytes";
2002-05-10 04:18:09 -04:00
goto L5122;}
1999-09-14 08:45:02 -04:00
else {
arg2K0 = 1;
arg3K1 = "";
2002-05-10 04:18:09 -04:00
goto L5122;}}}
1999-09-14 08:45:02 -04:00
else {
SstatusS = status_161X;
arg2K0 = 0;
arg3K1 = "Error reading from image file";
2002-05-10 04:18:09 -04:00
goto L5122;}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("Heap not big enough to restore this image", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L5218;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L5218;}}}
L6195: {
1999-09-14 08:45:02 -04:00
status_162X = ps_close(port_143X);
if ((status_162X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L6143: {
1999-09-14 08:45:02 -04:00
status_163X = ps_close(port_143X);
if ((status_163X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L5122: {
1999-09-14 08:45:02 -04:00
okayP_164X = arg2K0;
string_165X = arg3K1;
PS_READ_CHAR(port_152X, v_166X, eofP_167X, status_168X)
if (okayP_164X) {
if ((status_168X == NO_ERRORS)) {
if (eofP_167X) {
status_169X = ps_close(port_152X);
if ((status_169X == NO_ERRORS)) {
if (reverseP_153X) {
ps_write_string("Correcting byte order of resumed image.", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
arg0K0 = start_157X;
2002-05-10 04:18:09 -04:00
goto L4317;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5160;}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L5353;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L5353;}}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("Image file has extraneous data after image", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L5323;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L5323;}}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("Error reading from image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L5293;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L5293;}}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string(string_165X, (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
if (((SstatusS) == NO_ERRORS)) {
2002-05-10 04:18:09 -04:00
goto L5263;}
1999-09-14 08:45:02 -04:00
else {
ps_write_string((ps_error_string((SstatusS))), (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
2002-05-10 04:18:09 -04:00
goto L5263;}}}
L5218: {
1999-09-14 08:45:02 -04:00
status_170X = ps_close(port_152X);
if ((status_170X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L4317: {
1999-09-14 08:45:02 -04:00
ptr_171X = arg0K0;
if ((ptr_171X < new_hp_155X)) {
x_172X = *((unsigned char *) ptr_171X);
*((unsigned char *) ptr_171X) = (*((unsigned char *) (ptr_171X + 3)));
*((unsigned char *) (ptr_171X + 3)) = x_172X;
x_173X = *((unsigned char *) (ptr_171X + 1));
*((unsigned char *) (ptr_171X + 1)) = (*((unsigned char *) (ptr_171X + 2)));
*((unsigned char *) (ptr_171X + 2)) = x_173X;
value_174X = *((long *) ptr_171X);
next_175X = ptr_171X + 4;
if ((2 == (3 & value_174X))) {
2002-05-10 04:18:09 -04:00
if (((31 & (((value_174X)>>2))) < 17)) {
1999-09-14 08:45:02 -04:00
arg0K0 = next_175X;
2002-05-10 04:18:09 -04:00
goto L4317;}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = (next_175X + (-4 & (3 + ((long)(((unsigned long)value_174X)>>8)))));
2002-05-10 04:18:09 -04:00
goto L4317;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_175X;
2002-05-10 04:18:09 -04:00
goto L4317;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5160;}}
L5160: {
1999-09-14 08:45:02 -04:00
if ((0 == delta_154X)) {
2002-05-10 04:18:09 -04:00
goto L5170;}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = start_157X;
2002-05-10 04:18:09 -04:00
goto L4416;}}
L5353: {
1999-09-14 08:45:02 -04:00
status_176X = ps_close(port_152X);
if ((status_176X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L5323: {
1999-09-14 08:45:02 -04:00
status_177X = ps_close(port_152X);
if ((status_177X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L5293: {
1999-09-14 08:45:02 -04:00
status_178X = ps_close(port_152X);
if ((status_178X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L5263: {
1999-09-14 08:45:02 -04:00
status_179X = ps_close(port_152X);
if ((status_179X == NO_ERRORS)) {
return -1;}
else {
ps_write_string("Error closing image file", (stderr));
{ long ignoreXX;
PS_WRITE_CHAR(10, (stderr), ignoreXX) }
return -1;}}
2002-05-10 04:18:09 -04:00
L5170: {
1999-09-14 08:45:02 -04:00
s48_ShpS = new_hp_155X;
descriptor_180X = Sstartup_procedureS;
if ((3 == (3 & descriptor_180X))) {
arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_180X))) + delta_154X))));
2002-05-10 04:18:09 -04:00
goto L5174;}
1999-09-14 08:45:02 -04:00
else {
arg1K0 = descriptor_180X;
2002-05-10 04:18:09 -04:00
goto L5174;}}
L4416: {
1999-09-14 08:45:02 -04:00
ptr_181X = arg0K0;
if ((ptr_181X < new_hp_155X)) {
descriptor_182X = *((long *) ptr_181X);
if ((3 == (3 & descriptor_182X))) {
arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_182X))) + delta_154X))));
2002-05-10 04:18:09 -04:00
goto L4421;}
1999-09-14 08:45:02 -04:00
else {
arg1K0 = descriptor_182X;
2002-05-10 04:18:09 -04:00
goto L4421;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5170;}}
L5174: {
1999-09-14 08:45:02 -04:00
v_183X = arg1K0;
Sstartup_procedureS = v_183X;
descriptor_184X = SsymbolsS;
if ((3 == (3 & descriptor_184X))) {
arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_184X))) + delta_154X))));
2002-05-10 04:18:09 -04:00
goto L5179;}
1999-09-14 08:45:02 -04:00
else {
arg1K0 = descriptor_184X;
2002-05-10 04:18:09 -04:00
goto L5179;}}
L4421: {
1999-09-14 08:45:02 -04:00
d_185X = arg1K0;
*((long *) ptr_181X) = d_185X;
if ((2 == (3 & d_185X))) {
2002-05-10 04:18:09 -04:00
if (((31 & (((d_185X)>>2))) < 17)) {
goto L4435;}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = (ptr_181X + (4 + (-4 & (3 + ((long)(((unsigned long)d_185X)>>8))))));
2002-05-10 04:18:09 -04:00
goto L4416;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L4435;}}
L5179: {
1999-09-14 08:45:02 -04:00
v_186X = arg1K0;
SsymbolsS = v_186X;
descriptor_187X = Simported_bindingsS;
if ((3 == (3 & descriptor_187X))) {
arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_187X))) + delta_154X))));
2002-05-10 04:18:09 -04:00
goto L5184;}
1999-09-14 08:45:02 -04:00
else {
arg1K0 = descriptor_187X;
2002-05-10 04:18:09 -04:00
goto L5184;}}
L4435: {
1999-09-14 08:45:02 -04:00
arg0K0 = (ptr_181X + 4);
2002-05-10 04:18:09 -04:00
goto L4416;}
L5184: {
1999-09-14 08:45:02 -04:00
v_188X = arg1K0;
Simported_bindingsS = v_188X;
descriptor_189X = Sexported_bindingsS;
if ((3 == (3 & descriptor_189X))) {
arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_189X))) + delta_154X))));
2002-05-10 04:18:09 -04:00
goto L5189;}
1999-09-14 08:45:02 -04:00
else {
arg1K0 = descriptor_189X;
2002-05-10 04:18:09 -04:00
goto L5189;}}
L5189: {
1999-09-14 08:45:02 -04:00
v_190X = arg1K0;
Sexported_bindingsS = v_190X;
descriptor_191X = Sresumer_recordsS;
if ((3 == (3 & descriptor_191X))) {
arg1K0 = (3 + (((long) ((((char *) (-3 + descriptor_191X))) + delta_154X))));
2002-05-10 04:18:09 -04:00
goto L5194;}
1999-09-14 08:45:02 -04:00
else {
arg1K0 = descriptor_191X;
2002-05-10 04:18:09 -04:00
goto L5194;}}
L5194: {
1999-09-14 08:45:02 -04:00
v_192X = arg1K0;
Sresumer_recordsS = v_192X;
return 0;}
}
long s48_find_all_records(long record_type_193X)
{
char * arg0K0;
long arg1K0;
char * merged_arg0K1;
char * merged_arg0K0;
2002-05-10 04:18:09 -04:00
int Hproc978194_return_tag;
char Hproc9781940_return_value;
1999-09-14 08:45:02 -04:00
char * start_195X;
char * end_196X;
long obj_213X;
char * next_212X;
long d_211X;
char * addr_210X;
long type_209X;
char v_208X;
long i_207X;
long count_206X;
long *sizes_205X;
char * *areas_204X;
char v_203X;
long i_202X;
long count_201X;
long *sizes_200X;
char * *areas_199X;
char v_198X;
char * start_hp_197X;
2002-05-10 04:18:09 -04:00
{ Hthe_record_type9330 = record_type_193X;
Sfinding_typeS = 9;
1999-09-14 08:45:02 -04:00
start_hp_197X = s48_ShpS;
*((long *) (s48_ShpS)) = 0;
s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_197X;
2002-05-10 04:18:09 -04:00
Hproc978194_return_tag = 0;
goto Hproc978194;
Hproc978194_return_0:
v_198X = Hproc9781940_return_value;
1999-09-14 08:45:02 -04:00
if (v_198X) {
if ((0 < (Simpure_area_countS))) {
areas_199X = Simpure_areasS;
sizes_200X = Simpure_sizesS;
count_201X = Simpure_area_countS;
arg1K0 = 0;
2002-05-10 04:18:09 -04:00
goto L5750;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5690;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5708;}}
L5750: {
1999-09-14 08:45:02 -04:00
i_202X = arg1K0;
if ((i_202X < count_201X)) {
merged_arg0K0 = (*(areas_199X + i_202X));
merged_arg0K1 = ((*(areas_199X + i_202X)) + (*(sizes_200X + i_202X)));
2002-05-10 04:18:09 -04:00
Hproc978194_return_tag = 1;
goto Hproc978194;
Hproc978194_return_1:
v_203X = Hproc9781940_return_value;
1999-09-14 08:45:02 -04:00
if (v_203X) {
arg1K0 = (1 + i_202X);
2002-05-10 04:18:09 -04:00
goto L5750;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5708;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5690;}}
L5690: {
1999-09-14 08:45:02 -04:00
if ((0 < (Spure_area_countS))) {
areas_204X = Spure_areasS;
sizes_205X = Spure_sizesS;
count_206X = Spure_area_countS;
arg1K0 = 0;
2002-05-10 04:18:09 -04:00
goto L5771;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5697;}}
L5708: {
1999-09-14 08:45:02 -04:00
s48_ShpS = start_hp_197X;
return 1;}
2002-05-10 04:18:09 -04:00
L5771: {
1999-09-14 08:45:02 -04:00
i_207X = arg1K0;
if ((i_207X < count_206X)) {
merged_arg0K0 = (*(areas_204X + i_207X));
merged_arg0K1 = ((*(areas_204X + i_207X)) + (*(sizes_205X + i_207X)));
2002-05-10 04:18:09 -04:00
Hproc978194_return_tag = 2;
goto Hproc978194;
Hproc978194_return_2:
v_208X = Hproc9781940_return_value;
1999-09-14 08:45:02 -04:00
if (v_208X) {
arg1K0 = (1 + i_207X);
2002-05-10 04:18:09 -04:00
goto L5771;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5708;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5697;}}
L5697: {
1999-09-14 08:45:02 -04:00
*((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8)));
return (3 + (((long) (start_hp_197X + 4))));}
2002-05-10 04:18:09 -04:00
Hproc978194: {
1999-09-14 08:45:02 -04:00
start_195X = merged_arg0K0;
end_196X = merged_arg0K1;{
type_209X = Sfinding_typeS;
arg0K0 = start_195X;
2002-05-10 04:18:09 -04:00
goto L4678;}
L4678: {
1999-09-14 08:45:02 -04:00
addr_210X = arg0K0;
if ((addr_210X < end_196X)) {
d_211X = *((long *) addr_210X);
next_212X = addr_210X + (4 + (-4 & (3 + ((long)(((unsigned long)d_211X)>>8)))));
if ((2 == (3 & d_211X))) {
if ((type_209X == (31 & (((d_211X)>>2))))) {
obj_213X = 3 + (((long) (addr_210X + 4)));
2002-05-10 04:18:09 -04:00
if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9330))) {
1999-09-14 08:45:02 -04:00
if ((((s48_ShpS) + 16) < (s48_SlimitS))) {
*((long *) (s48_ShpS)) = obj_213X;
s48_ShpS = ((s48_ShpS) + 4);
arg0K0 = next_212X;
2002-05-10 04:18:09 -04:00
goto L4678;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
Hproc9781940_return_value = 0;
goto Hproc978194_return;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_212X;
2002-05-10 04:18:09 -04:00
goto L4678;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_212X;
2002-05-10 04:18:09 -04:00
goto L4678;}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("heap is in an inconsistent state.", (stderr));
2002-05-10 04:18:09 -04:00
Hproc9781940_return_value = 0;
goto Hproc978194_return;}}
else {
Hproc9781940_return_value = 1;
goto Hproc978194_return;}}
Hproc978194_return:
switch (Hproc978194_return_tag) {
case 0: goto Hproc978194_return_0;
case 1: goto Hproc978194_return_1;
default: goto Hproc978194_return_2;
1999-09-14 08:45:02 -04:00
}}
}
long s48_trace_locationsB(char * start_214X, char * end_215X)
{
char * arg0K0;
char * arg0K1;
long arg1K0;
long new_232X;
char * data_addr_231X;
char * frontier_230X;
long new_thing_229X;
char * frontier_228X;
long new_thing_227X;
char * a_226X;
long descriptor_225X;
long h_224X;
char * a_223X;
char v_222X;
long type_221X;
char v_220X;
char * next_219X;
long thing_218X;
char * frontier_217X;
char * addr_216X;
{ arg0K0 = start_214X;
arg0K1 = (s48_ShpS);
2002-05-10 04:18:09 -04:00
goto L6449;}
L6449: {
1999-09-14 08:45:02 -04:00
addr_216X = arg0K0;
frontier_217X = arg0K1;
if ((addr_216X < end_215X)) {
thing_218X = *((long *) addr_216X);
next_219X = addr_216X + 4;
if ((2 == (3 & thing_218X))) {
if ((2 == (3 & thing_218X))) {
2002-05-10 04:18:09 -04:00
if (((31 & (((thing_218X)>>2))) < 17)) {
1999-09-14 08:45:02 -04:00
arg0K0 = next_219X;
arg0K1 = frontier_217X;
2002-05-10 04:18:09 -04:00
goto L6449;}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = (next_219X + (-4 & (3 + ((long)(((unsigned long)thing_218X)>>8)))));
arg0K1 = frontier_217X;
2002-05-10 04:18:09 -04:00
goto L6449;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_219X;
arg0K1 = frontier_217X;
2002-05-10 04:18:09 -04:00
goto L6449;}}
1999-09-14 08:45:02 -04:00
else {
if ((Swriting_imagePS)) {
v_220X = gc_recordP(thing_218X);
if (v_220X) {
type_221X = *((long *) (((char *) (-3 + thing_218X))));
v_222X = gc_recordP(type_221X);
if (v_222X) {
if ((1 == (*((long *) ((((char *) (-3 + type_221X))) + 4))))) {
note_undumpableB(thing_218X);
*((long *) addr_216X) = (*((long *) ((((char *) (-3 + thing_218X))) + 4)));
arg0K0 = addr_216X;
arg0K1 = frontier_217X;
2002-05-10 04:18:09 -04:00
goto L6449;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6483;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6483;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6483;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6483;}}}
1999-09-14 08:45:02 -04:00
else {
s48_ShpS = frontier_217X;
return 0;}}
2002-05-10 04:18:09 -04:00
L6483: {
1999-09-14 08:45:02 -04:00
if ((3 == (3 & thing_218X))) {
a_223X = ((char *) (-3 + thing_218X));
if ((a_223X < (Sfrom_beginS))) {
arg0K0 = next_219X;
arg0K1 = frontier_217X;
2002-05-10 04:18:09 -04:00
goto L6449;}
1999-09-14 08:45:02 -04:00
else {
if ((a_223X < (Sfrom_endS))) {
h_224X = *((long *) ((((char *) (-3 + thing_218X))) + -4));
if ((3 == (3 & h_224X))) {
arg1K0 = h_224X;
arg0K1 = frontier_217X;
2002-05-10 04:18:09 -04:00
goto L6490;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
if ((1078 == h_224X)) {
1999-09-14 08:45:02 -04:00
descriptor_225X = *((long *) (((char *) (-3 + thing_218X))));
if ((3 == (3 & descriptor_225X))) {
a_226X = ((char *) (-3 + descriptor_225X));
if ((a_226X < (Sfrom_beginS))) {
2002-05-10 04:18:09 -04:00
goto L7068;}
1999-09-14 08:45:02 -04:00
else {
if ((a_226X < (Sfrom_endS))) {
new_thing_227X = copy_weak_pointer(thing_218X, frontier_217X, &frontier_228X);
arg1K0 = new_thing_227X;
arg0K1 = frontier_228X;
2002-05-10 04:18:09 -04:00
goto L6490;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L7068;}}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L7068;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L7068;}}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_219X;
arg0K1 = frontier_217X;
2002-05-10 04:18:09 -04:00
goto L6449;}}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_219X;
arg0K1 = frontier_217X;
2002-05-10 04:18:09 -04:00
goto L6449;}}
L6490: {
1999-09-14 08:45:02 -04:00
new_thing_229X = arg1K0;
frontier_230X = arg0K1;
*((long *) addr_216X) = new_thing_229X;
arg0K0 = next_219X;
arg0K1 = frontier_230X;
2002-05-10 04:18:09 -04:00
goto L6449;}
L7068: {
1999-09-14 08:45:02 -04:00
*((long *) frontier_217X) = h_224X;
data_addr_231X = frontier_217X + 4;
new_232X = 3 + (((long) data_addr_231X));
*((long *) ((((char *) (-3 + thing_218X))) + -4)) = new_232X;
memcpy((void *)data_addr_231X, (void *)(((char *) (-3 + thing_218X))),((long)(((unsigned long)h_224X)>>8)));
arg1K0 = new_232X;
arg0K1 = (data_addr_231X + (-4 & (3 + ((long)(((unsigned long)h_224X)>>8)))));
2002-05-10 04:18:09 -04:00
goto L6490;}
1999-09-14 08:45:02 -04:00
}
2002-02-25 04:01:39 -05:00
long s48_do_gc(void)
1999-09-14 08:45:02 -04:00
{
char * arg0K0;
char * end_234X;
char * start_233X;
{ arg0K0 = (Snewspace_beginS);
2002-05-10 04:18:09 -04:00
goto L6705;}
L6705: {
1999-09-14 08:45:02 -04:00
start_233X = arg0K0;
end_234X = s48_ShpS;
s48_trace_locationsB(start_233X, end_234X);
if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
ps_error("GC error: ran out of space in new heap", 0);
2002-05-10 04:18:09 -04:00
goto L6728;}
1999-09-14 08:45:02 -04:00
else {
if ((end_234X < (s48_ShpS))) {
arg0K0 = end_234X;
2002-05-10 04:18:09 -04:00
goto L6705;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6728;}}}
L6728: {
2002-02-25 04:01:39 -05:00
clean_weak_pointers();
return 0;}
1999-09-14 08:45:02 -04:00
}
long s48_trace_stob_contentsB(long stob_235X)
{
char * start_237X;
long h_236X;
{ h_236X = *((long *) ((((char *) (-3 + stob_235X))) + -4));
start_237X = ((char *) (-3 + stob_235X));
return s48_trace_locationsB(start_237X, (start_237X + (-4 & (3 + ((long)(((unsigned long)h_236X)>>8))))));}
}
void s48_begin_collection(void)
{
long arg1K0;
long i_245X;
long count_244X;
long *sizes_243X;
char * *areas_242X;
char * temp_241X;
char * temp_240X;
char * temp_239X;
char * temp_238X;
{ Sfrom_beginS = (Snewspace_beginS);
Sfrom_endS = (Snewspace_endS);
temp_238X = s48_SlimitS;
s48_SlimitS = (Soldspace_limitS);
Soldspace_limitS = temp_238X;
temp_239X = s48_ShpS;
s48_ShpS = (Soldspace_hpS);
Soldspace_hpS = temp_239X;
temp_240X = Snewspace_beginS;
Snewspace_beginS = (Soldspace_beginS);
Soldspace_beginS = temp_240X;
temp_241X = Snewspace_endS;
Snewspace_endS = (Soldspace_endS);
Soldspace_endS = temp_241X;
s48_ShpS = (Snewspace_beginS);
Sweak_pointer_hpS = NULL;
Swriting_imagePS = 0;
if ((0 < (Simpure_area_countS))) {
areas_242X = Simpure_areasS;
sizes_243X = Simpure_sizesS;
count_244X = Simpure_area_countS;
arg1K0 = 0;
2002-05-10 04:18:09 -04:00
goto L6821;}
1999-09-14 08:45:02 -04:00
else {
return;}}
2002-05-10 04:18:09 -04:00
L6821: {
1999-09-14 08:45:02 -04:00
i_245X = arg1K0;
if ((i_245X < count_244X)) {
s48_trace_locationsB((*(areas_242X + i_245X)), ((*(areas_242X + i_245X)) + (*(sizes_243X + i_245X))));
arg1K0 = (1 + i_245X);
2002-05-10 04:18:09 -04:00
goto L6821;}
1999-09-14 08:45:02 -04:00
else {
return;}}
}
long s48_trace_value(long stob_246X)
{
char * arg0K1;
long arg1K0;
long new_261X;
char * data_addr_260X;
char * new_hp_259X;
long new_thing_258X;
char * new_hp_257X;
long new_thing_256X;
char * a_255X;
long descriptor_254X;
long h_253X;
char * frontier_252X;
char * a_251X;
char v_250X;
long type_249X;
char v_248X;
long stob_247X;
{ arg1K0 = stob_247X;
2002-05-10 04:18:09 -04:00
goto L7259;}
L7259: {
1999-09-14 08:45:02 -04:00
stob_247X = arg1K0;
if ((Swriting_imagePS)) {
v_248X = gc_recordP(stob_246X);
if (v_248X) {
type_249X = *((long *) (((char *) (-3 + stob_246X))));
v_250X = gc_recordP(type_249X);
if (v_250X) {
if ((1 == (*((long *) ((((char *) (-3 + type_249X))) + 4))))) {
note_undumpableB(stob_246X);
arg1K0 = (*((long *) ((((char *) (-3 + stob_246X))) + 4)));
2002-05-10 04:18:09 -04:00
goto L7259;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6849;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6849;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6849;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6849;}}
L6849: {
1999-09-14 08:45:02 -04:00
if ((3 == (3 & stob_246X))) {
a_251X = ((char *) (-3 + stob_246X));
if ((a_251X < (Sfrom_beginS))) {
return stob_246X;}
else {
if ((a_251X < (Sfrom_endS))) {
frontier_252X = s48_ShpS;
h_253X = *((long *) ((((char *) (-3 + stob_246X))) + -4));
if ((3 == (3 & h_253X))) {
arg1K0 = h_253X;
arg0K1 = frontier_252X;
2002-05-10 04:18:09 -04:00
goto L6871;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
if ((1078 == h_253X)) {
1999-09-14 08:45:02 -04:00
descriptor_254X = *((long *) (((char *) (-3 + stob_246X))));
if ((3 == (3 & descriptor_254X))) {
a_255X = ((char *) (-3 + descriptor_254X));
if ((a_255X < (Sfrom_beginS))) {
2002-05-10 04:18:09 -04:00
goto L4201;}
1999-09-14 08:45:02 -04:00
else {
if ((a_255X < (Sfrom_endS))) {
new_thing_256X = copy_weak_pointer(stob_246X, frontier_252X, &new_hp_257X);
arg1K0 = new_thing_256X;
arg0K1 = new_hp_257X;
2002-05-10 04:18:09 -04:00
goto L6871;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L4201;}}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L4201;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L4201;}}}
1999-09-14 08:45:02 -04:00
else {
return stob_246X;}}}
else {
return stob_246X;}}
2002-05-10 04:18:09 -04:00
L6871: {
1999-09-14 08:45:02 -04:00
new_thing_258X = arg1K0;
new_hp_259X = arg0K1;
s48_ShpS = new_hp_259X;
return new_thing_258X;}
2002-05-10 04:18:09 -04:00
L4201: {
1999-09-14 08:45:02 -04:00
*((long *) frontier_252X) = h_253X;
data_addr_260X = frontier_252X + 4;
new_261X = 3 + (((long) data_addr_260X));
*((long *) ((((char *) (-3 + stob_246X))) + -4)) = new_261X;
memcpy((void *)data_addr_260X, (void *)(((char *) (-3 + stob_246X))),((long)(((unsigned long)h_253X)>>8)));
arg1K0 = new_261X;
arg0K1 = (data_addr_260X + (-4 & (3 + ((long)(((unsigned long)h_253X)>>8)))));
2002-05-10 04:18:09 -04:00
goto L6871;}
1999-09-14 08:45:02 -04:00
}
long s48_write_image(long resume_proc_262X, FILE * port_263X)
{
char * arg0K0;
long arg1K0;
char * merged_arg0K1;
char * merged_arg0K0;
int abort_collection_return_tag;
2002-05-10 04:18:09 -04:00
int Hproc976264_return_tag;
char Hproc9762640_return_value;
1999-09-14 08:45:02 -04:00
char * start_265X;
char * end_266X;
long h_320X;
long h_319X;
long d_318X;
char * addr_317X;
char * temp_316X;
char * temp_315X;
char * temp_314X;
char * temp_313X;
long type_312X;
long obj_311X;
char * next_310X;
long d_309X;
char * addr_308X;
long type_307X;
long status_306X;
long v_305X;
long v_304X;
long v_303X;
long v_302X;
long v_301X;
long v_300X;
long v_299X;
char * v_298X;
long v_297X;
char * v_296X;
long v_295X;
long v_294X;
long v_293X;
long v_292X;
long v_291X;
long imported_bindings_290X;
long resumer_records_289X;
char v_288X;
long i_287X;
long count_286X;
long *sizes_285X;
char * *areas_284X;
char v_283X;
long i_282X;
long count_281X;
long *sizes_280X;
char * *areas_279X;
char v_278X;
char * start_hp_277X;
long symbols_276X;
char * end_275X;
char * start_274X;
long resume_proc_273X;
long exported_bindings_272X;
long v_271X;
char * temp_270X;
char * temp_269X;
char * temp_268X;
char * temp_267X;
{ Sfrom_beginS = (Snewspace_beginS);
Sfrom_endS = (Snewspace_endS);
temp_267X = s48_SlimitS;
s48_SlimitS = (Soldspace_limitS);
Soldspace_limitS = temp_267X;
temp_268X = s48_ShpS;
s48_ShpS = (Soldspace_hpS);
Soldspace_hpS = temp_268X;
temp_269X = Snewspace_beginS;
Snewspace_beginS = (Soldspace_beginS);
Soldspace_beginS = temp_269X;
temp_270X = Snewspace_endS;
Snewspace_endS = (Soldspace_endS);
Soldspace_endS = temp_270X;
s48_ShpS = (Snewspace_beginS);
Sweak_pointer_hpS = NULL;
Swriting_imagePS = 1;
Sundumpable_recordsS = 25;
Sundumpable_countS = 0;
v_271X = s48_exported_bindings();
exported_bindings_272X = s48_trace_value(v_271X);
resume_proc_273X = s48_trace_value(resume_proc_262X);
arg0K0 = (Snewspace_beginS);
2002-05-10 04:18:09 -04:00
goto L6997;}
L6997: {
1999-09-14 08:45:02 -04:00
start_274X = arg0K0;
end_275X = s48_ShpS;
s48_trace_locationsB(start_274X, end_275X);
if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
ps_error("GC error: ran out of space in new heap", 0);
2002-05-10 04:18:09 -04:00
goto L6988;}
1999-09-14 08:45:02 -04:00
else {
if ((end_275X < (s48_ShpS))) {
arg0K0 = end_275X;
2002-05-10 04:18:09 -04:00
goto L6997;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L6988;}}}
L6988: {
2002-02-25 04:01:39 -05:00
clean_weak_pointers();
1999-09-14 08:45:02 -04:00
s48_mark_traced_channels_closedB();
symbols_276X = s48_copy_symbol_table();
2002-05-10 04:18:09 -04:00
Sfinding_typeS = 9;
1999-09-14 08:45:02 -04:00
start_hp_277X = s48_ShpS;
*((long *) (s48_ShpS)) = 0;
s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_277X;
2002-05-10 04:18:09 -04:00
Hproc976264_return_tag = 0;
goto Hproc976264;
Hproc976264_return_0:
v_278X = Hproc9762640_return_value;
1999-09-14 08:45:02 -04:00
if (v_278X) {
if ((0 < (Simpure_area_countS))) {
areas_279X = Simpure_areasS;
sizes_280X = Simpure_sizesS;
count_281X = Simpure_area_countS;
arg1K0 = 0;
2002-05-10 04:18:09 -04:00
goto L5915;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5855;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5873;}}
L5915: {
1999-09-14 08:45:02 -04:00
i_282X = arg1K0;
if ((i_282X < count_281X)) {
merged_arg0K0 = (*(areas_279X + i_282X));
merged_arg0K1 = ((*(areas_279X + i_282X)) + (*(sizes_280X + i_282X)));
2002-05-10 04:18:09 -04:00
Hproc976264_return_tag = 1;
goto Hproc976264;
Hproc976264_return_1:
v_283X = Hproc9762640_return_value;
1999-09-14 08:45:02 -04:00
if (v_283X) {
arg1K0 = (1 + i_282X);
2002-05-10 04:18:09 -04:00
goto L5915;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5873;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5855;}}
L5855: {
1999-09-14 08:45:02 -04:00
if ((0 < (Spure_area_countS))) {
areas_284X = Spure_areasS;
sizes_285X = Spure_sizesS;
count_286X = Spure_area_countS;
arg1K0 = 0;
2002-05-10 04:18:09 -04:00
goto L5936;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5862;}}
L5873: {
1999-09-14 08:45:02 -04:00
s48_ShpS = start_hp_277X;
arg1K0 = 1;
2002-05-10 04:18:09 -04:00
goto L7012;}
L5936: {
1999-09-14 08:45:02 -04:00
i_287X = arg1K0;
if ((i_287X < count_286X)) {
merged_arg0K0 = (*(areas_284X + i_287X));
merged_arg0K1 = ((*(areas_284X + i_287X)) + (*(sizes_285X + i_287X)));
2002-05-10 04:18:09 -04:00
Hproc976264_return_tag = 2;
goto Hproc976264;
Hproc976264_return_2:
v_288X = Hproc9762640_return_value;
1999-09-14 08:45:02 -04:00
if (v_288X) {
arg1K0 = (1 + i_287X);
2002-05-10 04:18:09 -04:00
goto L5936;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5873;}}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L5862;}}
L5862: {
1999-09-14 08:45:02 -04:00
*((long *) start_hp_277X) = (10 + (((((s48_ShpS) - (start_hp_277X + 4)))<<8)));
arg1K0 = (3 + (((long) (start_hp_277X + 4))));
2002-05-10 04:18:09 -04:00
goto L7012;}
L7012: {
1999-09-14 08:45:02 -04:00
resumer_records_289X = arg1K0;
imported_bindings_290X = s48_cleaned_imported_bindings();
if ((1 == resumer_records_289X)) {
abort_collection_return_tag = 0;
goto abort_collection;
abort_collection_return_0:
return ENOMEM;}
else {
SstatusS = NO_ERRORS;
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_291X)
SstatusS = v_291X;
2002-05-10 04:18:09 -04:00
goto L2027;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2027;}}}
L2027: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(12, port_263X, v_292X)
SstatusS = v_292X;
2002-05-10 04:18:09 -04:00
goto L2036;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2036;}}
L2036: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_293X)
SstatusS = v_293X;
2000-10-19 04:27:36 -04:00
goto L2045;}
1999-09-14 08:45:02 -04:00
else {
2000-10-19 04:27:36 -04:00
goto L2045;}}
L2045: {
2002-05-10 04:18:09 -04:00
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_string("Vanilla 20", port_263X));
goto L2052;}
else {
goto L2052;}}
L2052: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_294X)
SstatusS = v_294X;
2002-05-10 04:18:09 -04:00
goto L2061;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2061;}}
L2061: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_integer(4, port_263X));
2002-05-10 04:18:09 -04:00
goto L2131;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2131;}}
L2131: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_295X)
SstatusS = v_295X;
2002-05-10 04:18:09 -04:00
goto L2063;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2063;}}
L2063: {
1999-09-14 08:45:02 -04:00
v_296X = Snewspace_beginS;
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_integer(((((((long) v_296X)))>>2)), port_263X));
2002-05-10 04:18:09 -04:00
goto L2151;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2151;}}
L2151: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_297X)
SstatusS = v_297X;
2002-05-10 04:18:09 -04:00
goto L2069;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2069;}}
L2069: {
1999-09-14 08:45:02 -04:00
v_298X = s48_ShpS;
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_integer(((((((long) v_298X)))>>2)), port_263X));
2002-05-10 04:18:09 -04:00
goto L2171;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2171;}}
L2171: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_299X)
SstatusS = v_299X;
2002-05-10 04:18:09 -04:00
goto L2075;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2075;}}
L2075: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_integer(symbols_276X, port_263X));
2002-05-10 04:18:09 -04:00
goto L2186;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2186;}}
L2186: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_300X)
SstatusS = v_300X;
2002-05-10 04:18:09 -04:00
goto L2077;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2077;}}
L2077: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_integer(imported_bindings_290X, port_263X));
2002-05-10 04:18:09 -04:00
goto L2201;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2201;}}
L2201: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_301X)
SstatusS = v_301X;
2002-05-10 04:18:09 -04:00
goto L2079;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2079;}}
L2079: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_integer(exported_bindings_272X, port_263X));
2002-05-10 04:18:09 -04:00
goto L2216;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2216;}}
L2216: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_302X)
SstatusS = v_302X;
2002-05-10 04:18:09 -04:00
goto L2081;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2081;}}
L2081: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_integer(resumer_records_289X, port_263X));
2002-05-10 04:18:09 -04:00
goto L2231;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2231;}}
L2231: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_303X)
SstatusS = v_303X;
2002-05-10 04:18:09 -04:00
goto L2083;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2083;}}
L2083: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_integer(resume_proc_273X, port_263X));
2002-05-10 04:18:09 -04:00
goto L2246;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2246;}}
L2246: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(10, port_263X, v_304X)
SstatusS = v_304X;
2002-05-10 04:18:09 -04:00
goto L2085;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2085;}}
L2085: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
PS_WRITE_CHAR(12, port_263X, v_305X)
SstatusS = v_305X;
2002-05-10 04:18:09 -04:00
goto L2094;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2094;}}
L2094: {
1999-09-14 08:45:02 -04:00
*((long *) (s48_ShpS)) = 1;
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_block(port_263X, ((char *) (s48_ShpS)), (((s48_ShpS) + 4) - (s48_ShpS))));
2002-05-10 04:18:09 -04:00
goto L2113;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2113;}}
L2113: {
1999-09-14 08:45:02 -04:00
if (((SstatusS) == NO_ERRORS)) {
SstatusS = (ps_write_block(port_263X, ((char *) (Snewspace_beginS)), ((s48_ShpS) - (Snewspace_beginS))));
2002-05-10 04:18:09 -04:00
goto L2126;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
goto L2126;}}
L2126: {
1999-09-14 08:45:02 -04:00
status_306X = SstatusS;
abort_collection_return_tag = 1;
goto abort_collection;
abort_collection_return_1:
return status_306X;}
2002-05-10 04:18:09 -04:00
Hproc976264: {
1999-09-14 08:45:02 -04:00
start_265X = merged_arg0K0;
end_266X = merged_arg0K1;{
type_307X = Sfinding_typeS;
arg0K0 = start_265X;
2002-05-10 04:18:09 -04:00
goto L4860;}
L4860: {
1999-09-14 08:45:02 -04:00
addr_308X = arg0K0;
if ((addr_308X < end_266X)) {
d_309X = *((long *) addr_308X);
next_310X = addr_308X + (4 + (-4 & (3 + ((long)(((unsigned long)d_309X)>>8)))));
if ((2 == (3 & d_309X))) {
if ((type_307X == (31 & (((d_309X)>>2))))) {
obj_311X = 3 + (((long) (addr_308X + 4)));
type_312X = *((long *) (((char *) (-3 + obj_311X))));
if ((3 == (3 & type_312X))) {
2002-05-10 04:18:09 -04:00
if ((9 == (31 & ((((*((long *) ((((char *) (-3 + type_312X))) + -4))))>>2))))) {
1999-09-14 08:45:02 -04:00
if ((3 == (3 & (*((long *) ((((char *) (-3 + type_312X))) + 4)))))) {
if ((((s48_ShpS) + 16) < (s48_SlimitS))) {
*((long *) (s48_ShpS)) = obj_311X;
s48_ShpS = ((s48_ShpS) + 4);
arg0K0 = next_310X;
2002-05-10 04:18:09 -04:00
goto L4860;}
1999-09-14 08:45:02 -04:00
else {
2002-05-10 04:18:09 -04:00
Hproc9762640_return_value = 0;
goto Hproc976264_return;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_310X;
2002-05-10 04:18:09 -04:00
goto L4860;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_310X;
2002-05-10 04:18:09 -04:00
goto L4860;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_310X;
2002-05-10 04:18:09 -04:00
goto L4860;}}
1999-09-14 08:45:02 -04:00
else {
arg0K0 = next_310X;
2002-05-10 04:18:09 -04:00
goto L4860;}}
1999-09-14 08:45:02 -04:00
else {
ps_write_string("heap is in an inconsistent state.", (stderr));
2002-05-10 04:18:09 -04:00
Hproc9762640_return_value = 0;
goto Hproc976264_return;}}
else {
Hproc9762640_return_value = 1;
goto Hproc976264_return;}}
Hproc976264_return:
switch (Hproc976264_return_tag) {
case 0: goto Hproc976264_return_0;
case 1: goto Hproc976264_return_1;
default: goto Hproc976264_return_2;
1999-09-14 08:45:02 -04:00
}}
abort_collection: {
{ temp_313X = s48_SlimitS;
s48_SlimitS = (Soldspace_limitS);
Soldspace_limitS = temp_313X;
temp_314X = s48_ShpS;
s48_ShpS = (Soldspace_hpS);
Soldspace_hpS = temp_314X;
temp_315X = Snewspace_beginS;
Snewspace_beginS = (Soldspace_beginS);
Soldspace_beginS = temp_315X;
temp_316X = Snewspace_endS;
Snewspace_endS = (Soldspace_endS);
Soldspace_endS = temp_316X;
arg0K0 = (Snewspace_beginS);
2002-05-10 04:18:09 -04:00
goto L4093;}
L4093: {
1999-09-14 08:45:02 -04:00
addr_317X = arg0K0;
if ((addr_317X < (s48_ShpS))) {
d_318X = *((long *) addr_317X);
if ((2 == (3 & d_318X))) {
arg1K0 = d_318X;
2002-05-10 04:18:09 -04:00
goto L4114;}
1999-09-14 08:45:02 -04:00
else {
h_319X = *((long *) ((((char *) (-3 + d_318X))) + -4));
*((long *) addr_317X) = h_319X;
arg1K0 = h_319X;
2002-05-10 04:18:09 -04:00
goto L4114;}}
1999-09-14 08:45:02 -04:00
else {
goto abort_collection_return;}}
2002-05-10 04:18:09 -04:00
L4114: {
1999-09-14 08:45:02 -04:00
h_320X = arg1K0;
arg0K0 = (addr_317X + (4 + (-4 & (3 + ((long)(((unsigned long)h_320X)>>8))))));
2002-05-10 04:18:09 -04:00
goto L4093;}
1999-09-14 08:45:02 -04:00
abort_collection_return:
switch (abort_collection_return_tag) {
case 0: goto abort_collection_return_0;
default: goto abort_collection_return_1;
}}
}
void s48_initializing_gc_root(void)
{
long v_325X;
long v_324X;
long v_323X;
long v_322X;
long v_321X;
{ if ((SinitializingPS)) {
v_321X = s48_trace_value((Sstartup_procedureS));
Sstartup_procedureS = v_321X;
v_322X = s48_trace_value((SsymbolsS));
SsymbolsS = v_322X;
v_323X = s48_trace_value((Simported_bindingsS));
Simported_bindingsS = v_323X;
v_324X = s48_trace_value((Sexported_bindingsS));
Sexported_bindingsS = v_324X;
v_325X = s48_trace_value((Sresumer_recordsS));
Sresumer_recordsS = v_325X;
return;}
else {
return;}}
}void
s48_heap_init(void)
{
Spure_area_countS = 0;
Simpure_area_countS = 0;
Sfinding_typeS = 1;
Sgc_countS = 0;
SstatusS = NO_ERRORS;
SeofPS = 0;
SinitializingPS = 1;
2002-05-10 04:18:09 -04:00
Hthe_record_type9330 = 1;
1999-09-14 08:45:02 -04:00
}