* generic/tcl.h: Explicitly standardized on the use of stdarg.h

        * generic/tclBasic.c:   conventions for functions with variable number
        * generic/tclInt.h:     of arguments.  Support for varargs.h has been
        * generic/tclPanic.c:   implicitly gone for some time now.  All
        * generic/tclResult.c:  TCL_VARARGS* macros purged from Tcl sources,
        * generic/tclStringObj.c:       leaving only some deprecated #define's
        * tools/genStubs.tcl:   in tcl.h for the sake of older extensions.

        * generic/tclDecls.h:   make genstubs

        * doc/AddErrInfo.3:     Replaced all documented requirement for use
        * doc/Eval.3:           of TCL_VARARGS_START() with requirement for
        * doc/Panic.3:          use of va_start().
        * doc/SetResult.3:
        * doc/StringObj.3:

1 files changed, 9 insertions, 8 deletions

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index dd1a2eb..0b2cdb2 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -33,7 +33,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStringObj.c,v 1.43 2005/09/12 14:31:15 dgp Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.44 2005/09/13 21:23:51 dgp Exp $ */
 
 #include "tclInt.h"
 
@@ -1662,12 +1662,11 @@ Tcl_AppendStringsToObjVA (objPtr, argList)
  */
 
 void
-Tcl_AppendStringsToObj TCL_VARARGS_DEF(Tcl_Obj *,arg1)
+Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...)
 {
-    register Tcl_Obj *objPtr;
     va_list argList;
 
-    objPtr = TCL_VARARGS_START(Tcl_Obj *,arg1,argList);
+    va_start(argList, objPtr);
     Tcl_AppendStringsToObjVA(objPtr, argList);
     va_end(argList);
 }
@@ -2260,11 +2259,12 @@ FormatObjVA(interp, argList)
  */
 
 int
-TclFormatObj TCL_VARARGS_DEF(Tcl_Interp *,arg1)
+TclFormatObj(Tcl_Interp *interp, ...)
 {
     va_list argList;
     int result;
-    Tcl_Interp *interp = TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
+
+    va_start(argList, interp);
     result = FormatObjVA(interp, argList);
     va_end(argList);
     return result;
@@ -2384,11 +2384,12 @@ ObjPrintfVA(interp, argList)
  */
 
 int
-TclObjPrintf TCL_VARARGS_DEF(Tcl_Interp *,arg1)
+TclObjPrintf(Tcl_Interp *interp, ...)
 {
     va_list argList;
     int result;
-    Tcl_Interp *interp = TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
+
+    va_start(argList, interp);
     result = ObjPrintfVA(interp, argList);
     va_end(argList);
     return result;