From aefd943b5a7fc71cd4d4c29bf00fdab11d62e0b6 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 8 Jan 2002 17:14:37 +0000 Subject: * typos and formatting FossilOrigin-Name: c8ce36dee8b35ddaa4191af6f1fcf724b0ebf77e --- generic/tclStringObj.c | 7 +++---- 1 file 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. */ { -- cgit v0.12