diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-08-17 16:21:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-08-17 16:21:42 (GMT) |
| commit | 64bb543f093da89415c238358e356617870e8e07 (patch) | |
| tree | 2420cb1c6f945c7eb80cbf0ece7f64790a1da8ad /generic | |
| parent | 63d6ebbdc5448ceb5e98cb1ca0b7fadb1ebe9350 (diff) | |
| download | tcl-64bb543f093da89415c238358e356617870e8e07.zip tcl-64bb543f093da89415c238358e356617870e8e07.tar.gz tcl-64bb543f093da89415c238358e356617870e8e07.tar.bz2 | |
3393150 Overlooked free of intreps. (It matters for bignums!)
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclGet.c | 3 |
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; } |