diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-22 17:48:38 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-22 17:48:38 (GMT) |
commit | 4468bc4cb1e0e653f7602d9333640b5f6a9fbcf0 (patch) | |
tree | a2761490c7e300266191f3047102845715f39e54 | |
parent | f04872f8ab7961a917d3fe82641f8568f04397ab (diff) | |
download | tk-4468bc4cb1e0e653f7602d9333640b5f6a9fbcf0.zip tk-4468bc4cb1e0e653f7602d9333640b5f6a9fbcf0.tar.gz tk-4468bc4cb1e0e653f7602d9333640b5f6a9fbcf0.tar.bz2 |
[787adc5ed7] Workaround potential crash in Tcl_DStringAppend.
-rw-r--r-- | generic/tkWindow.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkWindow.c b/generic/tkWindow.c index f2e98e8..4ac2849 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -3175,7 +3175,7 @@ Initialize( TkpGetAppName(interp, &class); offset = Tcl_DStringLength(&class)+1; - Tcl_DStringSetLength(&class, offset); + Tcl_DStringSetLength(&class, 2*offset); Tcl_DStringAppend(&class, Tcl_DStringValue(&class), offset-1); name = Tcl_DStringValue(&class) + offset; } else { |