ulolevel.c

Scheme跨平台编译器

lf[114]=C_h_intern(&lf[114],24,"\003sysset-pointer-address!");
lf[115]=C_h_intern(&lf[115],6,"signal");
lf[116]=C_h_intern(&lf[116],24,"make-composite-condition");
lf[117]=C_h_intern(&lf[117],23,"make-property-condition");
lf[118]=C_h_intern(&lf[118],5,"evict");
lf[119]=C_h_intern(&lf[119],5,"limit");
lf[120]=C_h_intern(&lf[120],3,"exn");
lf[121]=C_h_intern(&lf[121],8,"location");
lf[122]=C_h_intern(&lf[122],7,"message");
lf[123]=C_decode_literal(C_heaptop,"\376B\000\000%can not evict object - limit exceeded");
lf[124]=C_h_intern(&lf[124],9,"arguments");
lf[125]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not a pointer");
lf[126]=C_h_intern(&lf[126],11,"object-size");
lf[127]=C_h_intern(&lf[127],14,"object-unevict");
lf[128]=C_h_intern(&lf[128],15,"\003sysmake-string");
lf[129]=C_h_intern(&lf[129],14,"object-become!");
lf[130]=C_h_intern(&lf[130],11,"\003sysbecome!");
lf[131]=C_decode_literal(C_heaptop,"\376B\000\000)bad argument type - new item is immediate");
lf[132]=C_decode_literal(C_heaptop,"\376B\000\000)bad argument type - old item is immediate");
lf[133]=C_decode_literal(C_heaptop,"\376B\000\000!bad argument type - not an a-list");
lf[134]=C_h_intern(&lf[134],16,"mutate-procedure");
lf[135]=C_h_intern(&lf[135],17,"\003sysmake-locative");
lf[136]=C_h_intern(&lf[136],18,"make-weak-locative");
lf[137]=C_h_intern(&lf[137],13,"locative-set!");
lf[138]=C_h_intern(&lf[138],12,"locative-ref");
lf[139]=C_h_intern(&lf[139],16,"locative->object");
lf[140]=C_h_intern(&lf[140],9,"locative\077");
lf[142]=C_h_intern(&lf[142],35,"set-invalid-procedure-call-handler!");
lf[143]=C_h_intern(&lf[143],31,"\003sysinvalid-procedure-call-hook");
lf[144]=C_h_intern(&lf[144],26,"\003syslast-invalid-procedure");
lf[145]=C_decode_literal(C_heaptop,"\376B\000\000#bad argument type - not a procedure");
lf[146]=C_h_intern(&lf[146],22,"unbound-variable-value");
lf[147]=C_h_intern(&lf[147],31,"\003sysunbound-variable-value-hook");
lf[148]=C_h_intern(&lf[148],10,"global-ref");
lf[149]=C_h_intern(&lf[149],11,"global-set!");
lf[150]=C_h_intern(&lf[150],13,"global-bound\077");
lf[151]=C_h_intern(&lf[151],32,"\003syssymbol-has-toplevel-binding\077");
lf[152]=C_h_intern(&lf[152],20,"global-make-unbound!");
lf[153]=C_h_intern(&lf[153],28,"\003sysarbitrary-unbound-symbol");
lf[154]=C_h_intern(&lf[154],18,"getter-with-setter");
lf[155]=C_h_intern(&lf[155],13,"\003sysblock-ref");
lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\014out of range");
lf[157]=C_h_intern(&lf[157],15,"pointer-s6-set!");
lf[158]=C_h_intern(&lf[158],17,"register-feature!");
lf[159]=C_h_intern(&lf[159],7,"lolevel");
C_register_lf2(lf,160,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_721,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* lolevel.scm: 83   register-feature! */
t4=*((C_word*)lf[158]+1);
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t3,lf[159]);}

/* k719 */
static void C_ccall f_721(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 t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word ab[51],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_721,2,t0,t1);}
t2=lf[2];
t3=C_mutate((C_word*)lf[3]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_775,a[2]=t2,tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[13]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1099,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate((C_word*)lf[15]+1,*((C_word*)lf[16]+1));
t6=C_mutate((C_word*)lf[17]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1118,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate((C_word*)lf[18]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1127,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[21]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1146,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate((C_word*)lf[24]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1155,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate((C_word*)lf[25]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1168,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate((C_word*)lf[26]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1179,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate((C_word*)lf[27]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1185,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate((C_word*)lf[28]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1194,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate((C_word*)lf[29]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1197,tmp=(C_word)a,a+=2,tmp));
t15=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1207,tmp=(C_word)a,a+=2,tmp);
t16=C_mutate((C_word*)lf[30]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1209,a[2]=t15,tmp=(C_word)a,a+=3,tmp));
t17=C_mutate((C_word*)lf[32]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1241,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate((C_word*)lf[33]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1251,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate((C_word*)lf[34]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1261,tmp=(C_word)a,a+=2,tmp));
t20=C_mutate((C_word*)lf[35]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1271,tmp=(C_word)a,a+=2,tmp));
t21=C_mutate((C_word*)lf[36]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1281,tmp=(C_word)a,a+=2,tmp));
t22=C_mutate((C_word*)lf[37]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1291,tmp=(C_word)a,a+=2,tmp));
t23=C_mutate((C_word*)lf[38]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1301,tmp=(C_word)a,a+=2,tmp));
t24=C_mutate((C_word*)lf[39]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1311,tmp=(C_word)a,a+=2,tmp));
t25=C_mutate((C_word*)lf[40]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1321,tmp=(C_word)a,a+=2,tmp));
t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1333,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t27=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2981,tmp=(C_word)a,a+=2,tmp);
/* lolevel.scm: 203  getter-with-setter */
t28=*((C_word*)lf[154]+1);
((C_proc4)(void*)(*((C_word*)t28+1)))(4,t28,t26,t27,*((C_word*)lf[33]+1));}

