diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-19 11:29:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-19 11:29:22 (GMT) |
| commit | 3c0c59407f61fb9c78ced15b50d084b3670ca7b8 (patch) | |
| tree | 46a652654a697375ae85ae24ee168b26d52f1061 /generic | |
| parent | a83eef06a3fbe9fde88a05e09458146289e79b94 (diff) | |
| download | tcl-3c0c59407f61fb9c78ced15b50d084b3670ca7b8.zip tcl-3c0c59407f61fb9c78ced15b50d084b3670ca7b8.tar.gz tcl-3c0c59407f61fb9c78ced15b50d084b3670ca7b8.tar.bz2 | |
Fix warning on MSVC: warning C4307: '+': integral constant overflow
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 2e88348..c536aee 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4851,7 +4851,7 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; (objPtr) = Tcl_NewWideIntObj(w) #define TclNewIndexObj(objPtr, w) \ - (objPtr) = Tcl_NewWideIntObj((Tcl_WideInt)((w) + 1) - 1) + (objPtr) = (w == TCL_INDEX_NONE) ? Tcl_NewWideIntObj(-1) : Tcl_NewWideIntObj(w) #define TclNewDoubleObj(objPtr, d) \ (objPtr) = Tcl_NewDoubleObj(d) |