/[gcl]/gcl/pcl/pcl_combin.c
ViewVC logotype

Diff of /gcl/pcl/pcl_combin.c

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

revision 1.3 by camm, Tue Sep 2 20:32:43 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 809  static void L14() Line 809  static void L14()
809          goto T236;}          goto T236;}
810          {object V128;          {object V128;
811          V128= (*(LnkLI63))();          V128= (*(LnkLI63))();
812          V129= (*(LnkLI60))((base[1]->c.c_car),(V125),(base[4]->c.c_car),(base[5]->c.c_car));          V129 = (V126);
813          base[6]= (VFUN_NARGS=4,(*(LnkLI64))((V126),(V127),(V128),/* INLINE-ARGS */V129));          V130 = (V127);
814            V131 = (V128);
815            V132= (*(LnkLI60))((base[1]->c.c_car),(V125),(base[4]->c.c_car),(base[5]->c.c_car));
816            base[6]= (VFUN_NARGS=4,(*(LnkLI64))(V129,V130,V131,/* INLINE-ARGS */V132));
817          base[7]= make_cons((V128),Cnil);          base[7]= make_cons((V128),Cnil);
818          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
819          return;}          return;}
# Line 820  T236:; Line 823  T236:;
823          goto T244;}          goto T244;}
824          if(!((CMPcar((V125)))==(VV[21]))){          if(!((CMPcar((V125)))==(VV[21]))){
825          goto T244;}          goto T244;}
826          {object V130;          {object V133;
827          object V131;          object V134;
828          V130= (*(LnkLI63))();          V133= (*(LnkLI63))();
829          base[6]=          base[6]=
830          make_cclosure_new(LC26,Cnil,base[5],Cdata);          make_cclosure_new(LC26,Cnil,base[5],Cdata);
831          base[7]= CMPcdr((V125));          base[7]= CMPcdr((V125));
# Line 831  T236:; Line 834  T236:;
834          vs_top=sup;          vs_top=sup;
835          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
836          goto T251;}          goto T251;}
837          V131= VV[2];          V134= VV[2];
838          goto T249;          goto T249;
839          goto T251;          goto T251;
840  T251:;  T251:;
841          V131= Ct;          V134= Ct;
842          goto T249;          goto T249;
843  T249:;  T249:;
844          V132= list(3,VV[25],(V130),Cnil);          V135= list(3,VV[25],(V133),Cnil);
845          base[6]= list(3,VV[24],/* INLINE-ARGS */V132,(VFUN_NARGS=4,(*(LnkLI64))((V126),(V127),VV[25],(V131))));          base[6]= list(3,VV[24],/* INLINE-ARGS */V135,(VFUN_NARGS=4,(*(LnkLI64))((V126),(V127),VV[25],(V134))));
846          base[7]= make_cons((V130),Cnil);          base[7]= make_cons((V133),Cnil);
847          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
848          return;}          return;}
849          goto T244;          goto T244;
# Line 853  T244:; Line 856  T244:;
856  }  }
857  /*      local entry for function MEMF-CONSTANT-CONVERTER        */  /*      local entry for function MEMF-CONSTANT-CONVERTER        */
858    
859  static object LI15(V135,V136)  static object LI15(V138,V139)
860    
861  register object V135;object V136;  register object V138;object V139;
862  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
863          goto TTL;          goto TTL;
864  TTL:;  TTL:;
865          if(!(type_of((V135))==t_cons)){          if(!(type_of((V138))==t_cons)){
866          goto T259;}          goto T259;}
867          if(!((CMPcar((V135)))==(VV[0]))){          if(!((CMPcar((V138)))==(VV[0]))){
868          goto T259;}          goto T259;}
869          V137= (VFUN_NARGS=2,(*(LnkLI47))((V136),(V135)));          V140= (VFUN_NARGS=2,(*(LnkLI47))((V139),(V138)));
870          V138= make_cons(VV[26],/* INLINE-ARGS */V137);          V141= make_cons(VV[26],/* INLINE-ARGS */V140);
871          {object V139 = make_cons(/* INLINE-ARGS */V138,Cnil);          {object V142 = make_cons(/* INLINE-ARGS */V141,Cnil);
872          VMR14(V139)}          VMR14(V142)}
873          goto T259;          goto T259;
874  T259:;  T259:;
875          if(!(type_of((V135))==t_cons)){          if(!(type_of((V138))==t_cons)){
876          goto T264;}          goto T264;}
877          if(!((CMPcar((V135)))==(VV[21]))){          if(!((CMPcar((V138)))==(VV[21]))){
878          goto T264;}          goto T264;}
879          {object V141;          {object V144;
880          object V142= CMPcdr((V135));          object V145= CMPcdr((V138));
881          if(V142==Cnil){          if(V145==Cnil){
882          V140= Cnil;          V143= Cnil;
883          goto T268;}          goto T268;}
884          base[0]=V141=MMcons(Cnil,Cnil);          base[0]=V144=MMcons(Cnil,Cnil);
885          goto T269;          goto T269;
886  T269:;  T269:;
887          (V141->c.c_car)= (VFUN_NARGS=2,(*(LnkLI47))((V136),(V142->c.c_car)));          (V144->c.c_car)= (VFUN_NARGS=2,(*(LnkLI47))((V139),(V145->c.c_car)));
888          if((V142=MMcdr(V142))==Cnil){          if((V145=MMcdr(V145))==Cnil){
889          V140= base[0];          V143= base[0];
890          goto T268;}          goto T268;}
891          V141=MMcdr(V141)=MMcons(Cnil,Cnil);          V144=MMcdr(V144)=MMcons(Cnil,Cnil);
892          goto T269;}          goto T269;}
893          goto T268;          goto T268;
894  T268:;  T268:;
895          V144= make_cons(VV[27],V140);          V147= make_cons(VV[27],V143);
896          {object V145 = make_cons(/* INLINE-ARGS */V144,Cnil);          {object V148 = make_cons(/* INLINE-ARGS */V147,Cnil);
897          VMR14(V145)}          VMR14(V148)}
898          goto T264;          goto T264;
899  T264:;  T264:;
900          {object V146 = (*(LnkLI66))((V135));          {object V149 = (*(LnkLI66))((V138));
901          VMR14(V146)}          VMR14(V149)}
902          base[0]=base[0];          base[0]=base[0];
903          return Cnil;          return Cnil;
904  }  }
905  /*      local entry for function MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL        */  /*      local entry for function MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL        */
906    
907  static object LI17(V151,V152,V153,V154)  static object LI17(V154,V155,V156,V157)
908    
909  object V151;object V152;object V153;object V154;  object V154;object V155;object V156;object V157;
910  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
911          bds_check;          bds_check;
912          goto TTL;          goto TTL;
913  TTL:;  TTL:;
914          base[0]=MMcons((V154),Cnil);          base[0]=MMcons((V157),Cnil);
915          base[1]=MMcons((V153),base[0]);          base[1]=MMcons((V156),base[0]);
916          base[2]=MMcons((V151),base[1]);          base[2]=MMcons((V154),base[1]);
917          {object V155;          {object V158;
918          object V156;          object V159;
919          object V157;          object V160;
920          base[5]= (base[2]->c.c_car);          base[5]= (base[2]->c.c_car);
921          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
922          (void) (*Lnk58)();          (void) (*Lnk58)();
923          if(vs_base>=vs_top){vs_top=sup;goto T273;}          if(vs_base>=vs_top){vs_top=sup;goto T273;}
924          V155= vs_base[0];          V158= vs_base[0];
925          vs_base++;          vs_base++;
926          if(vs_base>=vs_top){vs_top=sup;goto T274;}          if(vs_base>=vs_top){vs_top=sup;goto T274;}
927          base[3]=MMcons(vs_base[0],base[2]);          base[3]=MMcons(vs_base[0],base[2]);
# Line 927  TTL:; Line 930  TTL:;
930          base[4]=MMcons(vs_base[0],base[3]);          base[4]=MMcons(vs_base[0],base[3]);
931          vs_base++;          vs_base++;
932          if(vs_base>=vs_top){vs_top=sup;goto T276;}          if(vs_base>=vs_top){vs_top=sup;goto T276;}
933          V156= vs_base[0];          V159= vs_base[0];
934          vs_base++;          vs_base++;
935          if(vs_base>=vs_top){vs_top=sup;goto T277;}          if(vs_base>=vs_top){vs_top=sup;goto T277;}
936          V157= vs_base[0];          V160= vs_base[0];
937          vs_top=sup;          vs_top=sup;
938          goto T278;          goto T278;
939          goto T273;          goto T273;
940  T273:;  T273:;
941          V155= Cnil;          V158= Cnil;
942          goto T274;          goto T274;
943  T274:;  T274:;
944          base[3]=MMcons(Cnil,base[2]);          base[3]=MMcons(Cnil,base[2]);
# Line 944  T275:; Line 947  T275:;
947          base[4]=MMcons(Cnil,base[3]);          base[4]=MMcons(Cnil,base[3]);
948          goto T276;          goto T276;
949  T276:;  T276:;
950          V156= Cnil;          V159= Cnil;
951          goto T277;          goto T277;
952  T277:;  T277:;
953          V157= Cnil;          V160= Cnil;
954          goto T278;          goto T278;
955  T278:;  T278:;
956          {object V158;          {object V161;
957          bds_bind(VV[12],(VV[14]->s.s_dbind));          bds_bind(VV[12],(VV[14]->s.s_dbind));
958          if(((*(LnkLI67))((base[2]->c.c_car)))==Cnil){          if(((*(LnkLI67))((base[2]->c.c_car)))==Cnil){
959          goto T281;}          goto T281;}
# Line 966  T281:; Line 969  T281:;
969          goto T279;          goto T279;
970  T279:;  T279:;
971          base[6]=MMcons(base[6],base[4]);          base[6]=MMcons(base[6],base[4]);
972          base[7]= make_cons((V155),(base[3]->c.c_car));          base[7]= make_cons((V158),(base[3]->c.c_car));
973          base[7]=MMcons(base[7],base[6]);          base[7]=MMcons(base[7],base[6]);
974          V158= (VFUN_NARGS=2,(*(LnkLI70))((base[2]->c.c_car),(V152)));          V161= (VFUN_NARGS=2,(*(LnkLI70))((base[2]->c.c_car),(V155)));
975          base[11]= (V158);          base[11]= (V161);
976          base[12]=          base[12]=
977          make_cclosure_new(LC27,Cnil,base[7],Cdata);          make_cclosure_new(LC27,Cnil,base[7],Cdata);
978          base[13]=          base[13]=
# Line 993  T292:; Line 996  T292:;
996          base[10]=MMcons(Cnil,base[9]);          base[10]=MMcons(Cnil,base[9]);
997          goto T293;          goto T293;
998  T293:;  T293:;
999          {object V159 =          {object V162 =
1000          make_cclosure_new(LC30,Cnil,base[10],Cdata);          make_cclosure_new(LC30,Cnil,base[10],Cdata);
1001          bds_unwind1;          bds_unwind1;
1002          VMR15(V159)}}}          VMR15(V162)}}}
1003          base[0]=base[0];          base[0]=base[0];
1004          return Cnil;          return Cnil;
1005  }  }
# Line 1008  static void L18() Line 1011  static void L18()
1011          vs_check;          vs_check;
1012          check_arg(2);          check_arg(2);
1013          vs_top=sup;          vs_top=sup;
1014          {object V160=base[0]->c.c_cdr;          {object V163=base[0]->c.c_cdr;
1015          base[2]= V160;}          base[2]= V163;}
1016          base[3]= make_cons(VV[29],base[2]);          base[3]= make_cons(VV[29],base[2]);
1017          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1018          return;          return;
1019  }  }
1020  /*      local entry for function MAKE-CALL-METHODS      */  /*      local entry for function MAKE-CALL-METHODS      */
1021    
1022  static object LI19(V162)  static object LI19(V165)
1023    
1024  object V162;  object V165;
1025  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1026          goto TTL;          goto TTL;
1027  TTL:;  TTL:;
1028          {object V164;          {object V167;
1029          object V165= (V162);          object V168= (V165);
1030          if(V165==Cnil){          if(V168==Cnil){
1031          V163= Cnil;          V166= Cnil;
1032          goto T294;}          goto T294;}
1033          base[0]=V164=MMcons(Cnil,Cnil);          base[0]=V167=MMcons(Cnil,Cnil);
1034          goto T295;          goto T295;
1035  T295:;  T295:;
1036          (V164->c.c_car)= list(3,VV[0],(V165->c.c_car),Cnil);          (V167->c.c_car)= list(3,VV[0],(V168->c.c_car),Cnil);
1037          if((V165=MMcdr(V165))==Cnil){          if((V168=MMcdr(V168))==Cnil){
1038          V163= base[0];          V166= base[0];
1039          goto T294;}          goto T294;}
1040          V164=MMcdr(V164)=MMcons(Cnil,Cnil);          V167=MMcdr(V167)=MMcons(Cnil,Cnil);
1041          goto T295;}          goto T295;}
1042          goto T294;          goto T294;
1043  T294:;  T294:;
1044          {object V167 = make_cons(VV[21],V163);          {object V170 = make_cons(VV[21],V166);
1045          VMR17(V167)}          VMR17(V170)}
1046          base[0]=base[0];          base[0]=base[0];
1047          return Cnil;          return Cnil;
1048  }  }
1049  /*      local entry for function STANDARD-COMPUTE-EFFECTIVE-METHOD      */  /*      local entry for function STANDARD-COMPUTE-EFFECTIVE-METHOD      */
1050    
1051  static object LI20(V171,V172,V173)  static object LI20(V174,V175,V176)
1052    
1053  object V171;object V172;object V173;  object V174;object V175;object V176;
1054  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1055          goto TTL;          goto TTL;
1056  TTL:;  TTL:;
1057          {register object V174;          {register object V177;
1058          register object V175;          register object V178;
         register object V176;  
         register object V177;  
         V174= Cnil;  
         V175= Cnil;  
         V176= Cnil;  
         V177= Cnil;  
         {register object V178;  
1059          register object V179;          register object V179;
1060          V178= (V173);          register object V180;
1061          V179= CMPcar((V178));          V177= Cnil;
1062            V178= Cnil;
1063            V179= Cnil;
1064            V180= Cnil;
1065            {register object V181;
1066            register object V182;
1067            V181= (V176);
1068            V182= CMPcar((V181));
1069          goto T301;          goto T301;
1070  T301:;  T301:;
1071          if(!(((V178))==Cnil)){          if(!(((V181))==Cnil)){
1072          goto T302;}          goto T302;}
1073          goto T297;          goto T297;
1074          goto T302;          goto T302;
1075  T302:;  T302:;
1076          {register object V180;          {register object V183;
1077          if(!(type_of((V179))==t_cons||((V179))==Cnil)){          if(!(type_of((V182))==t_cons||((V182))==Cnil)){
1078          goto T309;}          goto T309;}
1079          V180= (*(LnkLI72))((V179));          V183= (*(LnkLI72))((V182));
1080          goto T307;          goto T307;
1081          goto T309;          goto T309;
1082  T309:;  T309:;
1083          base[1]= (V179);          base[1]= (V182);
1084          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1085          (void) (*Lnk73)(Lclptr73);          (void) (*Lnk73)(Lclptr73);
1086          vs_top=sup;          vs_top=sup;
1087          V180= vs_base[0];          V183= vs_base[0];
1088          goto T307;          goto T307;
1089  T307:;  T307:;
1090          {register object x= VV[30],V181= (V180);          {register object x= VV[30],V184= (V183);
1091          while(V181!=Cnil)          while(V184!=Cnil)
1092          if(eql(x,V181->c.c_car)){          if(eql(x,V184->c.c_car)){
1093          goto T314;          goto T314;
1094          }else V181=V181->c.c_cdr;          }else V184=V184->c.c_cdr;
1095          goto T313;}          goto T313;}
1096          goto T314;          goto T314;
1097  T314:;  T314:;
1098          V174= make_cons(V179,(V174));          V177= make_cons(V182,(V177));
1099          goto T306;          goto T306;
1100          goto T313;          goto T313;
1101  T313:;  T313:;
1102          {register object x= VV[31],V183= (V180);          {register object x= VV[31],V186= (V183);
1103          while(V183!=Cnil)          while(V186!=Cnil)
1104          if(eql(x,V183->c.c_car)){          if(eql(x,V186->c.c_car)){
1105          goto T318;          goto T318;
1106          }else V183=V183->c.c_cdr;          }else V186=V186->c.c_cdr;
1107          goto T317;}          goto T317;}
1108          goto T318;          goto T318;
1109  T318:;  T318:;
1110          V176= make_cons(V179,(V176));          V179= make_cons(V182,(V179));
1111          goto T306;          goto T306;
1112          goto T317;          goto T317;
1113  T317:;  T317:;
1114          {register object x= VV[32],V185= (V180);          {register object x= VV[32],V188= (V183);
1115          while(V185!=Cnil)          while(V188!=Cnil)
1116          if(eql(x,V185->c.c_car)){          if(eql(x,V188->c.c_car)){
1117          goto T322;          goto T322;
1118          }else V185=V185->c.c_cdr;          }else V188=V188->c.c_cdr;
1119          goto T321;}          goto T321;}
1120          goto T322;          goto T322;
1121  T322:;  T322:;
1122          V177= make_cons(V179,(V177));          V180= make_cons(V182,(V180));
1123          goto T306;          goto T306;
1124          goto T321;          goto T321;
1125  T321:;  T321:;
1126          V175= make_cons(V179,(V175));}          V178= make_cons(V182,(V178));}
1127          goto T306;          goto T306;
1128  T306:;  T306:;
1129          V178= CMPcdr((V178));          V181= CMPcdr((V181));
1130          V179= CMPcar((V178));          V182= CMPcar((V181));
1131          goto T301;}          goto T301;}
1132          goto T297;          goto T297;
1133  T297:;  T297:;
         V174= reverse((V174));  
         V176= reverse((V176));  
         V175= reverse((V175));  
1134          V177= reverse((V177));          V177= reverse((V177));
1135          if(((V175))!=Cnil){          V179= reverse((V179));
1136            V178= reverse((V178));
1137            V180= reverse((V180));
1138            if(((V178))!=Cnil){
1139          goto T339;}          goto T339;}
1140          {object V188 = list(3,VV[33],VV[34],list(2,VV[35],(V171)));          {object V191 = list(3,VV[33],VV[34],list(2,VV[35],(V174)));
1141          VMR18(V188)}          VMR18(V191)}
1142          goto T339;          goto T339;
1143  T339:;  T339:;
1144          if(((V174))!=Cnil){          if(((V177))!=Cnil){
1145          goto T342;}          goto T342;}
1146          if(((V176))!=Cnil){          if(((V179))!=Cnil){
1147          goto T342;}          goto T342;}
1148          if(((V177))!=Cnil){          if(((V180))!=Cnil){
1149          goto T342;}          goto T342;}
1150          {object V189 = list(3,VV[0],CMPcar((V175)),CMPcdr((V175)));          {object V192 = list(3,VV[0],CMPcar((V178)),CMPcdr((V178)));
1151          VMR18(V189)}          VMR18(V192)}
1152          goto T342;          goto T342;
1153  T342:;  T342:;
1154          {object V190;          {object V193;
1155          if(((V174))!=Cnil){          if(((V177))!=Cnil){
1156          goto T349;}          goto T349;}
1157          if(((V176))==Cnil){          if(((V179))==Cnil){
1158          goto T350;}          goto T350;}
1159          goto T349;          goto T349;
1160  T349:;  T349:;
1161          V191= (*(LnkLI74))((V174));          V194= (*(LnkLI74))((V177));
1162          V192= list(3,VV[29],/* INLINE-ARGS */V191,list(3,VV[0],CMPcar((V175)),CMPcdr((V175))));          V195= list(3,VV[29],/* INLINE-ARGS */V194,list(3,VV[0],CMPcar((V178)),CMPcdr((V178))));
1163          V193= reverse((V176));          V196= reverse((V179));
1164          V190= list(3,VV[36],/* INLINE-ARGS */V192,(*(LnkLI74))(/* INLINE-ARGS */V193));          V193= list(3,VV[36],/* INLINE-ARGS */V195,(*(LnkLI74))(/* INLINE-ARGS */V196));
1165          goto T348;          goto T348;
1166          goto T350;          goto T350;
1167  T350:;  T350:;
1168          V190= list(3,VV[0],CMPcar((V175)),CMPcdr((V175)));          V193= list(3,VV[0],CMPcar((V178)),CMPcdr((V178)));
1169          goto T348;          goto T348;
1170  T348:;  T348:;
1171          if(((V177))==Cnil){          if(((V180))==Cnil){
1172          goto T355;}          goto T355;}
1173          V194= CMPcar((V177));          V197= CMPcar((V180));
1174          V195= CMPcdr((V177));          V198= CMPcdr((V180));
1175          V196= list(2,VV[4],(V190));          V199= list(2,VV[4],(V193));
1176          V197= make_cons(/* INLINE-ARGS */V196,Cnil);          V200= make_cons(/* INLINE-ARGS */V199,Cnil);
1177          {object V198 = list(3,VV[0],/* INLINE-ARGS */V194,append(/* INLINE-ARGS */V195,/* INLINE-ARGS */V197));          {object V201 = list(3,VV[0],/* INLINE-ARGS */V197,append(/* INLINE-ARGS */V198,/* INLINE-ARGS */V200));
1178          VMR18(V198)}          VMR18(V201)}
1179          goto T355;          goto T355;
1180  T355:;  T355:;
1181          {object V199 = (V190);          {object V202 = (V193);
1182          VMR18(V199)}}}          VMR18(V202)}}}
1183          base[0]=base[0];          base[0]=base[0];
1184          return Cnil;          return Cnil;
1185  }  }
1186  /*      local entry for function COMPUTE-EFFECTIVE-METHOD       */  /*      local entry for function COMPUTE-EFFECTIVE-METHOD       */
1187    
1188  static object LI21(V203,V204,V205)  static object LI21(V206,V207,V208)
1189    
1190  object V203;object V204;object V205;  object V206;object V207;object V208;
1191  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1192          goto TTL;          goto TTL;
1193  TTL:;  TTL:;
1194          {object V206 = (*(LnkLI75))((V203),(V204),(V205));          {object V209 = (*(LnkLI75))((V206),(V207),(V208));
1195          VMR19(V206)}          VMR19(V209)}
1196          return Cnil;          return Cnil;
1197  }  }
1198  /*      function definition for INVALID-METHOD-ERROR    */  /*      function definition for INVALID-METHOD-ERROR    */
# Line 1198  static void L22() Line 1201  static void L22()
1201  {register object *base=vs_base;  {register object *base=vs_base;
1202          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1203          vs_check;          vs_check;
1204          {object V207;          {object V210;
1205          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1206          {object *p=vs_top;          {object *p=vs_top;
1207           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1208          V207=(base[0]);          V210=(base[0]);
1209          vs_top=sup;          vs_top=sup;
1210          base[1]= (VV[37]->s.s_dbind);          base[1]= (VV[37]->s.s_dbind);
1211          {object V208;          {object V211;
1212          V208= (V207);          V211= (V210);
1213           vs_top=base+2;           vs_top=base+2;
1214           while(V208!=Cnil)           while(V211!=Cnil)
1215           {vs_push((V208)->c.c_car);V208=(V208)->c.c_cdr;}           {vs_push((V211)->c.c_car);V211=(V211)->c.c_cdr;}
1216          vs_base=base+2;}          vs_base=base+2;}
1217          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1218                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1224  static void L23() Line 1227  static void L23()
1227  {register object *base=vs_base;  {register object *base=vs_base;
1228          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1229          vs_check;          vs_check;
1230          {object V209;          {object V212;
1231          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1232          {object *p=vs_top;          {object *p=vs_top;
1233           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1234          V209=(base[0]);          V212=(base[0]);
1235          vs_top=sup;          vs_top=sup;
1236          base[1]= (VV[38]->s.s_dbind);          base[1]= (VV[38]->s.s_dbind);
1237          {object V210;          {object V213;
1238          V210= (V209);          V213= (V212);
1239           vs_top=base+2;           vs_top=base+2;
1240           while(V210!=Cnil)           while(V213!=Cnil)
1241           {vs_push((V210)->c.c_car);V210=(V210)->c.c_cdr;}           {vs_push((V213)->c.c_car);V213=(V213)->c.c_cdr;}
1242          vs_base=base+2;}          vs_base=base+2;}
1243          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1244                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1251  register object *base0; Line 1254  register object *base0;
1254  {       register object *base=vs_base;  {       register object *base=vs_base;
1255          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1256          vs_check;          vs_check;
1257          {object V211;          {object V214;
1258          object V212;          object V215;
1259          check_arg(2);          check_arg(2);
1260          V211=(base[0]);          V214=(base[0]);
1261          V212=(base[1]);          V215=(base[1]);
1262          vs_top=sup;          vs_top=sup;
1263          {object V213;          {object V216;
1264          object V214;          object V217;
1265          {object V215;          {object V218;
1266          object V216= (base0[0]->c.c_car);          object V219= (base0[0]->c.c_car);
1267          if(V216==Cnil){          if(V219==Cnil){
1268          V213= Cnil;          V216= Cnil;
1269          goto T361;}          goto T361;}
1270          base[4]=V215=MMcons(Cnil,Cnil);          base[4]=V218=MMcons(Cnil,Cnil);
1271          goto T362;          goto T362;
1272  T362:;  T362:;
1273          {register object V217;          {register object V220;
1274          V217= (V216->c.c_car);          V220= (V219->c.c_car);
1275          if(!(type_of((V217))==t_cons)){          if(!(type_of((V220))==t_cons)){
1276          goto T365;}          goto T365;}
1277          {object V218= CMPcar((V217));          {object V221= CMPcar((V220));
1278          if((V218!= VV[26]))goto T367;          if((V221!= VV[26]))goto T367;
1279          base[5]= CMPcdr((V217));          base[5]= CMPcdr((V220));
1280          base[6]= (V211);          base[6]= (V214);
1281          base[7]= (V212);          base[7]= (V215);
1282          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1283          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1284                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1285                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1286                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1287          vs_top=sup;          vs_top=sup;
1288          (V215->c.c_car)= vs_base[0];          (V218->c.c_car)= vs_base[0];
1289          goto T363;          goto T363;
1290          goto T367;          goto T367;
1291  T367:;  T367:;
1292          if((V218!= VV[27]))goto T371;          if((V221!= VV[27]))goto T371;
1293          {object V219;          {object V222;
1294          object V220= CMPcdr((V217));          object V223= CMPcdr((V220));
1295          if(V220==Cnil){          if(V223==Cnil){
1296          (V215->c.c_car)= Cnil;          (V218->c.c_car)= Cnil;
1297          goto T363;}          goto T363;}
1298          base[5]=V219=MMcons(Cnil,Cnil);          base[5]=V222=MMcons(Cnil,Cnil);
1299          goto T372;          goto T372;
1300  T372:;  T372:;
1301          base[6]= (V211);          base[6]= (V214);
1302          base[7]= (V212);          base[7]= (V215);
1303          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1304          {object _funobj = (V220->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V223->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1305                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1306                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1307                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1308          vs_top=sup;          vs_top=sup;
1309          (V219->c.c_car)= vs_base[0];          (V222->c.c_car)= vs_base[0];
1310          if((V220=MMcdr(V220))==Cnil){          if((V223=MMcdr(V223))==Cnil){
1311          (V215->c.c_car)= base[5];          (V218->c.c_car)= base[5];
1312          goto T363;}          goto T363;}
1313          V219=MMcdr(V219)=MMcons(Cnil,Cnil);          V222=MMcdr(V222)=MMcons(Cnil,Cnil);
1314          goto T372;}          goto T372;}
1315          goto T371;          goto T371;
1316  T371:;  T371:;
1317          (V215->c.c_car)= (V217);          (V218->c.c_car)= (V220);
1318          goto T363;}          goto T363;}
1319          goto T365;          goto T365;
1320  T365:;  T365:;
1321          (V215->c.c_car)= (V217);}          (V218->c.c_car)= (V220);}
1322          goto T363;          goto T363;
1323  T363:;  T363:;
1324          if((V216=MMcdr(V216))==Cnil){          if((V219=MMcdr(V219))==Cnil){
1325          V213= base[4];          V216= base[4];
1326          goto T361;}          goto T361;}
1327          V215=MMcdr(V215)=MMcons(Cnil,Cnil);          V218=MMcdr(V218)=MMcons(Cnil,Cnil);
1328          goto T362;}          goto T362;}
1329          goto T361;          goto T361;
1330  T361:;  T361:;
1331          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
1332          {object V222;          {object V225;
1333          V222= (V213);          V225= (V216);
1334           vs_top=base+6;           vs_top=base+6;
1335           while(V222!=Cnil)           while(V225!=Cnil)
1336           {vs_push((V222)->c.c_car);V222=(V222)->c.c_cdr;}           {vs_push((V225)->c.c_car);V225=(V225)->c.c_cdr;}
1337          vs_base=base+6;}          vs_base=base+6;}
1338          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1339                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1342  T361:; Line 1345  T361:;
1345          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1346          (void) (*Lnk76)();          (void) (*Lnk76)();
1347          vs_top=sup;          vs_top=sup;
1348          V214= vs_base[0];          V217= vs_base[0];
1349          base[4]= (VFUN_NARGS=4,(*(LnkLI54))(VV[8],(V214),VV[7],(base0[2]->c.c_car)));          base[4]= (VFUN_NARGS=4,(*(LnkLI54))(VV[8],(V217),VV[7],(base0[2]->c.c_car)));
1350          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1351          return;}          return;}
1352          }          }
# Line 1355  register object *base0; Line 1358  register object *base0;
1358  {       register object *base=vs_base;  {       register object *base=vs_base;
1359          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
1360          vs_check;          vs_check;
1361          {object V223;          {object V226;
1362          check_arg(1);          check_arg(1);
1363          V223=(base[0]);          V226=(base[0]);
1364          vs_top=sup;          vs_top=sup;
1365          base[1]= (*(LnkLI77))((V223),(base0[4]->c.c_car));          base[1]= (*(LnkLI77))((V226),(base0[4]->c.c_car));
1366          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1367          return;          return;
1368          }          }
# Line 1371  register object *base0; Line 1374  register object *base0;
1374  {       register object *base=vs_base;  {       register object *base=vs_base;
1375          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1376          vs_check;          vs_check;
1377          {object V224;          {object V227;
1378          check_arg(1);          check_arg(1);
1379          V224=(base[0]);          V227=(base[0]);
1380          vs_top=sup;          vs_top=sup;
1381          base[1]= (V224);          base[1]= (V227);
1382          base[2]= (base0[4]->c.c_car);          base[2]= (base0[4]->c.c_car);
1383          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
1384          base[4]= (base0[3]->c.c_car);          base[4]= (base0[3]->c.c_car);
# Line 1393  register object *base0; Line 1396  register object *base0;
1396  {       register object *base=vs_base;  {       register object *base=vs_base;
1397          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
1398          vs_check;          vs_check;
1399          {object V225;          {object V228;
1400          check_arg(1);          check_arg(1);
1401          V225=(base[0]);          V228=(base[0]);
1402          vs_top=sup;          vs_top=sup;
1403          base[1]= (*(LnkLI79))((V225),(base0[4]->c.c_car),(base0[5]->c.c_car),(base0[6]->c.c_car));          base[1]= (*(LnkLI79))((V228),(base0[4]->c.c_car),(base0[5]->c.c_car),(base0[6]->c.c_car));
1404          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1405          return;          return;
1406          }          }
# Line 1409  register object *base0; Line 1412  register object *base0;
1412  {       register object *base=vs_base;  {       register object *base=vs_base;
1413          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1414          vs_check;          vs_check;
1415          {object V226;          {object V229;
1416          check_arg(1);          check_arg(1);
1417          V226=(base[0]);          V229=(base[0]);
1418          vs_top=sup;          vs_top=sup;
1419          V227= (*(LnkLI60))((base0[2]->c.c_car),(V226),(base0[1]->c.c_car),(base0[0]->c.c_car));          V230= (*(LnkLI60))((base0[2]->c.c_car),(V229),(base0[1]->c.c_car),(base0[0]->c.c_car));
1420          base[1]= ((VV[2])==(/* INLINE-ARGS */V227)?Ct:Cnil);          base[1]= ((VV[2])==(/* INLINE-ARGS */V230)?Ct:Cnil);
1421          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1422          return;          return;
1423          }          }
# Line 1426  register object *base0; Line 1429  register object *base0;
1429  {       register object *base=vs_base;  {       register object *base=vs_base;
1430          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1431          vs_check;          vs_check;
1432          {object V228;          {object V231;
1433          check_arg(1);          check_arg(1);
1434          V228=(base[0]);          V231=(base[0]);
1435          vs_top=sup;          vs_top=sup;
1436          V229= (*(LnkLI60))((base0[0]->c.c_car),(V228),(base0[1]->c.c_car),(base0[2]->c.c_car));          V232= (*(LnkLI60))((base0[0]->c.c_car),(V231),(base0[1]->c.c_car),(base0[2]->c.c_car));
1437          base[1]= ((VV[2])==(/* INLINE-ARGS */V229)?Ct:Cnil);          base[1]= ((VV[2])==(/* INLINE-ARGS */V232)?Ct:Cnil);
1438          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1439          return;          return;
1440          }          }
# Line 1443  register object *base0; Line 1446  register object *base0;
1446  {       register object *base=vs_base;  {       register object *base=vs_base;
1447          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1448          vs_check;          vs_check;
1449          {object V230;          {object V233;
1450          object V231;          object V234;
1451          check_arg(2);          check_arg(2);
1452          V230=(base[0]);          V233=(base[0]);
1453          V231=(base[1]);          V234=(base[1]);
1454          vs_top=sup;          vs_top=sup;
1455          base[2]= (base0[3]->c.c_car);          base[2]= (base0[3]->c.c_car);
1456          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
1457          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
1458          base[5]= (base0[2]->c.c_car);          base[5]= (base0[2]->c.c_car);
1459          base[6]= (V230);          base[6]= (V233);
1460          base[7]= (V231);          base[7]= (V234);
1461          vs_top=(vs_base=base+2)+6;          vs_top=(vs_base=base+2)+6;
1462          (void) (*Lnk52)();          (void) (*Lnk52)();
1463          return;          return;

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

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