/[gcl]/gcl/cmpnew/cmploc.c
ViewVC logotype

Diff of /gcl/cmpnew/cmploc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 469  T169:; Line 469  T169:;
469          goto T178;}          goto T178;}
470          if(!((car((V45)))==(VV[21]))){          if(!((car((V45)))==(VV[21]))){
471          goto T178;}          goto T178;}
472            princ_str("(long)",VV[0]);
473          base[1]= caddr((V45));          base[1]= caddr((V45));
474          base[2]= cadddr((V45));          base[2]= cadddr((V45));
475          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 477  T169:; Line 478  T169:;
478  goto T178;  goto T178;
479  T178:;  T178:;
480          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
481          goto T185;}          goto T187;}
482          if(!((car((V45)))==(VV[22]))){          if(!((car((V45)))==(VV[22]))){
483          goto T185;}          goto T187;}
484          (void)((*(LnkLI36))(caddr((V45))));          (void)((*(LnkLI36))(caddr((V45))));
485          base[1]= Cnil;          base[1]= Cnil;
486          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
487          return;          return;
488  goto T185;  goto T187;
489  T185:;  T187:;
490          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
491          goto T191;}          goto T193;}
492          {register object x= car((V45)),V48= VV[23];          {register object x= car((V45)),V48= VV[23];
493          while(!endp(V48))          while(!endp(V48))
494          if(eql(x,V48->c.c_car)){          if(eql(x,V48->c.c_car)){
495          goto T194;          goto T196;
496          }else V48=V48->c.c_cdr;          }else V48=V48->c.c_cdr;
497          goto T191;}          goto T193;}
498  goto T194;  goto T196;
499  T194:;  T196:;
500          princ_str("((int)(",VV[0]);          princ_str("((long)(",VV[0]);
501          base[1]= caddr((V45));          base[1]= caddr((V45));
502          base[2]= cadddr((V45));          base[2]= cadddr((V45));
503          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 506  T194:; Line 507  T194:;
507          base[1]= Cnil;          base[1]= Cnil;
508          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
509          return;          return;
510  goto T191;  goto T193;
511  T191:;  T193:;
512          princ_str("fix(",VV[0]);          princ_str("fix(",VV[0]);
513          (void)((*(LnkLI36))((V45)));          (void)((*(LnkLI36))((V45)));
514          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 528  static void L13() Line 529  static void L13()
529          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
530          V49=(base[0]);          V49=(base[0]);
531          vs_base=vs_base+1;          vs_base=vs_base+1;
532          if(vs_base>=vs_top){vs_top=sup;goto T204;}          if(vs_base>=vs_top){vs_top=sup;goto T206;}
533          V50=(base[1]);          V50=(base[1]);
534          vs_top=sup;          vs_top=sup;
535          goto T205;          goto T207;
536  goto T204;  goto T206;
537  T204:;  T206:;
538          V50= Cnil;          V50= Cnil;
539  goto T205;  goto T207;
540  T205:;  T207:;
541          {object V51;          {object V51;
542          object V52;          object V52;
543          V51= Ct;          V51= Ct;
544          if(type_of((V49))==t_cons){          if(type_of((V49))==t_cons){
545          goto T209;}          goto T211;}
546          V52= Cnil;          V52= Cnil;
547          goto T208;          goto T210;
548  goto T209;  goto T211;
549  T209:;  T211:;
550          V52= car((V49));          V52= car((V49));
551  goto T208;  goto T210;
552  T208:;  T210:;
553          {object V53= (V52);          {object V53= (V52);
554          if((V53!= VV[21]))goto T212;          if((V53!= VV[21]))goto T214;
555          princ_str("stoi(",VV[0]);          princ_str("stoi(",VV[0]);
556          base[3]= caddr((V49));          base[3]= caddr((V49));
557          base[4]= cadddr((V49));          base[4]= cadddr((V49));
# Line 558  T208:; Line 559  T208:;
559          (void) (*Lnk45)();          (void) (*Lnk45)();
560          vs_top=sup;          vs_top=sup;
561          princ_char(41,VV[0]);          princ_char(41,VV[0]);
562          goto T211;          goto T213;
563  goto T212;  goto T214;
564  T212:;  T214:;
565          if((V53!= VV[46]))goto T219;          if((V53!= VV[46]))goto T221;
566          V51= Cnil;          V51= Cnil;
567          base[3]= caddr((V49));          base[3]= caddr((V49));
568          base[4]= cadddr((V49));          base[4]= cadddr((V49));
569          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
570          (void) (*Lnk45)();          (void) (*Lnk45)();
571          vs_top=sup;          vs_top=sup;
572          goto T211;          goto T213;
573  goto T219;  goto T221;
574  T219:;  T221:;
575          if((V53!= VV[22]))goto T224;          if((V53!= VV[22]))goto T226;
576          princ_str("stoi(",VV[0]);          princ_str("stoi(",VV[0]);
577          (void)((*(LnkLI36))(caddr((V49))));          (void)((*(LnkLI36))(caddr((V49))));
578          princ_char(41,VV[0]);          princ_char(41,VV[0]);
579          goto T211;          goto T213;
580  goto T224;  goto T226;
581  T224:;  T226:;
582          if((V53!= VV[17]))goto T228;          if((V53!= VV[17]))goto T230;
583          V55= structure_ref(cadr((V49)),VV[17],1);          V55= structure_ref(cadr((V49)),VV[17],1);
584          {object V54= /* INLINE-ARGS */V55;          {object V54= /* INLINE-ARGS */V55;
585          if((V54!= VV[47]))goto T229;          if((V54!= VV[47]))goto T231;
586          V51= Cnil;          V51= Cnil;
587          princ_char(86,VV[0]);          princ_char(86,VV[0]);
588          V56= structure_ref(cadr((V49)),VV[17],4);          V56= structure_ref(cadr((V49)),VV[17],4);
589          (void)((*(LnkLI36))(/* INLINE-ARGS */V56));          (void)((*(LnkLI36))(/* INLINE-ARGS */V56));
590          goto T211;          goto T213;
591  goto T229;  goto T231;
592  T229:;  T231:;
593          if((V54!= VV[20]))goto T234;          if((V54!= VV[20]))goto T236;
594          princ_str("stoi(V",VV[0]);          princ_str("stoi(V",VV[0]);
595          V57= structure_ref(cadr((V49)),VV[17],4);          V57= structure_ref(cadr((V49)),VV[17],4);
596          (void)((*(LnkLI36))(/* INLINE-ARGS */V57));          (void)((*(LnkLI36))(/* INLINE-ARGS */V57));
597          princ_char(41,VV[0]);          princ_char(41,VV[0]);
598          goto T211;          goto T213;
599  goto T234;  goto T236;
600  T234:;  T236:;
601          princ_str("otoi(",VV[0]);          princ_str("otoi(",VV[0]);
602          (void)((*(LnkLI36))((V49)));          (void)((*(LnkLI36))((V49)));
603          princ_char(41,VV[0]);          princ_char(41,VV[0]);
604          goto T211;}          goto T213;}
605  goto T228;  goto T230;
606  T228:;  T230:;
607          princ_str("otoi(",VV[0]);          princ_str("otoi(",VV[0]);
608          (void)((*(LnkLI36))((V49)));          (void)((*(LnkLI36))((V49)));
609          princ_char(41,VV[0]);}          princ_char(41,VV[0]);}
610  goto T211;  goto T213;
611  T211:;  T213:;
612          if((V51)==Cnil){          if((V51)==Cnil){
613          base[3]= Cnil;          base[3]= Cnil;
614          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
615          return;}          return;}
616          if((symbol_value(VV[24]))==Cnil){          if((symbol_value(VV[24]))==Cnil){
617          goto T244;}          goto T246;}
618          base[3]= Cnil;          base[3]= Cnil;
619          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
620          return;          return;
621  goto T244;  goto T246;
622  T244:;  T246:;
623          base[3]= (*(LnkLI48))();          base[3]= (*(LnkLI48))();
624          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
625          return;}          return;}
# Line 633  register object V59; Line 634  register object V59;
634  goto TTL;  goto TTL;
635  TTL:;  TTL:;
636          if(type_of((V59))==t_cons){          if(type_of((V59))==t_cons){
637          goto T246;}          goto T248;}
638          {object V60 = Cnil;          {object V60 = Cnil;
639          VMR14(V60)}          VMR14(V60)}
640  goto T246;  goto T248;
641  T246:;{object V61;  T248:;{object V61;
642          if((car((V59)))==(VV[17])){          if((car((V59)))==(VV[17])){
643          goto T250;}          goto T252;}
644          V61= Cnil;          V61= Cnil;
645          goto T249;          goto T251;
646  goto T250;  goto T252;
647  T250:;  T252:;
648          V62= structure_ref(cadr((V59)),VV[17],1);          V62= structure_ref(cadr((V59)),VV[17],1);
649          V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil);          V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil);
650  goto T249;  goto T251;
651  T249:;  T251:;
652          if(V61==Cnil)goto T248;          if(V61==Cnil)goto T250;
653          {object V63 = V61;          {object V63 = V61;
654          VMR14(V63)}          VMR14(V63)}
655  goto T248;  goto T250;
656  T248:;}  T250:;}
657          if(!((car((V59)))==(VV[21]))){          if(!((car((V59)))==(VV[21]))){
658          goto T252;}          goto T254;}
659          {object V64 = Ct;          {object V64 = Ct;
660          VMR14(V64)}          VMR14(V64)}
661  goto T252;  goto T254;
662  T252:;  T254:;
663          {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);          {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);
664          VMR14(V65)}          VMR14(V65)}
665          return Cnil;          return Cnil;
# Line 672  object V68;object V69; Line 673  object V68;object V69;
673  goto TTL;  goto TTL;
674  TTL:;  TTL:;
675          if(((V68))==Cnil){          if(((V68))==Cnil){
676          goto T255;}          goto T257;}
677          princ_str("VV[",VV[0]);          princ_str("VV[",VV[0]);
678          (void)((*(LnkLI36))((V68)));          (void)((*(LnkLI36))((V68)));
679          princ_char(93,VV[0]);          princ_char(93,VV[0]);
680          {object V70 = Cnil;          {object V70 = Cnil;
681          VMR15(V70)}          VMR15(V70)}
682  goto T255;  goto T257;
683  T255:;  T257:;
684          princ_str("small_fixnum(",VV[0]);          princ_str("small_fixnum(",VV[0]);
685          (void)((*(LnkLI36))((V69)));          (void)((*(LnkLI36))((V69)));
686          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 700  static void L16() Line 701  static void L16()
701  goto TTL;  goto TTL;
702  TTL:;  TTL:;
703          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
704          goto T264;}          goto T266;}
705          if(!((car((V72)))==(VV[17]))){          if(!((car((V72)))==(VV[17]))){
706          goto T264;}          goto T266;}
707          V73= structure_ref(cadr((V72)),VV[17],1);          V73= structure_ref(cadr((V72)),VV[17],1);
708          if(!((/* INLINE-ARGS */V73)==(VV[25]))){          if(!((/* INLINE-ARGS */V73)==(VV[25]))){
709          goto T264;}          goto T266;}
710          princ_char(86,VV[0]);          princ_char(86,VV[0]);
711          V74= structure_ref(cadr((V72)),VV[17],4);          V74= structure_ref(cadr((V72)),VV[17],4);
712          (void)((*(LnkLI36))(/* INLINE-ARGS */V74));          (void)((*(LnkLI36))(/* INLINE-ARGS */V74));
713          base[1]= Cnil;          base[1]= Cnil;
714          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
715          return;          return;
716  goto T264;  goto T266;
717  T264:;  T266:;
718          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
719          goto T273;}          goto T275;}
720          if(!((car((V72)))==(VV[26]))){          if(!((car((V72)))==(VV[26]))){
721          goto T273;}          goto T275;}
722          base[1]= caddr((V72));          base[1]= caddr((V72));
723          base[2]= cadddr((V72));          base[2]= cadddr((V72));
724          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
725          (void) (*Lnk45)();          (void) (*Lnk45)();
726          return;          return;
727  goto T273;  goto T275;
728  T273:;  T275:;
729          if(!(type_of((V72))==t_cons)){          if(!(type_of((V72))==t_cons)){
730          goto T280;}          goto T282;}
731          if(!((car((V72)))==(VV[27]))){          if(!((car((V72)))==(VV[27]))){
732          goto T280;}          goto T282;}
733          (void)((*(LnkLI36))(caddr((V72))));          (void)((*(LnkLI36))(caddr((V72))));
734          base[1]= Cnil;          base[1]= Cnil;
735          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
736          return;          return;
737  goto T280;  goto T282;
738  T280:;  T282:;
739          princ_str("char_code(",VV[0]);          princ_str("char_code(",VV[0]);
740          (void)((*(LnkLI36))((V72)));          (void)((*(LnkLI36))((V72)));
741          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 752  register object V76; Line 753  register object V76;
753  goto TTL;  goto TTL;
754  TTL:;  TTL:;
755          if(type_of((V76))==t_cons){          if(type_of((V76))==t_cons){
756          goto T288;}          goto T290;}
757          {object V77 = Cnil;          {object V77 = Cnil;
758          VMR17(V77)}          VMR17(V77)}
759  goto T288;  goto T290;
760  T288:;{object V78;  T290:;{object V78;
761          if((car((V76)))==(VV[17])){          if((car((V76)))==(VV[17])){
762          goto T292;}          goto T294;}
763          V78= Cnil;          V78= Cnil;
764          goto T291;          goto T293;
765  goto T292;  goto T294;
766  T292:;  T294:;
767          V79= structure_ref(cadr((V76)),VV[17],1);          V79= structure_ref(cadr((V76)),VV[17],1);
768          V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil);          V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil);
769  goto T291;  goto T293;
770  T291:;  T293:;
771          if(V78==Cnil)goto T290;          if(V78==Cnil)goto T292;
772          {object V80 = V78;          {object V80 = V78;
773          VMR17(V80)}          VMR17(V80)}
774  goto T290;  goto T292;
775  T290:;}  T292:;}
776          if(!((car((V76)))==(VV[26]))){          if(!((car((V76)))==(VV[26]))){
777          goto T294;}          goto T296;}
778          {object V81 = Ct;          {object V81 = Ct;
779          VMR17(V81)}          VMR17(V81)}
780  goto T294;  goto T296;
781  T294:;  T296:;
782          {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);          {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);
783          VMR17(V82)}          VMR17(V82)}
784          return Cnil;          return Cnil;
# Line 810  static void L19() Line 811  static void L19()
811  goto TTL;  goto TTL;
812  TTL:;  TTL:;
813          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
814          goto T300;}          goto T302;}
815          if(!((car((V88)))==(VV[17]))){          if(!((car((V88)))==(VV[17]))){
816          goto T300;}          goto T302;}
817          V89= structure_ref(cadr((V88)),VV[17],1);          V89= structure_ref(cadr((V88)),VV[17],1);
818          if(!((/* INLINE-ARGS */V89)==(VV[28]))){          if(!((/* INLINE-ARGS */V89)==(VV[28]))){
819          goto T300;}          goto T302;}
820          princ_char(86,VV[0]);          princ_char(86,VV[0]);
821          V90= structure_ref(cadr((V88)),VV[17],4);          V90= structure_ref(cadr((V88)),VV[17],4);
822          (void)((*(LnkLI36))(/* INLINE-ARGS */V90));          (void)((*(LnkLI36))(/* INLINE-ARGS */V90));
823          base[1]= Cnil;          base[1]= Cnil;
824          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
825          return;          return;
826  goto T300;  goto T302;
827  T300:;  T302:;
828          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
829          goto T309;}          goto T311;}
830          if(!((car((V88)))==(VV[29]))){          if(!((car((V88)))==(VV[29]))){
831          goto T309;}          goto T311;}
832          base[1]= caddr((V88));          base[1]= caddr((V88));
833          base[2]= cadddr((V88));          base[2]= cadddr((V88));
834          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
835          (void) (*Lnk45)();          (void) (*Lnk45)();
836          return;          return;
837  goto T309;  goto T311;
838  T309:;  T311:;
839          if(!(type_of((V88))==t_cons)){          if(!(type_of((V88))==t_cons)){
840          goto T316;}          goto T318;}
841          if(!((car((V88)))==(VV[30]))){          if(!((car((V88)))==(VV[30]))){
842          goto T316;}          goto T318;}
843          (void)((*(LnkLI36))(caddr((V88))));          (void)((*(LnkLI36))(caddr((V88))));
844          base[1]= Cnil;          base[1]= Cnil;
845          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
846          return;          return;
847  goto T316;  goto T318;
848  T316:;  T318:;
849          princ_str("lf(",VV[0]);          princ_str("lf(",VV[0]);
850          (void)((*(LnkLI36))((V88)));          (void)((*(LnkLI36))((V88)));
851          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 862  register object V92; Line 863  register object V92;
863  goto TTL;  goto TTL;
864  TTL:;  TTL:;
865          if(type_of((V92))==t_cons){          if(type_of((V92))==t_cons){
866          goto T324;}          goto T326;}
867          {object V93 = Cnil;          {object V93 = Cnil;
868          VMR20(V93)}          VMR20(V93)}
869  goto T324;  goto T326;
870  T324:;{object V94;  T326:;{object V94;
871          if((car((V92)))==(VV[17])){          if((car((V92)))==(VV[17])){
872          goto T328;}          goto T330;}
873          V94= Cnil;          V94= Cnil;
874          goto T327;          goto T329;
875  goto T328;  goto T330;
876  T328:;  T330:;
877          V95= structure_ref(cadr((V92)),VV[17],1);          V95= structure_ref(cadr((V92)),VV[17],1);
878          V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil);          V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil);
879  goto T327;  goto T329;
880  T327:;  T329:;
881          if(V94==Cnil)goto T326;          if(V94==Cnil)goto T328;
882          {object V96 = V94;          {object V96 = V94;
883          VMR20(V96)}          VMR20(V96)}
884  goto T326;  goto T328;
885  T326:;}  T328:;}
886          if(!((car((V92)))==(VV[29]))){          if(!((car((V92)))==(VV[29]))){
887          goto T330;}          goto T332;}
888          {object V97 = Ct;          {object V97 = Ct;
889          VMR20(V97)}          VMR20(V97)}
890  goto T330;  goto T332;
891  T330:;  T332:;
892          {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);          {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);
893          VMR20(V98)}          VMR20(V98)}
894          return Cnil;          return Cnil;
# Line 920  static void L22() Line 921  static void L22()
921  goto TTL;  goto TTL;
922  TTL:;  TTL:;
923          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
924          goto T336;}          goto T338;}
925          if(!((car((V104)))==(VV[17]))){          if(!((car((V104)))==(VV[17]))){
926          goto T336;}          goto T338;}
927          V105= structure_ref(cadr((V104)),VV[17],1);          V105= structure_ref(cadr((V104)),VV[17],1);
928          if(!((/* INLINE-ARGS */V105)==(VV[31]))){          if(!((/* INLINE-ARGS */V105)==(VV[31]))){
929          goto T336;}          goto T338;}
930          princ_char(86,VV[0]);          princ_char(86,VV[0]);
931          V106= structure_ref(cadr((V104)),VV[17],4);          V106= structure_ref(cadr((V104)),VV[17],4);
932          (void)((*(LnkLI36))(/* INLINE-ARGS */V106));          (void)((*(LnkLI36))(/* INLINE-ARGS */V106));
933          base[1]= Cnil;          base[1]= Cnil;
934          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
935          return;          return;
936  goto T336;  goto T338;
937  T336:;  T338:;
938          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
939          goto T345;}          goto T347;}
940          if(!((car((V104)))==(VV[32]))){          if(!((car((V104)))==(VV[32]))){
941          goto T345;}          goto T347;}
942          base[1]= caddr((V104));          base[1]= caddr((V104));
943          base[2]= cadddr((V104));          base[2]= cadddr((V104));
944          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
945          (void) (*Lnk45)();          (void) (*Lnk45)();
946          return;          return;
947  goto T345;  goto T347;
948  T345:;  T347:;
949          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
950          goto T352;}          goto T354;}
951          if(!((car((V104)))==(VV[33]))){          if(!((car((V104)))==(VV[33]))){
952          goto T352;}          goto T354;}
953          (void)((*(LnkLI36))(caddr((V104))));          (void)((*(LnkLI36))(caddr((V104))));
954          base[1]= Cnil;          base[1]= Cnil;
955          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
956          return;          return;
957  goto T352;  goto T354;
958  T352:;  T354:;
959          princ_str("sf(",VV[0]);          princ_str("sf(",VV[0]);
960          (void)((*(LnkLI36))((V104)));          (void)((*(LnkLI36))((V104)));
961          princ_char(41,VV[0]);          princ_char(41,VV[0]);
# Line 972  register object V108; Line 973  register object V108;
973  goto TTL;  goto TTL;
974  TTL:;  TTL:;
975          if(type_of((V108))==t_cons){          if(type_of((V108))==t_cons){
976          goto T360;}          goto T362;}
977          {object V109 = Cnil;          {object V109 = Cnil;
978          VMR23(V109)}          VMR23(V109)}
979  goto T360;  goto T362;
980  T360:;{object V110;  T362:;{object V110;
981          if((car((V108)))==(VV[17])){          if((car((V108)))==(VV[17])){
982          goto T364;}          goto T366;}
983          V110= Cnil;          V110= Cnil;
984          goto T363;          goto T365;
985  goto T364;  goto T366;
986  T364:;  T366:;
987          V111= structure_ref(cadr((V108)),VV[17],1);          V111= structure_ref(cadr((V108)),VV[17],1);
988          V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil);          V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil);
989  goto T363;  goto T365;
990  T363:;  T365:;
991          if(V110==Cnil)goto T362;          if(V110==Cnil)goto T364;
992          {object V112 = V110;          {object V112 = V110;
993          VMR23(V112)}          VMR23(V112)}
994  goto T362;  goto T364;
995  T362:;}  T364:;}
996          if(!((car((V108)))==(VV[32]))){          if(!((car((V108)))==(VV[32]))){
997          goto T366;}          goto T368;}
998          {object V113 = Ct;          {object V113 = Ct;
999          VMR23(V113)}          VMR23(V113)}
1000  goto T366;  goto T368;
1001  T366:;  T368:;
1002          {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);          {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);
1003          VMR23(V114)}          VMR23(V114)}
1004          return Cnil;          return Cnil;
# Line 1020  TTL:; Line 1021  TTL:;
1021  static object  LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* WFS-ERROR */  static object  LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* WFS-ERROR */
1022  static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* WT-INLINE-LOC */  static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* WT-INLINE-LOC */
1023  static object  LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* VS-PUSH */  static object  LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* VS-PUSH */
1024  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,1,ap);} /* WT-VS */  static object  LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,1,ap);va_end(ap);return V1;} /* WT-VS */
1025  static object  LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* BABOON */  static object  LnkTLI42(){return call_proc0(VV[42],(void **)&LnkLI42);} /* BABOON */
1026  static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */  static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */
1027  static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* SET-RETURN-LONG-FLOAT */  static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* SET-RETURN-LONG-FLOAT */
1028  static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* SET-RETURN-CHARACTER */  static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* SET-RETURN-CHARACTER */
1029  static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* SET-RETURN-FIXNUM */  static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* SET-RETURN-FIXNUM */
1030  static object  LnkTLI37(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[37],(void **)&LnkLI37,1,ap);} /* SET-TOP */  static object  LnkTLI37(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[37],(void **)&LnkLI37,1,ap);va_end(ap);return V1;} /* SET-TOP */
1031  static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],(void **)&LnkLI36,1,ap);} /* WT1 */  static object  LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,1,ap);va_end(ap);return V1;} /* WT1 */
1032  static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* WT-INLINE */  static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* WT-INLINE */
1033  static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],(void **)&LnkLI34,1,ap);} /* SET-RETURN */  static object  LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* SET-RETURN */
1034    
1035  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1036  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26