3393150 Overlooked free of intreps. (It matters for bignums!)

2 files changed, 7 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 567bfd2..2d9b7ec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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  Don Porter  <dgp@users.sourceforge.net>
 
 	* generic/tclCompile.c: [Bug 3392070] More complete prevention of
diff --git a/generic/tclGet.c b/generic/tclGet.c
index b6089d3..4c19b55 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;
 }
 
@@ -96,6 +97,7 @@ Tcl_GetDouble(
     if (obj.refCount > 1) {
 	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
     }
+    TclFreeIntRep(&obj);
     return code;
 }