From 1d7fa6b53d9ccc07f2a0d7f71a0d79995b960ccc Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Mon, 30 Mar 2020 12:59:29 +0000 Subject: genStubs.tcl: Only do an "append line" when there really is something to be done. --- tools/genStubs.tcl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 83ee6c7..4516010 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -483,7 +483,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 " " -- cgit v0.12