usrfi-4.c

Scheme跨平台编译器

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

C_noret_decl(tr6)
static void C_fcall tr6(C_proc6 k) C_regparm C_noret;
C_regparm static void C_fcall tr6(C_proc6 k){
C_word t5=C_pick(0);
C_word t4=C_pick(1);
C_word t3=C_pick(2);
C_word t2=C_pick(3);
C_word t1=C_pick(4);
C_word t0=C_pick(5);
C_adjust_stack(-6);
(k)(6,t0,t1,t2,t3,t4,t5);}

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

C_noret_decl(tr3r)
static void C_fcall tr3r(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3r(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*3);
t3=C_restore_rest(a,n);
(k)(t0,t1,t2,t3);}

C_noret_decl(tr4r)
static void C_fcall tr4r(C_proc4 k) C_regparm C_noret;
C_regparm static void C_fcall tr4r(C_proc4 k){
int n;
C_word *a,t4;
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);
n=C_rest_count(0);
a=C_alloc(n*3);
t4=C_restore_rest(a,n);
(k)(t0,t1,t2,t3,t4);}

C_noret_decl(tr2r)
static void C_fcall tr2r(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2r(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*3);
t2=C_restore_rest(a,n);
(k)(t0,t1,t2);}

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

void C_ccall C_srfi_4_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 *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("srfi_4_toplevel"));
C_check_nursery_minimum(42);
if(!C_demand(42)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(1714)){
C_save(t1);
C_rereclaim2(1714*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(42);
C_initialize_lf(lf,192);
lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
lf[2]=C_h_intern(&lf[2],24,"\003syscheck-exact-interval");
lf[3]=C_h_intern(&lf[3],9,"\003syserror");
lf[4]=C_decode_literal(C_heaptop,"\376B\000\000&numeric value is not in expected range");
lf[5]=C_h_intern(&lf[5],26,"\003syscheck-inexact-interval");
lf[6]=C_decode_literal(C_heaptop,"\376B\000\000&numeric value is not in expected range");
lf[14]=C_h_intern(&lf[14],15,"\003syscons-flonum");
lf[24]=C_h_intern(&lf[24],15,"u8vector-length");
lf[25]=C_h_intern(&lf[25],15,"s8vector-length");
lf[26]=C_h_intern(&lf[26],16,"u16vector-length");
lf[27]=C_h_intern(&lf[27],16,"s16vector-length");
lf[28]=C_h_intern(&lf[28],16,"u32vector-length");
lf[29]=C_h_intern(&lf[29],16,"s32vector-length");
lf[30]=C_h_intern(&lf[30],16,"f32vector-length");
lf[31]=C_h_intern(&lf[31],16,"f64vector-length");
lf[32]=C_h_intern(&lf[32],15,"\003syscheck-range");
lf[33]=C_decode_literal(C_heaptop,"\376B\000\000\034argument may not be negative");
lf[34]=C_h_intern(&lf[34],13,"u8vector-set!");
lf[35]=C_h_intern(&lf[35],13,"s8vector-set!");
lf[36]=C_h_intern(&lf[36],14,"u16vector-set!");
lf[37]=C_h_intern(&lf[37],14,"s16vector-set!");
lf[38]=C_h_intern(&lf[38],14,"u32vector-set!");
lf[39]=C_decode_literal(C_heaptop,"\376B\000\000\034argument may not be negative");
lf[40]=C_decode_literal(C_heaptop,"\376B\000\000\036argument exceeds integer range");
lf[41]=C_h_intern(&lf[41],14,"s32vector-set!");
lf[42]=C_decode_literal(C_heaptop,"\376B\000\000\036argument exceeds integer range");
lf[43]=C_h_intern(&lf[43],14,"f32vector-set!");
lf[44]=C_h_intern(&lf[44],14,"f64vector-set!");
lf[45]=C_h_intern(&lf[45],12,"u8vector-ref");
lf[46]=C_h_intern(&lf[46],12,"s8vector-ref");
lf[47]=C_h_intern(&lf[47],13,"u16vector-ref");
lf[48]=C_h_intern(&lf[48],13,"s16vector-ref");
lf[49]=C_h_intern(&lf[49],13,"u32vector-ref");
lf[50]=C_h_intern(&lf[50],13,"s32vector-ref");
lf[51]=C_h_intern(&lf[51],13,"f32vector-ref");
lf[52]=C_h_intern(&lf[52],13,"f64vector-ref");
lf[53]=C_h_intern(&lf[53],14,"set-finalizer!");
lf[54]=C_decode_literal(C_heaptop,"\376B\000\000;not enough memory - can not allocate external number vector");
lf[55]=C_h_intern(&lf[55],19,"\003sysallocate-vector");
lf[56]=C_h_intern(&lf[56],21,"release-number-vector");
lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\047bad argument type - not a number vector");
lf[58]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\010u8vector\376\003\000\000\002\376\001\000\000\011u16vector\376\003\000\000\002\376\001\000\000\010s8vector\376\003\000\000\002\376\001\000\000\011s16vector\376\003\000\000\002\376"
"\001\000\000\011u32vector\376\003\000\000\002\376\001\000\000\011s32vector\376\003\000\000\002\376\001\000\000\011f32vector\376\003\000\000\002\376\001\000\000\011f64vector\376\377\016");
lf[59]=C_h_intern(&lf[59],13,"make-u8vector");
lf[60]=C_h_intern(&lf[60],8,"u8vector");
lf[61]=C_h_intern(&lf[61],13,"make-s8vector");
lf[62]=C_h_intern(&lf[62],8,"s8vector");
lf[63]=C_h_intern(&lf[63],4,"fin\077");
lf[64]=C_h_intern(&lf[64],14,"make-u16vector");
lf[65]=C_h_intern(&lf[65],9,"u16vector");
lf[66]=C_h_intern(&lf[66],14,"make-s16vector");
lf[67]=C_h_intern(&lf[67],9,"s16vector");
lf[68]=C_h_intern(&lf[68],14,"make-u32vector");
lf[69]=C_h_intern(&lf[69],9,"u32vector");
lf[70]=C_h_intern(&lf[70],14,"make-s32vector");
lf[71]=C_h_intern(&lf[71],9,"s32vector");
lf[72]=C_h_intern(&lf[72],14,"make-f32vector");
lf[73]=C_h_intern(&lf[73],9,"f32vector");
lf[74]=C_h_intern(&lf[74],14,"make-f64vector");
lf[75]=C_h_intern(&lf[75],9,"f64vector");
lf[76]=C_h_intern(&lf[76],27,"\003sysnot-a-proper-list-error");
lf[77]=C_h_intern(&lf[77],14,"list->u8vector");
lf[78]=C_h_intern(&lf[78],14,"list->s8vector");
lf[79]=C_h_intern(&lf[79],15,"list->u16vector");
lf[80]=C_h_intern(&lf[80],15,"list->s16vector");
lf[81]=C_h_intern(&lf[81],15,"list->u32vector");
lf[82]=C_h_intern(&lf[82],15,"list->s32vector");
lf[83]=C_h_intern(&lf[83],15,"list->f32vector");
lf[84]=C_h_intern(&lf[84],15,"list->f64vector");
lf[85]=C_h_intern(&lf[85],14,"u8vector->list");
lf[86]=C_h_intern(&lf[86],14,"s8vector->list");
lf[87]=C_h_intern(&lf[87],15,"u16vector->list");
lf[88]=C_h_intern(&lf[88],15,"s16vector->list");
lf[89]=C_h_intern(&lf[89],15,"u32vector->list");
lf[90]=C_h_intern(&lf[90],15,"s32vector->list");
lf[91]=C_h_intern(&lf[91],15,"f32vector->list");
lf[92]=C_h_intern(&lf[92],15,"f64vector->list");
lf[93]=C_h_intern(&lf[93],9,"u8vector\077");
lf[94]=C_h_intern(&lf[94],9,"s8vector\077");
lf[95]=C_h_intern(&lf[95],10,"u16vector\077");
lf[96]=C_h_intern(&lf[96],10,"s16vector\077");
lf[97]=C_h_intern(&lf[97],10,"u32vector\077");
lf[98]=C_h_intern(&lf[98],10,"s32vector\077");
lf[99]=C_h_intern(&lf[99],10,"f32vector\077");
lf[100]=C_h_intern(&lf[100],10,"f64vector\077");
lf[101]=C_h_intern(&lf[101],13,"\003sysmake-blob");
lf[102]=C_decode_literal(C_heaptop,"\376B\000\000+blob does not have correct size for packing");
lf[103]=C_decode_literal(C_heaptop,"\376B\000\000+blob does not have correct size for packing");
lf[104]=C_h_intern(&lf[104],21,"u8vector->byte-vector");
lf[105]=C_h_intern(&lf[105],21,"s8vector->byte-vector");
lf[106]=C_h_intern(&lf[106],22,"u16vector->byte-vector");
lf[107]=C_h_intern(&lf[107],22,"s16vector->byte-vector");
lf[108]=C_h_intern(&lf[108],22,"u32vector->byte-vector");
lf[109]=C_h_intern(&lf[109],22,"s32vector->byte-vector");
lf[110]=C_h_intern(&lf[110],22,"f32vector->byte-vector");
lf[111]=C_h_intern(&lf[111],22,"f64vector->byte-vector");
lf[112]=C_h_intern(&lf[112],21,"u8vector->blob/shared");
lf[113]=C_h_intern(&lf[113],21,"s8vector->blob/shared");
lf[114]=C_h_intern(&lf[114],22,"u16vector->blob/shared");
lf[115]=C_h_intern(&lf[115],22,"s16vector->blob/shared");
lf[116]=C_h_intern(&lf[116],22,"u32vector->blob/shared");
lf[117]=C_h_intern(&lf[117],22,"s32vector->blob/shared");
lf[118]=C_h_intern(&lf[118],22,"f32vector->blob/shared");
lf[119]=C_h_intern(&lf[119],22,"f64vector->blob/shared");
lf[120]=C_h_intern(&lf[120],14,"u8vector->blob");
lf[121]=C_h_intern(&lf[121],14,"s8vector->blob");
lf[122]=C_h_intern(&lf[122],15,"u16vector->blob");
lf[123]=C_h_intern(&lf[123],15,"s16vector->blob");
lf[124]=C_h_intern(&lf[124],15,"u32vector->blob");
lf[125]=C_h_intern(&lf[125],15,"s32vector->blob");
lf[126]=C_h_intern(&lf[126],15,"f32vector->blob");
lf[127]=C_h_intern(&lf[127],15,"f64vector->blob");
lf[128]=C_h_intern(&lf[128],21,"byte-vector->u8vector");
lf[129]=C_h_intern(&lf[129],21,"byte-vector->s8vector");
lf[130]=C_h_intern(&lf[130],22,"byte-vector->u16vector");
lf[131]=C_h_intern(&lf[131],22,"byte-vector->s16vector");
lf[132]=C_h_intern(&lf[132],22,"byte-vector->u32vector");
lf[133]=C_h_intern(&lf[133],22,"byte-vector->s32vector");
lf[134]=C_h_intern(&lf[134],22,"byte-vector->f32vector");
lf[135]=C_h_intern(&lf[135],22,"byte-vector->f64vector");
lf[136]=C_h_intern(&lf[136],21,"blob->u8vector/shared");
lf[137]=C_h_intern(&lf[137],21,"blob->s8vector/shared");
lf[138]=C_h_intern(&lf[138],22,"blob->u16vector/shared");
lf[139]=C_h_intern(&lf[139],22,"blob->s16vector/shared");
lf[140]=C_h_intern(&lf[140],22,"blob->u32vector/shared");
lf[141]=C_h_intern(&lf[141],22,"blob->s32vector/shared");
lf[142]=C_h_intern(&lf[142],22,"blob->f32vector/shared");
lf[143]=C_h_intern(&lf[143],22,"blob->f64vector/shared");
lf[144]=C_h_intern(&lf[144],14,"blob->u8vector");
lf[145]=C_h_intern(&lf[145],14,"blob->s8vector");
lf[146]=C_h_intern(&lf[146],15,"blob->u16vector");
lf[147]=C_h_intern(&lf[147],15,"blob->s16vector");
lf[148]=C_h_intern(&lf[148],15,"blob->u32vector");
lf[149]=C_h_intern(&lf[149],15,"blob->s32vector");
lf[150]=C_h_intern(&lf[150],15,"blob->f32vector");
lf[151]=C_h_intern(&lf[151],15,"blob->f64vector");
lf[152]=C_h_intern(&lf[152],18,"\003sysuser-read-hook");
lf[153]=C_h_intern(&lf[153],4,"read");
lf[154]=C_h_intern(&lf[154],2,"u8");
lf[155]=C_h_intern(&lf[155],2,"s8");
lf[156]=C_h_intern(&lf[156],3,"u16");
lf[157]=C_h_intern(&lf[157],3,"s16");
lf[158]=C_h_intern(&lf[158],3,"u32");
lf[159]=C_h_intern(&lf[159],3,"s32");
lf[160]=C_h_intern(&lf[160],3,"f32");
lf[161]=C_h_intern(&lf[161],3,"f64");
lf[162]=C_h_intern(&lf[162],1,"f");
lf[163]=C_h_intern(&lf[163],1,"F");
lf[164]=C_h_intern(&lf[164],14,"\003sysread-error");
lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\031illegal bytevector syntax");
lf[166]=C_h_intern(&lf[166],19,"\003sysuser-print-hook");
lf[167]=C_h_intern(&lf[167],9,"\003sysprint");
lf[169]=C_h_intern(&lf[169],11,"subu8vector");
lf[170]=C_h_intern(&lf[170],12,"subu16vector");
lf[171]=C_h_intern(&lf[171],12,"subu32vector");
lf[172]=C_h_intern(&lf[172],11,"subs8vector");
lf[173]=C_h_intern(&lf[173],12,"subs16vector");
lf[174]=C_h_intern(&lf[174],12,"subs32vector");
lf[175]=C_h_intern(&lf[175],12,"subf32vector");
lf[176]=C_h_intern(&lf[176],12,"subf64vector");
lf[177]=C_h_intern(&lf[177],14,"write-u8vector");
lf[178]=C_h_intern(&lf[178],16,"\003syswrite-char-0");
lf[179]=C_h_intern(&lf[179],14,"\003syscheck-port");
lf[180]=C_h_intern(&lf[180],19,"\003sysstandard-output");
lf[181]=C_h_intern(&lf[181],14,"read-u8vector!");
lf[182]=C_h_intern(&lf[182],16,"\003sysread-string!");
lf[183]=C_h_intern(&lf[183],18,"\003sysstandard-input");
lf[184]=C_h_intern(&lf[184],18,"open-output-string");
lf[185]=C_h_intern(&lf[185],17,"get-output-string");
lf[186]=C_h_intern(&lf[186],13,"read-u8vector");
lf[187]=C_h_intern(&lf[187],19,"\003syswrite-char/port");
lf[188]=C_h_intern(&lf[188],15,"\003sysread-char-0");
lf[189]=C_h_intern(&lf[189],17,"register-feature!");
lf[190]=C_h_intern(&lf[190],6,"srfi-4");
lf[191]=C_h_intern(&lf[191],18,"getter-with-setter");
C_register_lf2(lf,192,create_ptable());
t2=C_mutate(&lf[0],lf[1]);
t3=C_mutate((C_word*)lf[2]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_848,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate((C_word*)lf[5]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_863,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[7],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_884,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate(&lf[8],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_887,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[9],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_890,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate(&lf[10],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_893,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[11],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_896,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[12],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_899,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[13],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_902,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[15],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_908,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[16],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_914,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate(&lf[17],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_917,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate(&lf[18],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_920,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate(&lf[19],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_923,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate(&lf[20],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_926,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate(&lf[21],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_929,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate(&lf[22],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_932,tmp=(C_word)a,a+=2,tmp));
t20=C_mutate(&lf[23],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_935,tmp=(C