scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Snapshot of autogenerated files.

This commit is contained in:
mainzelm 2002-02-25 09:01:39 +00:00
parent b2ea0128a0
commit 9a06464234
3 changed files with 6173 additions and 6146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
c/scheme48.h
View File

@ -51,6 +51,30 @@ extern unsigned long s48_extract_unsigned_integer(s48_value);
extern s48_value s48_enter_double(double); extern s48_value s48_enter_double(double);
extern double s48_extract_double(s48_value); extern double s48_extract_double(s48_value);
extern s48_value s48_cons(s48_value, 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 s48_value s48_enter_string(char *);
extern char * s48_extract_string(s48_value); extern char * s48_extract_string(s48_value);
extern s48_value s48_enter_substring(char *, int); extern s48_value s48_enter_substring(char *, int);

72
c/scheme48heap.c
View File

@ -31,7 +31,7 @@ long s48_find_all(long);
long s48_read_image(void); long s48_read_image(void);
long s48_find_all_records(long); long s48_find_all_records(long);
long s48_trace_locationsB(char *, char *); long s48_trace_locationsB(char *, char *);
void s48_do_gc(void); long s48_do_gc(void);
long s48_trace_stob_contentsB(long); long s48_trace_stob_contentsB(long);
void s48_begin_collection(void); void s48_begin_collection(void);
long s48_trace_value(long); long s48_trace_value(long);
@ -1673,7 +1673,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
if ((3 == (3 & descriptor_225X))) { if ((3 == (3 & descriptor_225X))) {
a_226X = ((char *) (-3 + descriptor_225X)); a_226X = ((char *) (-3 + descriptor_225X));
if ((a_226X < (Sfrom_beginS))) { if ((a_226X < (Sfrom_beginS))) {
goto L7063;} goto L7061;}
else { else {
if ((a_226X < (Sfrom_endS))) { if ((a_226X < (Sfrom_endS))) {
new_thing_227X = copy_weak_pointer(thing_218X, frontier_217X, &frontier_228X); 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; arg0K1 = frontier_228X;
goto L6483;} goto L6483;}
else { else {
goto L7063;}}} goto L7061;}}}
else { else {
goto L7063;}} goto L7061;}}
else { else {
goto L7063;}}} goto L7061;}}}
else { else {
arg0K0 = next_219X; arg0K0 = next_219X;
arg0K1 = frontier_217X; arg0K1 = frontier_217X;
@ -1701,7 +1701,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
arg0K0 = next_219X; arg0K0 = next_219X;
arg0K1 = frontier_230X; arg0K1 = frontier_230X;
goto L6442;} goto L6442;}
L7063: { L7061: {
*((long *) frontier_217X) = h_224X; *((long *) frontier_217X) = h_224X;
data_addr_231X = frontier_217X + 4; data_addr_231X = frontier_217X + 4;
new_232X = 3 + (((long) data_addr_231X)); 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))))); arg0K1 = (data_addr_231X + (-4 & (3 + ((long)(((unsigned long)h_224X)>>8)))));
goto L6483;} goto L6483;}
} }
void s48_do_gc(void) long s48_do_gc(void)
{ {
char * arg0K0; char * arg0K0;
char * end_234X; char * end_234X;
@ -1724,13 +1724,16 @@ void s48_do_gc(void)
s48_trace_locationsB(start_233X, end_234X); s48_trace_locationsB(start_233X, end_234X);
if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) { if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
ps_error("GC error: ran out of space in new heap", 0); ps_error("GC error: ran out of space in new heap", 0);
return clean_weak_pointers();} goto L6721;}
else { else {
if ((end_234X < (s48_ShpS))) { if ((end_234X < (s48_ShpS))) {
arg0K0 = end_234X; arg0K0 = end_234X;
goto L6698;} goto L6698;}
else { else {
return clean_weak_pointers();}}} goto L6721;}}}
L6721: {
clean_weak_pointers();
return 0;}
} }
long s48_trace_stob_contentsB(long stob_235X) long s48_trace_stob_contentsB(long stob_235X)
{ {
@ -1773,15 +1776,15 @@ void s48_begin_collection(void)
sizes_243X = Simpure_sizesS; sizes_243X = Simpure_sizesS;
count_244X = Simpure_area_countS; count_244X = Simpure_area_countS;
arg1K0 = 0; arg1K0 = 0;
goto L6813;} goto L6814;}
else { else {
return;}} return;}}
L6813: { L6814: {
i_245X = arg1K0; i_245X = arg1K0;
if ((i_245X < count_244X)) { if ((i_245X < count_244X)) {
s48_trace_locationsB((*(areas_242X + i_245X)), ((*(areas_242X + i_245X)) + (*(sizes_243X + i_245X)))); s48_trace_locationsB((*(areas_242X + i_245X)), ((*(areas_242X + i_245X)) + (*(sizes_243X + i_245X))));
arg1K0 = (1 + i_245X); arg1K0 = (1 + i_245X);
goto L6813;} goto L6814;}
else { else {
return;}} return;}}
} }
@ -1805,8 +1808,8 @@ long s48_trace_value(long stob_246X)
char v_248X; char v_248X;
long stob_247X; long stob_247X;
{ arg1K0 = stob_247X; { arg1K0 = stob_247X;
goto L7254;} goto L7252;}
L7254: { L7252: {
stob_247X = arg1K0; stob_247X = arg1K0;
if ((Swriting_imagePS)) { if ((Swriting_imagePS)) {
v_248X = gc_recordP(stob_246X); 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))))) { if ((1 == (*((long *) ((((char *) (-3 + type_249X))) + 4))))) {
note_undumpableB(stob_246X); note_undumpableB(stob_246X);
arg1K0 = (*((long *) ((((char *) (-3 + stob_246X))) + 4))); arg1K0 = (*((long *) ((((char *) (-3 + stob_246X))) + 4)));
goto L7254;} goto L7252;}
else { else {
goto L6841;}} goto L6842;}}
else { else {
goto L6841;}} goto L6842;}}
else { else {
goto L6841;}} goto L6842;}}
else { else {
goto L6841;}} goto L6842;}}
L6841: { L6842: {
if ((3 == (3 & stob_246X))) { if ((3 == (3 & stob_246X))) {
a_251X = ((char *) (-3 + stob_246X)); a_251X = ((char *) (-3 + stob_246X));
if ((a_251X < (Sfrom_beginS))) { if ((a_251X < (Sfrom_beginS))) {
@ -1838,7 +1841,7 @@ long s48_trace_value(long stob_246X)
if ((3 == (3 & h_253X))) { if ((3 == (3 & h_253X))) {
arg1K0 = h_253X; arg1K0 = h_253X;
arg0K1 = frontier_252X; arg0K1 = frontier_252X;
goto L6863;} goto L6864;}
else { else {
if ((1074 == h_253X)) { if ((1074 == h_253X)) {
descriptor_254X = *((long *) (((char *) (-3 + stob_246X)))); 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); new_thing_256X = copy_weak_pointer(stob_246X, frontier_252X, &new_hp_257X);
arg1K0 = new_thing_256X; arg1K0 = new_thing_256X;
arg0K1 = new_hp_257X; arg0K1 = new_hp_257X;
goto L6863;} goto L6864;}
else { else {
goto L4194;}}} goto L4194;}}}
else { else {
@ -1862,7 +1865,7 @@ long s48_trace_value(long stob_246X)
return stob_246X;}}} return stob_246X;}}}
else { else {
return stob_246X;}} return stob_246X;}}
L6863: { L6864: {
new_thing_258X = arg1K0; new_thing_258X = arg1K0;
new_hp_259X = arg0K1; new_hp_259X = arg0K1;
s48_ShpS = new_hp_259X; 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))); memcpy((void *)data_addr_260X, (void *)(((char *) (-3 + stob_246X))),((long)(((unsigned long)h_253X)>>8)));
arg1K0 = new_261X; arg1K0 = new_261X;
arg0K1 = (data_addr_260X + (-4 & (3 + ((long)(((unsigned long)h_253X)>>8))))); 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) 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); exported_bindings_272X = s48_trace_value(v_271X);
resume_proc_273X = s48_trace_value(resume_proc_262X); resume_proc_273X = s48_trace_value(resume_proc_262X);
arg0K0 = (Snewspace_beginS); arg0K0 = (Snewspace_beginS);
goto L6984;} goto L6990;}
L6984: { L6990: {
start_274X = arg0K0; start_274X = arg0K0;
end_275X = s48_ShpS; end_275X = s48_ShpS;
s48_trace_locationsB(start_274X, end_275X); s48_trace_locationsB(start_274X, end_275X);
if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) { if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
ps_error("GC error: ran out of space in new heap", 0); ps_error("GC error: ran out of space in new heap", 0);
clean_weak_pointers(); goto L6981;}
goto L6953;}
else { else {
if ((end_275X < (s48_ShpS))) { if ((end_275X < (s48_ShpS))) {
arg0K0 = end_275X; arg0K0 = end_275X;
goto L6984;} goto L6990;}
else { else {
clean_weak_pointers(); goto L6981;}}}
goto L6953;}}} L6981: {
L6953: { clean_weak_pointers();
s48_mark_traced_channels_closedB(); s48_mark_traced_channels_closedB();
symbols_276X = s48_copy_symbol_table(); symbols_276X = s48_copy_symbol_table();
Sfinding_typeS = 8; Sfinding_typeS = 8;
@ -2034,7 +2036,7 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
L5866: { L5866: {
s48_ShpS = start_hp_277X; s48_ShpS = start_hp_277X;
arg1K0 = 1; arg1K0 = 1;
goto L7003;} goto L7005;}
L5929: { L5929: {
i_287X = arg1K0; i_287X = arg1K0;
if ((i_287X < count_286X)) { if ((i_287X < count_286X)) {
@ -2054,8 +2056,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
L5855: { L5855: {
*((long *) start_hp_277X) = (10 + (((((s48_ShpS) - (start_hp_277X + 4)))<<8))); *((long *) start_hp_277X) = (10 + (((((s48_ShpS) - (start_hp_277X + 4)))<<8)));
arg1K0 = (3 + (((long) (start_hp_277X + 4)))); arg1K0 = (3 + (((long) (start_hp_277X + 4))));
goto L7003;} goto L7005;}
L7003: { L7005: {
resumer_records_289X = arg1K0; resumer_records_289X = arg1K0;
imported_bindings_290X = s48_cleaned_imported_bindings(); imported_bindings_290X = s48_cleaned_imported_bindings();
if ((1 == resumer_records_289X)) { if ((1 == resumer_records_289X)) {

12223
c/scheme48vm.c
View File

File diff suppressed because it is too large Load Diff