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

Diff of /gcl/cmpnew/cmputil.c

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

revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 539  goto T109; Line 539  goto T109;
539  T109:;  T109:;
540          if(!(type_of((V69))==t_cons)){          if(!(type_of((V69))==t_cons)){
541          goto T113;}          goto T113;}
542            {register object V70;
543          V70= list(3,car((V69)),VV[38],cadr((V69)));          V70= list(3,car((V69)),VV[38],cadr((V69)));
544          V67= make_cons(/* INLINE-ARGS */V70,(V67));          V67= make_cons((V70),(V67));}
545  goto T113;  goto T113;
546  T113:;  T113:;
547          V68= cdr((V68));          V68= cdr((V68));
# Line 549  T113:; Line 550  T113:;
550  goto T104;  goto T104;
551  T104:;  T104:;
552          if(((V67))==Cnil){          if(((V67))==Cnil){
553          goto T122;}          goto T123;}
554          V71= nreverse((V67));          V71= nreverse((V67));
555          V67= list(3,Cnil,/* INLINE-ARGS */V71,Cnil);          V67= list(3,Cnil,/* INLINE-ARGS */V71,Cnil);
556  goto T122;  goto T123;
557  T122:;  T123:;
558          {object V72;          {object V72;
559          V73= list(2,VV[35],(V66));          V73= list(2,VV[35],(V66));
560          base[0]= list(3,VV[39],/* INLINE-ARGS */V73,list(2,VV[35],(V67)));          base[0]= list(3,VV[39],/* INLINE-ARGS */V73,list(2,VV[35],(V67)));
# Line 563  T122:; Line 564  T122:;
564          vs_top=sup;          vs_top=sup;
565          V72= vs_base[0];          V72= vs_base[0];
566          if((car((V72)))==Cnil){          if((car((V72)))==Cnil){
567          goto T130;}          goto T131;}
568          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
569          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
570          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
# Line 576  T122:; Line 577  T122:;
577          {object V74 = list(3,VV[41],VV[42],list(2,VV[35],(V66)));          {object V74 = list(3,VV[41],VV[42],list(2,VV[35],(V66)));
578          bds_unwind1;          bds_unwind1;
579          VMR16(V74)}          VMR16(V74)}
580  goto T130;  goto T131;
581  T130:;  T131:;
582          {object V75 = cadr((V72));          {object V75 = cadr((V72));
583          VMR16(V75)}}}          VMR16(V75)}}}
584          base[0]=base[0];          base[0]=base[0];
# Line 598  TTL:; Line 599  TTL:;
599          register object V80;          register object V80;
600          V79= symbol_value(VV[37]);          V79= symbol_value(VV[37]);
601          V80= car((V79));          V80= car((V79));
 goto T144;  
 T144:;  
         if(!(endp_prop((V79)))){  
         goto T145;}  
         goto T140;  
