chicken-bug.c

Scheme跨平台编译器

lf[93]=C_h_intern(&lf[93],19,"with-output-to-file");
lf[94]=C_h_intern(&lf[94],9,"send-mail");
lf[95]=C_h_intern(&lf[95],13,"mail-date-str");
lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\001:");
lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\001:");
lf[99]=C_decode_literal(C_heaptop,"\376B\000\000\006 +0000");
lf[100]=C_h_intern(&lf[100],10,"string-pad");
lf[101]=C_decode_literal(C_heaptop,"\376B\000\000\005 Jan ");
lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\005 Feb ");
lf[103]=C_decode_literal(C_heaptop,"\376B\000\000\005 Mar ");
lf[104]=C_decode_literal(C_heaptop,"\376B\000\000\005 Apr ");
lf[105]=C_decode_literal(C_heaptop,"\376B\000\000\005 May ");
lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\005 Jun ");
lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\005 Jul ");
lf[108]=C_decode_literal(C_heaptop,"\376B\000\000\005 Aug ");
lf[109]=C_decode_literal(C_heaptop,"\376B\000\000\005 Sep ");
lf[110]=C_decode_literal(C_heaptop,"\376B\000\000\005 Oct ");
lf[111]=C_decode_literal(C_heaptop,"\376B\000\000\005 Nov ");
lf[112]=C_decode_literal(C_heaptop,"\376B\000\000\005 Dec ");
lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\005Sun, ");
lf[114]=C_decode_literal(C_heaptop,"\376B\000\000\005Mon, ");
lf[115]=C_decode_literal(C_heaptop,"\376B\000\000\005Tue, ");
lf[116]=C_decode_literal(C_heaptop,"\376B\000\000\005Wed, ");
lf[117]=C_decode_literal(C_heaptop,"\376B\000\000\005Thu, ");
lf[118]=C_decode_literal(C_heaptop,"\376B\000\000\005Fri, ");
lf[119]=C_decode_literal(C_heaptop,"\376B\000\000\005Sat, ");
lf[120]=C_decode_literal(C_heaptop,"\376B\000\000\006Date: ");
lf[121]=C_decode_literal(C_heaptop,"\376B\000\000\002\015\012");
lf[122]=C_decode_literal(C_heaptop,"\376B\000\000;From: \042chicken-bug user\042 <[e-mail]>\015\012");
lf[123]=C_decode_literal(C_heaptop,"\376B\000\0006To: \042Chicken Janitors\042 <[e-mail]>\015\012");
lf[124]=C_decode_literal(C_heaptop,"\376B\000\000)Subject: Automated chicken-bug output -- ");
lf[125]=C_h_intern(&lf[125],17,"seconds->utc-time");
lf[126]=C_h_intern(&lf[126],9,"mail-read");
lf[127]=C_h_intern(&lf[127],9,"substring");
lf[128]=C_h_intern(&lf[128],9,"condition");
lf[129]=C_h_intern(&lf[129],17,"close-output-port");
lf[130]=C_h_intern(&lf[130],16,"close-input-port");
lf[131]=C_h_intern(&lf[131],9,"read-line");
lf[132]=C_h_intern(&lf[132],22,"with-exception-handler");
lf[133]=C_h_intern(&lf[133],30,"call-with-current-continuation");
lf[134]=C_h_intern(&lf[134],10,"mail-write");
lf[135]=C_h_intern(&lf[135],10,"mail-check");
lf[136]=C_h_intern(&lf[136],11,"tcp-connect");
lf[137]=C_decode_literal(C_heaptop,"\376B\000\000QBug report successfully mailed to the Chicken maintainers.\012Thank you very m"
"uch!\012\012");
lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\004QUIT");
lf[139]=C_decode_literal(C_heaptop,"\376B\000\000\004\015\012\015\012");
lf[140]=C_decode_literal(C_heaptop,"\376B\000\000\005\015\012.\015\012");
lf[141]=C_decode_literal(C_heaptop,"\376B\000\000\006DATA\015\012");
lf[142]=C_decode_literal(C_heaptop,"\376B\000\000\047RCPT TO:<[e-mail]>\015\012");
lf[143]=C_decode_literal(C_heaptop,"\376B\000\000,MAIL FROM:<[e-mail]>\015\012");
lf[144]=C_decode_literal(C_heaptop,"\376B\000\000\021HELO callcc.org\015\012");
lf[145]=C_decode_literal(C_heaptop,"\376B\000\000\016connecting to ");
lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\004 ...");
lf[147]=C_h_intern(&lf[147],25,"\003sysimplicit-exit-handler");
lf[148]=C_h_intern(&lf[148],22,"command-line-arguments");
C_register_lf2(lf,149,create_ptable());
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_153,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k151 */
static void C_ccall f_153(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_153,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_156,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_eval_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k154 in k151 */
static void C_ccall f_156(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_156,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_159,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_data_structures_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k157 in k154 in k151 */
static void C_ccall f_159(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_159,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_162,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_ports_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k160 in k157 in k154 in k151 */
static void C_ccall f_162(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_162,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_165,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_extras_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_165(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_165,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_168,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_srfi_69_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_168(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_168,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_171,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_srfi_13_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_171(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_171,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_174,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_posix_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_174(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_174,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_177,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_tcp_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_177(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_177,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_180,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_data_structures_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_180(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_180,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_183,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_utils_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k181 in k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_183(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_183,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_186,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_extras_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k184 in k181 in k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_186(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 ab[30],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_186,2,t0,t1);}
t2=C_mutate(&lf[0],lf[1]);
t3=C_mutate(&lf[2],lf[3]);
t4=C_mutate(&lf[4],lf[5]);
t5=C_mutate(&lf[6],lf[7]);
t6=C_mutate((C_word*)lf[8]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_192,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate((C_word*)lf[63]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_382,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[66]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_391,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate((C_word*)lf[70]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_410,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate((C_word*)lf[73]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_429,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate((C_word*)lf[75]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_572,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate((C_word*)lf[95]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_613,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate((C_word*)lf[77]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_801,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate((C_word*)lf[126]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_819,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate((C_word*)lf[134]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_905,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate((C_word*)lf[135]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_974,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate((C_word*)lf[94]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_995,tmp=(C_word)a,a+=2,tmp));
t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1078,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1088,a[2]=t18,tmp=(C_word)a,a+=3,tmp);
/* chicken-bug.scm: 262  command-line-arguments */
t20=C_retrieve(lf[148]);
((C_proc2)C_retrieve_proc(t20))(2,t20,t19);}

/* k1086 in k184 in k181 in k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_1088(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
/* chicken-bug.scm: 262  main */
t2=*((C_word*)lf[73]+1);
((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}

/* k1076 in k184 in k181 in k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_1078(C_word c,C_word t0,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*)tr2,(void*)f_1078,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1081,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1084,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* ##sys#implicit-exit-handler */
t4=C_retrieve(lf[147]);
((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}

/* k1082 in k1076 in k184 in k181 in k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_1084(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=t1;
((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}

/* k1079 in k1076 in k184 in k181 in k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_1081(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}

/* send-mail in k184 in k181 in k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_995(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word ab[7],*a=ab;
if(c!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr6,(void*)f_995,6,t0,t1,t2,t3,t4,t5);}
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_999,a[2]=t1,a[3]=t3,a[4]=t5,a[5]=t4,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* chicken-bug.scm: 245  print */
t7=*((C_word*)lf[14]+1);
((C_proc5)C_retrieve_proc(t7))(5,t7,t6,lf[145],t2,lf[146]);}

/* k997 in send-mail in k184 in k181 in k178 in k175 in k172 in k169 in k166 in k163 in k160 in k157 in k154 in k151 */
static void C_ccall f_999(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;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_999,2,t0,t1);}