diff options
| author | nijtmans <nijtmans> | 2008-12-16 23:24:13 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-12-16 23:24:13 (GMT) |
| commit | 1d90238ed304fdd70f1a56dfc4f94a7add80c736 (patch) | |
| tree | 692c37174e83ec64e5f20f728d49cea200dae3f3 /generic/tclExecute.c | |
| parent | 74318119b04effffec948581aa1004b23fdd6c3b (diff) | |
| download | tcl-1d90238ed304fdd70f1a56dfc4f94a7add80c736.zip tcl-1d90238ed304fdd70f1a56dfc4f94a7add80c736.tar.gz tcl-1d90238ed304fdd70f1a56dfc4f94a7add80c736.tar.bz2 | |
eliminate -Wwrite-strings warnings in enable-threads build.
use TclNewLiteralStringObj()
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 058f93f..ed656d5 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.421 2008/12/16 15:50:47 ferrieux Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.422 2008/12/16 23:24:13 nijtmans Exp $ */ #include "tclInt.h" @@ -2879,7 +2879,7 @@ TclExecuteByteCode( Tcl_Panic("TclExecuteByteCode: unrecognized builtin function code %d", opnd); } - objPtr = Tcl_NewStringObj("::tcl::mathfunc::", 17); + TclNewLiteralStringObj(objPtr, "::tcl::mathfunc::"); Tcl_AppendToObj(objPtr, tclBuiltinFuncTable[opnd].name, -1); /* @@ -2927,7 +2927,7 @@ TclExecuteByteCode( objc = TclGetUInt1AtPtr(pc+1); objPtr = OBJ_AT_DEPTH(objc-1); - tmpPtr = Tcl_NewStringObj("::tcl::mathfunc::", 17); + TclNewLiteralStringObj(tmpPtr, "::tcl::mathfunc::"); Tcl_AppendObjToObj(tmpPtr, objPtr); Tcl_DecrRefCount(objPtr); |