summaryrefslogtreecommitdiffstats
path: root/generic/tclGet.c
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 /generic/tclGet.c
parent63d6ebbdc5448ceb5e98cb1ca0b7fadb1ebe9350 (diff)
downloadtcl-64bb543f093da89415c238358e356617870e8e07.zip
tcl-64bb543f093da89415c238358e356617870e8e07.tar.gz
tcl-64bb543f093da89415c238358e356617870e8e07.tar.bz2
3393150 Overlooked free of intreps. (It matters for bignums!)
Diffstat (limited to 'generic/tclGet.c')
-rw-r--r--generic/tclGet.c3
1 files changed, 3 insertions, 0 deletions
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;
}