summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-02-05 10:03:23 (GMT)
committernijtmans <nijtmans>2010-02-05 10:03:23 (GMT)
commit3e2c1215a7115e506d67819f0831da51f8aa201a (patch)
tree91a0d32c754b6aff65afda82a01486cdc41c00d3 /tools
parent280e93549c0502a223353a6814bb3548fcd9a71b (diff)
downloadtcl-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.tcl16
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 ")"