diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-08 14:32:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-08 14:32:13 (GMT) |
| commit | f0d4f625858cad553260fa36346ff6f023a77473 (patch) | |
| tree | bda94d4bb85160e4ecc8cc875661c61f743c1ecd /generic/tclHistory.c | |
| parent | df69e84a53cae6ab03b1ca685e630716f86348ce (diff) | |
| download | tcl-f0d4f625858cad553260fa36346ff6f023a77473.zip tcl-f0d4f625858cad553260fa36346ff6f023a77473.tar.gz tcl-f0d4f625858cad553260fa36346ff6f023a77473.tar.bz2 | |
Shortcut in TclParseNumber(): If obj is a dict or list, don't bother to generate the string representation if we know already beforehand that the parsing will fail.
Use TCL_NO_DEPRECATED in stead of KILL_OCTAL for removing the (deprecated un-prefixed) octal support.
Adapt test-cases, so they work without octal support as well.
Diffstat (limited to 'generic/tclHistory.c')
| -rw-r--r-- | generic/tclHistory.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclHistory.c b/generic/tclHistory.c index b08e352..47806d4 100644 --- a/generic/tclHistory.c +++ b/generic/tclHistory.c @@ -62,15 +62,14 @@ Tcl_RecordAndEval( * instead of Tcl_Eval. */ { register Tcl_Obj *cmdPtr; - int length = strlen(cmd); int result; - if (length > 0) { + if (cmd[0]) { /* * Call Tcl_RecordAndEvalObj to do the actual work. */ - cmdPtr = Tcl_NewStringObj(cmd, length); + cmdPtr = Tcl_NewStringObj(cmd, -1); Tcl_IncrRefCount(cmdPtr); result = Tcl_RecordAndEvalObj(interp, cmdPtr, flags); |