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

Diff of /gcl/cmpnew/cmputil.c

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

revision 1.9 by camm, Wed Feb 26 22:21:35 2003 UTC revision 1.9.4.1 by camm, Wed Jul 16 02:02:48 2003 UTC
# Line 811  T222:; Line 811  T222:;
811          base[0]=base[0];          base[0]=base[0];
812          return Cnil;          return Cnil;
813  }  }
814  static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* COMPILER-DEF-HOOK */  static object  LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* COMPILER-DEF-HOOK */
815  static void LnkT63(){ call_or_link(VV[63],(void **)&Lnk63);} /* ERROR-SET */  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* ERROR-SET */
816  static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* IHS-TOP */  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* IHS-TOP */
817  static object  LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* ADD-MACRO-CALLEE */  static object  LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* ADD-MACRO-CALLEE */
818  static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* CMP-TOPLEVEL-EVAL */  static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* CMP-TOPLEVEL-EVAL */
819  static object  LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)&LnkLI59,first,ap);va_end(ap);return V1;} /* BREAK */  static object  LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* BREAK */
820  static object  LnkTLI58(){return call_proc0(VV[58],(void **)&LnkLI58);} /* PRINT-CURRENT-FORM */  static object  LnkTLI58(){return call_proc0(VV[58],(void **)(void *)&LnkLI58);} /* PRINT-CURRENT-FORM */
821    
822  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
823  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.4.1

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