diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-19 13:34:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-19 13:34:04 (GMT) |
| commit | 1876fe215dfd8f18fcacb7967ede6fe9221bdf29 (patch) | |
| tree | ebd037464bde3ab83465a20f0b00470a38b2888d | |
| parent | 78c295898e25376830b59e74621cbcf9f118c495 (diff) | |
| download | tcl-1876fe215dfd8f18fcacb7967ede6fe9221bdf29.zip tcl-1876fe215dfd8f18fcacb7967ede6fe9221bdf29.tar.gz tcl-1876fe215dfd8f18fcacb7967ede6fe9221bdf29.tar.bz2 | |
Another fix: don't access (w) twice
| -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 aa9247f..6aa05a8 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4917,7 +4917,7 @@ MODULE_SCOPE Tcl_LibraryInitProc Procbodytest_SafeInit; if (_uw >= TCL_INDEX_NONE) { TclNewIntObj(objPtr, -1); } else { - TclNewUIntObj(objPtr, w); + TclNewUIntObj(objPtr, _uw); } } while (0) |