diff options
| author | dgp <dgp@users.sourceforge.net> | 2022-10-17 18:19:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2022-10-17 18:19:25 (GMT) |
| commit | 79d18dcb7e14f36bfa13202b744c6e759a00f7d2 (patch) | |
| tree | 6682e9879a3c7b15f2a6552f3211559a8a717f7c /generic/tclUtil.c | |
| parent | 7593fce2300c45d321ff47f31909d0fafe03bf68 (diff) | |
| parent | 5bcff4802f2a2a4eaa5156160ff3110fa05b4b99 (diff) | |
| download | tcl-79d18dcb7e14f36bfa13202b744c6e759a00f7d2.zip tcl-79d18dcb7e14f36bfa13202b744c6e759a00f7d2.tar.gz tcl-79d18dcb7e14f36bfa13202b744c6e759a00f7d2.tar.bz2 | |
Implementation of TIP 638.
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index f10187b..ab97461 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3648,7 +3648,7 @@ GetWideForIndex( { int numType; void *cd; - int code = TclGetNumberFromObj(NULL, objPtr, &cd, &numType); + int code = Tcl_GetNumberFromObj(NULL, objPtr, &cd, &numType); if (code == TCL_OK) { if (numType == TCL_NUMBER_INT) { @@ -3812,7 +3812,7 @@ GetEndOffsetFromObj( /* ... value continues with [-+] ... */ /* Save first integer as wide if possible */ - TclGetNumberFromObj(NULL, objPtr, &cd, &t1); + Tcl_GetNumberFromObj(NULL, objPtr, &cd, &t1); if (t1 == TCL_NUMBER_INT) { w1 = (*(Tcl_WideInt *)cd); } @@ -3822,7 +3822,7 @@ GetEndOffsetFromObj( /* ... value concludes with second valid integer */ /* Save second integer as wide if possible */ - TclGetNumberFromObj(NULL, objPtr, &cd, &t2); + Tcl_GetNumberFromObj(NULL, objPtr, &cd, &t2); if (t2 == TCL_NUMBER_INT) { w2 = (*(Tcl_WideInt *)cd); } @@ -3875,7 +3875,7 @@ GetEndOffsetFromObj( Tcl_ExprObj(compute, objPtr, &sum); Tcl_DeleteInterp(compute); } - TclGetNumberFromObj(NULL, sum, &cd, &numType); + Tcl_GetNumberFromObj(NULL, sum, &cd, &numType); if (numType == TCL_NUMBER_INT) { /* sum holds an integer in the signed wide range */ @@ -3926,7 +3926,7 @@ GetEndOffsetFromObj( } /* Got an integer offset; pull it from where parser left it. */ - TclGetNumberFromObj(NULL, objPtr, &cd, &t); + Tcl_GetNumberFromObj(NULL, objPtr, &cd, &t); if (t == TCL_NUMBER_BIG) { /* Truncate to the signed wide range. */ |