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

Diff of /gcl/cmpnew/cmpeval.c

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

revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 228  TTL:; Line 228  TTL:;
228          V39= car((V38));          V39= car((V38));
229  goto T58;  goto T58;
230  T58:;  T58:;
231          if(!(endp((V38)))){          if(!(endp_prop((V38)))){
232          goto T59;}          goto T59;}
233          goto T54;          goto T54;
234  goto T59;  goto T59;
# Line 367  TTL:; Line 367  TTL:;
367          V52= car((V51));          V52= car((V51));
368  goto T106;  goto T106;
369  T106:;  T106:;
370          if(!(endp((V51)))){          if(!(endp_prop((V51)))){
371          goto T107;}          goto T107;}
372          base[3]= Cnil;          base[3]= Cnil;
373          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 380  T107:; Line 380  T107:;
380          V54= car((V53));          V54= car((V53));
381  goto T115;  goto T115;
382  T115:;  T115:;
383          if(!(endp((V53)))){          if(!(endp_prop((V53)))){
384          goto T116;}          goto T116;}
385          goto T111;          goto T111;
386  goto T116;  goto T116;
# Line 458  static void L11() Line 458  static void L11()
458          V59= car((V58));          V59= car((V58));
459  goto T162;  goto T162;
460  T162:;  T162:;
461          if(!(endp((V58)))){          if(!(endp_prop((V58)))){
462          goto T163;}          goto T163;}
463          goto T158;          goto T158;
464  goto T163;  goto T163;
# Line 559  T201:; Line 559  T201:;
559          V70= car((V69));          V70= car((V69));
560  goto T213;  goto T213;
561  T213:;  T213:;
562          if(!(endp((V69)))){          if(!(endp_prop((V69)))){
563          goto T214;}          goto T214;}
564          goto T209;          goto T209;
565  goto T214;  goto T214;
566  T214:;  T214:;
567          if(!(endp((V67)))){          if(!(endp_prop((V67)))){
568          goto T220;}          goto T220;}
569          V68= make_cons((V70),(V68));          V68= make_cons((V70),(V68));
570          goto T218;          goto T218;
# Line 733  T288:; Line 733  T288:;
733          goto T294;}          goto T294;}
734          if(!(type_of(cdr((V62)))==t_fixnum)){          if(!(type_of(cdr((V62)))==t_fixnum)){
735          goto T294;}          goto T294;}
736          if(endp((V61))){          if(endp_prop((V61))){
737          goto T294;}          goto T294;}
738          if(!(endp(cdr((V61))))){          if(!(endp_prop(cdr((V61))))){
739          goto T294;}          goto T294;}
740          {object V83= car((V62));          {object V83= car((V62));
741          if((V83!= VV[46]))goto T307;          if((V83!= VV[46]))goto T307;
# Line 794  T315:; Line 794  T315:;
794          V93= (V61);          V93= (V61);
795  goto T328;  goto T328;
796  T328:;  T328:;
797          if(!(endp((V91)))){          if(!(endp_prop((V91)))){
798          goto T329;}          goto T329;}
799          V87= reverse((V92));          V87= reverse((V92));
800          goto T323;          goto T323;
801  goto T329;  goto T329;
802  T329:;  T329:;
803          if(!(endp((V90)))){          if(!(endp_prop((V90)))){
804          goto T336;}          goto T336;}
805          V92= make_cons(car((V91)),(V92));          V92= make_cons(car((V91)),(V92));
806          goto T334;          goto T334;
# Line 828  T323:; Line 828  T323:;
828          V98= (V61);          V98= (V61);
829  goto T353;  goto T353;
830  T353:;  T353:;
831          if(endp((V96))){          if(endp_prop((V96))){
832          goto T355;}          goto T355;}
833          if(!(endp((V97)))){          if(!(endp_prop((V97)))){
834          goto T354;}          goto T354;}
835  goto T355;  goto T355;
836  T355:;  T355:;
# Line 943  T369:; Line 943  T369:;
943  goto T421;  goto T421;
944  T421:;  T421:;
945          (V112->c.c_car)= structure_ref(cadr((V113->c.c_car)),VV[25],2);          (V112->c.c_car)= structure_ref(cadr((V113->c.c_car)),VV[25],2);
946          if(endp(V113=MMcdr(V113))){          V113=MMcdr(V113);
947            if(endp(V113)){
948          base[5]= base[6];          base[5]= base[6];
949          goto T420;}          goto T420;}
950          V112=MMcdr(V112)=MMcons(Cnil,Cnil);          V112=MMcdr(V112)=MMcons(Cnil,Cnil);
# Line 1287  goto TTL; Line 1288  goto TTL;
1288  TTL:;  TTL:;
1289          {register object V169;          {register object V169;
1290          V169= Cnil;          V169= Cnil;
1291          if(!(endp((V168)))){          if(!(endp_prop((V168)))){
1292          goto T562;}          goto T562;}
1293          {object V170 = (*(LnkLI125))();          {object V170 = (*(LnkLI125))();
1294          VMR20(V170)}          VMR20(V170)}
1295  goto T562;  goto T562;
1296  T562:;  T562:;
1297          if(!(endp(cdr((V168))))){          if(!(endp_prop(cdr((V168))))){
1298          goto T565;}          goto T565;}
1299          {object V171 = (*(LnkLI123))(car((V168)));          {object V171 = (*(LnkLI123))(car((V168)));
1300          VMR20(V171)}          VMR20(V171)}
# Line 1307  T565:; Line 1308  T565:;
1308          V174= car((V173));          V174= car((V173));
1309  goto T572;  goto T572;
1310  T572:;  T572:;
1311          if(!(endp((V173)))){          if(!(endp_prop((V173)))){
1312          goto T573;}          goto T573;}
1313          goto T568;          goto T568;
1314  goto T573;  goto T573;
# Line 1358  TTL:; Line 1359  TTL:;
1359          V183= (V182);          V183= (V182);
1360  goto T592;  goto T592;
1361  T592:;  T592:;
1362          if(!(endp(cdr((V183))))){          if(!(endp_prop(cdr((V183))))){
1363          goto T593;}          goto T593;}
1364          base[1]= car((V183));          base[1]= car((V183));
1365          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1411  TTL:; Line 1412  TTL:;
1412  goto T616;  goto T616;
1413  T616:;  T616:;
1414          (V188->c.c_car)= (*(LnkLI169))((V189->c.c_car),(V187));          (V188->c.c_car)= (*(LnkLI169))((V189->c.c_car),(V187));
1415          if(endp(V189=MMcdr(V189))){          V189=MMcdr(V189);
1416            if(endp(V189)){
1417          {object V192 = base[0];          {object V192 = base[0];
1418          VMR23(V192)}}          VMR23(V192)}}
1419          V188=MMcdr(V188)=MMcons(Cnil,Cnil);          V188=MMcdr(V188)=MMcons(Cnil,Cnil);
# Line 1429  goto TTL; Line 1431  goto TTL;
1431  TTL:;  TTL:;
1432          if((symbol_value(VV[69]))!=Cnil){          if((symbol_value(VV[69]))!=Cnil){
1433          goto T619;}          goto T619;}
1434          if(endp((V194))){          if(endp_prop((V194))){
1435          goto T619;}          goto T619;}
1436          if(endp(cdr((V194)))){          if(endp_prop(cdr((V194)))){
1437          goto T619;}          goto T619;}
1438          if(!(type_of(cadr((V194)))==t_cons)){          if(!(type_of(cadr((V194)))==t_cons)){
1439          goto T619;}          goto T619;}
1440          if(!((caadr((V194)))==(VV[35]))){          if(!((caadr((V194)))==(VV[35]))){
1441          goto T619;}          goto T619;}
1442          if(endp(cdadr((V194)))){          if(endp_prop(cdadr((V194)))){
1443          goto T619;}          goto T619;}
1444          if(!(type_of(cadadr((V194)))==t_symbol)){          if(!(type_of(cadadr((V194)))==t_symbol)){
1445          goto T619;}          goto T619;}
1446          if(!(endp(cddadr((V194))))){          if(!(endp_prop(cddadr((V194))))){
1447          goto T619;}          goto T619;}
1448          if(endp(cddr((V194)))){          if(endp_prop(cddr((V194)))){
1449          goto T619;}          goto T619;}
1450          if(!(type_of(caddr((V194)))==t_fixnum)){          if(!(type_of(caddr((V194)))==t_fixnum)){
1451          goto T619;}          goto T619;}
1452          if(!(endp(cdddr((V194))))){          if(!(endp_prop(cdddr((V194))))){
1453          goto T619;}          goto T619;}
1454          {object V195 = (*(LnkLI149))(car((V194)),cadadr((V194)),caddr((V194)));          {object V195 = (*(LnkLI149))(car((V194)),cadadr((V194)),caddr((V194)));
1455          VMR24(V195)}          VMR24(V195)}
# Line 1622  goto TTL; Line 1624  goto TTL;
1624  TTL:;  TTL:;
1625          {register object V275;          {register object V275;
1626          V275= (VFUN_NARGS=0,(*(LnkLI127))());          V275= (VFUN_NARGS=0,(*(LnkLI127))());
1627          if(endp((V274))){          if(endp_prop((V274))){
1628          goto T683;}          goto T683;}
1629          if((symbol_value(VV[69]))!=Cnil){          if((symbol_value(VV[69]))!=Cnil){
1630          goto T683;}          goto T683;}
1631          if(endp(cdr((V274)))){          if(endp_prop(cdr((V274)))){
1632          goto T683;}          goto T683;}
1633          if(!(type_of(cadr((V274)))==t_cons)){          if(!(type_of(cadr((V274)))==t_cons)){
1634          goto T683;}          goto T683;}
1635          if(!((caadr((V274)))==(VV[35]))){          if(!((caadr((V274)))==(VV[35]))){
1636          goto T683;}          goto T683;}
1637          if(endp(cdadr((V274)))){          if(endp_prop(cdadr((V274)))){
1638          goto T683;}          goto T683;}
1639          if(!(type_of(cadadr((V274)))==t_symbol)){          if(!(type_of(cadadr((V274)))==t_symbol)){
1640          goto T683;}          goto T683;}
1641          if(!(endp(cddadr((V274))))){          if(!(endp_prop(cddadr((V274))))){
1642          goto T683;}          goto T683;}
1643          if(endp(cddr((V274)))){          if(endp_prop(cddr((V274)))){
1644          goto T683;}          goto T683;}
1645          if(!(type_of(caddr((V274)))==t_fixnum)){          if(!(type_of(caddr((V274)))==t_fixnum)){
1646          goto T683;}          goto T683;}
1647          if(endp(cdddr((V274)))){          if(endp_prop(cdddr((V274)))){
1648          goto T683;}          goto T683;}
1649          if(!(endp(cddddr((V274))))){          if(!(endp_prop(cddddr((V274))))){
1650          goto T683;}          goto T683;}
1651          {object V276;          {object V276;
1652          object V277;          object V277;
# Line 1934  static void L34() Line 1936  static void L34()
1936          V357= car((V356));          V357= car((V356));
1937  goto T801;  goto T801;
1938  T801:;  T801:;
1939          if(!(endp((V356)))){          if(!(endp_prop((V356)))){
1940          goto T802;}          goto T802;}
1941          goto T797;          goto T797;
1942  goto T802;  goto T802;
# Line 1995  T797:; Line 1997  T797:;
1997  goto T832;  goto T832;
1998  T832:;  T832:;
1999          (V364->c.c_car)= list(3,VV[113],list(2,VV[35],(V365->c.c_car)),(V366->c.c_car));          (V364->c.c_car)= list(3,VV[113],list(2,VV[35],(V365->c.c_car)),(V366->c.c_car));
2000          if(endp(V365=MMcdr(V365))||endp(V366=MMcdr(V366))){          V365=MMcdr(V365);
2001            V366=MMcdr(V366);
2002            if(endp(V365)||endp(V366)){
2003          V363= base[6];          V363= base[6];
2004          goto T831;}          goto T831;}
2005          V364=MMcdr(V364)=MMcons(Cnil,Cnil);          V364=MMcdr(V364)=MMcons(Cnil,Cnil);

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

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