diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-04-19 19:36:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-04-19 19:36:40 (GMT) |
| commit | e359627a3620dd5d90bb533fd3aef15586b1d8af (patch) | |
| tree | badeb8e3c8e7da95e531a1e2791b9dcaa653ceb4 /generic/tclInt.h | |
| parent | f22a5b57f7bfe63f0f97cbc22f7fa7906dcc10aa (diff) | |
| download | tcl-e359627a3620dd5d90bb533fd3aef15586b1d8af.zip tcl-e359627a3620dd5d90bb533fd3aef15586b1d8af.tar.gz tcl-e359627a3620dd5d90bb533fd3aef15586b1d8af.tar.bz2 | |
TIP 660 changes to stop warnings in --enable-symbols=mem build.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 7efc0a7..aa7313a 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4926,14 +4926,7 @@ MODULE_SCOPE Tcl_LibraryInitProc Procbodytest_SafeInit; } while (0) #define TclNewIndexObj(objPtr, w) \ - do { \ - Tcl_WideUInt _uw = (Tcl_WideUInt)(w); \ - if (_uw >= TCL_INDEX_NONE) { \ - TclNewIntObj(objPtr, -1); \ - } else { \ - TclNewUIntObj(objPtr, _uw); \ - } \ - } while (0) + TclNewIntObj(objPtr, w) #define TclNewDoubleObj(objPtr, d) \ (objPtr) = Tcl_NewDoubleObj(d) |