summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclStringObj.c7
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index bd07208..659ef41 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.22 2001/12/28 23:36:31 dgp Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.23 2002/01/08 17:14:38 dgp Exp $ */
#include "tclInt.h"
@@ -287,7 +287,7 @@ Tcl_DbNewStringObj(bytes, length, file, line)
/*
*---------------------------------------------------------------------------
*
- * TclNewUnicodeObj --
+ * Tcl_NewUnicodeObj --
*
* This procedure is creates a new String object and initializes
* it from the given Unicode String. If the Utf String is the same size
@@ -595,8 +595,7 @@ Tcl_GetUnicodeFromObj(objPtr, lengthPtr)
Tcl_Obj *
Tcl_GetRange(objPtr, first, last)
-
- Tcl_Obj *objPtr; /* The Tcl object to find the range of. */
+ Tcl_Obj *objPtr; /* The Tcl object to find the range of. */
int first; /* First index of the range. */
int last; /* Last index of the range. */
{