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

Diff of /gcl/cmpnew/cmpwt.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:58 2002 UTC
# Line 34  T2:; Line 34  T2:;
34          V4= symbol_name((V3));          V4= symbol_name((V3));
35          {register long V5;          {register long V5;
36          register long V6;          register long V6;
37          V5= length((V4));          V5= (long)length((V4));
38          V6= 0;          V6= 0;
39  goto T13;  goto T13;
40  T13:;  T13:;
# Line 55  T14:; Line 55  T14:;
55          (void)(princ(code_char(V7),symbol_value(VV[0])));}          (void)(princ(code_char(V7),symbol_value(VV[0])));}
56  goto T18;  goto T18;
57  T18:;  T18:;
58          V6= (V6)+1;          V6= (long)(V6)+1;
59          goto T13;}}          goto T13;}}
60  goto T6;  goto T6;
61  T6:;  T6:;
# Line 227  TTL:; Line 227  TTL:;
227          V27= Cnil;          V27= Cnil;
228          {register object V28;          {register object V28;
229          register object V29;          register object V29;
230          V28= make_fixnum(length((V26)));          V28= make_fixnum((long)length((V26)));
231          V29= small_fixnum(0);          V29= small_fixnum(0);
232  goto T68;  goto T68;
233  T68:;  T68:;
# Line 330  TTL:; Line 330  TTL:;
330          V42= (*(LnkLI49))(/* INLINE-ARGS */V43,VV[23]);          V42= (*(LnkLI49))(/* INLINE-ARGS */V43,VV[23]);
331          (void)((*(LnkLI48))((V42)));          (void)((*(LnkLI48))((V42)));
332          V44= car(symbol_value(VV[6]));          V44= car(symbol_value(VV[6]));
333          V45 = make_fixnum(length(car(symbol_value(VV[6]))));          V45 = make_fixnum((long)length(car(symbol_value(VV[6]))));
334          V46= number_minus(V45,small_fixnum(1));          V46= number_minus(V45,small_fixnum(1));
335          V47= make_cons(VV[24],(V42));          V47= make_cons(VV[24],(V42));
336          (void)(aset1(/* INLINE-ARGS */V44,fixint(/* INLINE-ARGS */V46),/* INLINE-ARGS */V47));          (void)(aset1(/* INLINE-ARGS */V44,fixint(/* INLINE-ARGS */V46),/* INLINE-ARGS */V47));
# Line 766  T313:; Line 766  T313:;
766          V105= car((V104));          V105= car((V104));
767          goto T308;}          goto T308;}
768  }  }
769  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],(void **)&LnkLI55,ap);} /* CONCATENATE */  static object  LnkTLI55(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[55],(void **)&LnkLI55,ap);va_end(ap);return V1;} /* CONCATENATE */
770  static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */  static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */
771  static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* WRITE-FASD-TOP */  static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* WRITE-FASD-TOP */
772  static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* FIND-SHARING-TOP */  static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* FIND-SHARING-TOP */
773  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,1,ap);} /* WT-DATA1 */  static object  LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[51],(void **)&LnkLI51,1,ap);va_end(ap);return V1;} /* WT-DATA1 */
774  static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* WT-FASD-DATA-FILE */  static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* WT-FASD-DATA-FILE */
775  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* COERCE */  static object  LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,2,ap);va_end(ap);return V1;} /* COERCE */
776  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],(void **)&LnkLI48,1,ap);} /* VERIFY-DATA-VECTOR */  static object  LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[48],(void **)&LnkLI48,1,ap);va_end(ap);return V1;} /* VERIFY-DATA-VECTOR */
777  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[47],(void **)&LnkLI47,ap);} /* CMPWARN */  static object  LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[47],(void **)&LnkLI47,ap);va_end(ap);return V1;} /* CMPWARN */
778  static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */  static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */
779  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],(void **)&LnkLI45,ap);} /* VECTOR-PUSH-EXTEND */  static object  LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[45],(void **)&LnkLI45,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
780  static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */  static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */
781  static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */  static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */
782    

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