diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-30 13:01:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-30 13:01:26 (GMT) |
| commit | c0fc8c6aad6e86161e5faf21ae1b8ed234f3c0c8 (patch) | |
| tree | cfe41c1fdff0c7d46e6a3e0234fc76cb5c95602a /tools | |
| parent | ddd4c15594e6bbfff800d4f1cacc1d89e30b99f1 (diff) | |
| parent | bcfc4a29c55da65006d3eb778c097ee6a24460e8 (diff) | |
| download | tcl-c0fc8c6aad6e86161e5faf21ae1b8ed234f3c0c8.zip tcl-c0fc8c6aad6e86161e5faf21ae1b8ed234f3c0c8.tar.gz tcl-c0fc8c6aad6e86161e5faf21ae1b8ed234f3c0c8.tar.bz2 | |
Merge 8.7
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 " " |