Remove TCL_VARARGS* usage

flightaware · Oct 31, 2023 · 543ca78 · 543ca78
1 parent db8f0de
commit 543ca78
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/generic/tclExtend.h b/generic/tclExtend.h
@@ -97,7 +97,7 @@ EXTERN void	TclX_SplitWinCmdLine (int *argcPtr, char ***argvPtr);
 /*
  * Exported utility functions.
  */
-EXTERN void	TclX_AppendObjResult TCL_VARARGS_DEF(Tcl_Interp *, interpArg);
+EXTERN void	TclX_AppendObjResult (Tcl_Interp *interp, ...);
 
 EXTERN char *	TclX_DownShift (char *targetStr, CONST char *sourceStr);
 

diff --git a/generic/tclXutil.c b/generic/tclXutil.c
@@ -791,22 +791,20 @@ TclX_WrongArgs (Tcl_Interp *interp, Tcl_Obj *commandNameObj, char *string)
  *-----------------------------------------------------------------------------
  */
 void
-TclX_AppendObjResult TCL_VARARGS_DEF (Tcl_Interp *, arg1)
+TclX_AppendObjResult (Tcl_Interp *interp, ...)
 {
-    Tcl_Interp *interp;
     Tcl_Obj *resultPtr;
     va_list argList;
     char *string;
 
-    interp = TCL_VARARGS_START (Tcl_Interp *, arg1, argList);
     resultPtr = Tcl_GetObjResult (interp);
 
     if (Tcl_IsShared(resultPtr)) {
         resultPtr = Tcl_NewStringObj((char *)NULL, 0);
         Tcl_SetObjResult(interp, resultPtr);
     }
 
-    TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
+    va_start(argList, interp);
     while (1) {
         string = va_arg(argList, char *);
         if (string == NULL) {