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

Diff of /gcl/lsp/seq.c

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

revision 1.6 by camm, Sat Sep 21 23:15:14 2002 UTC revision 1.7 by camm, Tue Sep 24 14:47:01 2002 UTC
# Line 112  T39:; Line 112  T39:;
112          VMR1(V12)}          VMR1(V12)}
113  goto T33;  goto T33;
114  T33:;  T33:;
115          base[0]= Cnil;          if((car((V3)))==(VV[10])){
116          base[1]= VV[10];          goto T45;}
         base[2]= caddr((V3));  
         vs_top=(vs_base=base+0)+3;  
         Lformat();  
         vs_top=sup;  
117          if((car((V3)))==(VV[11])){          if((car((V3)))==(VV[11])){
118          goto T51;}          goto T45;}
119          if(!((car((V3)))==(VV[12]))){          base[0]= VV[12];
120          goto T50;}          base[1]= (V3);
121  goto T51;          vs_top=(vs_base=base+0)+2;
122  T51:;          Lerror();
123            vs_top=sup;
124    goto T45;
125    T45:;
126          if(!(type_of(car(caddr((V3))))==t_fixnum)){          if(!(type_of(car(caddr((V3))))==t_fixnum)){
127          goto T49;}          goto T52;}
128  goto T50;          if(equal(car(caddr((V3))),(V4))){
129  T50:;          goto T52;}
130          base[0]= VV[13];          base[0]= VV[13];
131          base[1]= (V3);          base[1]= (V3);
132          vs_top=(vs_base=base+0)+2;          base[2]= (V4);
133            vs_top=(vs_base=base+0)+3;
134          Lerror();          Lerror();
135          vs_top=sup;          vs_top=sup;
136  goto T49;  goto T52;
137  T49:;{object V13;  T52:;{object V13;
138          V13= cadr((V3));          V13= cadr((V3));
139          if(V13==Cnil)goto T58;          if(V13==Cnil)goto T60;
140          V7= V13;          V7= V13;
141          goto T5;          goto T5;
142  goto T58;  goto T60;
143  T58:;}  T60:;}
144          V7= Ct;          V7= Ct;
145  goto T5;  goto T5;
146  T5:;  T5:;
# Line 157  T5:; Line 157  T5:;
157          vs_top=sup;          vs_top=sup;
158          V8= vs_base[0];          V8= vs_base[0];
159          if(((V6))==Cnil){          if(((V6))==Cnil){
160          goto T71;}          goto T73;}
161          {register long V14;          {register long V14;
162          register long V15;          register long V15;
163          V14= 0;          V14= 0;
164          V15= fix((V4));          V15= fix((V4));
165  goto T77;  goto T79;
166  T77:;  T79:;
167          if(!((V14)>=(V15))){          if(!((V14)>=(V15))){
168          goto T78;}          goto T80;}
169          goto T71;          goto T73;
170  goto T78;  goto T80;
171  T78:;  T80:;
172          (void)(elt_set((V8),V14,(V5)));          (void)(elt_set((V8),V14,(V5)));
173          V14= (long)(V14)+1;          V14= (long)(V14)+1;
174          goto T77;}          goto T79;}
175  goto T71;  goto T73;
176  T71:;  T73:;
177          {object V16 = (V8);          {object V16 = (V8);
178          VMR1(V16)}}          VMR1(V16)}}
179          va_end(ap);          va_end(ap);
# Line 205  static object LI2(V17,va_alist) Line 205  static object LI2(V17,va_alist)
205          object V27= (V19);          object V27= (V19);
206          if(endp(V27)){          if(endp(V27)){
207          V25= Cnil;          V25= Cnil;
208          goto T88;}          goto T90;}
209          base[0]=V26=MMcons(Cnil,Cnil);          base[0]=V26=MMcons(Cnil,Cnil);
210  goto T89;  goto T91;
211  T89:;  T91:;
212          base[1]= (V27->c.c_car);          base[1]= (V27->c.c_car);
213          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
214          Llength();          Llength();
# Line 216  T89:; Line 216  T89:;
216          (V26->c.c_car)= vs_base[0];          (V26->c.c_car)= vs_base[0];
217          if(endp(V27=MMcdr(V27))){          if(endp(V27=MMcdr(V27))){
218          V25= base[0];          V25= base[0];
219          goto T88;}          goto T90;}
220          V26=MMcdr(V26)=MMcons(Cnil,Cnil);          V26=MMcdr(V26)=MMcons(Cnil,Cnil);
221          goto T89;}          goto T91;}
222  goto T88;  goto T90;
223  T88:;  T90:;
224           vs_top=base+0;           vs_top=base+0;
225           while(!endp(V25))           while(!endp(V25))
226           {vs_push(car(V25));V25=cdr(V25);}           {vs_push(car(V25));V25=cdr(V25);}
# Line 231  T88:; Line 231  T88:;
231          V21= (VFUN_NARGS=2,(*(LnkLI17))((V18),V24));          V21= (VFUN_NARGS=2,(*(LnkLI17))((V18),V24));
232          V23= 0;          V23= 0;
233          V22= (V19);          V22= (V19);
234  goto T94;  goto T96;
235  T94:;  T96:;
236          if(((V22))!=Cnil){          if(((V22))!=Cnil){
237          goto T95;}          goto T97;}
238          {object V28 = (V21);          {object V28 = (V21);
239          VMR2(V28)}          VMR2(V28)}
240  goto T95;  goto T97;
241  T95:;  T97:;
242          {register long V29;          {register long V29;
243          register long V30;          register long V30;
244          V29= 0;          V29= 0;
245          V30= (long)length(car((V22)));          V30= (long)length(car((V22)));
246  goto T103;  goto T105;
247  T103:;  T105:;
248          if(!((V29)>=(V30))){          if(!((V29)>=(V30))){
249          goto T104;}          goto T106;}
250          goto T99;          goto T101;
251  goto T104;  goto T106;
252  T104:;  T106:;
253          V31= elt(car((V22)),V29);          V31= elt(car((V22)),V29);
254          (void)(elt_set((V21),V23,/* INLINE-ARGS */V31));          (void)(elt_set((V21),V23,/* INLINE-ARGS */V31));
255          V23= (long)(V23)+(1);          V23= (long)(V23)+(1);
256          V29= (long)(V29)+1;          V29= (long)(V29)+1;
257          goto T103;}          goto T105;}
258  goto T99;  goto T101;
259  T99:;  T101:;
260          V22= cdr((V22));          V22= cdr((V22));
261          goto T94;}          goto T96;}
262          va_end(ap);          va_end(ap);
263          base[0]=base[0];          base[0]=base[0];
264          return Cnil;}          return Cnil;}
# Line 291  static object LI3(V34,V33,V32,va_alist) Line 291  static object LI3(V34,V33,V32,va_alist)
291          object V43= (V38);          object V43= (V38);
292          if(endp(V43)){          if(endp(V43)){
293          V41= Cnil;          V41= Cnil;
294          goto T120;}          goto T122;}
295          base[0]=V42=MMcons(Cnil,Cnil);          base[0]=V42=MMcons(Cnil,Cnil);
296  goto T121;  goto T123;
297  T121:;  T123:;
298          base[1]= (V43->c.c_car);          base[1]= (V43->c.c_car);
299          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
300          Llength();          Llength();
# Line 302  T121:; Line 302  T121:;
302          (V42->c.c_car)= vs_base[0];          (V42->c.c_car)= vs_base[0];
303          if(endp(V43=MMcdr(V43))){          if(endp(V43=MMcdr(V43))){
304          V41= base[0];          V41= base[0];
305          goto T120;}          goto T122;}
306          V42=MMcdr(V42)=MMcons(Cnil,Cnil);          V42=MMcdr(V42)=MMcons(Cnil,Cnil);
307          goto T121;}          goto T123;}
308  goto T120;  goto T122;
309  T120:;  T122:;
310           vs_top=base+0;           vs_top=base+0;
311           while(!endp(V41))           while(!endp(V41))
312           {vs_push(car(V41));V41=cdr(V41);}           {vs_push(car(V41));V41=cdr(V41);}
# Line 315  T120:; Line 315  T120:;
315          vs_top=sup;          vs_top=sup;
316          V40= vs_base[0];          V40= vs_base[0];
317          if(((V35))!=Cnil){          if(((V35))!=Cnil){
318          goto T125;}          goto T127;}
319          {register long V44;          {register long V44;
320          long V45;          long V45;
321          V44= 0;          V44= 0;
322          V45= fix((V40));          V45= fix((V40));
323  goto T130;  goto T132;
324  T130:;  T132:;
325          if(!((V44)>=(V45))){          if(!((V44)>=(V45))){
326          goto T131;}          goto T133;}
327          {object V46 = Cnil;          {object V46 = Cnil;
328          VMR3(V46)}          VMR3(V46)}
329  goto T131;  goto T133;
330  T131:;  T133:;
331          base[0]= (V36);          base[0]= (V36);
332          {object V47;          {object V47;
333          {object V48;          {object V48;
334          object V49= (V38);          object V49= (V38);
335          if(endp(V49)){          if(endp(V49)){
336          V47= Cnil;          V47= Cnil;
337          goto T137;}          goto T139;}
338          base[1]=V48=MMcons(Cnil,Cnil);          base[1]=V48=MMcons(Cnil,Cnil);
339  goto T138;  goto T140;
340  T138:;  T140:;
341          {register object V50;          {register object V50;
342          V50= (V49->c.c_car);          V50= (V49->c.c_car);
343          (V48->c.c_car)= elt((V50),V44);}          (V48->c.c_car)= elt((V50),V44);}
344          if(endp(V49=MMcdr(V49))){          if(endp(V49=MMcdr(V49))){
345          V47= base[1];          V47= base[1];
346          goto T137;}          goto T139;}
347          V48=MMcdr(V48)=MMcons(Cnil,Cnil);          V48=MMcdr(V48)=MMcons(Cnil,Cnil);
348          goto T138;}          goto T140;}
349  goto T137;  goto T139;
350  T137:;  T139:;
351           vs_top=base+1;           vs_top=base+1;
352           while(!endp(V47))           while(!endp(V47))
353           {vs_push(car(V47));V47=cdr(V47);}           {vs_push(car(V47));V47=cdr(V47);}
# Line 355  T137:; Line 355  T137:;
355          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
356          vs_top=sup;          vs_top=sup;
357          V44= (long)(V44)+1;          V44= (long)(V44)+1;
358          goto T130;}          goto T132;}
359  goto T125;  goto T127;
360  T125:;  T127:;
361          {register object V51;          {register object V51;
362          V51= (VFUN_NARGS=2,(*(LnkLI17))((V35),(V40)));          V51= (VFUN_NARGS=2,(*(LnkLI17))((V35),(V40)));
363          {register long V52;          {register long V52;
364          long V53;          long V53;
365          V52= 0;          V52= 0;
366          V53= fix((V40));          V53= fix((V40));
367  goto T147;  goto T149;
368  T147:;  T149:;
369          if(!((V52)>=(V53))){          if(!((V52)>=(V53))){
370          goto T148;}          goto T150;}
371          {object V54 = (V51);          {object V54 = (V51);
372          VMR3(V54)}          VMR3(V54)}
373  goto T148;  goto T150;
374  T148:;  T150:;
375          base[0]= (V36);          base[0]= (V36);
376          {object V56;          {object V56;
377          {object V57;          {object V57;
378          object V58= (V38);          object V58= (V38);
379          if(endp(V58)){          if(endp(V58)){
380          V56= Cnil;          V56= Cnil;
381          goto T155;}          goto T157;}
382          base[1]=V57=MMcons(Cnil,Cnil);          base[1]=V57=MMcons(Cnil,Cnil);
383  goto T156;  goto T158;
384  T156:;  T158:;
385          {register object V59;          {register object V59;
386          V59= (V58->c.c_car);          V59= (V58->c.c_car);
387          (V57->c.c_car)= elt((V59),V52);}          (V57->c.c_car)= elt((V59),V52);}
388          if(endp(V58=MMcdr(V58))){          if(endp(V58=MMcdr(V58))){
389          V56= base[1];          V56= base[1];
390          goto T155;}          goto T157;}
391          V57=MMcdr(V57)=MMcons(Cnil,Cnil);          V57=MMcdr(V57)=MMcons(Cnil,Cnil);
392          goto T156;}          goto T158;}
393  goto T155;  goto T157;
394  T155:;  T157:;
395           vs_top=base+1;           vs_top=base+1;
396           while(!endp(V56))           while(!endp(V56))
397           {vs_push(car(V56));V56=cdr(V56);}           {vs_push(car(V56));V56=cdr(V56);}
# Line 401  T155:; Line 401  T155:;
401          V55= vs_base[0];          V55= vs_base[0];
402          (void)(elt_set((V51),V52,V55));          (void)(elt_set((V51),V52,V55));
403          V52= (long)(V52)+1;          V52= (long)(V52)+1;
404          goto T147;}}}          goto T149;}}}
405          va_end(ap);          va_end(ap);
406          base[0]=base[0];          base[0]=base[0];
407          return Cnil;}          return Cnil;}
# Line 434  static object LI4(V61,V60,va_alist) Line 434  static object LI4(V61,V60,va_alist)
434          object V70= (V64);          object V70= (V64);
435          if(endp(V70)){          if(endp(V70)){
436          V68= Cnil;          V68= Cnil;
437          goto T165;}          goto T167;}
438          base[0]=V69=MMcons(Cnil,Cnil);          base[0]=V69=MMcons(Cnil,Cnil);
439  goto T166;  goto T168;
440  T166:;  T168:;
441          base[1]= (V70->c.c_car);          base[1]= (V70->c.c_car);
442          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
443          Llength();          Llength();
# Line 445  T166:; Line 445  T166:;
445          (V69->c.c_car)= vs_base[0];          (V69->c.c_car)= vs_base[0];
446          if(endp(V70=MMcdr(V70))){          if(endp(V70=MMcdr(V70))){
447          V68= base[0];          V68= base[0];
448          goto T165;}          goto T167;}
449          V69=MMcdr(V69)=MMcons(Cnil,Cnil);          V69=MMcdr(V69)=MMcons(Cnil,Cnil);
450          goto T166;}          goto T168;}
451  goto T165;  goto T167;
452  T165:;  T167:;
453           vs_top=base+0;           vs_top=base+0;
454           while(!endp(V68))           while(!endp(V68))
455           {vs_push(car(V68));V68=cdr(V68);}           {vs_push(car(V68));V68=cdr(V68);}
# Line 457  T165:; Line 457  T165:;
457          Lmin();          Lmin();
458          vs_top=sup;          vs_top=sup;
459          V67= fix(vs_base[0]);          V67= fix(vs_base[0]);
460  goto T170;  goto T172;
461  T170:;  T172:;
462          if(!((V66)>=(V67))){          if(!((V66)>=(V67))){
463          goto T171;}          goto T173;}
464          {object V71 = Cnil;          {object V71 = Cnil;
465          VMR4(V71)}          VMR4(V71)}
466  goto T171;  goto T173;
467  T171:;  T173:;
468          {register object V72;          {register object V72;
469          base[0]= (V62);          base[0]= (V62);
470          {object V73;          {object V73;
# Line 472  T171:; Line 472  T171:;
472          object V75= (V64);          object V75= (V64);
473          if(endp(V75)){          if(endp(V75)){
474          V73= Cnil;          V73= Cnil;
475          goto T178;}          goto T180;}
476          base[1]=V74=MMcons(Cnil,Cnil);          base[1]=V74=MMcons(Cnil,Cnil);
477  goto T179;  goto T181;
478  T179:;  T181:;
479          {register object V76;          {register object V76;
480          V76= (V75->c.c_car);          V76= (V75->c.c_car);
481          (V74->c.c_car)= elt((V76),V66);}          (V74->c.c_car)= elt((V76),V66);}
482          if(endp(V75=MMcdr(V75))){          if(endp(V75=MMcdr(V75))){
483          V73= base[1];          V73= base[1];
484          goto T178;}          goto T180;}
485          V74=MMcdr(V74)=MMcons(Cnil,Cnil);          V74=MMcdr(V74)=MMcons(Cnil,Cnil);
486          goto T179;}          goto T181;}
487  goto T178;  goto T180;
488  T178:;  T180:;
489           vs_top=base+1;           vs_top=base+1;
490           while(!endp(V73))           while(!endp(V73))
491           {vs_push(car(V73));V73=cdr(V73);}           {vs_push(car(V73));V73=cdr(V73);}
# Line 494  T178:; Line 494  T178:;
494          vs_top=sup;          vs_top=sup;
495          V72= vs_base[0];          V72= vs_base[0];
496          if(((V72))==Cnil){          if(((V72))==Cnil){
497          goto T175;}          goto T177;}
498          {object V77 = (V72);          {object V77 = (V72);
499          VMR4(V77)}}          VMR4(V77)}}
500  goto T175;  goto T177;
501  T175:;  T177:;
502          V66= (long)(V66)+1;          V66= (long)(V66)+1;
503          goto T170;}          goto T172;}
504          va_end(ap);          va_end(ap);
505          base[0]=base[0];          base[0]=base[0];
506          return Cnil;}          return Cnil;}
# Line 533  static object LI5(V79,V78,va_alist) Line 533  static object LI5(V79,V78,va_alist)
533          object V88= (V82);          object V88= (V82);
534          if(endp(V88)){          if(endp(V88)){
535          V86= Cnil;          V86= Cnil;
536          goto T190;}          goto T192;}
537          base[0]=V87=MMcons(Cnil,Cnil);          base[0]=V87=MMcons(Cnil,Cnil);
538  goto T191;  goto T193;
539  T191:;  T193:;
540          base[1]= (V88->c.c_car);          base[1]= (V88->c.c_car);
541          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
542          Llength();          Llength();
# Line 544  T191:; Line 544  T191:;
544          (V87->c.c_car)= vs_base[0];          (V87->c.c_car)= vs_base[0];
545          if(endp(V88=MMcdr(V88))){          if(endp(V88=MMcdr(V88))){
546          V86= base[0];          V86= base[0];
547          goto T190;}          goto T192;}
548          V87=MMcdr(V87)=MMcons(Cnil,Cnil);          V87=MMcdr(V87)=MMcons(Cnil,Cnil);
549          goto T191;}          goto T193;}
550  goto T190;  goto T192;
551  T190:;  T192:;
552           vs_top=base+0;           vs_top=base+0;
553           while(!endp(V86))           while(!endp(V86))
554           {vs_push(car(V86));V86=cdr(V86);}           {vs_push(car(V86));V86=cdr(V86);}
# Line 556  T190:; Line 556  T190:;
556          Lmin();          Lmin();
557          vs_top=sup;          vs_top=sup;
558          V85= fix(vs_base[0]);          V85= fix(vs_base[0]);
559  goto T195;  goto T197;
560  T195:;  T197:;
561          if(!((V84)>=(V85))){          if(!((V84)>=(V85))){
562          goto T196;}          goto T198;}
563          {object V89 = Ct;          {object V89 = Ct;
564          VMR5(V89)}          VMR5(V89)}
565  goto T196;  goto T198;
566  T196:;  T198:;
567          base[0]= (V80);          base[0]= (V80);
568          {object V90;          {object V90;
569          {object V91;          {object V91;
570          object V92= (V82);          object V92= (V82);
571          if(endp(V92)){          if(endp(V92)){
572          V90= Cnil;          V90= Cnil;
573          goto T204;}          goto T206;}
574          base[1]=V91=MMcons(Cnil,Cnil);          base[1]=V91=MMcons(Cnil,Cnil);
575  goto T205;  goto T207;
576  T205:;  T207:;
577          {register object V93;          {register object V93;
578          V93= (V92->c.c_car);          V93= (V92->c.c_car);
579          (V91->c.c_car)= elt((V93),V84);}          (V91->c.c_car)= elt((V93),V84);}
580          if(endp(V92=MMcdr(V92))){          if(endp(V92=MMcdr(V92))){
581          V90= base[1];          V90= base[1];
582          goto T204;}          goto T206;}
583          V91=MMcdr(V91)=MMcons(Cnil,Cnil);          V91=MMcdr(V91)=MMcons(Cnil,Cnil);
584          goto T205;}          goto T207;}
585  goto T204;  goto T206;
586  T204:;  T206:;
587           vs_top=base+1;           vs_top=base+1;
588           while(!endp(V90))           while(!endp(V90))
589           {vs_push(car(V90));V90=cdr(V90);}           {vs_push(car(V90));V90=cdr(V90);}
# Line 591  T204:; Line 591  T204:;
591          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
592          vs_top=sup;          vs_top=sup;
593          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
594          goto T200;}          goto T202;}
595          {object V94 = Cnil;          {object V94 = Cnil;
596          VMR5(V94)}          VMR5(V94)}
597  goto T200;  goto T202;
598  T200:;  T202:;
599          V84= (long)(V84)+1;          V84= (long)(V84)+1;
600          goto T195;}          goto T197;}
601          va_end(ap);          va_end(ap);
602          base[0]=base[0];          base[0]=base[0];
603          return Cnil;}          return Cnil;}

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

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