diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclGet.c | 3 |
2 files changed, 8 insertions, 0 deletions
@@ -1,3 +1,8 @@ +2011-08-17 Don Porter <dgp@users.sourceforge.net> + + * generic/tclGet.c: [Bug 3393150] Overlooked free of intreps. + (It matters for bignums!) + 2011-08-16 Jan Nijtmans <nijtmans@users.sf.net> * generic/tclCmdAH.c: [Bug 3388350] mingw64 compiler warnings diff --git a/generic/tclGet.c b/generic/tclGet.c index 54b4370..28734d1 100644 --- a/generic/tclGet.c +++ b/generic/tclGet.c @@ -53,6 +53,7 @@ Tcl_GetInt( if (obj.refCount > 1) { Tcl_Panic("invalid sharing of Tcl_Obj on C stack"); } + TclFreeIntRep(&obj); return code; } @@ -98,6 +99,7 @@ TclGetLong( if (obj.refCount > 1) { Tcl_Panic("invalid sharing of Tcl_Obj on C stack"); } + TclFreeIntRep(&obj); return code; } @@ -141,6 +143,7 @@ Tcl_GetDouble( if (obj.refCount > 1) { Tcl_Panic("invalid sharing of Tcl_Obj on C stack"); } + TclFreeIntRep(&obj); return code; } |