diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-12 18:24:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-12 18:24:20 (GMT) |
| commit | 7fcc213b7aa1313c6bbe4ee2f794913e6776b0db (patch) | |
| tree | 6aaffe250c9b3e44e29236af5b69c50ff2b9d5f3 | |
| parent | 5aceb08fb40ddb2789648d21c9f02a51a8394263 (diff) | |
| download | tcl-7fcc213b7aa1313c6bbe4ee2f794913e6776b0db.zip tcl-7fcc213b7aa1313c6bbe4ee2f794913e6776b0db.tar.gz tcl-7fcc213b7aa1313c6bbe4ee2f794913e6776b0db.tar.bz2 | |
TCL_NUMBER_WIDE is deprecated
| -rw-r--r-- | generic/tclUtil.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 97879c7..4ea9c2e 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3696,7 +3696,7 @@ GetWideForIndex( int code = TclGetNumberFromObj(NULL, objPtr, &cd, &numType); if (code == TCL_OK) { - if (numType == TCL_NUMBER_WIDE) { + if (numType == TCL_NUMBER_INT) { /* objPtr holds an integer in the signed wide range */ *widePtr = (Tcl_WideInt)(*(Tcl_WideInt *)cd); return TCL_OK; @@ -3753,7 +3753,7 @@ GetWideForIndex( /* Save first integer as wide if possible */ TclGetNumberFromObj(NULL, objPtr, &cd, &t1); - if (t1 == TCL_NUMBER_WIDE) { + if (t1 == TCL_NUMBER_INT) { w1 = (*(Tcl_WideInt *)cd); } @@ -3763,7 +3763,7 @@ GetWideForIndex( /* Save second integer as wide if possible */ TclGetNumberFromObj(NULL, objPtr, &cd, &t2); - if (t2 == TCL_NUMBER_WIDE) { + if (t2 == TCL_NUMBER_INT) { w2 = (*(Tcl_WideInt *)cd); } } @@ -3773,7 +3773,7 @@ GetWideForIndex( if (t1 && t2) { /* We have both integer values */ - if ((t1 == TCL_NUMBER_WIDE) && (t2 == TCL_NUMBER_WIDE)) { + if ((t1 == TCL_NUMBER_INT) && (t2 == TCL_NUMBER_INT)) { /* Both are wide, do wide-integer math */ if (*opPtr == '-') { if ((w2 == LLONG_MIN) && (interp != NULL)) { @@ -3818,7 +3818,7 @@ GetWideForIndex( Tcl_ExprObj(interp, objPtr, &sum); TclGetNumberFromObj(NULL, sum, &cd, &numType); - if (numType == TCL_NUMBER_WIDE) { + if (numType == TCL_NUMBER_INT) { /* sum holds an integer in the signed wide range */ *widePtr = (Tcl_WideInt)(*(Tcl_WideInt *)cd); } else { @@ -4123,7 +4123,7 @@ TclIndexEncode( Tcl_WideInt wide; int idx, numType, code = TclGetNumberFromObj(NULL, objPtr, &cd, &numType); - if ((code == TCL_OK) && (numType == TCL_NUMBER_WIDE)) { + if ((code == TCL_OK) && (numType == TCL_NUMBER_INT)) { /* We parsed a value in the range LLONG_MIN...LLONG_MAX */ wide = (*(Tcl_WideInt *)cd); integerEncode: |