diff options
| -rw-r--r-- | generic/tclStringObj.c | 7 |
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. */ { |