diff options
| author | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-05-19 14:21:46 (GMT) |
|---|---|---|
| committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-05-19 14:21:46 (GMT) |
| commit | 82ddcc716b49790cf70e81e2a116a93181f4ef12 (patch) | |
| tree | 0ecadc7670565f4bc737af36ad771748889a13aa | |
| parent | 8b5d3394c2827fa8bfa14ba8169b0139bc58195b (diff) | |
| download | tcl-82ddcc716b49790cf70e81e2a116a93181f4ef12.zip tcl-82ddcc716b49790cf70e81e2a116a93181f4ef12.tar.gz tcl-82ddcc716b49790cf70e81e2a116a93181f4ef12.tar.bz2 | |
fix build failure with TCL_MEM_DEBUG introduced by [8b717dc06a3e3d49]
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 2938074..7b582c0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4766,9 +4766,9 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; #define TclSmallFreeEx(interp, memPtr) \ do { \ Tcl_Obj *_objPtr = (Tcl_Obj *) memPtr; \ - objPtr->bytes = NULL; \ - objPtr->typePtr = NULL; \ - objPtr->refCount = 1; \ + _objPtr->bytes = NULL; \ + _objPtr->typePtr = NULL; \ + _objPtr->refCount = 1; \ TclDecrRefCount(_objPtr); \ } while (0) #endif /* TCL_MEM_DEBUG */ |