602  goto T145;  goto T145;
603  T145:;  T145:;
604            if(!(endp_prop((V79)))){
605            goto T146;}
606            goto T141;
607    goto T146;
608    T146:;
609          if(!(type_of((V80))==t_cons)){          if(!(type_of((V80))==t_cons)){
610          goto T149;}          goto T150;}
611            {register object V81;
612          V81= list(3,car((V80)),VV[38],cadr((V80)));          V81= list(3,car((V80)),VV[38],cadr((V80)));
613          V78= make_cons(/* INLINE-ARGS */V81,(V78));          V78= make_cons((V81),(V78));}
614  goto T149;  goto T150;
615  T149:;  T150:;
616          V79= cdr((V79));          V79= cdr((V79));
617          V80= car((V79));          V80= car((V79));
618          goto T144;}          goto T145;}
619  goto T140;  goto T141;
620  T140:;  T141:;
621          {object V82;          {object V82;
622          V83= list(2,VV[35],(V77));          V83= list(2,VV[35],(V77));
623          base[0]= list(3,VV[43],/* INLINE-ARGS */V83,list(2,VV[35],(V78)));          base[0]= list(3,VV[43],/* INLINE-ARGS */V83,list(2,VV[35],(V78)));
# Line 625  T140:; Line 627  T140:;
627          vs_top=sup;          vs_top=sup;
628          V82= vs_base[0];          V82= vs_base[0];
629          if((car((V82)))==Cnil){          if((car((V82)))==Cnil){
630          goto T162;}          goto T164;}
631          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
632          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
633          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
# Line 638  T140:; Line 640  T140:;
640          {object V84 = list(3,VV[41],VV[45],list(2,VV[35],(V77)));          {object V84 = list(3,VV[41],VV[45],list(2,VV[35],(V77)));
641          bds_unwind1;          bds_unwind1;
642          VMR17(V84)}          VMR17(V84)}
643  goto T162;  goto T164;
644  T162:;  T164:;
645          {object V85 = cadr((V82));          {object V85 = cadr((V82));
646          VMR17(V85)}}}          VMR17(V85)}}}
647          base[0]=base[0];          base[0]=base[0];
# Line 660  TTL:; Line 662  TTL:;
662          register object V94;          register object V94;
663          V93= symbol_value(VV[37]);          V93= symbol_value(VV[37]);
664          V94= car((V93));          V94= car((V93));
665  goto T176;  goto T178;
666  T176:;  T178:;
667          if(!(endp_prop((V93)))){          if(!(endp_prop((V93)))){
668          goto T177;}          goto T179;}
669          goto T172;          goto T174;
670  goto T177;  goto T179;
671  T177:;  T179:;
672          if(!(type_of((V94))==t_cons)){          if(!(type_of((V94))==t_cons)){
673          goto T181;}          goto T183;}
674            {register object V95;
675          V95= list(3,car((V94)),VV[38],cadr((V94)));          V95= list(3,car((V94)),VV[38],cadr((V94)));
676          V92= make_cons(/* INLINE-ARGS */V95,(V92));          V92= make_cons((V95),(V92));}
677  goto T181;  goto T183;
678  T181:;  T183:;
679          V93= cdr((V93));          V93= cdr((V93));
680          V94= car((V93));          V94= car((V93));
681          goto T176;}          goto T178;}
682  goto T172;  goto T174;
683  T172:;  T174:;
684          if(symbol_value(VV[46])==Cnil){          if(symbol_value(VV[46])==Cnil){
685          goto T190;}          goto T193;}
686          (void)((*(LnkLI61))((V90)));          (void)((*(LnkLI61))((V90)));
687  goto T190;  goto T193;
688  T190:;  T193:;
689          if(((V92))==Cnil){          if(((V92))==Cnil){
690          goto T191;}          goto T194;}
691          V96= nreverse((V92));          V96= nreverse((V92));
692          V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil);          V92= list(3,Cnil,/* INLINE-ARGS */V96,Cnil);
693  goto T191;  goto T194;
694  T191:;  T194:;
695          {object V97;          {object V97;
696          V98= list(2,VV[35],(V89));          V98= list(2,VV[35],(V89));
697          V99= list(2,VV[35],make_cons((V90),(V91)));          V99= list(2,VV[35],make_cons((V90),(V91)));
# Line 699  T191:; Line 702  T191:;
702          vs_top=sup;          vs_top=sup;
703          V97= vs_base[0];          V97= vs_base[0];
704          if((car((V97)))==Cnil){          if((car((V97)))==Cnil){
705          goto T199;}          goto T202;}
706          bds_bind(VV[3],VV[2]);          bds_bind(VV[3],VV[2]);
707          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
708          (void)((*(LnkLI58))());          (void)((*(LnkLI58))());
# Line 712  T191:; Line 715  T191:;
715          {object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91))));          {object V100 = list(3,VV[41],VV[50],list(2,VV[35],make_cons((V90),(V91))));
716          bds_unwind1;          bds_unwind1;
717          VMR18(V100)}          VMR18(V100)}
718  goto T199;  goto T202;
719  T199:;  T202:;
720          {object V101 = cadr((V97));          {object V101 = cadr((V97));
721          VMR18(V101)}}}          VMR18(V101)}}}
722          base[0]=base[0];          base[0]=base[0];
# Line 783  TTL:; Line 786  TTL:;
786          vs_top=sup;          vs_top=sup;
787          V114= vs_base[0];          V114= vs_base[0];
788          V115= Cnil;          V115= Cnil;
789  goto T221;  goto T224;
790  T221:;  T224:;
791          V115= car((V114));          V115= car((V114));
792          if(!(type_of((V115))==t_symbol)){          if(!(type_of((V115))==t_symbol)){
793          goto T226;}          goto T229;}
794          if((get((V115),VV[57],Cnil))==Cnil){          if((get((V115),VV[57],Cnil))==Cnil){
795          goto T226;}          goto T229;}
796          V114= cddr((V114));          V114= cddr((V114));
797          (void)(remprop((V112),(V115)));          (void)(remprop((V112),(V115)));
798          goto T224;          goto T227;
799  goto T226;  goto T229;
800  T226:;  T229:;
801          V114= cddr((V114));          V114= cddr((V114));
802  goto T224;  goto T227;
803  T224:;  T227:;
804          if(!(((V114))==Cnil)){          if(!(((V114))==Cnil)){
805          goto T234;}          goto T237;}
806          goto T233;          goto T236;
807  goto T234;  goto T237;
808  T234:;  T237:;
809          goto T221;          goto T224;
810  goto T233;  goto T236;
811  T233:;  T236:;
812          goto T219;          goto T222;
813  goto T219;  goto T222;
814  T219:;  T222:;
815          {object V116 = (*(LnkLI64))((V112),(V113));          {object V116 = (*(LnkLI64))((V112),(V113));
816          VMR21(V116)}}          VMR21(V116)}}
817          base[0]=base[0];          base[0]=base[0];

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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