/[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.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:59 2002 UTC
# Line 153  T69:; Line 153  T69:;
153  goto T70;  goto T70;
154  T70:;  T70:;
155          (void)(elt_set((V8),V14,(V5)));          (void)(elt_set((V8),V14,(V5)));
156          V14= (V14)+1;          V14= (long)(V14)+1;
157          goto T69;}          goto T69;}
158  goto T63;  goto T63;
159  T63:;  T63:;
# Line 225  T87:; Line 225  T87:;
225          {register long V29;          {register long V29;
226          register long V30;          register long V30;
227          V29= 0;          V29= 0;
228          V30= length(car((V22)));          V30= (long)length(car((V22)));
229  goto T95;  goto T95;
230  T95:;  T95:;
231          if(!((V29)>=(V30))){          if(!((V29)>=(V30))){
# Line 235  goto T96; Line 235  goto T96;
235  T96:;  T96:;
236          V31= elt(car((V22)),V29);          V31= elt(car((V22)),V29);
237          (void)(elt_set((V21),V23,/* INLINE-ARGS */V31));          (void)(elt_set((V21),V23,/* INLINE-ARGS */V31));
238          V23= (V23)+(1);          V23= (long)(V23)+(1);
239          V29= (V29)+1;          V29= (long)(V29)+1;
240          goto T95;}          goto T95;}
241  goto T91;  goto T91;
242  T91:;  T91:;
# Line 337  T129:; Line 337  T129:;
337          vs_base=base+1;}          vs_base=base+1;}
338          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
339          vs_top=sup;          vs_top=sup;
340          V44= (V44)+1;          V44= (long)(V44)+1;
341          goto T122;}          goto T122;}
342  goto T117;  goto T117;
343  T117:;  T117:;
# Line 383  T147:; Line 383  T147:;
383          vs_top=sup;          vs_top=sup;
384          V55= vs_base[0];          V55= vs_base[0];
385          (void)(elt_set((V51),V52,V55));          (void)(elt_set((V51),V52,V55));
386          V52= (V52)+1;          V52= (long)(V52)+1;
387          goto T139;}}}          goto T139;}}}
388          va_end(ap);          va_end(ap);
389          base[0]=base[0];          base[0]=base[0];
# Line 482  T170:; Line 482  T170:;
482          VMR4(V77)}}          VMR4(V77)}}
483  goto T167;  goto T167;
484  T167:;  T167:;
485          V66= (V66)+1;          V66= (long)(V66)+1;
486          goto T162;}          goto T162;}
487          va_end(ap);          va_end(ap);
488          base[0]=base[0];          base[0]=base[0];
# Line 579  T196:; Line 579  T196:;
579          VMR5(V94)}          VMR5(V94)}
580  goto T192;  goto T192;
581  T192:;  T192:;
582          V84= (V84)+1;          V84= (long)(V84)+1;
583          goto T187;}          goto T187;}
584          va_end(ap);          va_end(ap);
585          base[0]=base[0];          base[0]=base[0];
# Line 659  static object LI7(V105,V104,va_alist) Line 659  static object LI7(V105,V104,va_alist)
659          }          }
660  static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* EVERY */  static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* EVERY */
661  static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SOME */  static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SOME */
662  static object  LnkTLI15(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[15],(void **)&LnkLI15,ap);} /* MAKE-SEQUENCE */  static object  LnkTLI15(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[15],(void **)&LnkLI15,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
663  static object  LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],(void **)&LnkLI14,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI14(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[14],(void **)&LnkLI14,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
664  static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI13(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[13],(void **)&LnkLI13,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
665    
666  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
667  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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