/* a2980 in k719 */
static void C_ccall f_2981(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2981,3,t0,t1,t2);}
t3=(C_truep(t2)?(C_word)C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE);
t4=t1;
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)stub260(C_SCHEME_UNDEFINED,t3));}

/* k1331 in k719 */
static void C_ccall f_1333(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[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1333,2,t0,t1);}
t2=C_mutate((C_word*)lf[41]+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1337,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2971,tmp=(C_word)a,a+=2,tmp);
/* lolevel.scm: 208  getter-with-setter */
t5=*((C_word*)lf[154]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,*((C_word*)lf[34]+1));}

/* a2970 in k1331 in k719 */
static void C_ccall f_2971(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2971,3,t0,t1,t2);}
t3=(C_truep(t2)?(C_word)C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE);
t4=t1;
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)stub266(C_SCHEME_UNDEFINED,t3));}

/* k1335 in k1331 in k719 */
static void C_ccall f_1337(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[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1337,2,t0,t1);}
t2=C_mutate((C_word*)lf[42]+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1341,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2961,tmp=(C_word)a,a+=2,tmp);
/* lolevel.scm: 213  getter-with-setter */
t5=*((C_word*)lf[154]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,*((C_word*)lf[35]+1));}

/* a2960 in k1335 in k1331 in k719 */
static void C_ccall f_2961(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2961,3,t0,t1,t2);}
t3=(C_truep(t2)?(C_word)C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE);
t4=t1;
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)stub272(C_SCHEME_UNDEFINED,t3));}

/* k1339 in k1335 in k1331 in k719 */
static void C_ccall f_1341(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[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1341,2,t0,t1);}
t2=C_mutate((C_word*)lf[43]+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1345,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2951,tmp=(C_word)a,a+=2,tmp);
/* lolevel.scm: 218  getter-with-setter */
t5=*((C_word*)lf[154]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,*((C_word*)lf[157]+1));}

/* a2950 in k1339 in k1335 in k1331 in k719 */
static void C_ccall f_2951(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2951,3,t0,t1,t2);}
t3=(C_truep(t2)?(C_word)C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE);
t4=t1;
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)stub278(C_SCHEME_UNDEFINED,t3));}

/* k1343 in k1339 in k1335 in k1331 in k719 */
static void C_ccall f_1345(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[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1345,2,t0,t1);}
t2=C_mutate((C_word*)lf[44]+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1349,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2941,tmp=(C_word)a,a+=2,tmp);
/* lolevel.scm: 223  getter-with-setter */
t5=*((C_word*)lf[154]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,*((C_word*)lf[37]+1));}

/* a2940 in k1343 in k1339 in k1335 in k1331 in k719 */
static void C_ccall f_2941(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2941,3,t0,t1,t2);}
t3=(C_word)C_a_i_bytevector(&a,1,C_fix(4));
t4=(C_truep(t2)?(C_word)C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE);
t5=t1;
((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,(C_word)stub284(t3,t4));}

/* k1347 in k1343 in k1339 in k1335 in k1331 in k719 */
static void C_ccall f_1349(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[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1349,2,t0,t1);}
t2=C_mutate((C_word*)lf[45]+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1353,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2931,tmp=(C_word)a,a+=2,tmp);
/* lolevel.scm: 228  getter-with-setter */
t5=*((C_word*)lf[154]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,*((C_word*)lf[38]+1));}

/* a2930 in k1347 in k1343 in k1339 in k1335 in k1331 in k719 */
static void C_ccall f_2931(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2931,3,t0,t1,t2);}
t3=(C_word)C_a_i_bytevector(&a,1,C_fix(4));
t4=(C_truep(t2)?(C_word)C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE);
t5=t1;
((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,(C_word)stub291(t3,t4));}

/* k1351 in k1347 in k1343 in k1339 in k1335 in k1331 in k719 */
static void C_ccall f_1353(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[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1353,2,t0,t1);}
t2=C_mutate((C_word*)lf[46]+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1357,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2921,tmp=(C_word)a,a+=2,tmp);
/* lolevel.scm: 233  getter-with-setter */
t5=*((C_word*)lf[154]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,*((C_word*)lf[39]+1));}

/* a2920 in k1351 in k1347 in k1343 in k1339 in k1335 in k1331 in k719 */
static void C_ccall f_2921(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_2921,3,t0,t1,t2);}
t3=(C_word)C_a_i_bytevector(&a,1,C_fix(4));
t4=(C_truep(t2)?(C_word)C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE);
t5=t1;
((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,(C_word)stub298(t3,t4));}

/* k1355 in k1351 in k1347 in k1343 in k1339 in k1335 in k1331 in k719 */
static void C_ccall f_1357(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[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1357,2,t0,t1);}
t2=C_mutate((C_word*)lf[47]+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1361,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2911,tmp=(C_word)a,a+=2,tmp);
/* lolevel.scm: 238  getter-with-setter */
t5=*((C_word*)lf[154]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,*((C_word*)lf[40]+1));}

/* a2910 in k1355 in k1351 in k1347 in k1343 in k1339 in k1335 in k1331 in k719 */
st