/[gcl]/gcl/mod/gcl_defpackage.c
ViewVC logotype

Diff of /gcl/mod/gcl_defpackage.c

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

revision 1.1 by camm, Tue Sep 23 21:50:20 2003 UTC revision 1.2 by camm, Fri Oct 3 16:03:16 2003 UTC
# Line 752  T316:; Line 752  T316:;
752          goto T314;          goto T314;
753  T314:;  T314:;
754          V106= listA(3,VV[28],/* INLINE-ARGS */V101,append(V102,V104));          V106= listA(3,VV[28],/* INLINE-ARGS */V101,append(V102,V104));
755          V107= list(2,VV[30],(V10));          V107 = base[2];
756            V108= list(2,VV[30],(V10));
757          if(((V12))==Cnil){          if(((V12))==Cnil){
758          goto T324;}          goto T324;}
759          V108= Cnil;          V109= Cnil;
760          goto T322;          goto T322;
761          goto T324;          goto T324;
762  T324:;  T324:;
763          V108= Cnil;          V109= Cnil;
764          goto T322;          goto T322;
765  T322:;  T322:;
766          V109= list(4,VV[26],/* INLINE-ARGS */V100,/* INLINE-ARGS */V106,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V107,V108));          V110= list(4,VV[26],/* INLINE-ARGS */V100,/* INLINE-ARGS */V106,listA(7,VV[34],V107,VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109));
767          base[5]= base[2];          base[5]= base[2];
768          base[6]= VV[40];          base[6]= VV[40];
769          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
770          Lintern();          Lintern();
771          vs_top=sup;          vs_top=sup;
772          V110= vs_base[0];          V111= vs_base[0];
773          V111= list(3,VV[38],list(3,VV[39],list(2,VV[30],V110),VV[41]),(V11));          V112= list(3,VV[38],list(3,VV[39],list(2,VV[30],V111),VV[41]),(V11));
774          V112= make_cons(/* INLINE-ARGS */V111,Cnil);          V113= make_cons(/* INLINE-ARGS */V112,Cnil);
775          V113= list(2,VV[43],list(2,VV[27],base[2]));          V114= list(2,VV[43],list(2,VV[27],base[2]));
776          V114= make_cons(/* INLINE-ARGS */V113,Cnil);          V115= make_cons(/* INLINE-ARGS */V114,Cnil);
777          if(((V13))==Cnil){          if(((V13))==Cnil){
778          goto T332;}          goto T332;}
779          V116= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V13))));          V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V13))));
780          base[5]= make_cons(/* INLINE-ARGS */V116,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V117,Cnil);
781          goto T330;          goto T330;
782          goto T332;          goto T332;
783  T332:;  T332:;
# Line 785  T332:; Line 786  T332:;
786  T330:;  T330:;
787          if(((V16))==Cnil){          if(((V16))==Cnil){
788          goto T336;}          goto T336;}
789          {object V117;          {object V118;
790          object V118= (V16);          object V119= (V16);
791          if(V118==Cnil){          if(V119==Cnil){
792          base[6]= Cnil;          base[6]= Cnil;
793          goto T334;}          goto T334;}
794          base[7]=V117=MMcons(Cnil,Cnil);          base[7]=V118=MMcons(Cnil,Cnil);
795          goto T338;          goto T338;
796  T338:;  T338:;
797          {register object V119;          {register object V120;
798          V119= (V118->c.c_car);          V120= (V119->c.c_car);
799          V120= list(3,VV[51],VV[52],CMPcar((V119)));          V121= list(3,VV[51],VV[52],CMPcar((V120)));
800          V121= list(3,VV[53],VV[52],CMPcar((V119)));          V122= list(3,VV[53],VV[52],CMPcar((V120)));
801          V122= list(2,VV[48],list(3,VV[49],VV[50],list(4,VV[26],/* INLINE-ARGS */V120,/* INLINE-ARGS */V121,list(5,VV[54],VV[55],VV[56],CMPcar((V119)),VV[57]))));          V123= list(2,VV[48],list(3,VV[49],VV[50],list(4,VV[26],/* INLINE-ARGS */V121,/* INLINE-ARGS */V122,list(5,VV[54],VV[55],VV[56],CMPcar((V120)),VV[57]))));
802          (V117->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V122,list(2,VV[30],CMPcdr((V119)))));}          (V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V123,list(2,VV[30],CMPcdr((V120)))));}
803          if((V118=MMcdr(V118))==Cnil){          if((V119=MMcdr(V119))==Cnil){
804          base[6]= base[7];          base[6]= base[7];
805          goto T334;}          goto T334;}
806          V117=MMcdr(V117)=MMcons(Cnil,Cnil);          V118=MMcdr(V118)=MMcons(Cnil,Cnil);
807          goto T338;}          goto T338;}
808          goto T336;          goto T336;
809  T336:;  T336:;
# Line 823  T334:; Line 824  T334:;
824          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
825          L5(base);          L5(base);
826          vs_top=sup;          vs_top=sup;
827          V126= vs_base[0];          V127= vs_base[0];
828          {object V124;          {object V125;
829          object V125= V126;          object V126= V127;
830          if(V125==Cnil){          if(V126==Cnil){
831          V123= Cnil;          V124= Cnil;
832          goto T341;}          goto T341;}
833          base[8]=V124=MMcons(Cnil,Cnil);          base[8]=V125=MMcons(Cnil,Cnil);
834          goto T349;          goto T349;
835  T349:;  T349:;
836          (V124->c.c_car)= coerce_to_string((V125->c.c_car));          (V125->c.c_car)= coerce_to_string((V126->c.c_car));
837          if((V125=MMcdr(V125))==Cnil){          if((V126=MMcdr(V126))==Cnil){
838          V123= base[8];          V124= base[8];
839          goto T341;}          goto T341;}
840          V124=MMcdr(V124)=MMcons(Cnil,Cnil);          V125=MMcdr(V125)=MMcons(Cnil,Cnil);
841          goto T349;}          goto T349;}
842          goto T343;          goto T343;
843  T343:;  T343:;
844          V123= VV[59];          V124= VV[59];
845          goto T341;          goto T341;
846  T341:;  T341:;
847          V127= list(2,VV[58],list(2,VV[30],V123));          V128= list(2,VV[58],list(2,VV[30],V124));
848          if(((V17))==Cnil){          if(((V17))==Cnil){
849          goto T357;}          goto T357;}
850          {object V129;          {object V130;
851          object V130= (V17);          object V131= (V17);
852          if(V130==Cnil){          if(V131==Cnil){
853          base[8]= Cnil;          base[8]= Cnil;
854          goto T355;}          goto T355;}
855          base[9]=V129=MMcons(Cnil,Cnil);          base[9]=V130=MMcons(Cnil,Cnil);
856          goto T359;          goto T359;
857  T359:;  T359:;
858          {register object V131;          {register object V132;
859          V131= (V130->c.c_car);          V132= (V131->c.c_car);
860          V132= list(3,VV[51],VV[52],CMPcar((V131)));          V133= list(3,VV[51],VV[52],CMPcar((V132)));
861          V133= list(3,VV[53],VV[52],CMPcar((V131)));          V134= list(3,VV[53],VV[52],CMPcar((V132)));
862          V134= list(2,VV[48],list(3,VV[49],VV[61],list(4,VV[26],/* INLINE-ARGS */V132,/* INLINE-ARGS */V133,list(5,VV[54],VV[55],VV[62],CMPcar((V131)),VV[63]))));          V135= list(2,VV[48],list(3,VV[49],VV[61],list(4,VV[26],/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,list(5,VV[54],VV[55],VV[62],CMPcar((V132)),VV[63]))));
863          (V129->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V134,list(2,VV[30],CMPcdr((V131)))));}          (V130->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V135,list(2,VV[30],CMPcdr((V132)))));}
864          if((V130=MMcdr(V130))==Cnil){          if((V131=MMcdr(V131))==Cnil){
865          base[8]= base[9];          base[8]= base[9];
866          goto T355;}          goto T355;}
867          V129=MMcdr(V129)=MMcons(Cnil,Cnil);          V130=MMcdr(V130)=MMcons(Cnil,Cnil);
868          goto T359;}          goto T359;}
869          goto T357;          goto T357;
870  T357:;  T357:;
# Line 872  T357:; Line 873  T357:;
873  T355:;  T355:;
874          if(((V14))==Cnil){          if(((V14))==Cnil){
875          goto T363;}          goto T363;}
876          V135= list(3,VV[45],VV[64],list(2,VV[30],(V14)));          V136= list(3,VV[45],VV[64],list(2,VV[30],(V14)));
877          base[9]= make_cons(/* INLINE-ARGS */V135,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V136,Cnil);
878          goto T361;          goto T361;
879          goto T363;          goto T363;
880  T363:;  T363:;
# Line 882  T363:; Line 883  T363:;
883  T361:;  T361:;
884          if(((V15))==Cnil){          if(((V15))==Cnil){
885          goto T367;}          goto T367;}
886          V136= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V15))));          V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V15))));
887          base[10]= make_cons(/* INLINE-ARGS */V136,Cnil);          base[10]= make_cons(/* INLINE-ARGS */V137,Cnil);
888          goto T365;          goto T365;
889          goto T367;          goto T367;
890  T367:;  T367:;
# Line 892  T367:; Line 893  T367:;
893  T365:;  T365:;
894          if(((V18))==Cnil){          if(((V18))==Cnil){
895          goto T371;}          goto T371;}
896          V137= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V18))),VV[69]);          V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V18))),VV[69]);
897          base[11]= make_cons(/* INLINE-ARGS */V137,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V138,Cnil);
898          goto T369;          goto T369;
899          goto T371;          goto T371;
900  T371:;  T371:;
# Line 903  T369:; Line 904  T369:;
904          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
905          Lappend();          Lappend();
906          vs_top=sup;          vs_top=sup;
907          V128= vs_base[0];          V129= vs_base[0];
908          base[7]= make_cons(/* INLINE-ARGS */V127,V128);          base[7]= make_cons(/* INLINE-ARGS */V128,V129);
909          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
910          Lappend();          Lappend();
911          vs_top=sup;          vs_top=sup;
912          V115= vs_base[0];          V116= vs_base[0];
913          V138= listA(3,VV[42],/* INLINE-ARGS */V114,V115);          V139= listA(3,VV[42],/* INLINE-ARGS */V115,V116);
914          V139= list(2,/* INLINE-ARGS */V138,list(2,VV[27],base[2]));          V140= list(2,/* INLINE-ARGS */V139,list(2,VV[27],base[2]));
915          base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V109,append(/* INLINE-ARGS */V112,/* INLINE-ARGS */V139));          base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V140));
916          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
917          return;}          return;}
918  }  }
# Line 922  register object *base0; Line 923  register object *base0;
923  {       register object *base=vs_base;  {       register object *base=vs_base;
924          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
925          vs_check;          vs_check;
926          {object V140;          {object V141;
927          vs_top[0]=Cnil;          vs_top[0]=Cnil;
928          {object *p=vs_top;          {object *p=vs_top;
929           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
930          V140=(base[0]);          V141=(base[0]);
931          vs_top=sup;          vs_top=sup;
         {object V141;  
         V141= Cnil;  
932          {object V142;          {object V142;
         object V143;  
933          V142= Cnil;          V142= Cnil;
934          V143= (V140);          {object V143;
935          {object V144;          object V144;
936          V144= CMPcdr((V140));          V143= Cnil;
937          {register long V145;          V144= (V141);
938          V145= 1;          {object V145;
939            V145= CMPcdr((V141));
940            {register long V146;
941            V146= 1;
942          goto T377;          goto T377;
943  T377:;  T377:;
944          if(((V144))==Cnil){          if(((V145))==Cnil){
945          goto T380;}          goto T380;}
946          goto T379;          goto T379;
947          goto T380;          goto T380;
# Line 948  T380:; Line 949  T380:;
949          goto T378;          goto T378;
950          goto T379;          goto T379;
951  T379:;  T379:;
952          if(((V143))==Cnil){          if(((V144))==Cnil){
953          goto T383;}          goto T383;}
954          goto T382;          goto T382;
955          goto T383;          goto T383;
# Line 956  T383:; Line 957  T383:;
957          goto T378;          goto T378;
958          goto T382;          goto T382;
959  T382:;  T382:;
960          {object V146;          {object V147;
961          V146= CMPcar((V143));          V147= CMPcar((V144));
962          V142= (V146);}          V143= (V147);}
963          {register object V147;          {register object V148;
964          register object V148;          register object V149;
965          V147= Cnil;          V148= Cnil;
966          V148= (V142);          V149= (V143);
967          {register object V149;          {register object V150;
968          V149= Cnil;          V150= Cnil;
969          goto T390;          goto T390;
970  T390:;  T390:;
971          if(((V148))==Cnil){          if(((V149))==Cnil){
972          goto T393;}          goto T393;}
973          goto T392;          goto T392;
974          goto T393;          goto T393;
# Line 975  T393:; Line 976  T393:;
976          goto T391;          goto T391;
977          goto T392;          goto T392;
978  T392:;  T392:;
         {object V150;  
         V150= CMPcar((V148));  
         V147= (V150);}  
979          {object V151;          {object V151;
980          base[1]= (V147);          V151= CMPcar((V149));
981          base[2]= (V141);          V148= (V151);}
982            {object V152;
983            base[1]= (V148);
984            base[2]= (V142);
985          base[3]= VV[4];          base[3]= VV[4];
986          base[4]= (VV[70]->s.s_gfdef);          base[4]= (VV[70]->s.s_gfdef);
987          base[5]= VV[22];          base[5]= VV[22];
# Line 988  T392:; Line 989  T392:;
989          vs_top=(vs_base=base+1)+6;          vs_top=(vs_base=base+1)+6;
990          (void) (*Lnk74)();          (void) (*Lnk74)();
991          vs_top=sup;          vs_top=sup;
992          V151= vs_base[0];          V152= vs_base[0];
993          V149= (V151);}          V150= (V152);}
994          V153 = CMPmake_fixnum(V145);          V154 = CMPmake_fixnum(V146);
995          {register object x= V153,V152= (V149);          {register object x= V154,V153= (V150);
996          while(V152!=Cnil)          while(V153!=Cnil)
997          if(eql(x,V152->c.c_car)){          if(eql(x,V153->c.c_car)){
998          goto T407;          goto T407;
999          }else V152=V152->c.c_cdr;}          }else V153=V153->c.c_cdr;}
1000          {object V154;          {object V155;
1001          register object V155;          register object V156;
1002          V154= Cnil;          V155= Cnil;
1003          V155= (V144);          V156= (V145);
1004          {register long V156;          {register long V157;
1005          {object V157;          {object V158;
1006          V158 = CMPmake_fixnum(V145);          V159 = CMPmake_fixnum(V146);
1007          V157= one_plus(V158);{object V159;          V158= one_plus(V159);{object V160;
1008          V159= (type_of((V157))==t_fixnum?Ct:Cnil);          V160= (type_of((V158))==t_fixnum?Ct:Cnil);
1009          if(V159==Cnil)goto T413;          if(V160==Cnil)goto T413;
1010          goto T412;          goto T412;
1011          goto T413;          goto T413;
1012  T413:;}  T413:;}
# Line 1014  T413:;} Line 1015  T413:;}
1015          vs_top=sup;          vs_top=sup;
1016          goto T412;          goto T412;
1017  T412:;  T412:;
1018          V156= fix((V157));}          V157= fix((V158));}
1019          goto T416;          goto T416;
1020  T416:;  T416:;
1021          if(((V155))==Cnil){          if(((V156))==Cnil){
1022          goto T419;}          goto T419;}
1023          goto T418;          goto T418;
1024          goto T419;          goto T419;
# Line 1025  T419:; Line 1026  T419:;
1026          goto T417;          goto T417;
1027          goto T418;          goto T418;
1028  T418:;  T418:;
1029          {object V160;          {object V161;
1030          V160= CMPcar((V155));          V161= CMPcar((V156));
1031          V154= (V160);}          V155= (V161);}
1032          base[1]= (V147);          base[1]= (V148);
1033          base[2]= (V154);          base[2]= (V155);
1034          base[3]= VV[22];          base[3]= VV[22];
1035          base[4]= (VV[73]->s.s_gfdef);          base[4]= (VV[73]->s.s_gfdef);
1036          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
# Line 1037  T418:; Line 1038  T418:;
1038          vs_top=sup;          vs_top=sup;
1039          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1040          goto T424;}          goto T424;}
1041          if(((V149))==Cnil){          if(((V150))==Cnil){
1042          goto T432;}          goto T432;}
1043          V161 = CMPmake_fixnum(V156);          V162 = CMPmake_fixnum(V157);
1044          V162= make_cons(V161,Cnil);          V163= make_cons(V162,Cnil);
1045          (void)(nconc((V149),/* INLINE-ARGS */V162));          (void)(nconc((V150),/* INLINE-ARGS */V163));
1046          goto T424;          goto T424;
1047          goto T432;          goto T432;
1048  T432:;  T432:;
1049          {object V164;          {object V165;
1050          V165 = CMPmake_fixnum(V145);          V166 = CMPmake_fixnum(V146);
1051          V166 = CMPmake_fixnum(V156);          V167 = CMPmake_fixnum(V157);
1052          V164= list(3,(V147),V165,V166);          V165= list(3,(V148),V166,V167);
1053          V141= make_cons((V164),(V141));          V142= make_cons((V165),(V142));
1054          V163= (V141);}          V164= (V142);}
1055          V149= CMPcar(V163);          V150= CMPcar(V164);
1056          goto T424;          goto T424;
1057  T424:;  T424:;
1058          V155= CMPcdr((V155));          V156= CMPcdr((V156));
1059          if(!((V156)<(2147483646))){          if(!((V157)<(2147483646))){
1060          goto T441;}          goto T441;}
1061          goto T440;          goto T440;
1062          goto T441;          goto T441;
# Line 1065  T441:; Line 1066  T441:;
1066          vs_top=sup;          vs_top=sup;
1067          goto T440;          goto T440;
1068  T440:;  T440:;
1069          V156= (long)(V156)+(1);          V157= (long)(V157)+(1);
1070          goto T416;          goto T416;
1071          goto T417;          goto T417;
1072  T417:;  T417:;
# Line 1073  T417:; Line 1074  T417:;
1074          goto T407;}}          goto T407;}}
1075          goto T407;          goto T407;
1076  T407:;  T407:;
1077          V148= CMPcdr((V148));          V149= CMPcdr((V149));
1078          goto T390;          goto T390;
1079          goto T391;          goto T391;
1080  T391:;  T391:;
# Line 1081  T391:; Line 1082  T391:;
1082          goto T388;}}          goto T388;}}
1083          goto T388;          goto T388;
1084  T388:;  T388:;
         V143= CMPcdr((V143));  
1085          V144= CMPcdr((V144));          V144= CMPcdr((V144));
1086          if(!((V145)<(2147483646))){          V145= CMPcdr((V145));
1087            if(!((V146)<(2147483646))){
1088          goto T454;}          goto T454;}
1089          goto T453;          goto T453;
1090          goto T454;          goto T454;
# Line 1093  T454:; Line 1094  T454:;
1094          vs_top=sup;          vs_top=sup;
1095          goto T453;          goto T453;
1096  T453:;  T453:;
1097          V145= (long)(V145)+(1);          V146= (long)(V146)+(1);
1098          goto T377;          goto T377;
1099          goto T378;          goto T378;
1100  T378:;  T378:;
# Line 1101  T378:; Line 1102  T378:;
1102          goto T373;}}}          goto T373;}}}
1103          goto T373;          goto T373;
1104  T373:;  T373:;
1105          base[1]= (V141);          base[1]= (V142);
1106          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1107          return;}          return;}
1108          }          }
# Line 1113  register object *base0; Line 1114  register object *base0;
1114  {       register object *base=vs_base;  {       register object *base=vs_base;
1115          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
1116          vs_check;          vs_check;
1117          {object V167;          {object V168;
1118          object V168;          object V169;
1119          V167=(base[0]);          V168=(base[0]);
1120          V168=(base[1]);          V169=(base[1]);
1121          vs_top=sup;          vs_top=sup;
1122          if(!(type_of((V168))==t_cons)){          if(!(type_of((V169))==t_cons)){
1123          goto T460;}          goto T460;}
1124          base[2]= (equal(CMPcar((V168)),(V167))?Ct:Cnil);          base[2]= (equal(CMPcar((V169)),(V168))?Ct:Cnil);
1125          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1126          return;          return;
1127          goto T460;          goto T460;
# Line 1137  register object *base0; Line 1138  register object *base0;
1138  {       register object *base=vs_base;  {       register object *base=vs_base;
1139          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
1140          vs_check;          vs_check;
1141          {object V169;          {object V170;
1142          object V170;          object V171;
1143          V169=(base[0]);          V170=(base[0]);
1144          V170=(base[1]);          V171=(base[1]);
1145          vs_top=sup;          vs_top=sup;
1146          goto TTL;          goto TTL;
1147  TTL:;  TTL:;
1148          {register object V171;          {register object V172;
         V171= Cnil;  
         {object V172;  
         register object V173;  
         register object V174;  
1149          V172= Cnil;          V172= Cnil;
1150            {object V173;
1151            register object V174;
1152            register object V175;
1153          V173= Cnil;          V173= Cnil;
1154          V174= Cnil;          V174= Cnil;
1155          {object V175;          V175= Cnil;
1156          base[2]= (V169);          {object V176;
1157          base[3]= (V170);          base[2]= (V170);
1158            base[3]= (V171);
1159          base[4]= VV[22];          base[4]= VV[22];
1160          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1161          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1162          Lmember();          Lmember();
1163          vs_top=sup;          vs_top=sup;
1164          V175= vs_base[0];          V176= vs_base[0];
1165          V171= (V175);}          V172= (V176);}
1166          goto T463;          goto T463;
1167  T463:;  T463:;
1168          if(((V171))==Cnil){          if(((V172))==Cnil){
1169          goto T472;}          goto T472;}
1170          goto T471;          goto T471;
1171          goto T472;          goto T472;
# Line 1172  T472:; Line 1173  T472:;
1173          goto T464;          goto T464;
1174          goto T471;          goto T471;
1175  T471:;  T471:;
1176          if(((V171))==Cnil){          if(((V172))==Cnil){
1177          goto T474;}          goto T474;}
1178          base[2]= CMPcdr(CMPcar((V171)));          base[2]= CMPcdr(CMPcar((V172)));
1179          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1180          Lcopy_list();          Lcopy_list();
1181          vs_top=sup;          vs_top=sup;
1182          V174= vs_base[0];          V175= vs_base[0];
1183          if(((V173))==Cnil){          if(((V174))==Cnil){
1184          goto T481;}          goto T481;}
1185          {register object V176;          {register object V177;
1186          register object V177;          register object V178;
         V176= (V173);  
1187          V177= (V174);          V177= (V174);
1188          ((V176))->c.c_cdr = (V177);          V178= (V175);
1189          if(((V177))!=Cnil){          ((V177))->c.c_cdr = (V178);
1190            if(((V178))!=Cnil){
1191          goto T483;}}          goto T483;}}
1192          goto T474;          goto T474;
1193          goto T483;          goto T483;
1194  T483:;  T483:;
1195          base[2]= CMPcdr((V173));          base[2]= CMPcdr((V174));
1196          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1197          Llast();          Llast();
1198          vs_top=sup;          vs_top=sup;
1199          V173= vs_base[0];          V174= vs_base[0];
1200          goto T474;          goto T474;
1201          goto T481;          goto T481;
1202  T481:;  T481:;
1203          V172= (V174);          V173= (V175);
1204          base[2]= (V172);          base[2]= (V173);
1205          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1206          Llast();          Llast();
1207          vs_top=sup;          vs_top=sup;
1208          V173= vs_base[0];          V174= vs_base[0];
1209          goto T474;          goto T474;
1210  T474:;  T474:;
1211          {register object V178;          {register object V179;
1212          base[2]= (V169);          base[2]= (V170);
1213          base[3]= CMPcdr((V171));          base[3]= CMPcdr((V172));
1214          base[4]= VV[22];          base[4]= VV[22];
1215          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1216          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1217          Lmember();          Lmember();
1218          vs_top=sup;          vs_top=sup;
1219          V178= vs_base[0];          V179= vs_base[0];
1220          V171= (V178);}          V172= (V179);}
1221          goto T463;          goto T463;
1222          goto T464;          goto T464;
1223  T464:;  T464:;
1224          base[2]= (V172);          base[2]= (V173);
1225          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1226          return;          return;
1227          base[2]= Cnil;          base[2]= Cnil;
# Line 1238  register object *base0; Line 1239  register object *base0;
1239  {       register object *base=vs_base;  {       register object *base=vs_base;
1240          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
1241          vs_check;          vs_check;
1242          {object V179;          {object V180;
1243          object V180;          object V181;
1244          V179=(base[0]);          V180=(base[0]);
1245          V180=(base[1]);          V181=(base[1]);
1246          vs_top=sup;          vs_top=sup;
1247          goto TTL;          goto TTL;
1248  TTL:;  TTL:;
1249          {register object V181;          {register object V182;
         V181= Cnil;  
         {object V182;  
         register object V183;  
         register object V184;  
1250          V182= Cnil;          V182= Cnil;
1251            {object V183;
1252            register object V184;
1253            register object V185;
1254          V183= Cnil;          V183= Cnil;
1255          V184= Cnil;          V184= Cnil;
1256          {object V185;          V185= Cnil;
1257          base[2]= (V179);          {object V186;
1258          base[3]= (V180);          base[2]= (V180);
1259            base[3]= (V181);
1260          base[4]= VV[22];          base[4]= VV[22];
1261          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1262          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1263          Lmember();          Lmember();
1264          vs_top=sup;          vs_top=sup;
1265          V185= vs_base[0];          V186= vs_base[0];
1266          V181= (V185);}          V182= (V186);}
1267          goto T503;          goto T503;
1268  T503:;  T503:;
1269          if(((V181))==Cnil){          if(((V182))==Cnil){
1270          goto T512;}          goto T512;}
1271          goto T511;          goto T511;
1272          goto T512;          goto T512;
# Line 1273  T512:; Line 1274  T512:;
1274          goto T504;          goto T504;
1275          goto T511;          goto T511;
1276  T511:;  T511:;
1277          if(((V181))==Cnil){          if(((V182))==Cnil){
1278          goto T514;}          goto T514;}
1279          V184= CMPcdr(CMPcar((V181)));          V185= CMPcdr(CMPcar((V182)));
1280          if(((V183))==Cnil){          if(((V184))==Cnil){
1281          goto T520;}          goto T520;}
1282          {register object V186;          {register object V187;
1283          register object V187;          register object V188;
1284          V186= (V183);          V187= (V184);
1285          V183= make_cons((V184),Cnil);          V184= make_cons((V185),Cnil);
1286          V187= (V183);          V188= (V184);
1287          ((V186))->c.c_cdr = (V187);          ((V187))->c.c_cdr = (V188);
1288          goto T514;}          goto T514;}
1289          goto T520;          goto T520;
1290  T520:;  T520:;
1291          V183= make_cons((V184),Cnil);          V184= make_cons((V185),Cnil);
1292          V182= (V183);          V183= (V184);
1293          goto T514;          goto T514;
1294  T514:;  T514:;
1295          {register object V188;          {register object V189;
1296          base[2]= (V179);          base[2]= (V180);
1297          base[3]= CMPcdr((V181));          base[3]= CMPcdr((V182));
1298          base[4]= VV[22];          base[4]= VV[22];
1299          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1300          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1301          Lmember();          Lmember();
1302          vs_top=sup;          vs_top=sup;
1303          V188= vs_base[0];          V189= vs_base[0];
1304          V181= (V188);}          V182= (V189);}
1305          goto T503;          goto T503;
1306          goto T504;          goto T504;
1307  T504:;  T504:;
1308          base[2]= (V182);          base[2]= (V183);
1309          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1310          return;          return;
1311          base[2]= Cnil;          base[2]= Cnil;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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