diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-04-05 17:22:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-04-05 17:22:09 (GMT) |
| commit | 634c443219ba3420c6a3403b7c1565076d86dbae (patch) | |
| tree | 91f645516e1af3473bfe891264a953fa76e49c3e /generic/tclStringObj.c | |
| parent | 43507f353b82f414fff3810cc0d781a44e7ae3e9 (diff) | |
| download | tcl-634c443219ba3420c6a3403b7c1565076d86dbae.zip tcl-634c443219ba3420c6a3403b7c1565076d86dbae.tar.gz tcl-634c443219ba3420c6a3403b7c1565076d86dbae.tar.bz2 | |
Plug memleak in [format] applied to bignums.
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index a2a1d41..fa50d6d 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1972,6 +1972,7 @@ Tcl_AppendFormatToObj( if (cmpResult == MP_EQ) gotHash = 0; if (ch == 'u') { if (isNegative) { + mp_clear(&big); msg = "unsigned bignum format is invalid"; errCode = "BADUNSIGNED"; goto errorMsg; |