From 64bb543f093da89415c238358e356617870e8e07 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 17 Aug 2011 16:21:42 +0000 Subject: 3393150 Overlooked free of intreps. (It matters for bignums!) --- ChangeLog | 5 +++++ generic/tclGet.c | 3 +++ 2 files changed, 8 insertions(+) diff --git a/ChangeLog b/ChangeLog index 54c2b5f..28418c6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-08-17 Don Porter + + * generic/tclGet.c: [Bug 3393150] Overlooked free of intreps. + (It matters for bignums!) + 2011-08-16 Jan Nijtmans * 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; } -- cgit v0.12