diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-30 13:00:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-30 13:00:44 (GMT) |
commit | f051835000ce603df7beb60857f9d471443868a5 (patch) | |
tree | 3abe2f0fa72e3c3a775b3f172ef5eb8d9268df3a /tools | |
parent | ad3fd60e19dc09f4b43766a0eb9d782025833560 (diff) | |
parent | 161377d440f18184b75106a033b1924cc96abf89 (diff) | |
download | tcl-f051835000ce603df7beb60857f9d471443868a5.zip tcl-f051835000ce603df7beb60857f9d471443868a5.tar.gz tcl-f051835000ce603df7beb60857f9d471443868a5.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tools')
-rw-r--r-- | tools/genStubs.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 7c9ee03..a4a73ba 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -485,7 +485,9 @@ proc genStubs::makeDecl {name decl index} { set line "$scspec $rtype" } set count [expr {2 - ([string length $line] / 8)}] - append line [string range "\t\t\t" 0 $count] + if {$count >= 0} { + append line [string range "\t\t\t" 0 $count] + } set pad [expr {24 - [string length $line]}] if {$pad <= 0} { append line " " |