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

Diff of /gcl/cmpnew/cmpvs.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, Sun Feb 9 22:35:14 2003 UTC
# Line 135  TTL:; Line 135  TTL:;
135  }  }
136  /*      local entry for function WT-CLINK       */  /*      local entry for function WT-CLINK       */
137    
138  static object LI7(va_alist)  static object LI7(object first,...)
         va_dcl  
139  {        {      
140          va_list ap;          va_list ap;
141          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
142          {object V25;          {object V25;
143          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
144          va_start(ap);          va_start(ap,first);
145          narg = narg - 0;          narg = narg - 0;
146          if (narg <= 0) goto T48;          if (narg <= 0) goto T48;
147          else {          else {
148          V25= va_arg(ap,object);}          V25= first;}
149          --narg; goto T49;          --narg; goto T49;
150  goto T48;  goto T48;
151  T48:;  T48:;
# Line 222  T67:; Line 221  T67:;
221          goto T60;}          goto T60;}
222          return Cnil;          return Cnil;
223  }  }
224  static object  LnkTLI12(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[12],(void **)&LnkLI12,1,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* WT1 */
225  static object  LnkTLI11(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[11],(void **)&LnkLI11,1,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI11(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[11],(void **)&LnkLI11,1,first,ap);va_end(ap);return V1;} /* WT-VS */
226    
227  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
228  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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