diff options
| author | nijtmans <nijtmans> | 2010-02-05 10:03:23 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-02-05 10:03:23 (GMT) |
| commit | 3e2c1215a7115e506d67819f0831da51f8aa201a (patch) | |
| tree | 91a0d32c754b6aff65afda82a01486cdc41c00d3 /tools | |
| parent | 280e93549c0502a223353a6814bb3548fcd9a71b (diff) | |
| download | tcl-3e2c1215a7115e506d67819f0831da51f8aa201a.zip tcl-3e2c1215a7115e506d67819f0831da51f8aa201a.tar.gz tcl-3e2c1215a7115e506d67819f0831da51f8aa201a.tar.bz2 | |
Follow-up to [2010-01-29] commit:
prevent space within stub table function parameters
if the parameter type is a pointer.
Minor formatting, and VOID -> void.
Change signature of TclNRInterpProcCore,
and TclOONewProc(Instance|)MethodEx,
indicating that errorProc is a function pointer
tclVar.c: fixed two gcc warnings
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/genStubs.tcl | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 3e33a74..b76285f 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.34 2010/01/29 16:17:21 nijtmans Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.35 2010/02/05 10:03:24 nijtmans Exp $ package require Tcl 8.4 @@ -545,8 +545,11 @@ proc genStubs::makeSlot {name decl index} { TCL_VARARGS { set sep "(" foreach arg [lrange $args 1 end] { - append text $sep [lindex $arg 0] " " [lindex $arg 1] \ - [lindex $arg 2] + append text $sep [lindex $arg 0] + if {[string index $text end] ne "*"} { + append text " " + } + append text [lindex $arg 1] [lindex $arg 2] set sep ", " } append text ", ...)" @@ -554,8 +557,11 @@ proc genStubs::makeSlot {name decl index} { default { set sep "(" foreach arg $args { - append text $sep [lindex $arg 0] " " [lindex $arg 1] \ - [lindex $arg 2] + append text $sep [lindex $arg 0] + if {[string index $text end] ne "*"} { + append text " " + } + append text [lindex $arg 1] [lindex $arg 2] set sep ", " } append text ")" |