usrfi-18.c

Scheme跨平台编译器

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

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

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

void C_ccall C_srfi_18_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("srfi_18_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(1085)){
C_save(t1);
C_rereclaim2(1085*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,112);
lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
lf[2]=C_h_intern(&lf[2],8,"truncate");
lf[4]=C_h_intern(&lf[4],4,"time");
lf[5]=C_h_intern(&lf[5],15,"\003syssignal-hook");
lf[6]=C_h_intern(&lf[6],11,"\000type-error");
lf[7]=C_decode_literal(C_heaptop,"\376B\000\000\030invalid timeout argument");
lf[8]=C_h_intern(&lf[8],12,"current-time");
lf[9]=C_h_intern(&lf[9],20,"srfi-18:current-time");
lf[10]=C_h_intern(&lf[10],13,"time->seconds");
lf[11]=C_h_intern(&lf[11],18,"time->milliseconds");
lf[12]=C_h_intern(&lf[12],13,"seconds->time");
lf[13]=C_h_intern(&lf[13],19,"\003sysflonum-fraction");
lf[14]=C_h_intern(&lf[14],18,"\003sysexact->inexact");
lf[15]=C_h_intern(&lf[15],3,"max");
lf[16]=C_h_intern(&lf[16],18,"milliseconds->time");
lf[17]=C_h_intern(&lf[17],5,"time\077");
lf[18]=C_h_intern(&lf[18],13,"srfi-18:time\077");
lf[19]=C_h_intern(&lf[19],5,"raise");
lf[20]=C_h_intern(&lf[20],10,"\003syssignal");
lf[21]=C_h_intern(&lf[21],23,"join-timeout-exception\077");
lf[22]=C_h_intern(&lf[22],9,"condition");
lf[23]=C_h_intern(&lf[23],22,"join-timeout-exception");
lf[24]=C_h_intern(&lf[24],26,"abandoned-mutex-exception\077");
lf[25]=C_h_intern(&lf[25],25,"abandoned-mutex-exception");
lf[26]=C_h_intern(&lf[26],28,"terminated-thread-exception\077");
lf[27]=C_h_intern(&lf[27],27,"terminated-thread-exception");
lf[28]=C_h_intern(&lf[28],19,"uncaught-exception\077");
lf[29]=C_h_intern(&lf[29],18,"uncaught-exception");
lf[30]=C_h_intern(&lf[30],25,"uncaught-exception-reason");
lf[31]=C_h_intern(&lf[31],6,"gensym");
lf[32]=C_h_intern(&lf[32],11,"make-thread");
lf[33]=C_h_intern(&lf[33],12,"\003sysschedule");
lf[34]=C_h_intern(&lf[34],16,"\003systhread-kill!");
lf[35]=C_h_intern(&lf[35],4,"dead");
lf[36]=C_h_intern(&lf[36],18,"\003syscurrent-thread");
lf[37]=C_h_intern(&lf[37],15,"\003sysmake-thread");
lf[38]=C_h_intern(&lf[38],7,"created");
lf[39]=C_h_intern(&lf[39],6,"thread");
lf[40]=C_h_intern(&lf[40],7,"thread\077");
lf[41]=C_h_intern(&lf[41],14,"current-thread");
lf[42]=C_h_intern(&lf[42],12,"thread-state");
lf[43]=C_h_intern(&lf[43],15,"thread-specific");
lf[44]=C_h_intern(&lf[44],20,"thread-specific-set!");
lf[45]=C_h_intern(&lf[45],14,"thread-quantum");
lf[46]=C_h_intern(&lf[46],19,"thread-quantum-set!");
lf[47]=C_h_intern(&lf[47],11,"thread-name");
lf[48]=C_h_intern(&lf[48],13,"thread-start!");
lf[49]=C_h_intern(&lf[49],5,"ready");
lf[50]=C_h_intern(&lf[50],22,"\003sysadd-to-ready-queue");
lf[51]=C_h_intern(&lf[51],9,"\003syserror");
lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\047thread can not be started a second time");
lf[53]=C_h_intern(&lf[53],13,"thread-yield!");
lf[54]=C_h_intern(&lf[54],17,"\003systhread-yield!");
lf[55]=C_h_intern(&lf[55],12,"thread-join!");
lf[56]=C_h_intern(&lf[56],10,"terminated");
lf[57]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\022uncaught-exception\376\001\000\000\006reason");
lf[58]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\022uncaught-exception\376\377\016");
lf[59]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\026join-timeout-exception\376\377\016");
lf[60]=C_h_intern(&lf[60],33,"\003systhread-block-for-termination!");
lf[61]=C_h_intern(&lf[61],29,"\003systhread-block-for-timeout!");
lf[62]=C_h_intern(&lf[62],17,"thread-terminate!");
lf[63]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\033terminated-thread-exception\376\377\016");
lf[64]=C_h_intern(&lf[64],21,"\003sysprimordial-thread");
lf[65]=C_h_intern(&lf[65],16,"\003sysexit-handler");
lf[66]=C_h_intern(&lf[66],15,"thread-suspend!");
lf[67]=C_h_intern(&lf[67],9,"suspended");
lf[68]=C_h_intern(&lf[68],14,"thread-resume!");
lf[69]=C_h_intern(&lf[69],13,"thread-sleep!");
lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\030invalid timeout argument");
lf[71]=C_h_intern(&lf[71],6,"mutex\077");
lf[72]=C_h_intern(&lf[72],5,"mutex");
lf[73]=C_h_intern(&lf[73],10,"make-mutex");
lf[74]=C_h_intern(&lf[74],14,"\003sysmake-mutex");
lf[75]=C_h_intern(&lf[75],10,"mutex-name");
lf[76]=C_h_intern(&lf[76],14,"mutex-specific");
lf[77]=C_h_intern(&lf[77],19,"mutex-specific-set!");
lf[78]=C_h_intern(&lf[78],11,"mutex-state");
lf[79]=C_h_intern(&lf[79],9,"not-owned");
lf[80]=C_h_intern(&lf[80],9,"abandoned");
lf[81]=C_h_intern(&lf[81],13,"not-abandoned");
lf[82]=C_h_intern(&lf[82],11,"mutex-lock!");
lf[83]=C_h_intern(&lf[83],10,"\003sysappend");
lf[84]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\031abandoned-mutex-exception\376\377\016");
lf[85]=C_h_intern(&lf[85],8,"\003sysdelq");
lf[86]=C_h_intern(&lf[86],8,"sleeping");
lf[87]=C_h_intern(&lf[87],13,"mutex-unlock!");
lf[88]=C_h_intern(&lf[88],18,"condition-variable");
lf[89]=C_h_intern(&lf[89],7,"blocked");
lf[90]=C_h_intern(&lf[90],23,"make-condition-variable");
lf[91]=C_h_intern(&lf[91],19,"condition-variable\077");
lf[92]=C_h_intern(&lf[92],27,"condition-variable-specific");
lf[93]=C_h_intern(&lf[93],32,"condition-variable-specific-set!");
lf[94]=C_h_intern(&lf[94],26,"condition-variable-signal!");
lf[95]=C_h_intern(&lf[95],25,"\003systhread-basic-unblock!");
lf[96]=C_h_intern(&lf[96],29,"condition-variable-broadcast!");
lf[97]=C_h_intern(&lf[97],12,"\003sysfor-each");
lf[98]=C_h_intern(&lf[98],14,"thread-signal!");
lf[99]=C_h_intern(&lf[99],19,"\003systhread-unblock!");
lf[100]=C_h_intern(&lf[100],20,"thread-wait-for-i/o!");
lf[101]=C_h_intern(&lf[101],4,"\000all");
lf[102]=C_h_intern(&lf[102],25,"\003systhread-block-for-i/o!");
lf[103]=C_h_intern(&lf[103],4,"msvc");
lf[104]=C_h_intern(&lf[104],20,"\003sysread-prompt-hook");
lf[105]=C_h_intern(&lf[105],13,"\003systty-port\077");
lf[106]=C_h_intern(&lf[106],18,"\003sysstandard-input");
lf[107]=C_h_intern(&lf[107],14,"build-platform");
lf[108]=C_h_intern(&lf[108],27,"condition-property-accessor");
lf[109]=C_h_intern(&lf[109],6,"reason");
lf[110]=C_h_intern(&lf[110],17,"register-feature!");
lf[111]=C_h_intern(&lf[111],7,"srfi-18");
C_register_lf2(lf,112,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_270,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_scheduler_toplevel(2,C_SCHEME_UNDEFINED,t3);}

/* k268 */
static void C_ccall f_270(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_270,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_273,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* srfi-18.scm: 70   register-feature! */
t3=*((C_word*)lf[110]+1);
((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,lf[111]);}

/* k271 in k268 */
static void C_ccall f_273(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 ab[26],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_273,2,t0,t1);}
t2=*((C_word*)lf[2]+1);
t3=C_mutate(&lf[3],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_275,a[2]=t2,tmp=(C_word)a,a+=3,tmp));
t4=C_mutate((C_word*)lf[8]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_318,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate((C_word*)lf[9]+1,*((C_word*)lf[8]+1));
t6=C_mutate((C_word*)lf[10]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_345,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate((C_word*)lf[11]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_366,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[12]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_395,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate((C_word*)lf[16]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_449,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate((C_word*)lf[17]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_465,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate((C_word*)lf[18]+1,*((C_word*)lf[17]+1));
t12=C_mutate((C_word*)lf[19]+1,*((C_word*)lf[20]+1));
t13=C_mutate((C_word*)lf[21]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_473,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate((C_word*)lf[24]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_489,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate((C_word*)lf[26]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_505,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate((C_word*)lf[28]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_521,tmp=(C_word)a,a+=2,tmp));
t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_539,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* srfi-18.scm: 160  condition-property-accessor */
t18=*((C_word*)lf[108]+1);
((C_proc4)(void*)(*((C_word*)t18+1)))(4,t18,t17,lf[29],lf[109]);}

/* k537 in k271 in k268 */
static void C_ccall f_539(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 t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word ab[70],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_539,2,t0,t1);}
t2=C_mutate((C_word*)lf[30]+1,t1);
t3=*((C_word*)lf[31]+1);
t4=C_mutate((C_word*)lf[32]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_541,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=C_mutate((C_word*)lf[40]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_585,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate((C_word*)lf[41]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_591,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate((C_word*)lf[42]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_594,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[43]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_603,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate((C_word*)lf[44]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_612,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate((C_word*)lf[45]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_621,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate((C_word*)lf[46]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_630,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate((C_word*)lf[47]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_646,tmp=(C_word)a,a+=2,tmp));
t13=*((C_word*)lf[32]+1);
t14=C_mutate((C_word*)lf[48]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_655,a[2]=t13,tmp=(C_word)a,a+=3,tmp));
t15=C_mutate((C_word*)lf[53]+1,*((C_word*)lf[54]+1));
t16=C_mutate((C_word*)lf[55]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_691,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate((C_word*)lf[62]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_810,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate((C_word*)lf[66]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_854,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate((C_word*)lf[68]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_887,tmp=(C_word)a,a+=2,tmp));
t20=C_mutate((C_word*)lf[69]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_909,tmp=(C_word)a,a+=2,tmp));
t21=C_mutate((C_word*)lf[71]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_949,tmp=(C_word)a,a+=2,tmp));
t22=*((C_word*)lf[31]+1);
t23=C_mutate((C_word*)lf[73]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_955,a[2]=t22,tmp=(C_word)a,a+=3,tmp));
t24=C_mutate((C_word*)lf[75]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_973,tmp=(C_word)a,a+=2,tmp));
t25=C_mutate((C_word*)lf[76]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_982,tmp=(C_word)a,a+=2,tmp));
t26=C_mutate((C_word*)lf[77]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_991,tmp=(C_word)a,a+=2,tmp));
t27=C_mutate((C_word*)lf[78]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1000,tmp=(C_word)a,a+=2,tmp));
t28=C_mutate((C_word*)lf[82]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1024,tmp=(C_word)a,a+=2,tmp));
t29=C_mutate((C_word*)lf[87]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1236,tmp=(C_word)a,a+=2,tmp));
t30=*((C_word*)lf[31]+1);
t31=C_mutate((C_word*)lf[90]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1418,a[2]=t30,tmp=(C_word)a,a+=3,tmp));
t32=C_mutate((C_word*)lf[91]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1437,tmp=(C_word)a,a+=2,tmp));
t33=C_mutate((C_word*)lf[92]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1443,tmp=(C_word)a,a+=2,tmp));
t34=C_mutate((C_word*)lf[93]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1452,tmp=(C_word)a,a+=2,tmp));
t35=C_mutate((C_word*)lf[94]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1461,tmp=(C_word)a,a+=2,tmp));
t36=C_mutate((C_word*)lf[96]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1504,tmp=(C_word)a,a+=2,tmp));
t37=C_mutate((C_word*)lf[98]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1541,tmp=(C_word)a,a+=2,tmp));
t38=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1575,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t39=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1633,a[2]=t38,tmp=(C_word)a,a+=3,tmp);
/* srfi-18.scm: 477  build-platform */
t40=*((C_word*)lf[107]+1);
((C_proc2)(void*)(*((C_word*)t40+1)))(2,t40,t39);}

/* k1631 in k537 in k271 in k268 */
static void C_ccall f_1633(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 ab[4],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1633,2,t0,t1);}
t2=(C_word)C_eqp(t1,lf[103]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];
f_1575(t3,C_SCHEME_UNDEFINED);}
else{
t3=*((C_word*)lf[104]+1);
t4=*((C_word*)lf[53]+1);
t5=C_mutate((C_word*)lf[104]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1607,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t0)[2];
f_1575(t6,t5);}}

/* ##sys#read-prompt-hook in k1631 in k537 in k271 in k268 */
static void C_ccall f_1607(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[5],*a=ab;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1607,2,t0,t1);}
t2=(C_word)C_fudge(C_fix(12));
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1617,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t2)){
t4=t3;
f_1617(2,t4,t2);}
else{
/* srfi-18.scm: 482  ##sys#tty-port? */
t4=*((C_word*)lf[105]+1);
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t3,*((C_word*)lf[106]+1));}}

/* k1615 in ##sys#read-prompt-hook in k1631 in k537 in k271 in k268 */
static void C_ccall f_1617(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_1617,2,t0,t1);}