profiler.c

Scheme跨平台编译器

/* k298 in k295 in k292 in k289 in k286 in do41 in a268 in a262 in k256 in ##sys#finish-profile */
static void C_ccall f_300(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;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_300,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_303,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
t3=(C_word)C_fixnum_plus(((C_word*)t0)[7],C_fix(3));
t4=(C_word)C_slot(((C_word*)t0)[3],t3);
/* profiler.scm: 143  write */
t5=((C_word*)t0)[2];
((C_proc3)C_retrieve_proc(t5))(3,t5,t2,t4);}

/* k301 in k298 in k295 in k292 in k289 in k286 in do41 in a268 in a262 in k256 in ##sys#finish-profile */
static void C_ccall f_303(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[6],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_303,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_306,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);
/* profiler.scm: 144  write-char */
t3=((C_word*)t0)[2];
((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_make_character(41));}

/* k304 in k301 in k298 in k295 in k292 in k289 in k286 in do41 in a268 in a262 in k256 in ##sys#finish-profile */
static void C_ccall f_306(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[5],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_306,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_309,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* profiler.scm: 145  write-char */
t3=((C_word*)t0)[2];
((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_make_character(10));}

/* k307 in k304 in k301 in k298 in k295 in k292 in k289 in k286 in do41 in a268 in a262 in k256 in ##sys#finish-profile */
static void C_ccall f_309(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
t2=(C_word)C_fixnum_plus(((C_word*)t0)[4],C_fix(5));
t3=((C_word*)((C_word*)t0)[3])[1];
f_278(t3,((C_word*)t0)[2],t2);}

/* ##sys#profile-exit */
static void C_ccall f_197(C_word c,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 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 *a;
if(c!=4) C_bad_argc_2(c,4,t0);
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr4,(void*)f_197,4,t0,t1,t2,t3);}
t4=(C_word)C_fixnum_times(t2,C_fix(5));
t5=(C_word)C_fixnum_plus(t4,C_fix(2));
t6=(C_word)C_fixnum_plus(t4,C_fix(3));
t7=(C_word)C_fixnum_plus(t4,C_fix(4));
t8=(C_word)C_slot(t3,t7);
t9=(C_word)C_fixnum_decrease(t8);
t10=(C_word)C_i_set_i_slot(t3,t7,t9);
t11=(C_word)C_eqp(t9,C_fix(0));
if(C_truep(t11)){
t12=(C_word)C_slot(t3,t6);
t13=(C_word)C_fudge(C_fix(6));
t14=(C_word)C_slot(t3,t5);
t15=(C_word)C_fixnum_difference(t13,t14);
t16=(C_word)C_fixnum_plus(t12,t15);
t17=(C_word)C_i_set_i_slot(t3,t6,t16);
t18=t1;
((C_proc2)(void*)(*((C_word*)t18+1)))(2,t18,(C_word)C_i_set_i_slot(t3,t5,C_fix(0)));}
else{
t12=t1;
((C_proc2)(void*)(*((C_word*)t12+1)))(2,t12,C_SCHEME_UNDEFINED);}}

/* ##sys#profile-entry */
static void C_ccall f_137(C_word c,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 t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word ab[8],*a=ab;
if(c!=4) C_bad_argc_2(c,4,t0);
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr4,(void*)f_137,4,t0,t1,t2,t3);}
t4=(C_word)C_fixnum_times(t2,C_fix(5));
t5=(C_word)C_fixnum_increase(t4);
t6=(C_word)C_slot(t3,t5);
t7=(C_word)C_fixnum_plus(t4,C_fix(2));
t8=(C_word)C_fixnum_plus(t4,C_fix(4));
t9=(C_word)C_slot(t3,t8);
t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_183,a[2]=t7,a[3]=t8,a[4]=t1,a[5]=t9,a[6]=t5,a[7]=t3,tmp=(C_word)a,a+=8,tmp);
if(C_truep(t6)){
t11=(C_word)C_eqp(((C_word*)t0)[2],t6);
t12=t10;
f_183(t12,(C_truep(t11)?C_SCHEME_FALSE:(C_word)C_fixnum_increase(t6)));}
else{
t11=t10;
f_183(t11,C_SCHEME_FALSE);}}

