diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-12 21:36:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-12 21:36:13 (GMT) |
| commit | ca5093b1ea05fc1e638c182e031710c434bfd30a (patch) | |
| tree | f515828c4b6a6fb5c77239f4d008f89a84cb92c7 /generic/tclAssembly.c | |
| parent | 694ffb74542176b67c5cddf7b421e63bf851411b (diff) | |
| download | tcl-ca5093b1ea05fc1e638c182e031710c434bfd30a.zip tcl-ca5093b1ea05fc1e638c182e031710c434bfd30a.tar.gz tcl-ca5093b1ea05fc1e638c182e031710c434bfd30a.tar.bz2 | |
Prefer removal of just known invalid intrep over destruction of all intreps.
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 8540b59..1529198 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -867,7 +867,7 @@ CompileAssembleObj( * Not valid, so free it and regenerate. */ - TclFreeIntRep(objPtr); + Tcl_StoreIntRep(objPtr, &assembleCodeType, NULL); } /* |