usrfi-69.c

Scheme跨平台编译器

C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
f_1659(t0,t1,t2);}

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

C_noret_decl(trf_1177)
static void C_fcall trf_1177(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1177(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_1177(t0,t1,t2,t3);}

C_noret_decl(trf_1146)
static void C_fcall trf_1146(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1146(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_1146(t0,t1,t2,t3);}

C_noret_decl(trf_1081)
static void C_fcall trf_1081(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1081(void *dummy){
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);
f_1081(t0,t1,t2,t3,t4,t5);}

C_noret_decl(trf_1098)
static void C_fcall trf_1098(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1098(void *dummy){
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);
f_1098(t0,t1,t2,t3,t4);}

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

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(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(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(tr2r)
static void C_fcall tr2r(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2r(C_proc2 k){
int n;
C_word *a,t2;
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
n=C_rest_count(0);
a=C_alloc(n*3);
t2=C_restore_rest(a,n);
(k)(t0,t1,t2);}

C_noret_decl(tr4r)
static void C_fcall tr4r(C_proc4 k) C_regparm C_noret;
C_regparm static void C_fcall tr4r(C_proc4 k){
int n;
C_word *a,t4;
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);
n=C_rest_count(0);
a=C_alloc(n*3);
t4=C_restore_rest(a,n);
(k)(t0,t1,t2,t3,t4);}

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);}

C_noret_decl(tr3rv)
static void C_fcall tr3rv(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3rv(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+1);
t3=C_restore_rest_vector(a,n);
(k)(t0,t1,t2,t3);}

C_noret_decl(tr10rv)
static void C_fcall tr10rv(C_proc10 k) C_regparm C_noret;
C_regparm static void C_fcall tr10rv(C_proc10 k){
int n;
C_word *a,t10;
C_word t9=C_pick(0);
C_word t8=C_pick(1);
C_word t7=C_pick(2);
C_word t6=C_pick(3);
C_word t5=C_pick(4);
C_word t4=C_pick(5);
C_word t3=C_pick(6);
C_word t2=C_pick(7);
C_word t1=C_pick(8);
C_word t0=C_pick(9);
C_adjust_stack(-10);
n=C_rest_count(0);
a=C_alloc(n+1);
t10=C_restore_rest_vector(a,n);
(k)(t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10);}

C_noret_decl(tr4rv)
static void C_fcall tr4rv(C_proc4 k) C_regparm C_noret;
C_regparm static void C_fcall tr4rv(C_proc4 k){
int n;
C_word *a,t4;
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);
n=C_rest_count(0);
a=C_alloc(n+1);
t4=C_restore_rest_vector(a,n);
(k)(t0,t1,t2,t3,t4);}

/* 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_srfi_69_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}

void C_ccall C_srfi_69_toplevel(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 *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("srfi_69_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(1043)){
C_save(t1);
C_rereclaim2(1043*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,118);
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[3]=C_h_intern(&lf[3],27,"\007srfi-69unbound-value-thunk");
lf[4]=C_h_intern(&lf[4],28,"\003sysarbitrary-unbound-symbol");
lf[5]=C_h_intern(&lf[5],20,"\003sysnumber-hash-hook");
lf[6]=C_h_intern(&lf[6],20,"\007srfi-69%equal\077-hash");
lf[7]=C_h_intern(&lf[7],11,"number-hash");
lf[8]=C_h_intern(&lf[8],4,"\077obj");
lf[9]=C_h_intern(&lf[9],15,"\003syssignal-hook");
lf[10]=C_h_intern(&lf[10],5,"\000type");
lf[11]=C_decode_literal(C_heaptop,"\376B\000\000\016invalid number");
lf[12]=C_h_intern(&lf[12],24,"\007srfi-69%object-uid-hash");
lf[13]=C_h_intern(&lf[13],15,"object-uid-hash");
lf[14]=C_h_intern(&lf[14],11,"symbol-hash");
lf[15]=C_h_intern(&lf[15],11,"string-hash");
lf[16]=C_h_intern(&lf[16],17,"\003syscheck-keyword");
lf[17]=C_h_intern(&lf[17],11,"\000type-error");
lf[18]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not a keyword");
lf[19]=C_h_intern(&lf[19],8,"keyword\077");
lf[20]=C_h_intern(&lf[20],12,"keyword-hash");
lf[21]=C_h_intern(&lf[21],17,"\007srfi-69%eq\077-hash");
lf[22]=C_h_intern(&lf[22],8,"eq\077-hash");
lf[23]=C_h_intern(&lf[23],16,"hash-by-identity");
lf[24]=C_h_intern(&lf[24],18,"\007srfi-69%eqv\077-hash");
lf[25]=C_h_intern(&lf[25],9,"eqv\077-hash");
lf[26]=C_h_intern(&lf[26],11,"input-port\077");
lf[27]=C_h_intern(&lf[27],11,"equal\077-hash");
lf[28]=C_h_intern(&lf[28],4,"hash");
lf[29]=C_h_intern(&lf[29],14,"string-ci-hash");
lf[31]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\0013\376\003\000\000\002\376\377\001\000\000\002i\376\003\000\000\002\376\377\001\000\000\004\325\376\003\000\000\002\376\377\001\000\000\011\255\376\003\000\000\002\376\377\001\000\000\023]\376\003\000\000\002\376\377\001\000\000&\303\376\003\000\000\002\376\377\001"
"\000\000M\215\376\003\000\000\002\376\377\001\000\000\233\035\376\003\000\000\002\376\377\001\000\0016\077\376\003\000\000\002\376\377\001\000\002l\201\376\003\000\000\002\376\377\001\000\004\331\005\376\003\000\000\002\376\377\001\000\011\262\025\376\003\000\000\002\376\377\001\000\023dA\376\003\000\000"
"\002\376\377\001\000&\310\205\376\003\000\000\002\376\377\001\000M\221\037\376\003\000\000\002\376\377\001\000\233\042I\376\003\000\000\002\376\377\001\0016D\277\376\003\000\000\002\376\377\001\002l\211\207\376\003\000\000\002\376\377\001\004\331\023\027\376\003\000\000\002\376\377\001\011\262&1"
"\376\003\000\000\002\376\377\001\023dLq\376\003\000\000\002\376\377\001&\310\230\373\376\003\000\000\002\376\377\001\077\377\377\377\376\377\016");
lf[32]=C_h_intern(&lf[32],35,"\007srfi-69hash-table-canonical-length");
lf[33]=C_h_intern(&lf[33],11,"make-vector");
lf[34]=C_h_intern(&lf[34],16,"%make-hash-table");
lf[35]=C_h_intern(&lf[35],10,"hash-table");
lf[36]=C_h_intern(&lf[36],3,"eq\077");
lf[37]=C_h_intern(&lf[37],4,"eqv\077");
lf[38]=C_h_intern(&lf[38],6,"equal\077");
lf[39]=C_h_intern(&lf[39],8,"string=\077");
lf[40]=C_h_intern(&lf[40],11,"string-ci=\077");
lf[41]=C_h_intern(&lf[41],1,"=");
lf[42]=C_h_intern(&lf[42],15,"make-hash-table");
lf[43]=C_decode_literal(C_heaptop,"\376U0.5\000");
lf[44]=C_decode_literal(C_heaptop,"\376U0.8\000");
lf[45]=C_h_intern(&lf[45],7,"warning");
lf[46]=C_decode_literal(C_heaptop,"\376B\000\000\033user test without user hash");
lf[47]=C_h_intern(&lf[47],5,"error");
lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\036min-load greater than max-load");
lf[49]=C_h_intern(&lf[49],5,"\000test");
lf[50]=C_h_intern(&lf[50],17,"\003syscheck-closure");
lf[51]=C_h_intern(&lf[51],5,"\000hash");
lf[52]=C_h_intern(&lf[52],5,"\000size");
lf[53]=C_h_intern(&lf[53],19,"hash-table-max-size");
lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid size");
lf[55]=C_h_intern(&lf[55],8,"\000initial");
lf[56]=C_h_intern(&lf[56],9,"\000min-load");
lf[57]=C_decode_literal(C_heaptop,"\376U0.0\000");
lf[58]=C_decode_literal(C_heaptop,"\376U1.0\000");
lf[59]=C_decode_literal(C_heaptop,"\376B\000\000\020invalid min-load");
lf[60]=C_h_intern(&lf[60],17,"\003syscheck-inexact");
lf[61]=C_h_intern(&lf[61],9,"\000max-load");
lf[62]=C_decode_literal(C_heaptop,"\376U0.0\000");
lf[63]=C_decode_literal(C_heaptop,"\376U1.0\000");
lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\020invalid max-load");
lf[65]=C_h_intern(&lf[65],10,"\000weak-keys");
lf[66]=C_h_intern(&lf[66],12,"\000weak-values");
lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\017unknown keyword");
lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\025missing keyword value");
lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\017missing keyword");
lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\014invalid size");
lf[71]=C_h_intern(&lf[71],11,"hash-table\077");
lf[72]=C_h_intern(&lf[72],15,"hash-table-size");
lf[73]=C_h_intern(&lf[73],31,"hash-table-equivalence-function");
lf[74]=C_h_intern(&lf[74],24,"hash-table-hash-function");
lf[75]=C_h_intern(&lf[75],19,"hash-table-min-load");
lf[76]=C_h_intern(&lf[76],19,"hash-table-max-load");
lf[77]=C_h_intern(&lf[77],20,"hash-table-weak-keys");
lf[78]=C_h_intern(&lf[78],22,"hash-table-weak-values");
lf[79]=C_h_intern(&lf[79],23,"hash-table-has-initial\077");
lf[80]=C_h_intern(&lf[80],18,"hash-table-initial");
lf[81]=C_h_intern(&lf[81],24,"\007srfi-69%hash-table-copy");
lf[82]=C_h_intern(&lf[82],15,"hash-table-copy");
lf[83]=C_h_intern(&lf[83],25,"\007srfi-69hash-table-rehash");
lf[84]=C_h_intern(&lf[84],5,"floor");
lf[85]=C_h_intern(&lf[85],27,"\007srfi-69%hash-table-update!");
lf[86]=C_h_intern(&lf[86],18,"hash-table-update!");
lf[87]=C_h_intern(&lf[87],13,"\000access-error");
lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\037hash-table does not contain key");
lf[89]=C_h_intern(&lf[89],8,"identity");
lf[90]=C_h_intern(&lf[90],26,"hash-table-update!/default");
lf[91]=C_h_intern(&lf[91],15,"hash-table-set!");
lf[92]=C_h_intern(&lf[92],23,"\007srfi-69%hash-table-ref");
lf[93]=C_h_intern(&lf[93],14,"hash-table-ref");
lf[94]=C_h_intern(&lf[94],22,"hash-table-ref/default");
lf[95]=C_h_intern(&lf[95],18,"hash-table-exists\077");
lf[96]=C_h_intern(&lf[96],18,"hash-table-delete!");
lf[97]=C_h_intern(&lf[97],18,"hash-table-remove!");
lf[98]=C_h_intern(&lf[98],17,"hash-table-clear!");
lf[99]=C_h_intern(&lf[99],12,"vector-fill!");
lf[100]=C_h_intern(&lf[100],26,"\007srfi-69%hash-table-merge!");
lf[101]=C_h_intern(&lf[101],17,"hash-table-merge!");
lf[102]=C_h_intern(&lf[102],16,"hash-table-merge");
lf[103]=C_h_intern(&lf[103],17,"hash-table->alist");
lf[104]=C_h_intern(&lf[104],17,"alist->hash-table");
lf[105]=C_h_intern(&lf[105],12,"\003sysfor-each");
lf[106]=C_h_intern(&lf[106],15,"hash-table-keys");
lf[107]=C_h_intern(&lf[107],17,"hash-table-values");
lf[108]=C_h_intern(&lf[108],28,"\007srfi-69%hash-table-for-each");
lf[109]=C_h_intern(&lf[109],24,"\007srfi-69%hash-table-fold");
lf[110]=C_h_intern(&lf[110],15,"hash-table-fold");
lf[111]=C_h_intern(&lf[111],19,"hash-table-for-each");
lf[112]=C_h_intern(&lf[112],15,"hash-table-walk");
lf[113]=C_h_intern(&lf[113],14,"hash-table-map");
lf[114]=C_decode_literal(C_heaptop,"\376B\000\000\037hash-table does not contain key");
lf[115]=C_h_intern(&lf[115],18,"getter-with-setter");
lf[116]=C_h_intern(&lf[116],17,"register-feature!");
lf[117]=C_h_intern(&lf[117],7,"srfi-69");
C_register_lf2(lf,118,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=*((C_word*)lf[2]+1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_611,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* srfi-69.scm: 76   register-feature! */
t5=*((C_word*)lf[116]+1);
((C_proc3)(void*)(*((C_word*)t5+1)))(3,t5,t4,lf[117]);}