TIP 422 implementation (rebase of branch novem-remove-va to trunk).

1 files changed, 7 insertions, 33 deletions

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 7c1d42b..12f1b50 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -1555,7 +1555,7 @@ AppendUtfToUtfRep(
 /*
  *----------------------------------------------------------------------
  *
- * Tcl_AppendStringsToObjVA --
+ * Tcl_AppendStringsToObj --
  *
  *	This function appends one or more null-terminated strings to an
  *	object.
@@ -1571,10 +1571,13 @@ AppendUtfToUtfRep(
  */
 
 void
-Tcl_AppendStringsToObjVA(
-    Tcl_Obj *objPtr,		/* Points to the object to append to. */
-    va_list argList)		/* Variable argument list. */
+Tcl_AppendStringsToObj(
+    Tcl_Obj *objPtr,
+    ...)
 {
+    va_list argList;
+
+    va_start(argList, objPtr);
     if (Tcl_IsShared(objPtr)) {
 	Tcl_Panic("%s called with shared object", "Tcl_AppendStringsToObj");
     }
@@ -1587,35 +1590,6 @@ Tcl_AppendStringsToObjVA(
 	}
 	Tcl_AppendToObj(objPtr, bytes, -1);
     }
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tcl_AppendStringsToObj --
- *
- *	This function appends one or more null-terminated strings to an
- *	object.
- *
- * Results:
- *	None.
- *
- * Side effects:
- *	The contents of all the string arguments are appended to the string
- *	representation of objPtr.
- *
- *----------------------------------------------------------------------
- */
-
-void
-Tcl_AppendStringsToObj(
-    Tcl_Obj *objPtr,
-    ...)
-{
-    va_list argList;
-
-    va_start(argList, objPtr);
-    Tcl_AppendStringsToObjVA(objPtr, argList);
     va_end(argList);
 }