diff options
| -rw-r--r-- | tools/genStubs.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 3e896a1..70e06b1 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: genStubs.tcl,v 1.44 2010/09/15 07:33:56 nijtmans Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.45 2011/01/19 14:04:32 nijtmans Exp $ package require Tcl 8.4 @@ -491,6 +491,9 @@ proc genStubs::makeDecl {name decl index} { set sep ", " } append line ", ...)" + if {[lindex $args end] eq "{const char *} format"} { + append line " TCL_FORMAT_PRINTF(" [expr [llength $args] - 1] ", " [llength $args] ")" + } } default { set sep "(" @@ -588,6 +591,9 @@ proc genStubs::makeSlot {name decl index} { set sep ", " } append text ", ...)" + if {[lindex $args end] eq "{const char *} format"} { + append text " TCL_FORMAT_PRINTF(" [expr [llength $args] - 1] ", " [llength $args] ")" + } } default { set sep "(" |