scheduler.c

Scheme跨平台编译器

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

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

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

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

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

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

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

C_noret_decl(trf_496)
static void C_fcall trf_496(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_496(void *dummy){
C_word t0=C_pick(0);
C_adjust_stack(-1);
f_496(t0);}

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_326)
static void C_fcall trf_326(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_326(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_326(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(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);}

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

void C_ccall C_scheduler_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 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 *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("scheduler_toplevel"));
C_check_nursery_minimum(44);
if(!C_demand(44)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(763)){
C_save(t1);
C_rereclaim2(763*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(44);
C_initialize_lf(lf,77);
lf[0]=C_h_intern(&lf[0],12,"\003sysschedule");
lf[1]=C_h_intern(&lf[1],18,"\003syscurrent-thread");
lf[2]=C_h_intern(&lf[2],17,"\003sysdynamic-winds");
lf[3]=C_h_intern(&lf[3],18,"\003sysstandard-input");
lf[4]=C_h_intern(&lf[4],19,"\003sysstandard-output");
lf[5]=C_h_intern(&lf[5],18,"\003sysstandard-error");
lf[6]=C_h_intern(&lf[6],29,"\003syscurrent-exception-handler");
lf[7]=C_h_intern(&lf[7],28,"\003syscurrent-parameter-vector");
lf[8]=C_h_intern(&lf[8],5,"ready");
lf[9]=C_h_intern(&lf[9],7,"running");
lf[11]=C_h_intern(&lf[11],11,"\003sysfd-list");
lf[12]=C_h_intern(&lf[12],15,"\003syssignal-hook");
lf[13]=C_h_intern(&lf[13],14,"\000runtime-error");
lf[14]=C_decode_literal(C_heaptop,"\376B\000\000\010deadlock");
lf[20]=C_h_intern(&lf[20],25,"\003systhread-basic-unblock!");
lf[21]=C_h_intern(&lf[21],8,"\003sysdelq");
lf[22]=C_h_intern(&lf[22],22,"\003sysadd-to-ready-queue");
lf[23]=C_h_intern(&lf[23],19,"\003systhread-unblock!");
lf[24]=C_h_intern(&lf[24],21,"\003sysprimordial-thread");
lf[25]=C_h_intern(&lf[25],15,"\003sysready-queue");
lf[26]=C_h_intern(&lf[26],18,"\003sysinterrupt-hook");
lf[27]=C_h_intern(&lf[27],29,"\003systhread-block-for-timeout!");
lf[28]=C_h_intern(&lf[28],7,"blocked");
lf[29]=C_h_intern(&lf[29],33,"\003systhread-block-for-termination!");
lf[30]=C_h_intern(&lf[30],4,"dead");
lf[31]=C_h_intern(&lf[31],10,"terminated");
lf[32]=C_h_intern(&lf[32],16,"\003systhread-kill!");
lf[33]=C_h_intern(&lf[33],12,"\003sysfor-each");
lf[34]=C_h_intern(&lf[34],19,"\003sysabandon-mutexes");
lf[35]=C_h_intern(&lf[35],19,"print-error-message");
lf[36]=C_h_intern(&lf[36],7,"display");
lf[37]=C_h_intern(&lf[37],16,"print-call-chain");
lf[38]=C_h_intern(&lf[38],18,"open-output-string");
lf[39]=C_h_intern(&lf[39],17,"get-output-string");
lf[40]=C_h_intern(&lf[40],29,"\003sysdefault-exception-handler");
lf[41]=C_h_intern(&lf[41],10,"\003syssignal");
lf[42]=C_h_intern(&lf[42],20,"\003syswarnings-enabled");
lf[43]=C_decode_literal(C_heaptop,"\376B\000\000\003): ");
lf[44]=C_decode_literal(C_heaptop,"\376B\000\000\011Warning (");
lf[47]=C_h_intern(&lf[47],25,"\003systhread-block-for-i/o!");
lf[48]=C_h_intern(&lf[48],6,"\000input");
lf[49]=C_h_intern(&lf[49],7,"\000output");
lf[50]=C_h_intern(&lf[50],4,"\000all");
lf[51]=C_h_intern(&lf[51],15,"\003sysall-threads");
lf[52]=C_h_intern(&lf[52],6,"append");
lf[53]=C_h_intern(&lf[53],7,"\003sysmap");
lf[54]=C_h_intern(&lf[54],3,"cdr");
lf[55]=C_h_intern(&lf[55],27,"\003sysfetch-and-clear-threads");
lf[56]=C_h_intern(&lf[56],19,"\003sysrestore-threads");
lf[57]=C_h_intern(&lf[57],15,"\003sysbreak-entry");
lf[58]=C_h_intern(&lf[58],19,"\003sysbreak-in-thread");
lf[59]=C_h_intern(&lf[59],9,"condition");
lf[60]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\003\000\000\002\376\001\000\000\012breakpoint\376\377\016");
lf[61]=C_h_intern(&lf[61],19,"\003syslast-breakpoint");
lf[62]=C_h_intern(&lf[62],9,"suspended");
lf[63]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\007message");
lf[64]=C_decode_literal(C_heaptop,"\376B\000\000\022*** breakpoint ***");
lf[65]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\011arguments");
lf[66]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\010location");
lf[67]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\014continuation");
lf[68]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\006thread");
lf[69]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\027primordial-continuation");
lf[70]=C_h_intern(&lf[70],16,"\003sysbreak-resume");
lf[71]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\014continuation");
lf[72]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\006thread");
lf[73]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\003exn\376\001\000\000\027primordial-continuation");
lf[74]=C_h_intern(&lf[74],11,"\000type-error");
lf[75]=C_decode_literal(C_heaptop,"\376B\000\000\035condition has no continuation");
lf[76]=C_decode_literal(C_heaptop,"\376B\000\000\035condition has no continuation");
C_register_lf2(lf,77,create_ptable());
t2=C_mutate((C_word*)lf[0]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_275,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp));
t3=C_mutate(&lf[17],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_496,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
t4=lf[15]=C_SCHEME_END_OF_LIST;;
t5=lf[16]=C_SCHEME_END_OF_LIST;;
t6=C_mutate((C_word*)lf[25]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_504,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[22]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_507,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
t8=*((C_word*)lf[26]+1);
t9=C_mutate((C_word*)lf[26]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_608,a[2]=t8,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp));
t10=lf[10]=C_SCHEME_END_OF_LIST;;
t11=C_mutate((C_word*)lf[27]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_633,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp));
t12=C_mutate((C_word*)lf[29]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_696,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp));
t13=C_mutate((C_word*)lf[32]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_734,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
t14=C_mutate((C_word*)lf[20]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_783,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp));
t15=*((C_word*)lf[35]+1);
t16=*((C_word*)lf[36]+1);
t17=*((C_word*)lf[37]+1);
t18=*((C_word*)lf[38]+1);
t19=*((C_word*)lf[39]+1);
t20=C_mutate((C_word*)lf[40]+1,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_795,a[2]=t18,a[3]=t16,a[4]=t19,a[5]=t15,a[6]=t17,a[7]=((C_word)li19),tmp=(C_word)a,a+=8,tmp));
t21=C_set_block_item(lf[11],0,C_SCHEME_END_OF_LIST);
t22=C_mutate(&lf[18],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_857,tmp=(C_word)a,a+=2,tmp));
t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_861,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1535,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp);
((C_proc2)(void*)(*((C_word*)t24+1)))(2,t24,t23);}

/* f_1535 */
static void C_ccall f_1535(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1535,2,t0,t1);}
t2=t1;
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)stub123(C_SCHEME_UNDEFINED));}

/* k859 */
static void C_ccall f_861(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;