diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2005-04-01 15:17:11 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2005-04-01 15:17:11 (GMT) |
| commit | 6af319a4c405de1b2dfc0a50fae2a55c36685aa2 (patch) | |
| tree | 175a0f96f6fed2f8eef96b66efb1724c690cb68c /generic/tclStringObj.c | |
| parent | 3af633e3589428102a6f2bde211d84a4a3253449 (diff) | |
| download | tcl-6af319a4c405de1b2dfc0a50fae2a55c36685aa2.zip tcl-6af319a4c405de1b2dfc0a50fae2a55c36685aa2.tar.gz tcl-6af319a4c405de1b2dfc0a50fae2a55c36685aa2.tar.bz2 | |
* generic/tclExecute.c:
* generic/tclInt.h:
* generic/tclObj.c:
* generic/tclStringObj.c: defined new internal macros for creating
and setting frequently used obj types (int,long, wideInt, double,
string). Changed TEBC to use eg 'TclNewIntObj(objPtr, i)' to avoid
the function call in 'objPtr = Tcl_NewIntObj(i)'
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 6ed3570..9d01456 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.35 2004/09/29 22:17:29 dkf Exp $ */ + * RCS: @(#) $Id: tclStringObj.c,v 1.36 2005/04/01 15:17:26 msofer Exp $ */ #include "tclInt.h" @@ -208,8 +208,7 @@ Tcl_NewStringObj(bytes, length) if (length < 0) { length = (bytes? strlen(bytes) : 0); } - TclNewObj(objPtr); - TclInitStringRep(objPtr, bytes, length); + TclNewStringObj(objPtr, bytes, length); return objPtr; } #endif /* TCL_MEM_DEBUG */ |