chicken-profile.c

Scheme跨平台编译器

C_word t18;
C_word t19;
C_word t20;
C_word ab[22],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_194,2,t0,t1);}
t2=lf[0]=C_SCHEME_FALSE;;
t3=lf[1]=C_SCHEME_FALSE;;
t4=lf[2]=C_SCHEME_FALSE;;
t5=lf[3]=C_fix(3);;
t6=lf[4]=C_fix(3);;
t7=lf[5]=C_fix(3);;
t8=lf[6]=C_fix(0);;
t9=C_mutate(&lf[7],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_203,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[15],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_515,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[16],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_550,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[17],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_579,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[18],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_608,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate(&lf[0],lf[16]);
t15=C_mutate(&lf[21],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_692,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate(&lf[30],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_759,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate(&lf[35],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_839,tmp=(C_word)a,a+=2,tmp));
t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1148,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1158,a[2]=t18,tmp=(C_word)a,a+=3,tmp);
/* chicken-profile.scm: 234  command-line-arguments */
t20=C_retrieve(lf[91]);
((C_proc2)C_retrieve_proc(t20))(2,t20,t19);}

/* k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_1158(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_1158,2,t0,t1);}
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_250,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_250(t5,((C_word*)t0)[2],t1);}

/* loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_fcall f_250(C_word t0,C_word t1,C_word t2){
C_word tmp;
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 ab[41],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_250,NULL,3,t0,t1,t2);}
if(C_truep((C_word)C_i_nullp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_260,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(lf[1])){
t4=t3;
f_260(t4,C_SCHEME_UNDEFINED);}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_267,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* chicken-profile.scm: 73   glob */
t5=C_retrieve(lf[68]);
((C_proc3)C_retrieve_proc(t5))(3,t5,t4,lf[69]);}}
else{
t3=(C_word)C_i_car(t2);
t4=(C_word)C_i_cdr(t2);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_305,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_324,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_345,tmp=(C_word)a,a+=2,tmp);
t10=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_357,tmp=(C_word)a,a+=2,tmp);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_364,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
if(C_truep((C_word)C_i_equalp(t3,lf[74]))){
/* g1129 */
f_357(t11);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[75]))){
/* g1129 */
f_357(t11);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[76]))){
/* g1129 */
f_357(t11);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[77]))){
/* g1228 */
f_345(t11);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[78]))){
/* g1228 */
f_345(t11);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[79]))){
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_418,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_425,a[2]=t12,tmp=(C_word)a,a+=3,tmp);
/* chicken-profile.scm: 98   chicken-version */
t14=C_retrieve(lf[73]);
((C_proc2)C_retrieve_proc(t14))(2,t14,t13);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[80]))){
t12=lf[2]=C_SCHEME_TRUE;;
t13=t11;
f_364(2,t13,t12);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[81]))){
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_442,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
/* next-number24 */
t13=t8;
f_324(t13,t12);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[82]))){
t12=C_mutate(&lf[0],lf[15]);
t13=t11;
f_364(2,t13,t12);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[83]))){
t12=C_mutate(&lf[0],lf[16]);
t13=t11;
f_364(2,t13,t12);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[84]))){
t12=C_mutate(&lf[0],lf[17]);
t13=t11;
f_364(2,t13,t12);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[85]))){
t12=C_mutate(&lf[0],lf[18]);
t13=t11;
f_364(2,t13,t12);}
else{
if(C_truep((C_word)C_i_equalp(t3,lf[86]))){
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_483,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
/* next-arg23 */
t13=t7;
f_305(t13,t12);}
else{
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_489,a[2]=t3,a[3]=t11,tmp=(C_word)a,a+=4,tmp);
t13=(C_word)C_i_string_length(t3);
if(C_truep((C_word)C_i_greaterp(t13,C_fix(1)))){
t14=(C_word)C_i_string_ref(t3,C_fix(0));
t15=t12;
f_489(t15,(C_word)C_eqp(C_make_character(45),t14));}
else{
t14=t12;
f_489(t14,C_SCHEME_FALSE);}}}}}}}}}}}}}}}}

