batch-driver.c

Scheme跨平台编译器

lf[209]=C_h_intern(&lf[209],4,"uses");
lf[210]=C_h_intern(&lf[210],7,"declare");
lf[211]=C_decode_literal(C_heaptop,"\376B\000\000\006source");
lf[212]=C_h_intern(&lf[212],1,"1");
lf[213]=C_decode_literal(C_heaptop,"\376B\000\000\036User preprocessing pass...~%~!");
lf[214]=C_h_intern(&lf[214],22,"user-preprocessor-pass");
lf[215]=C_decode_literal(C_heaptop,"\376B\000\000\025User read pass...~%~!");
lf[216]=C_h_intern(&lf[216],21,"\010compilerstring->expr");
lf[217]=C_h_intern(&lf[217],7,"reverse");
lf[218]=C_h_intern(&lf[218],27,"\003syscurrent-source-filename");
lf[219]=C_h_intern(&lf[219],33,"\010compilerclose-checked-input-file");
lf[220]=C_h_intern(&lf[220],16,"\003sysdynamic-wind");
lf[221]=C_h_intern(&lf[221],34,"\010compilercheck-and-open-input-file");
lf[222]=C_h_intern(&lf[222],14,"user-read-pass");
lf[223]=C_h_intern(&lf[223],8,"epilogue");
lf[224]=C_h_intern(&lf[224],8,"prologue");
lf[225]=C_h_intern(&lf[225],8,"postlude");
lf[226]=C_h_intern(&lf[226],7,"prelude");
lf[227]=C_h_intern(&lf[227],11,"make-vector");
lf[228]=C_h_intern(&lf[228],34,"\010compilerline-number-database-size");
lf[229]=C_h_intern(&lf[229],1,"r");
lf[230]=C_decode_literal(C_heaptop,"\376B\000\000\021target stack size");
lf[231]=C_decode_literal(C_heaptop,"\376B\000\000\020target heap size");
lf[232]=C_decode_literal(C_heaptop,"\376B\000\000\021debugging options");
lf[233]=C_decode_literal(C_heaptop,"\376B\000\000\007options");
lf[234]=C_decode_literal(C_heaptop,"\376B\000\000\024compiling `~a\047 ...~%");
lf[235]=C_decode_literal(C_heaptop,"\376B\000\0009\012Enter \042chicken -help\042 for information on how to use it.\012");
lf[236]=C_h_intern(&lf[236],5,"-help");
lf[237]=C_h_intern(&lf[237],1,"h");
lf[238]=C_h_intern(&lf[238],2,"-h");
lf[239]=C_h_intern(&lf[239],18,"accumulate-profile");
lf[240]=C_h_intern(&lf[240],28,"\010compilerprofiled-procedures");
lf[241]=C_decode_literal(C_heaptop,"\376B\000\000\014accumulated ");
lf[242]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[243]=C_decode_literal(C_heaptop,"\376B\000\000\030Generating ~aprofile~%~!");
lf[244]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004set!\376\003\000\000\002\376\001\000\000\027\003sysprofile-append-mode\376\003\000\000\002\376\377\006\001\376\377\016\376\377\016");
lf[245]=C_h_intern(&lf[245],39,"\010compilerdefault-profiling-declarations");
lf[246]=C_decode_literal(C_heaptop,"\376B\000\000\012stacktrace");
lf[247]=C_decode_literal(C_heaptop,"\376B\000\000\004none");
lf[248]=C_decode_literal(C_heaptop,"\376B\000\000\026debugging info: ~A~%~!");
lf[249]=C_h_intern(&lf[249],21,"no-usual-integrations");
lf[250]=C_h_intern(&lf[250],17,"standard-bindings");
lf[251]=C_h_intern(&lf[251],34,"\010compilerdefault-standard-bindings");
lf[252]=C_h_intern(&lf[252],17,"extended-bindings");
lf[253]=C_h_intern(&lf[253],34,"\010compilerdefault-extended-bindings");
lf[254]=C_h_intern(&lf[254],1,"m");
lf[255]=C_h_intern(&lf[255],14,"set-gc-report!");
lf[256]=C_h_intern(&lf[256],42,"\010compilerdefault-default-target-stack-size");
lf[257]=C_h_intern(&lf[257],41,"\010compilerdefault-default-target-heap-size");
lf[258]=C_h_intern(&lf[258],15,"run-time-macros");
lf[259]=C_h_intern(&lf[259],25,"\003sysenable-runtime-macros");
lf[260]=C_h_intern(&lf[260],22,"\004corerequire-extension");
lf[261]=C_h_intern(&lf[261],15,"lset-difference");
lf[262]=C_h_intern(&lf[262],3,"eq\077");
lf[263]=C_h_intern(&lf[263],14,"string->symbol");
lf[264]=C_h_intern(&lf[264],12,"string-split");
lf[265]=C_decode_literal(C_heaptop,"\376B\000\000\001,");
lf[266]=C_h_intern(&lf[266],10,"append-map");
lf[267]=C_h_intern(&lf[267],17,"require-extension");
lf[268]=C_h_intern(&lf[268],9,"extension");
lf[269]=C_h_intern(&lf[269],16,"define-extension");
lf[270]=C_h_intern(&lf[270],13,"pathname-file");
lf[271]=C_decode_literal(C_heaptop,"\376B\000\000-no filename available for `-extension\047 option");
lf[272]=C_h_intern(&lf[272],28,"\010compilerpostponed-initforms");
lf[273]=C_h_intern(&lf[273],23,"user-post-analysis-pass");
lf[274]=C_h_intern(&lf[274],11,"\003sysprovide");
lf[275]=C_h_intern(&lf[275],5,"match");
lf[276]=C_h_intern(&lf[276],6,"delete");
lf[277]=C_h_intern(&lf[277],4,"load");
lf[278]=C_h_intern(&lf[278],28,"\003sysresolve-include-filename");
lf[279]=C_h_intern(&lf[279],12,"load-verbose");
lf[280]=C_decode_literal(C_heaptop,"\376B\000\000\042Loading compiler extensions...~%~!");
lf[281]=C_h_intern(&lf[281],6,"extend");
lf[282]=C_h_intern(&lf[282],17,"register-feature!");
lf[283]=C_decode_literal(C_heaptop,"\376B\000\000\001,");
lf[284]=C_h_intern(&lf[284],7,"feature");
lf[285]=C_h_intern(&lf[285],20,"keep-shadowed-macros");
lf[286]=C_h_intern(&lf[286],33,"\010compilerundefine-shadowed-macros");
lf[287]=C_decode_literal(C_heaptop,"\376B\000\000\001,");
lf[288]=C_decode_literal(C_heaptop,"\376B\000\000(source- and output-filename are the same");
lf[289]=C_h_intern(&lf[289],23,"\010compilerchop-separator");
lf[290]=C_h_intern(&lf[290],12,"include-path");
lf[291]=C_decode_literal(C_heaptop,"\376B\000\000\006prefix");
lf[292]=C_h_intern(&lf[292],7,"\000prefix");
lf[293]=C_decode_literal(C_heaptop,"\376B\000\000\004none");
lf[294]=C_h_intern(&lf[294],5,"\000none");
lf[295]=C_decode_literal(C_heaptop,"\376B\000\000\006suffix");
lf[296]=C_h_intern(&lf[296],7,"\000suffix");
lf[297]=C_decode_literal(C_heaptop,"\376B\000\000+invalid argument to `-keyword-style\047 option");
lf[298]=C_h_intern(&lf[298],17,"compress-literals");
lf[299]=C_decode_literal(C_heaptop,"\376B\000\000+`the -compress-literals\047 option is obsolete");
lf[300]=C_h_intern(&lf[300],16,"case-insensitive");
lf[301]=C_h_intern(&lf[301],14,"case-sensitive");
lf[302]=C_decode_literal(C_heaptop,"\376B\000\0000Identifiers and symbols are case insensitive~%~!");
lf[303]=C_h_intern(&lf[303],24,"\010compilerinline-max-size");
lf[304]=C_decode_literal(C_heaptop,"\376B\000\0000invalid argument to `-inline-limit\047 option: `~A\047");
lf[305]=C_h_intern(&lf[305],6,"inline");
lf[306]=C_h_intern(&lf[306],30,"emit-external-prototypes-first");
lf[307]=C_h_intern(&lf[307],30,"\010compilerexternal-protos-first");
lf[308]=C_h_intern(&lf[308],5,"block");
lf[309]=C_h_intern(&lf[309],17,"fixnum-arithmetic");
lf[310]=C_h_intern(&lf[310],11,"number-type");
lf[311]=C_h_intern(&lf[311],6,"fixnum");
lf[312]=C_h_intern(&lf[312],18,"disable-interrupts");
lf[313]=C_h_intern(&lf[313],28,"\010compilerinsert-timer-checks");
lf[314]=C_h_intern(&lf[314],16,"unsafe-libraries");
lf[315]=C_h_intern(&lf[315],27,"\010compileremit-unsafe-marker");
lf[316]=C_h_intern(&lf[316],23,"\005matchset-error-control");
lf[317]=C_h_intern(&lf[317],5,"\000fail");
lf[318]=C_h_intern(&lf[318],11,"no-warnings");
lf[319]=C_decode_literal(C_heaptop,"\376B\000\000\031Warnings are disabled~%~!");
lf[320]=C_h_intern(&lf[320],15,"disable-warning");
lf[321]=C_h_intern(&lf[321],28,"\010compilerlookup-exports-file");
lf[322]=C_h_intern(&lf[322],6,"import");
lf[323]=C_h_intern(&lf[323],14,"no-lambda-info");
lf[324]=C_h_intern(&lf[324],26,"\010compileremit-closure-info");
lf[325]=C_h_intern(&lf[325],3,"raw");
lf[326]=C_h_intern(&lf[326],1,"b");
lf[327]=C_h_intern(&lf[327],15,"\003sysstart-timer");
lf[328]=C_h_intern(&lf[328],23,"disable-compiler-macros");
lf[329]=C_h_intern(&lf[329],32,"\010compilercompiler-macros-enabled");
lf[330]=C_h_intern(&lf[330],11,"lambda-lift");
lf[331]=C_h_intern(&lf[331],16,"\003sysstring->list");
lf[332]=C_h_intern(&lf[332],5,"debug");
lf[333]=C_h_intern(&lf[333],29,"\010compilerstring->c-identifier");
lf[334]=C_h_intern(&lf[334],18,"\010compilerstringify");
lf[335]=C_decode_literal(C_heaptop,"\376B\000\000\000");
lf[336]=C_decode_literal(C_heaptop,"\376B\000\000\001;");
lf[337]=C_h_intern(&lf[337],6,"getenv");
lf[338]=C_decode_literal(C_heaptop,"\376B\000\000\024CHICKEN_INCLUDE_PATH");
lf[339]=C_h_intern(&lf[339],14,"symbol->string");
lf[340]=C_h_intern(&lf[340],9,"to-stdout");
lf[341]=C_h_intern(&lf[341],13,"make-pathname");
lf[342]=C_decode_literal(C_heaptop,"\376B\000\000\001c");
lf[343]=C_decode_literal(C_heaptop,"\376B\000\000\003out");
lf[344]=C_h_intern(&lf[344],29,"\010compilerdefault-declarations");
lf[345]=C_h_intern(&lf[345],30,"\010compilerunits-used-by-default");
lf[346]=C_h_intern(&lf[346],28,"\010compilerinitialize-compiler");
C_register_lf2(lf,347,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_427,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t3);}