/* k181 in ##sys#profile-entry */
static void C_fcall f_183(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 ab[6],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_183,NULL,2,t0,t1);}
t2=(C_word)C_i_set_i_slot(((C_word*)t0)[7],((C_word*)t0)[6],t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_162,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t4=(C_word)C_eqp(((C_word*)t0)[5],C_fix(0));
if(C_truep(t4)){
t5=(C_word)C_fudge(C_fix(6));
t6=t3;
f_162(t6,(C_word)C_i_set_i_slot(((C_word*)t0)[7],((C_word*)t0)[2],t5));}
else{
t5=t3;
f_162(t5,C_SCHEME_UNDEFINED);}}

/* k160 in k181 in ##sys#profile-entry */
static void C_fcall f_162(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
t2=(C_word)C_fixnum_increase(((C_word*)t0)[5]);
t3=((C_word*)t0)[4];
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_i_set_i_slot(((C_word*)t0)[3],((C_word*)t0)[2],t2));}

/* ##sys#set-profile-info-vector! */
static void C_ccall f_124(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr5,(void*)f_124,5,t0,t1,t2,t3,t4);}
t5=(C_word)C_fixnum_times(t3,C_fix(5));
t6=t1;
((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,(C_word)C_i_setslot(t2,t5,t4));}

/* ##sys#register-profile-info */
static void C_ccall f_69(C_word c,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 t7;
C_word ab[12],*a=ab;
if(c!=4) C_bad_argc_2(c,4,t0);
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr4,(void*)f_69,4,t0,t1,t2,t3);}
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_73,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_88,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_122,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* profiler.scm: 69   number->string */
C_number_to_string(3,0,t6,C_fix((C_word)getpid()));}
else{
t5=t4;
f_73(2,t5,C_SCHEME_UNDEFINED);}}

