diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-13 17:25:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-13 17:25:47 (GMT) |
| commit | 020fdb84f40bbcafa94b79e7d30d84f55ccc3db2 (patch) | |
| tree | beff72c0109bd09ce46d48eaa4c1644e4ab1f356 /generic/tclProc.c | |
| parent | 059410842de73f5f43cf23d263880114756fbf20 (diff) | |
| download | tcl-020fdb84f40bbcafa94b79e7d30d84f55ccc3db2.zip tcl-020fdb84f40bbcafa94b79e7d30d84f55ccc3db2.tar.gz tcl-020fdb84f40bbcafa94b79e7d30d84f55ccc3db2.tar.bz2 | |
yup
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index a01a314..bc6cc45 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2000,7 +2000,7 @@ TclProcCompileProc( codePtr->compileEpoch = iPtr->compileEpoch; codePtr->nsPtr = nsPtr; } else { - TclFreeIntRep(bodyPtr); + Tcl_StoreIntRep(bodyPtr, &tclByteCodeType, NULL); codePtr = NULL; } } |