/* k425 */
static void C_ccall f_427(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_427,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_430,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_eval_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k428 in k425 */
static void C_ccall f_430(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_430,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_433,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_data_structures_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k431 in k428 in k425 */
static void C_ccall f_433(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_433,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_436,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_ports_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k434 in k431 in k428 in k425 */
static void C_ccall f_436(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_436,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_439,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_extras_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k437 in k434 in k431 in k428 in k425 */
static void C_ccall f_439(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_439,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_442,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_srfi_69_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k440 in k437 in k434 in k431 in k428 in k425 */
static void C_ccall f_442(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word ab[2],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_442,2,t0,t1);}
t2=C_retrieve(lf[2]);
t3=C_mutate(&lf[3],lf[4]);
t4=C_mutate((C_word*)lf[5]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_448,tmp=(C_word)a,a+=2,tmp));
t5=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,C_SCHEME_UNDEFINED);}

/* compile-source-file in k440 in k437 in k434 in k431 in k428 in k425 */
static void C_ccall f_448(C_word c,C_word t0,C_word t1,C_word t2,...){
C_word tmp;
C_word t3;
va_list v;
C_word *a,c2=c;
C_save_rest(t2,c2,3);
if(c<3) C_bad_min_argc_2(c,3,t0);
if(!C_demand(c*C_SIZEOF_PAIR+8)){
C_save_and_reclaim((void*)tr3r,(void*)f_448r,3,t0,t1,t2);}
else{
a=C_alloc((c-3)*3);
t3=C_restore_rest(a,C_rest_count(0));
f_448r(t0,t1,t2,t3);}}

static void C_ccall f_448r(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_451,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_484,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* batch-driver.scm: 93   initialize-compiler */
t6=C_retrieve(lf[346]);
((C_proc2)C_retrieve_proc(t6))(2,t6,t5);}

/* k482 in compile-source-file in k440 in k437 in k434 in k431 in k428 in k425 */
static void C_ccall f_484(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word ab[21],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_484,2,t0,t1);}
t2=(C_word)C_i_memq(lf[9],((C_word*)t0)[5]);
t3=C_mutate((C_word*)lf[10]+1,t2);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2452,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2460,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2464,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_retrieve(lf[10]))){
t8=t7;
f_2464(t8,C_SCHEME_END_OF_LIST);}
else{
t8=(C_word)C_a_i_cons(&a,2,lf[209],C_retrieve(lf[345]));
t9=t7;
f_2464(t9,(C_word)C_a_i_list(&a,1,t8));}}

