Snapshot of autogenerated files.
This commit is contained in:
mainzelm
parent
b2ea0128a0
commit
9a06464234
24
c/scheme48.h
24
c/scheme48.h
|
|
@ -51,6 +51,30 @@ extern unsigned long s48_extract_unsigned_integer(s48_value);
|
|||
extern s48_value s48_enter_double(double);
|
||||
extern double s48_extract_double(s48_value);
|
||||
extern s48_value s48_cons(s48_value, s48_value);
|
||||
extern s48_value s48_list_1(s48_value);
|
||||
extern s48_value s48_list_2(s48_value, s48_value);
|
||||
extern s48_value s48_list_3(s48_value, s48_value, s48_value);
|
||||
extern s48_value s48_list_4(s48_value, s48_value, s48_value, s48_value);
|
||||
extern s48_value s48_list_5(s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value);
|
||||
extern s48_value s48_list_6(s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value);
|
||||
extern s48_value s48_list_7(s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value, s48_value);
|
||||
extern s48_value s48_list_8(s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value, s48_value, s48_value);
|
||||
extern s48_value s48_list_9(s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value);
|
||||
extern s48_value s48_list_10(s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value);
|
||||
extern s48_value s48_list_11(s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value, s48_value);
|
||||
extern s48_value s48_list_12(s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value, s48_value, s48_value,
|
||||
s48_value, s48_value, s48_value, s48_value);
|
||||
extern s48_value s48_enter_string(char *);
|
||||
extern char * s48_extract_string(s48_value);
|
||||
extern s48_value s48_enter_substring(char *, int);
|
||||
|
|
|
|||
|
|
@ -31,7 +31,7 @@ long s48_find_all(long);
|
|||
long s48_read_image(void);
|
||||
long s48_find_all_records(long);
|
||||
long s48_trace_locationsB(char *, char *);
|
||||
void s48_do_gc(void);
|
||||
long s48_do_gc(void);
|
||||
long s48_trace_stob_contentsB(long);
|
||||
void s48_begin_collection(void);
|
||||
long s48_trace_value(long);
|
||||
|
|
@ -1673,7 +1673,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
|
|||
if ((3 == (3 & descriptor_225X))) {
|
||||
a_226X = ((char *) (-3 + descriptor_225X));
|
||||
if ((a_226X < (Sfrom_beginS))) {
|
||||
goto L7063;}
|
||||
goto L7061;}
|
||||
else {
|
||||
if ((a_226X < (Sfrom_endS))) {
|
||||
new_thing_227X = copy_weak_pointer(thing_218X, frontier_217X, &frontier_228X);
|
||||
|
|
@ -1681,11 +1681,11 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
|
|||
arg0K1 = frontier_228X;
|
||||
goto L6483;}
|
||||
else {
|
||||
goto L7063;}}}
|
||||
goto L7061;}}}
|
||||
else {
|
||||
goto L7063;}}
|
||||
goto L7061;}}
|
||||
else {
|
||||
goto L7063;}}}
|
||||
goto L7061;}}}
|
||||
else {
|
||||
arg0K0 = next_219X;
|
||||
arg0K1 = frontier_217X;
|
||||
|
|
@ -1701,7 +1701,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
|
|||
arg0K0 = next_219X;
|
||||
arg0K1 = frontier_230X;
|
||||
goto L6442;}
|
||||
L7063: {
|
||||
L7061: {
|
||||
*((long *) frontier_217X) = h_224X;
|
||||
data_addr_231X = frontier_217X + 4;
|
||||
new_232X = 3 + (((long) data_addr_231X));
|
||||
|
|
@ -1711,7 +1711,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
|
|||
arg0K1 = (data_addr_231X + (-4 & (3 + ((long)(((unsigned long)h_224X)>>8)))));
|
||||
goto L6483;}
|
||||
}
|
||||
void s48_do_gc(void)
|
||||
long s48_do_gc(void)
|
||||
{
|
||||
char * arg0K0;
|
||||
char * end_234X;
|
||||
|
|
@ -1724,13 +1724,16 @@ void s48_do_gc(void)
|
|||
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);
|
||||
return clean_weak_pointers();}
|
||||
goto L6721;}
|
||||
else {
|
||||
if ((end_234X < (s48_ShpS))) {
|
||||
arg0K0 = end_234X;
|
||||
goto L6698;}
|
||||
else {
|
||||
return clean_weak_pointers();}}}
|
||||
goto L6721;}}}
|
||||
L6721: {
|
||||
clean_weak_pointers();
|
||||
return 0;}
|
||||
}
|
||||
long s48_trace_stob_contentsB(long stob_235X)
|
||||
{
|
||||
|
|
@ -1773,15 +1776,15 @@ void s48_begin_collection(void)
|
|||
sizes_243X = Simpure_sizesS;
|
||||
count_244X = Simpure_area_countS;
|
||||
arg1K0 = 0;
|
||||
goto L6813;}
|
||||
goto L6814;}
|
||||
else {
|
||||
return;}}
|
||||
L6813: {
|
||||
L6814: {
|
||||
i_245X = arg1K0;
|
||||
if ((i_245X < count_244X)) {
|
||||
s48_trace_locationsB((*(areas_242X + i_245X)), ((*(areas_242X + i_245X)) + (*(sizes_243X + i_245X))));
|
||||
arg1K0 = (1 + i_245X);
|
||||
goto L6813;}
|
||||
goto L6814;}
|
||||
else {
|
||||
return;}}
|
||||
}
|
||||
|
|
@ -1805,8 +1808,8 @@ long s48_trace_value(long stob_246X)
|
|||
char v_248X;
|
||||
long stob_247X;
|
||||
{ arg1K0 = stob_247X;
|
||||
goto L7254;}
|
||||
L7254: {
|
||||
goto L7252;}
|
||||
L7252: {
|
||||
stob_247X = arg1K0;
|
||||
if ((Swriting_imagePS)) {
|
||||
v_248X = gc_recordP(stob_246X);
|
||||
|
|
@ -1817,16 +1820,16 @@ long s48_trace_value(long stob_246X)
|
|||
if ((1 == (*((long *) ((((char *) (-3 + type_249X))) + 4))))) {
|
||||
note_undumpableB(stob_246X);
|
||||
arg1K0 = (*((long *) ((((char *) (-3 + stob_246X))) + 4)));
|
||||
goto L7254;}
|
||||
goto L7252;}
|
||||
else {
|
||||
goto L6841;}}
|
||||
goto L6842;}}
|
||||
else {
|
||||
goto L6841;}}
|
||||
goto L6842;}}
|
||||
else {
|
||||
goto L6841;}}
|
||||
goto L6842;}}
|
||||
else {
|
||||
goto L6841;}}
|
||||
L6841: {
|
||||
goto L6842;}}
|
||||
L6842: {
|
||||
if ((3 == (3 & stob_246X))) {
|
||||
a_251X = ((char *) (-3 + stob_246X));
|
||||
if ((a_251X < (Sfrom_beginS))) {
|
||||
|
|
@ -1838,7 +1841,7 @@ long s48_trace_value(long stob_246X)
|
|||
if ((3 == (3 & h_253X))) {
|
||||
arg1K0 = h_253X;
|
||||
arg0K1 = frontier_252X;
|
||||
goto L6863;}
|
||||
goto L6864;}
|
||||
else {
|
||||
if ((1074 == h_253X)) {
|
||||
descriptor_254X = *((long *) (((char *) (-3 + stob_246X))));
|
||||
|
|
@ -1851,7 +1854,7 @@ long s48_trace_value(long stob_246X)
|
|||
new_thing_256X = copy_weak_pointer(stob_246X, frontier_252X, &new_hp_257X);
|
||||
arg1K0 = new_thing_256X;
|
||||
arg0K1 = new_hp_257X;
|
||||
goto L6863;}
|
||||
goto L6864;}
|
||||
else {
|
||||
goto L4194;}}}
|
||||
else {
|
||||
|
|
@ -1862,7 +1865,7 @@ long s48_trace_value(long stob_246X)
|
|||
return stob_246X;}}}
|
||||
else {
|
||||
return stob_246X;}}
|
||||
L6863: {
|
||||
L6864: {
|
||||
new_thing_258X = arg1K0;
|
||||
new_hp_259X = arg0K1;
|
||||
s48_ShpS = new_hp_259X;
|
||||
|
|
@ -1875,7 +1878,7 @@ long s48_trace_value(long stob_246X)
|
|||
memcpy((void *)data_addr_260X, (void *)(((char *) (-3 + stob_246X))),((long)(((unsigned long)h_253X)>>8)));
|
||||
arg1K0 = new_261X;
|
||||
arg0K1 = (data_addr_260X + (-4 & (3 + ((long)(((unsigned long)h_253X)>>8)))));
|
||||
goto L6863;}
|
||||
goto L6864;}
|
||||
}
|
||||
long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
||||
{
|
||||
|
|
@ -1966,23 +1969,22 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
|||
exported_bindings_272X = s48_trace_value(v_271X);
|
||||
resume_proc_273X = s48_trace_value(resume_proc_262X);
|
||||
arg0K0 = (Snewspace_beginS);
|
||||
goto L6984;}
|
||||
L6984: {
|
||||
goto L6990;}
|
||||
L6990: {
|
||||
start_274X = arg0K0;
|
||||
end_275X = s48_ShpS;
|
||||
s48_trace_locationsB(start_274X, end_275X);
|
||||
if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
|
||||
ps_error("GC error: ran out of space in new heap", 0);
|
||||
clean_weak_pointers();
|
||||
goto L6953;}
|
||||
goto L6981;}
|
||||
else {
|
||||
if ((end_275X < (s48_ShpS))) {
|
||||
arg0K0 = end_275X;
|
||||
goto L6984;}
|
||||
goto L6990;}
|
||||
else {
|
||||
clean_weak_pointers();
|
||||
goto L6953;}}}
|
||||
L6953: {
|
||||
goto L6981;}}}
|
||||
L6981: {
|
||||
clean_weak_pointers();
|
||||
s48_mark_traced_channels_closedB();
|
||||
symbols_276X = s48_copy_symbol_table();
|
||||
Sfinding_typeS = 8;
|
||||
|
|
@ -2034,7 +2036,7 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
|||
L5866: {
|
||||
s48_ShpS = start_hp_277X;
|
||||
arg1K0 = 1;
|
||||
goto L7003;}
|
||||
goto L7005;}
|
||||
L5929: {
|
||||
i_287X = arg1K0;
|
||||
if ((i_287X < count_286X)) {
|
||||
|
|
@ -2054,8 +2056,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
|||
L5855: {
|
||||
*((long *) start_hp_277X) = (10 + (((((s48_ShpS) - (start_hp_277X + 4)))<<8)));
|
||||
arg1K0 = (3 + (((long) (start_hp_277X + 4))));
|
||||
goto L7003;}
|
||||
L7003: {
|
||||
goto L7005;}
|
||||
L7005: {
|
||||
resumer_records_289X = arg1K0;
|
||||
imported_bindings_290X = s48_cleaned_imported_bindings();
|
||||
if ((1 == resumer_records_289X)) {
|
||||
|
|
|
|||
12223
c/scheme48vm.c
12223
c/scheme48vm.c
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue