/[gcl]/gcl/lsp/arraylib.c
ViewVC logotype

Diff of /gcl/lsp/arraylib.c

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

revision 1.8 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.9 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 1221  T344:; Line 1221  T344:;
1221          vs_top=sup;          vs_top=sup;
1222          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1223          goto T342;}          goto T342;}
1224          base[0]= (V191);          {object V204;
1225          vs_top=(vs_base=base+0)+1;          base[1]= (V191);
1226            vs_top=(vs_base=base+1)+1;
1227          Lfill_pointer();          Lfill_pointer();
1228          vs_top=sup;          vs_top=sup;
1229          V204= vs_base[0];          V204= vs_base[0];
1230          V193= ON_STACK_CONS(V204,(V193));          V193= ON_STACK_CONS((V204),(V193));}
1231          V193= ON_STACK_CONS(VV[11],(V193));          V193= ON_STACK_CONS(VV[11],(V193));
1232  goto T342;  goto T342;
1233  T342:;  T342:;
# Line 1237  T342:; Line 1238  T342:;
1238          V194= vs_base[0];          V194= vs_base[0];
1239          if(((V194))==(Ct)){          if(((V194))==(Ct)){
1240          goto T362;}          goto T362;}
1241          V193= ON_STACK_CONS((V194),(V193));          V193= ON_STACK_CONS(V194,(V193));
1242          V193= ON_STACK_CONS(VV[8],(V193));          V193= ON_STACK_CONS(VV[8],(V193));
1243  goto T362;  goto T362;
1244  T362:;  T362:;
1245          {register object x= VV[14],V205= (V193);          {register object x= VV[14],V208= (V193);
1246          while(!endp(V205))          while(!endp(V208))
1247          if(eql(x,V205->c.c_car)){          if(eql(x,V208->c.c_car)){
1248          goto T368;          goto T368;
1249          }else V205=V205->c.c_cdr;}          }else V208=V208->c.c_cdr;}
1250          base[0]= (V191);          {object V209;
1251          vs_top=(vs_base=base+0)+1;          base[1]= (V191);
1252            vs_top=(vs_base=base+1)+1;
1253          (void) (*Lnk31)();          (void) (*Lnk31)();
1254          vs_top=sup;          vs_top=sup;
1255          V206= vs_base[0];          V209= vs_base[0];
1256          V193= ON_STACK_CONS(V206,(V193));          V193= ON_STACK_CONS((V209),(V193));}
1257          V193= ON_STACK_CONS(VV[14],(V193));          V193= ON_STACK_CONS(VV[14],(V193));
1258  goto T368;  goto T368;
1259  T368:;  T368:;
1260          {register object V207;          {register object V211;
1261          base[0]= (V192);          base[0]= (V192);
1262          base[1]= VV[15];          base[1]= VV[15];
1263          base[2]= Ct;          base[2]= Ct;
1264          {object V208;          {object V212;
1265          V208= (V193);          V212= (V193);
1266           vs_top=base+3;           vs_top=base+3;
1267           while(!endp(V208))           while(!endp(V212))
1268           {vs_push(car(V208));V208=cdr(V208);}           {vs_push(car(V212));V212=cdr(V212);}
1269          vs_base=base+0;}          vs_base=base+0;}
1270          (void) (*Lnk28)();          (void) (*Lnk28)();
1271          vs_top=sup;          vs_top=sup;
1272          V207= vs_base[0];          V211= vs_base[0];
1273          if((cdr((V192)))==Cnil){          if((cdr((V192)))==Cnil){
1274          goto T382;}          goto T382;}
1275          V209= cdr((V192));          V213= cdr((V192));
1276          V210= (*(LnkLI32))((V191));          V214= (*(LnkLI32))((V191));
1277          if(!(equal(/* INLINE-ARGS */V209,cdr(/* INLINE-ARGS */V210)))){          if(!(equal(/* INLINE-ARGS */V213,cdr(/* INLINE-ARGS */V214)))){
1278          goto T383;}          goto T383;}
1279          if(!(((V194))==(VV[16]))){          if(!(((V194))==(VV[16]))){
1280          goto T382;}          goto T382;}
# Line 1280  T368:; Line 1282  T368:;
1282          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1283          Llast();          Llast();
1284          vs_top=sup;          vs_top=sup;
1285          V211= vs_base[0];          V215= vs_base[0];
1286          {int V212= fix(car(V211));          {int V216= fix(car(V215));
1287          if(!((0)==((long)(V212>=0&&(8)>0?(V212)%(8):imod(V212,8))))){          if(!((0)==((long)(V216>=0&&(8)>0?(V216)%(8):imod(V216,8))))){
1288          goto T383;}}          goto T383;}}
1289  goto T382;  goto T382;
1290  T382:;  T382:;
1291          base[0]= (V191);          base[0]= (V191);
1292          base[1]= (V207);          base[1]= (V211);
1293          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
1294          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
1295          base[5]= (V207);          base[5]= (V211);
1296          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1297          (void) (*Lnk33)();          (void) (*Lnk33)();
1298          vs_top=sup;          vs_top=sup;
1299          V213= vs_base[0];          V217= vs_base[0];
1300          base[5]= (V191);          base[5]= (V191);
1301          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1302          (void) (*Lnk33)();          (void) (*Lnk33)();
1303          vs_top=sup;          vs_top=sup;
1304          V214= vs_base[0];          V218= vs_base[0];
1305          base[4]= (number_compare(V213,V214)<=0?(V213):V214);          base[4]= (number_compare(V217,V218)<=0?(V217):V218);
1306          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1307          (void) (*Lnk34)();          (void) (*Lnk34)();
1308          vs_top=sup;          vs_top=sup;
1309          goto T381;          goto T381;
1310  goto T383;  goto T383;
1311  T383:;  T383:;
1312          {register object V215;          {register object V219;
1313          base[0]= make_fixnum((long)length((V192)));          base[0]= make_fixnum((long)length((V192)));
1314          base[1]= VV[7];          base[1]= VV[7];
1315          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
1316          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1317          Lmake_list();          Lmake_list();
1318          vs_top=sup;          vs_top=sup;
1319          V215= vs_base[0];          V219= vs_base[0];
1320  goto T407;  goto T407;
1321  T407:;  T407:;
1322          base[0]= (V191);          base[0]= (V191);
1323          {object V216;          {object V220;
1324          V216= (V215);          V220= (V219);
1325           vs_top=base+1;           vs_top=base+1;
1326           while(!endp(V216))           while(!endp(V220))
1327           {vs_push(car(V216));V216=cdr(V216);}           {vs_push(car(V220));V220=cdr(V220);}
1328          vs_base=base+0;}          vs_base=base+0;}
1329          (void) (*Lnk35)();          (void) (*Lnk35)();
1330          vs_top=sup;          vs_top=sup;
1331          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1332          goto T410;}          goto T410;}
1333          base[0]= (V207);          base[0]= (V211);
1334          base[2]= (V191);          base[2]= (V191);
1335          {object V217;          {object V221;
1336          V217= (V215);          V221= (V219);
1337           vs_top=base+3;           vs_top=base+3;
1338           while(!endp(V217))           while(!endp(V221))
1339           {vs_push(car(V217));V217=cdr(V217);}           {vs_push(car(V221));V221=cdr(V221);}
1340          vs_base=base+2;}          vs_base=base+2;}
1341          Laref();          Laref();
1342          vs_top=sup;          vs_top=sup;
1343          base[1]= vs_base[0];          base[1]= vs_base[0];
1344          base[2]= (V215);          base[2]= (V219);
1345          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1346          (void) (*Lnk26)();          (void) (*Lnk26)();
1347          vs_top=sup;          vs_top=sup;
1348  goto T410;  goto T410;
1349  T410:;  T410:;
1350          if(((*(LnkLI27))((V215),(V192)))==Cnil){          if(((*(LnkLI27))((V219),(V192)))==Cnil){
1351          goto T420;}          goto T420;}
1352          goto T381;          goto T381;
1353  goto T420;  goto T420;
# Line 1354  T420:; Line 1356  T420:;
1356  goto T381;  goto T381;
1357  T381:;  T381:;
1358          base[0]= (V191);          base[0]= (V191);
1359          base[1]= (V207);          base[1]= (V211);
1360          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1361          siLreplace_array();          siLreplace_array();
1362          vs_top=sup;          vs_top=sup;
# Line 1392  T440:; Line 1394  T440:;
1394          vs_top=sup;          vs_top=sup;
1395  goto T430;  goto T430;
1396  T430:;  T430:;
1397          {object V218 = (V191);          {object V222 = (V191);
1398          VMR25(V218)}}}          VMR25(V222)}}}
1399          va_end(ap);          va_end(ap);
1400          base[0]=base[0];          base[0]=base[0];
1401          return Cnil;}          return Cnil;}

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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