/[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.7 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.8 by camm, Sun Feb 9 22:35:14 2003 UTC
# Line 4  Line 4 
4  void init_cmpwt(){do_init(VV);}  void init_cmpwt(){do_init(VV);}
5  /*      local entry for function WT-COMMENT     */  /*      local entry for function WT-COMMENT     */
6    
7  static object LI1(V1,va_alist)  static object LI1(object V1,object first,...)
         object V1;  
         va_dcl  
8  {        {      
9          va_list ap;          va_list ap;
10          int narg = VFUN_NARGS; VMB1 VMS1 VMV1          int narg = VFUN_NARGS; VMB1 VMS1 VMV1
11          {object V2;          {object V2;
12          object V3;          object V3;
13          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
14          va_start(ap);          va_start(ap,first);
15          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
16          V2= V1;          V2= V1;
17          narg = narg - 1;          narg = narg - 1;
18          if (narg <= 0) goto T1;          if (narg <= 0) goto T1;
19          else {          else {
20          V3= va_arg(ap,object);}          V3= first;}
21          --narg; goto T2;          --narg; goto T2;
22  goto T1;  goto T1;
23  T1:;  T1:;
# Line 261  T64:; Line 259  T64:;
259  }  }
260  /*      local entry for function ADD-INIT       */  /*      local entry for function ADD-INIT       */
261    
262  static object LI7(V32,va_alist)  static object LI7(object V32,object first,...)
         object V32;  
         va_dcl  
263  {        {      
264          va_list ap;          va_list ap;
265          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
266          {object V33;          {object V33;
267          object V34;          object V34;
268          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
269          va_start(ap);          va_start(ap,first);
270          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
271          V33= V32;          V33= V32;
272          narg = narg - 1;          narg = narg - 1;
273          if (narg <= 0) goto T85;          if (narg <= 0) goto T85;
274          else {          else {
275          V34= va_arg(ap,object);}          V34= first;}
276          --narg; goto T86;          --narg; goto T86;
277  goto T85;  goto T85;
278  T85:;  T85:;
# Line 780  T325:; Line 776  T325:;
776          V106= car((V105));          V106= car((V105));
777          goto T320;}          goto T320;}
778  }  }
779  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 */  static object  LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[55],(void **)&LnkLI55,first,ap);va_end(ap);return V1;} /* CONCATENATE */
780  static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */  static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */
781  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 */
782  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 */
783  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 */  static object  LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* WT-DATA1 */
784  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 */
785  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 */  static object  LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* COERCE */
786  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 */  static object  LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)&LnkLI48,1,first,ap);va_end(ap);return V1;} /* VERIFY-DATA-VECTOR */
787  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 */  static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)&LnkLI47,first,ap);va_end(ap);return V1;} /* CMPWARN */
788  static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */  static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */
789  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 */  static object  LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)&LnkLI45,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
790  static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */  static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */
791  static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */  static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */
792    

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

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