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

2 files changed, 8 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 54c2b5f..28418c6 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  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;
 }