/* k120 in ##sys#register-profile-info */
static void C_ccall f_122(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* profiler.scm: 69   string-append */
t2=*((C_word*)lf[8]+1);
((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[3],((C_word*)t0)[2],lf[9],t1);}

/* k86 in ##sys#register-profile-info */
static void C_ccall f_88(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;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_88,2,t0,t1);}
t2=C_mutate(&lf[1],t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_91,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* profiler.scm: 70   ##sys#exit-handler */
t4=*((C_word*)lf[7]+1);
((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}

/* k89 in k86 in ##sys#register-profile-info */
static void C_ccall f_91(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_91,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_94,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* profiler.scm: 71   ##sys#implicit-exit-handler */
t3=*((C_word*)lf[6]+1);
((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}

/* k92 in k89 in k86 in ##sys#register-profile-info */
static void C_ccall f_94(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[8],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_94,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_97,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_111,a[2]=((C_word*)t0)[2],a[3]=((C_word)li1),tmp=(C_word)a,a+=4,tmp);
/* profiler.scm: 72   ##sys#exit-handler */
t4=*((C_word*)lf[7]+1);
((C_proc3)C_retrieve_proc(t4))(3,t4,t2,t3);}

/* a110 in k92 in k89 in k86 in ##sys#register-profile-info */
static void C_ccall f_111(C_word c,C_word t0,C_word t1,...){
C_word tmp;
C_word t2;
va_list v;
C_word *a,c2=c;
C_save_rest(t1,c2,2);
if(!C_demand(c*C_SIZEOF_PAIR+5)){
C_save_and_reclaim((void*)tr2r,(void*)f_111r,2,t0,t1);}
else{
a=C_alloc((c-2)*3);
t2=C_restore_rest(a,C_rest_count(0));
f_111r(t0,t1,t2);}}

static void C_ccall f_111r(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_115,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* profiler.scm: 74   ##sys#finish-profile */
t4=*((C_word*)lf[5]+1);
((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}

/* k113 in a110 in k92 in k89 in k86 in ##sys#register-profile-info */
static void C_ccall f_115(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_apply(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}

/* k95 in k92 in k89 in k86 in ##sys#register-profile-info */
static void C_ccall f_97(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_97,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_102,a[2]=((C_word*)t0)[3],a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp);
/* profiler.scm: 76   ##sys#implicit-exit-handler */
t3=*((C_word*)lf[6]+1);
((C_proc3)C_retrieve_proc(t3))(3,t3,((C_word*)t0)[2],t2);}

/* a101 in k95 in k92 in k89 in k86 in ##sys#register-profile-info */
static void C_ccall f_102(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
if(c!=2) C_bad_argc_2(c,2,t0);
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_102,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_106,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* profiler.scm: 78   ##sys#finish-profile */
t3=*((C_word*)lf[5]+1);
((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}

/* k104 in a101 in k95 in k92 in k89 in k86 in ##sys#register-profile-info */
static void C_ccall f_106(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* profiler.scm: 79   oldieh */
t2=((C_word*)t0)[3];
((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}

/* k71 in ##sys#register-profile-info */
static void C_ccall f_73(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;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_73,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_76,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t3=(C_word)C_fixnum_times(((C_word*)t0)[3],C_fix(5));
/* profiler.scm: 81   make-vector */
t4=((C_word*)t0)[2];
((C_proc4)C_retrieve_proc(t4))(4,t4,t2,t3,C_fix(0));}

/* k74 in k71 in ##sys#register-profile-info */
static void C_ccall f_76(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;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_76,2,t0,t1);}
t2=(C_word)C_a_i_cons(&a,2,t1,lf[0]);
t3=C_mutate(&lf[0],t2);
t4=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t1);}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[32] = {
{"toplevelprofiler.scm",(void*)C_profiler_toplevel},
{"f_254profiler.scm",(void*)f_254},
{"f_258profiler.scm",(void*)f_258},
{"f_263profiler.scm",(void*)f_263},
{"f_269profiler.scm",(void*)f_269},
{"f_278profiler.scm",(void*)f_278},
{"f_288profiler.scm",(void*)f_288},
{"f_291profiler.scm",(void*)f_291},
{"f_294profiler.scm",(void*)f_294},
{"f_297profiler.scm",(void*)f_297},
{"f_300profiler.scm",(void*)f_300},
{"f_303profiler.scm",(void*)f_303},
{"f_306profiler.scm",(void*)f_306},
{"f_309profiler.scm",(void*)f_309},
{"f_197profiler.scm",(void*)f_197},
{"f_137profiler.scm",(void*)f_137},
{"f_183profiler.scm",(void*)f_183},
{"f_162profiler.scm",(void*)f_162},
{"f_124profiler.scm",(void*)f_124},
{"f_69profiler.scm",(void*)f_69},
{"f_122profiler.scm",(void*)f_122},
{"f_88profiler.scm",(void*)f_88},
{"f_91profiler.scm",(void*)f_91},
{"f_94profiler.scm",(void*)f_94},
{"f_111profiler.scm",(void*)f_111},
{"f_115profiler.scm",(void*)f_115},
{"f_97profiler.scm",(void*)f_97},
{"f_102profiler.scm",(void*)f_102},
{"f_106profiler.scm",(void*)f_106},
{"f_73profiler.scm",(void*)f_73},
{"f_76profiler.scm",(void*)f_76},
{NULL,NULL}};
#endif

static C_PTABLE_ENTRY *create_ptable(void){
#ifdef C_ENABLE_PTABLES
return ptable;
#else
return NULL;
#endif
}
/* end of file */