diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-28 16:13:34 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-28 16:13:34 (GMT) |
commit | 2aa92d31a0cf4ded4cc49d52d43a15274513ba46 (patch) | |
tree | dacfe63268b63425b9f57731e2e5b838e64b9b24 /generic/tclCmdIL.c | |
parent | feee6ec002ecfe67b43a92b6de3b761a59ad512f (diff) | |
parent | 8f6442b0c910bb7b7431c390a2dbb92985d83162 (diff) | |
download | tcl-2aa92d31a0cf4ded4cc49d52d43a15274513ba46.zip tcl-2aa92d31a0cf4ded4cc49d52d43a15274513ba46.tar.gz tcl-2aa92d31a0cf4ded4cc49d52d43a15274513ba46.tar.bz2 |
Merge 9.0
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 00a71a4..dc9cc34 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -4009,10 +4009,10 @@ SequenceIdentifyArgument( exprValueObj = argPtr; } else { if (floor(dvalue) == dvalue) { - exprValueObj = Tcl_NewWideIntObj(value); + TclNewIntObj(exprValueObj, value); keyword = TCL_NUMBER_INT; } else { - exprValueObj = Tcl_NewDoubleObj(dvalue); + TclNewDoubleObj(exprValueObj, dvalue); keyword = TCL_NUMBER_DOUBLE; } } |