/* k2462 in k482 in compile-source-file in k440 in k437 in k434 in k431 in k428 in k425 */
static void C_fcall f_2464(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* batch-driver.scm: 97   append */
t2=*((C_word*)lf[195]+1);
((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[2],C_retrieve(lf[344]),t1);}

/* k2458 in k482 in compile-source-file in k440 in k437 in k434 in k431 in k428 in k425 */
static void C_ccall f_2460(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* map */
t2=*((C_word*)lf[172]+1);
((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}

/* a2451 in k482 in compile-source-file in k440 in k437 in k434 in k431 in k428 in k425 */
static void C_ccall f_2452(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word ab[6],*a=ab;
if(c!=3) C_bad_argc_2(c,3,t0);
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2452,3,t0,t1,t2);}
t3=t1;
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_list(&a,2,lf[197],t2));}

/* k2448 in k482 in compile-source-file in k440 in k437 in k434 in k431 in k428 in k425 */
static void C_ccall f_2450(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word ab[22],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_2450,2,t0,t1);}
t2=(C_word)C_a_i_cons(&a,2,lf[11],t1);
t3=(C_word)C_a_i_list(&a,1,t2);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(C_word)C_i_memq(lf[12],((C_word*)t0)[5]);
t7=(C_word)C_i_memq(lf[13],((C_word*)t0)[5]);
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t6,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t7)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2417,a[2]=t8,tmp=(C_word)a,a+=3,