summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-08-17 16:21:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-08-17 16:21:42 (GMT)
commit64bb543f093da89415c238358e356617870e8e07 (patch)
tree2420cb1c6f945c7eb80cbf0ece7f64790a1da8ad
parent63d6ebbdc5448ceb5e98cb1ca0b7fadb1ebe9350 (diff)
downloadtcl-64bb543f093da89415c238358e356617870e8e07.zip
tcl-64bb543f093da89415c238358e356617870e8e07.tar.gz
tcl-64bb543f093da89415c238358e356617870e8e07.tar.bz2
3393150 Overlooked free of intreps. (It matters for bignums!)
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclGet.c3
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;
}