/* k487 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_fcall f_489(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_truep(t1)){
/* error */
t2=*((C_word*)lf[65]+1);
((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],lf[90],((C_word*)t0)[2]);}
else{
if(C_truep(lf[1])){
/* print-usage */
f_203(((C_word*)t0)[3]);}
else{
t2=C_mutate(&lf[1],((C_word*)t0)[2]);
t3=((C_word*)t0)[3];
f_364(2,t3,t2);}}}

/* k481 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_483(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[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_483,2,t0,t1);}
t2=(C_word)C_i_string_length(t1);
if(C_truep((C_word)C_i_nequalp(t2,C_fix(3)))){
t3=C_mutate(&lf[87],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_640,a[2]=t1,tmp=(C_word)a,a+=3,tmp));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* chicken-profile.scm: 148  arg-digit */
t5=C_retrieve2(lf[87],"arg-digit");
f_640(t5,t4,C_fix(0));}
else{
/* chicken-profile.scm: 151  error */
t3=*((C_word*)lf[65]+1);
((C_proc4)C_retrieve_proc(t3))(4,t3,((C_word*)t0)[2],lf[89],t1);}}

/* k673 in k481 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_675(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_675,2,t0,t1);}
t2=C_mutate(&lf[3],t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_679,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* chicken-profile.scm: 149  arg-digit */
t4=C_retrieve2(lf[87],"arg-digit");
f_640(t4,t3,C_fix(1));}

/* k677 in k673 in k481 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_679(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_679,2,t0,t1);}
t2=C_mutate(&lf[4],t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_683,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* chicken-profile.scm: 150  arg-digit */
t4=C_retrieve2(lf[87],"arg-digit");
f_640(t4,t3,C_fix(2));}

/* k681 in k677 in k673 in k481 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_683(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
t2=C_mutate(&lf[5],t1);
t3=((C_word*)t0)[2];
f_364(2,t3,t2);}

/* arg-digit in k481 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_fcall f_640(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word ab[9],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_640,NULL,3,t0,t1,t2);}
t3=(C_word)C_i_string_ref(((C_word*)t0)[2],t2);
t4=(C_word)C_fix((C_word)C_character_code(t3));
t5=(C_word)C_a_i_minus(&a,2,t4,C_fix(48));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_650,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* chicken-profile.scm: 145  <= */
C_less_or_equal_p(5,0,t6,C_fix(0),t5,C_fix(9));}

/* k648 in arg-digit in k481 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_650(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_truep(t1)){
t2=(C_word)C_i_nequalp(((C_word*)t0)[4],C_fix(9));
t3=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_truep(t2)?C_fix(8):((C_word*)t0)[4]));}
else{
/* chicken-profile.scm: 147  error */
t2=*((C_word*)lf[65]+1);
((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],lf[88],((C_word*)t0)[2]);}}

/* k440 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
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 *a;
t2=C_mutate(&lf[6],t1);
t3=((C_word*)t0)[2];
f_364(2,t3,t2);}

/* k423 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_425(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* chicken-profile.scm: 98   print */
t2=*((C_word*)lf[47]+1);
((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}

/* k416 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_418(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* chicken-profile.scm: 99   exit */
t2=C_retrieve(lf[8]);
((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}

/* k362 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_ccall f_364(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* chicken-profile.scm: 111  loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_250(t2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]);}

/* g11 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_fcall f_357(C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_357,NULL,1,t1);}
/* chicken-profile.scm: 93   print-usage */
f_203(t1);}

/* g12 in loop in k1156 in k192 in k189 in k186 in k183 in k180 in k177 in k174 in k171 in k168 in k165 in k162 */
static void C_fcall f_345(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_345,NULL,1,t1);}