diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 16:11:38 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 16:11:38 (GMT) |
commit | b816a585c00c97feca1b4516769ccf2769a58e02 (patch) | |
tree | 77a1bcad1ca6879eda9d8bfffc581640656aa39f /generic/tclCmdIL.c | |
parent | d6fedf785445439d2d54c58f3e9906b0d867cd88 (diff) | |
download | tcl-b816a585c00c97feca1b4516769ccf2769a58e02.zip tcl-b816a585c00c97feca1b4516769ccf2769a58e02.tar.gz tcl-b816a585c00c97feca1b4516769ccf2769a58e02.tar.bz2 |
Tcl_NewDoubleObj -> TclNewDoubleObj and Tcl_NewWideIntObj -> TclNewIntObj (and similar). Gives more info when debugging
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r-- | generic/tclCmdIL.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 4b7bd48..e2493c4 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -3607,7 +3607,7 @@ Tcl_LsearchObjCmd( if (allMatches || inlineReturn) { Tcl_ResetResult(interp); } else { - TclNewIndexObj(itemPtr, TCL_INDEX_NONE); + TclNewIntObj(itemPtr, -1); Tcl_SetObjResult(interp, itemPtr); } goto done; @@ -4103,10 +4103,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; } } |