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

Diff of /gcl/lsp/assert.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 84  T8:; Line 84  T8:;
84  goto T13;  goto T13;
85  T13:;  T13:;
86          (V11->c.c_car)= (*(LnkLI53))((V12->c.c_car));          (V11->c.c_car)= (*(LnkLI53))((V12->c.c_car));
87          if(endp(V12=MMcdr(V12))){          V12=MMcdr(V12);
88            if(endp(V12)){
89          V10= base[6];          V10= base[6];
90          goto T12;}          goto T12;}
91          V11=MMcdr(V11)=MMcons(Cnil,Cnil);          V11=MMcdr(V11)=MMcons(Cnil,Cnil);
# Line 149  T19:; Line 150  T19:;
150  goto T24;  goto T24;
151  T24:;  T24:;
152          (V26->c.c_car)= list(2,VV[3],(V27->c.c_car));          (V26->c.c_car)= list(2,VV[3],(V27->c.c_car));
153          if(endp(V27=MMcdr(V27))){          V27=MMcdr(V27);
154            if(endp(V27)){
155          (V22->c.c_cdr)= base[6];          (V22->c.c_cdr)= base[6];
156          goto T20;}          goto T20;}
157          V26=MMcdr(V26)=MMcons(Cnil,Cnil);          V26=MMcdr(V26)=MMcons(Cnil,Cnil);
# Line 160  T22:; Line 162  T22:;
162          (V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil);          (V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil);
163  goto T20;  goto T20;
164  T20:;  T20:;
165          while(!endp(MMcdr(V22)))V22=MMcdr(V22);          {object cdr_V22=MMcdr(V22);while(!endp(cdr_V22)) {cdr_V22=MMcdr(cdr_V22);V22=MMcdr(V22);}}
166          if(endp(V23=MMcdr(V23))){          V23=MMcdr(V23);
167            if(endp(V23)){
168          base[5]=base[5]->c.c_cdr;          base[5]=base[5]->c.c_cdr;
169          V21= base[5];          V21= base[5];
170          goto T18;}          goto T18;}
# Line 171  T18:; Line 174  T18:;
174          V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21));          V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21));
175  goto T27;  goto T27;
176  T27:;  T27:;
177          if(!(endp((V18)))){          if(!(endp_prop((V18)))){
178          goto T28;}          goto T28;}
179          V30= list(2,base[4],base[2]);          V30= list(2,base[4],base[2]);
180          base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19));          base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19));
# Line 237  T49:; Line 240  T49:;
240  goto T47;  goto T47;
241  T47:;  T47:;
242          (V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));}          (V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));}
243          if(endp(V38=MMcdr(V38))){          V38=MMcdr(V38);
244            if(endp(V38)){
245          V36= base[5];          V36= base[5];
246          goto T44;}          goto T44;}
247          V37=MMcdr(V37)=MMcons(Cnil,Cnil);          V37=MMcdr(V37)=MMcons(Cnil,Cnil);
# Line 265  T52:; Line 269  T52:;
269  goto T57;  goto T57;
270  T57:;  T57:;
271          (V48->c.c_car)= list(2,VV[3],(V49->c.c_car));          (V48->c.c_car)= list(2,VV[3],(V49->c.c_car));
272          if(endp(V49=MMcdr(V49))){          V49=MMcdr(V49);
273            if(endp(V49)){
274          (V44->c.c_cdr)= base[6];          (V44->c.c_cdr)= base[6];
275          goto T53;}          goto T53;}
276          V48=MMcdr(V48)=MMcons(Cnil,Cnil);          V48=MMcdr(V48)=MMcons(Cnil,Cnil);
# Line 276  T55:; Line 281  T55:;
281          (V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil);          (V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil);
282  goto T53;  goto T53;
283  T53:;  T53:;
284          while(!endp(MMcdr(V44)))V44=MMcdr(V44);          {object cdr_V44=MMcdr(V44);while(!endp(cdr_V44)) {cdr_V44=MMcdr(cdr_V44);V44=MMcdr(V44);}}
285          if(endp(V45=MMcdr(V45))){          V45=MMcdr(V45);
286            if(endp(V45)){
287          base[5]=base[5]->c.c_cdr;          base[5]=base[5]->c.c_cdr;
288          V43= base[5];          V43= base[5];
289          goto T51;}          goto T51;}
# Line 316  static void L6() Line 322  static void L6()
322          V58= Cnil;          V58= Cnil;
323  goto T62;  goto T62;
324  T62:;  T62:;
325          if(!(endp((V57)))){          if(!(endp_prop((V57)))){
326          goto T63;}          goto T63;}
327          V60= list(2,(V59),base[2]);          V60= list(2,(V59),base[2]);
328          base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58));          base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58));
# Line 371  static void L7() Line 377  static void L7()
377  goto T82;  goto T82;
378  T82:;  T82:;
379          (V67->c.c_car)= car((V68->c.c_car));          (V67->c.c_car)= car((V68->c.c_car));
380          if(endp(V68=MMcdr(V68))){          V68=MMcdr(V68);
381            if(endp(V68)){
382          V66= base[5];          V66= base[5];
383          goto T81;}          goto T81;}
384          V67=MMcdr(V67)=MMcons(Cnil,Cnil);          V67=MMcdr(V67)=MMcons(Cnil,Cnil);
# Line 381  T81:; Line 388  T81:;
388          V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66)));          V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66)));
389  goto T85;  goto T85;
390  T85:;  T85:;
391          if(!(endp((V63)))){          if(!(endp_prop((V63)))){
392          goto T86;}          goto T86;}
393          V70= list(2,base[4],base[2]);          V70= list(2,base[4],base[2]);
394          base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64));          base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64));
# Line 423  goto T97; Line 430  goto T97;
430  T97:;  T97:;
431          V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car))));          V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car))));
432          (V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car)))));          (V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car)))));
433          if(endp(V77=MMcdr(V77))){          V77=MMcdr(V77);
434            if(endp(V77)){
435          V75= base[5];          V75= base[5];
436          goto T96;}          goto T96;}
437          V76=MMcdr(V76)=MMcons(Cnil,Cnil);          V76=MMcdr(V76)=MMcons(Cnil,Cnil);
# Line 440  T96:; Line 448  T96:;
448  goto T100;  goto T100;
449  T100:;  T100:;
450          (V82->c.c_car)= car((V83->c.c_car));          (V82->c.c_car)= car((V83->c.c_car));
451          if(endp(V83=MMcdr(V83))){          V83=MMcdr(V83);
452            if(endp(V83)){
453          V81= base[5];          V81= base[5];
454          goto T99;}          goto T99;}
455          V82=MMcdr(V82)=MMcons(Cnil,Cnil);          V82=MMcdr(V82)=MMcons(Cnil,Cnil);
# Line 471  TTL:; Line 480  TTL:;
480          V97= Cnil;          V97= Cnil;
481  goto T107;  goto T107;
482  T107:;  T107:;
483          if(!(endp((V94)))){          if(!(endp_prop((V94)))){
484          goto T108;}          goto T108;}
485          goto T105;          goto T105;
486  goto T108;  goto T108;
# Line 503  T125:; Line 512  T125:;
512          V102= (V101->c.c_car);          V102= (V101->c.c_car);
513          V103= list(2,VV[25],(V102));          V103= list(2,VV[25],(V102));
514          V95= make_cons(/* INLINE-ARGS */V103,(V95));}          V95= make_cons(/* INLINE-ARGS */V103,(V95));}
515          if(endp(V101=MMcdr(V101))){          V101=MMcdr(V101);
516            if(endp(V101)){
517          (void)(cdar((V94)));          (void)(cdar((V94)));
518          goto T124;}          goto T124;}
519          goto T125;}          goto T125;}
# Line 534  goto T105; Line 544  goto T105;
544  T105:;  T105:;
545  goto T146;  goto T146;
546  T146:;  T146:;
547          if(!(endp((V96)))){          if(!(endp_prop((V96)))){
548          goto T147;}          goto T147;}
549          goto T144;          goto T144;
550  goto T147;  goto T147;
# Line 578  T144:; Line 588  T144:;
588  goto T177;  goto T177;
589  T177:;  T177:;
590          (V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car));          (V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car));
591          while(!endp(MMcdr(V110)))V110=MMcdr(V110);          {object cdr_V110=MMcdr(V110);while(!endp(cdr_V110)) {cdr_V110=MMcdr(cdr_V110);V110=MMcdr(V110);}}
592          if(endp(V111=MMcdr(V111))){          V111=MMcdr(V111);
593            if(endp(V111)){
594          base[6]=base[6]->c.c_cdr;          base[6]=base[6]->c.c_cdr;
595          base[5]= base[6];          base[5]= base[6];
596          goto T176;}          goto T176;}
# Line 598  T176:; Line 609  T176:;
609  goto T182;  goto T182;
610  T182:;  T182:;
611          (V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car));          (V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car));
612          while(!endp(MMcdr(V114)))V114=MMcdr(V114);          {object cdr_V114=MMcdr(V114);while(!endp(cdr_V114)) {cdr_V114=MMcdr(cdr_V114);V114=MMcdr(V114);}}
613          if(endp(V115=MMcdr(V115))){          V115=MMcdr(V115);
614            if(endp(V115)){
615          base[8]=base[8]->c.c_cdr;          base[8]=base[8]->c.c_cdr;
616          V113= base[8];          V113= base[8];
617          goto T181;}          goto T181;}
# Line 657  T185:; Line 669  T185:;
669          VMR10(V126)}          VMR10(V126)}
670  goto T194;  goto T194;
671  T194:;  T194:;
672          if(endp(cdr((V119)))){          if(endp_prop(cdr((V119)))){
673          goto T196;}          goto T196;}
674          if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){          if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){
675          goto T197;}          goto T197;}

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