diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-31 20:18:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-31 20:18:31 (GMT) |
| commit | 6d963231d6938ca7eb29230eb6fea1d084b0b5a8 (patch) | |
| tree | 4c51acbf251496938a1311405db5ae34e1b84de2 | |
| parent | 7ecd2974be6797dc1c32fe5eff785afd7e5923d9 (diff) | |
| download | tcl-6d963231d6938ca7eb29230eb6fea1d084b0b5a8.zip tcl-6d963231d6938ca7eb29230eb6fea1d084b0b5a8.tar.gz tcl-6d963231d6938ca7eb29230eb6fea1d084b0b5a8.tar.bz2 | |
Fix [828dda049b]: Memory faults post-TIP 557
| -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 49a72de..363d126 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -5014,7 +5014,7 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; Tcl_Obj *_objPtr; \ TCL_CT_ASSERT((nbytes)<=sizeof(Tcl_Obj)); \ TclNewObj(_objPtr); \ - *(void **)memPtr = (void *) _objPtr; \ + *(void **)&memPtr = (void *) _objPtr; \ } while (0) #define TclSmallFreeEx(interp, memPtr) \ |