diff options
author | dkf <dkf@noemail.net> | 2007-04-10 14:47:06 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2007-04-10 14:47:06 (GMT) |
commit | 807909c8786778cefc690ac7f1eb5e7fce6757c9 (patch) | |
tree | e12acd4bb445070087067812722f564f29218f8d /generic/tclStrToD.c | |
parent | a4830b01f6f650ea70a34c388fcee6966cdb3222 (diff) | |
download | tcl-807909c8786778cefc690ac7f1eb5e7fce6757c9.zip tcl-807909c8786778cefc690ac7f1eb5e7fce6757c9.tar.gz tcl-807909c8786778cefc690ac7f1eb5e7fce6757c9.tar.bz2 |
Handle creation of Tcl_Objs from constant strings better (easier to use, more
efficient). After [Patch 1529526] (afredd)
FossilOrigin-Name: 4d69119aadb4298f8e994440eb988c6c46396086
Diffstat (limited to 'generic/tclStrToD.c')
-rwxr-xr-x | generic/tclStrToD.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 9fd152c..4a8ae60 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.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: tclStrToD.c,v 1.27 2007/02/20 23:24:03 nijtmans Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.28 2007/04/10 14:47:17 dkf Exp $ * *---------------------------------------------------------------------- */ @@ -1125,7 +1125,9 @@ TclParseNumber( if (status != TCL_OK) { if (interp != NULL) { - Tcl_Obj *msg = Tcl_NewStringObj("expected ", -1); + Tcl_Obj *msg; + + TclNewLiteralStringObj(msg, "expected "); Tcl_AppendToObj(msg, expected, -1); Tcl_AppendToObj(msg, " but got \"", -1); Tcl_AppendLimitedToObj(msg, bytes, numBytes, 50, ""); |