batch-driver.c

Scheme跨平台编译器

C_word t3=C_pick(1);
C_word t2=C_pick(2);
C_word t1=C_pick(3);
C_word t0=C_pick(4);
C_adjust_stack(-5);
f_577(t0,t1,t2,t3,t4);}

C_noret_decl(trf_559)
static void C_fcall trf_559(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_559(void *dummy){
C_word t3=C_pick(0);
C_word t2=C_pick(1);
C_word t1=C_pick(2);
C_word t0=C_pick(3);
C_adjust_stack(-4);
f_559(t0,t1,t2,t3);}

C_noret_decl(trf_451)
static void C_fcall trf_451(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_451(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_451(t0,t1);}

C_noret_decl(tr5)
static void C_fcall tr5(C_proc5 k) C_regparm C_noret;
C_regparm static void C_fcall tr5(C_proc5 k){
C_word t4=C_pick(0);
C_word t3=C_pick(1);
C_word t2=C_pick(2);
C_word t1=C_pick(3);
C_word t0=C_pick(4);
C_adjust_stack(-5);
(k)(5,t0,t1,t2,t3,t4);}

C_noret_decl(tr4)
static void C_fcall tr4(C_proc4 k) C_regparm C_noret;
C_regparm static void C_fcall tr4(C_proc4 k){
C_word t3=C_pick(0);
C_word t2=C_pick(1);
C_word t1=C_pick(2);
C_word t0=C_pick(3);
C_adjust_stack(-4);
(k)(4,t0,t1,t2,t3);}

C_noret_decl(tr6)
static void C_fcall tr6(C_proc6 k) C_regparm C_noret;
C_regparm static void C_fcall tr6(C_proc6 k){
C_word t5=C_pick(0);
C_word t4=C_pick(1);
C_word t3=C_pick(2);
C_word t2=C_pick(3);
C_word t1=C_pick(4);
C_word t0=C_pick(5);
C_adjust_stack(-6);
(k)(6,t0,t1,t2,t3,t4,t5);}

C_noret_decl(tr3)
static void C_fcall tr3(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3(C_proc3 k){
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
(k)(3,t0,t1,t2);}

C_noret_decl(tr2)
static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2(C_proc2 k){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
(k)(2,t0,t1);}

C_noret_decl(tr3r)
static void C_fcall tr3r(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3r(C_proc3 k){
int n;
C_word *a,t3;
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
n=C_rest_count(0);
a=C_alloc(n*3);
t3=C_restore_rest(a,n);
(k)(t0,t1,t2,t3);}

/* toplevel */
static C_TLS int toplevel_initialized=0;
C_noret_decl(toplevel_trampoline)
static void C_fcall toplevel_trampoline(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall toplevel_trampoline(void *dummy){
C_driver_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}

void C_ccall C_driver_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("driver_toplevel"));
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(2670)){
C_save(t1);
C_rereclaim2(2670*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,347);
lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
lf[2]=C_h_intern(&lf[2],19,"\003sysundefined-value");
lf[4]=C_decode_literal(C_heaptop,"\376B\000\000\007PROFILE");
lf[5]=C_h_intern(&lf[5],19,"compile-source-file");
lf[6]=C_h_intern(&lf[6],4,"quit");
lf[7]=C_decode_literal(C_heaptop,"\376B\000\000 missing argument to `-~A\047 option");
lf[8]=C_decode_literal(C_heaptop,"\376B\000\000\037invalid argument to `~A\047 option");
lf[9]=C_h_intern(&lf[9],12,"explicit-use");
lf[10]=C_h_intern(&lf[10],26,"\010compilerexplicit-use-flag");
lf[11]=C_h_intern(&lf[11],12,"\004coredeclare");
lf[12]=C_h_intern(&lf[12],7,"verbose");
lf[13]=C_h_intern(&lf[13],11,"output-file");
lf[14]=C_h_intern(&lf[14],36,"\010compilerdefault-optimization-passes");
lf[15]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\003sysimplicit-exit-handler\376\377\016\376\377\016\376\377\016");
lf[16]=C_h_intern(&lf[16],7,"profile");
lf[17]=C_h_intern(&lf[17],12,"profile-name");
lf[18]=C_h_intern(&lf[18],9,"heap-size");
lf[19]=C_h_intern(&lf[19],17,"heap-initial-size");
lf[20]=C_h_intern(&lf[20],11,"heap-growth");
lf[21]=C_h_intern(&lf[21],14,"heap-shrinkage");
lf[22]=C_h_intern(&lf[22],13,"keyword-style");
lf[23]=C_h_intern(&lf[23],4,"unit");
lf[24]=C_h_intern(&lf[24],12,"analyze-only");
lf[25]=C_h_intern(&lf[25],7,"dynamic");
lf[26]=C_h_intern(&lf[26],5,"quiet");
lf[27]=C_h_intern(&lf[27],7,"nursery");
lf[28]=C_h_intern(&lf[28],10,"stack-size");
lf[29]=C_h_intern(&lf[29],26,"\010compilerdebugging-chicken");
lf[30]=C_h_intern(&lf[30],6,"printf");
lf[31]=C_decode_literal(C_heaptop,"\376B\000\000\006[~a]~%");
lf[32]=C_decode_literal(C_heaptop,"\376B\000\000\014pass: ~a~%~!");
lf[33]=C_h_intern(&lf[33],19,"\010compilerdump-nodes");
lf[34]=C_h_intern(&lf[34],12,"pretty-print");
lf[35]=C_h_intern(&lf[35],30,"\010compilerbuild-expression-tree");
lf[36]=C_h_intern(&lf[36],34,"\010compilerdisplay-analysis-database");
lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\020(iteration ~s)~%");
lf[38]=C_h_intern(&lf[38],12,"\003sysfor-each");
lf[39]=C_h_intern(&lf[39],19,"\003syshash-table-set!");
lf[40]=C_h_intern(&lf[40],24,"\003sysline-number-database");
lf[41]=C_h_intern(&lf[41],10,"alist-cons");
lf[42]=C_h_intern(&lf[42],18,"\003syshash-table-ref");
lf[43]=C_h_intern(&lf[43],9,"list-info");
lf[44]=C_h_intern(&lf[44],26,"\003sysdefault-read-info-hook");
lf[45]=C_decode_literal(C_heaptop,"\376B\000\000\033invalid numeric argument ~S");
lf[46]=C_h_intern(&lf[46],9,"substring");
lf[47]=C_decode_literal(C_heaptop,"\376B\000\000!milliseconds needed for ~a: \011~s~%");
lf[48]=C_h_intern(&lf[48],8,"\003sysread");
lf[49]=C_h_intern(&lf[49],12,"\010compilerget");
lf[50]=C_h_intern(&lf[50],13,"\010compilerput!");
lf[51]=C_h_intern(&lf[51],27,"\010compileranalyze-expression");
lf[52]=C_h_intern(&lf[52],9,"\003syserror");
lf[53]=C_h_intern(&lf[53],1,"D");
lf[54]=C_h_intern(&lf[54],12,"emit-exports");
lf[55]=C_h_intern(&lf[55],13,"check-imports");
lf[56]=C_h_intern(&lf[56],25,"\010compileruse-import-table");
lf[57]=C_h_intern(&lf[57],26,"\010compilerdisabled-warnings");
lf[58]=C_h_intern(&lf[58],12,"inline-limit");
lf[59]=C_h_intern(&lf[59],21,"\010compilerverbose-mode");
lf[60]=C_h_intern(&lf[60],31,"\003sysread-error-with-line-number");
lf[61]=C_h_intern(&lf[61],21,"\003sysinclude-pathnames");
lf[62]=C_h_intern(&lf[62],19,"\000compiler-extension");
lf[63]=C_h_intern(&lf[63],12,"\003sysfeatures");
lf[64]=C_h_intern(&lf[64],10,"\000compiling");
lf[65]=C_h_intern(&lf[65],6,"\000match");
lf[66]=C_h_intern(&lf[66],25,"\010compilertarget-heap-size");
lf[67]=C_h_intern(&lf[67],33,"\010compilertarget-initial-heap-size");
lf[68]=C_h_intern(&lf[68],27,"\010compilertarget-heap-growth");
lf[69]=C_h_intern(&lf[69],30,"\010compilertarget-heap-shrinkage");
lf[70]=C_h_intern(&lf[70],26,"\010compilertarget-stack-size");
lf[71]=C_h_intern(&lf[71],8,"no-trace");
lf[72]=C_h_intern(&lf[72],24,"\010compileremit-trace-info");
lf[73]=C_h_intern(&lf[73],29,"disable-stack-overflow-checks");
lf[74]=C_h_intern(&lf[74],40,"\010compilerdisable-stack-overflow-checking");
lf[75]=C_h_intern(&lf[75],7,"version");
lf[76]=C_h_intern(&lf[76],7,"newline");
lf[77]=C_h_intern(&lf[77],22,"\010compilerprint-version");
lf[78]=C_h_intern(&lf[78],4,"help");
lf[79]=C_h_intern(&lf[79],20,"\010compilerprint-usage");
lf[80]=C_h_intern(&lf[80],7,"release");
lf[81]=C_h_intern(&lf[81],7,"display");
lf[82]=C_h_intern(&lf[82],15,"chicken-version");
lf[83]=C_h_intern(&lf[83],24,"\010compilersource-filename");
lf[84]=C_h_intern(&lf[84],28,"\010compilerprofile-lambda-list");
lf[85]=C_h_intern(&lf[85],31,"\010compilerline-number-database-2");
lf[86]=C_h_intern(&lf[86],4,"node");
lf[87]=C_h_intern(&lf[87],6,"lambda");
lf[88]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\016\376\377\016");
lf[89]=C_h_intern(&lf[89],23,"\010compilerconstant-table");
lf[90]=C_h_intern(&lf[90],21,"\010compilerinline-table");
lf[91]=C_h_intern(&lf[91],23,"\010compilerfirst-analysis");
lf[92]=C_h_intern(&lf[92],41,"\010compilerperform-high-level-optimizations");
lf[93]=C_h_intern(&lf[93],37,"\010compilerinline-substitutions-enabled");
lf[94]=C_h_intern(&lf[94],22,"optimize-leaf-routines");
lf[95]=C_decode_literal(C_heaptop,"\376B\000\000\031leaf routine optimization");
lf[96]=C_h_intern(&lf[96],34,"\010compilertransform-direct-lambdas!");
lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\010analysis");
lf[98]=C_h_intern(&lf[98],4,"leaf");
lf[99]=C_h_intern(&lf[99],18,"\010compilerdebugging");
lf[100]=C_h_intern(&lf[100],1,"p");
lf[101]=C_decode_literal(C_heaptop,"\376B\000\000\025rewritings enabled...");
lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\023optimized-iteration");
lf[103]=C_h_intern(&lf[103],1,"5");
lf[104]=C_decode_literal(C_heaptop,"\376B\000\000\014optimization");
lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\021optimization pass");
lf[106]=C_h_intern(&lf[106],36,"\010compilerprepare-for-code-generation");
lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\031compilation finished.~%~!");
lf[108]=C_h_intern(&lf[108],30,"\010compilercompiler-cleanup-hook");
lf[109]=C_h_intern(&lf[109],1,"t");
lf[110]=C_h_intern(&lf[110],17,"\003sysdisplay-times");
lf[111]=C_h_intern(&lf[111],14,"\003sysstop-timer");
lf[112]=C_decode_literal(C_heaptop,"\376B\000\000\017code generation");
lf[113]=C_h_intern(&lf[113],17,"close-output-port");
lf[114]=C_h_intern(&lf[114],22,"\010compilergenerate-code");
lf[115]=C_decode_literal(C_heaptop,"\376B\000\000\025generating `~A\047 ...~%");
lf[116]=C_h_intern(&lf[116],16,"open-output-file");
lf[117]=C_h_intern(&lf[117],19,"current-output-port");
lf[118]=C_decode_literal(C_heaptop,"\376B\000\000\013preparation");
lf[119]=C_decode_literal(C_heaptop,"\376B\000\000\021closure-converted");
lf[120]=C_h_intern(&lf[120],1,"9");
lf[121]=C_h_intern(&lf[121],4,"exit");
lf[122]=C_h_intern(&lf[122],25,"\010compilerexport-file-name");
lf[123]=C_h_intern(&lf[123],30,"\010compilerdump-exported-globals");
lf[124]=C_decode_literal(C_heaptop,"\376B\000\000$(do not worry - still compiling...)\012");
lf[125]=C_h_intern(&lf[125],20,"\003syswarnings-enabled");
lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\016final-analysis");
lf[127]=C_h_intern(&lf[127],1,"8");
lf[128]=C_decode_literal(C_heaptop,"\376B\000\000\022closure conversion");
lf[129]=C_h_intern(&lf[129],35,"\010compilerperform-closure-conversion");
lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\011optimized");
lf[131]=C_h_intern(&lf[131],1,"7");
lf[132]=C_h_intern(&lf[132],1,"s");
lf[133]=C_h_intern(&lf[133],33,"\010compilerprint-program-statistics");
lf[134]=C_decode_literal(C_heaptop,"\376B\000\000\010analysis");
lf[135]=C_h_intern(&lf[135],1,"4");
lf[136]=C_decode_literal(C_heaptop,"\376B\000\000\010analysis");
lf[137]=C_h_intern(&lf[137],1,"u");
lf[138]=C_h_intern(&lf[138],31,"\010compilerdump-undefined-globals");
lf[139]=C_h_intern(&lf[139],29,"\010compilercheck-global-exports");
lf[140]=C_h_intern(&lf[140],29,"\010compilercheck-global-imports");
lf[141]=C_h_intern(&lf[141],3,"opt");
lf[142]=C_decode_literal(C_heaptop,"\376B\000\000\003cps");
lf[143]=C_h_intern(&lf[143],1,"3");
lf[144]=C_decode_literal(C_heaptop,"\376B\000\000\016cps conversion");
lf[145]=C_h_intern(&lf[145],31,"\010compilerperform-cps-conversion");
lf[146]=C_h_intern(&lf[146],6,"unsafe");
lf[147]=C_h_intern(&lf[147],34,"\010compilerscan-toplevel-assignments");
lf[148]=C_h_intern(&lf[148],26,"\010compilerdo-lambda-lifting");
lf[149]=C_decode_literal(C_heaptop,"\376B\000\000\015lambda lifted");
lf[150]=C_h_intern(&lf[150],1,"L");
lf[151]=C_decode_literal(C_heaptop,"\376B\000\000\016lambda lifting");
lf[152]=C_h_intern(&lf[152],32,"\010compilerperform-lambda-lifting!");
lf[153]=C_decode_literal(C_heaptop,"\376B\000\000\014pre-analysis");
lf[154]=C_decode_literal(C_heaptop,"\376B\000\000\010analysis");
lf[155]=C_h_intern(&lf[155],1,"0");
lf[156]=C_h_intern(&lf[156],4,"lift");
lf[157]=C_decode_literal(C_heaptop,"\376B\000\000\023secondary user pass");
lf[158]=C_h_intern(&lf[158],1,"U");
lf[159]=C_decode_literal(C_heaptop,"\376B\000\000\023secondary user pass");
lf[160]=C_decode_literal(C_heaptop,"\376B\000\000\020pre-analysis (u)");
lf[161]=C_decode_literal(C_heaptop,"\376B\000\000\014analysis (u)");
lf[162]=C_h_intern(&lf[162],4,"user");
lf[163]=C_decode_literal(C_heaptop,"\376B\000\000\030Secondary user pass...~%");
lf[164]=C_h_intern(&lf[164],21,"\003syshash-table->alist");
lf[165]=C_h_intern(&lf[165],26,"\010compilerfile-requirements");
lf[166]=C_h_intern(&lf[166],1,"M");
lf[167]=C_decode_literal(C_heaptop,"\376B\000\000\017; requirements:");
lf[168]=C_h_intern(&lf[168],11,"user-pass-2");
lf[169]=C_h_intern(&lf[169],25,"\010compilerbuild-node-graph");
lf[170]=C_h_intern(&lf[170],32,"\010compilercanonicalize-begin-body");
lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\011user pass");
lf[172]=C_h_intern(&lf[172],7,"\003sysmap");
lf[173]=C_decode_literal(C_heaptop,"\376B\000\000\020User pass...~%~!");
lf[174]=C_h_intern(&lf[174],9,"user-pass");
lf[175]=C_h_intern(&lf[175],12,"check-syntax");
lf[176]=C_decode_literal(C_heaptop,"\376B\000\000\015canonicalized");
lf[177]=C_h_intern(&lf[177],1,"2");
lf[178]=C_decode_literal(C_heaptop,"\376B\000\000\020canonicalization");
lf[179]=C_h_intern(&lf[179],25,"\010compilercompiler-warning");
lf[180]=C_h_intern(&lf[180],5,"style");
lf[181]=C_decode_literal(C_heaptop,"\376B\000\000ycompiling extensions in unsafe mode is bad practice and should be avoided a"
"s it may be surprising to an unsuspecting user");
lf[182]=C_h_intern(&lf[182],8,"feature\077");
lf[183]=C_h_intern(&lf[183],19,"compiling-extension");
lf[184]=C_h_intern(&lf[184],18,"\010compilerunit-name");
lf[185]=C_h_intern(&lf[185],5,"usage");
lf[186]=C_decode_literal(C_heaptop,"\376B\000\000*library unit `~a\047 compiled in dynamic mode");
lf[187]=C_h_intern(&lf[187],26,"\010compilerblock-compilation");
lf[188]=C_decode_literal(C_heaptop,"\376B\000\000`compilation of library unit `~a\047 in block-mode - globals may not be accessi"
"ble outside this unit");
lf[189]=C_h_intern(&lf[189],37,"\010compilerdisplay-line-number-database");
lf[190]=C_h_intern(&lf[190],1,"n");
lf[191]=C_decode_literal(C_heaptop,"\376B\000\000\025line number database:");
lf[192]=C_h_intern(&lf[192],32,"\010compilerdisplay-real-name-table");
lf[193]=C_h_intern(&lf[193],1,"N");
lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\020real name table:");
lf[195]=C_h_intern(&lf[195],6,"append");
lf[196]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\004coreundefined\376\377\016\376\377\016");
lf[197]=C_h_intern(&lf[197],5,"quote");
lf[198]=C_h_intern(&lf[198],28,"\003sysset-profile-info-vector!");
lf[199]=C_h_intern(&lf[199],33,"\010compilerprofile-info-vector-name");
lf[200]=C_h_intern(&lf[200],21,"\010compileremit-profile");
lf[201]=C_h_intern(&lf[201],25,"\003sysregister-profile-info");
lf[202]=C_h_intern(&lf[202],4,"set!");
lf[203]=C_h_intern(&lf[203],13,"\004corecallunit");
lf[204]=C_h_intern(&lf[204],19,"\010compilerused-units");
lf[205]=C_h_intern(&lf[205],28,"\010compilerimmutable-constants");
lf[206]=C_h_intern(&lf[206],6,"gensym");
lf[207]=C_h_intern(&lf[207],32,"\010compilercanonicalize-expression");
lf[208]=C_h_intern(&lf[208],28,"\003sysexplicit-library-modules");