summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rw-r--r--tools/genStubs.tcl12
1 files changed, 6 insertions, 6 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 15cb0a2..788ab7a 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -8,7 +8,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.17 2004/03/17 18:14:18 das Exp $
+# RCS: @(#) $Id: genStubs.tcl,v 1.18 2005/09/13 21:23:51 dgp Exp $
package require Tcl 8
@@ -371,7 +371,7 @@ proc genStubs::makeDecl {name decl index} {
}
TCL_VARARGS {
set arg [lindex $args 1]
- append line "TCL_VARARGS([lindex $arg 0],[lindex $arg 1])"
+ append line "([lindex $arg 0][lindex $arg 1], ...)"
}
default {
set sep "("
@@ -464,13 +464,13 @@ proc genStubs::makeStub {name decl index} {
if {![string compare $arg1 "TCL_VARARGS"]} {
lassign [lindex $args 1] type argName
- append text " TCL_VARARGS_DEF($type,$argName)\n\{\n"
+ append text " ($type$argName, ...)\n\{\n"
append text " " $type " var;\n va_list argList;\n"
if {[string compare $rtype "void"]} {
append text " " $rtype " resultValue;\n"
}
- append text "\n var = (" $type ") TCL_VARARGS_START(" \
- $type "," $argName ",argList);\n\n "
+ append text "\n var = (" $type ") (va_start(argList, " \
+ $argName "), " $argName ");\n\n "
if {[string compare $rtype "void"]} {
append text "resultValue = "
}
@@ -533,7 +533,7 @@ proc genStubs::makeSlot {name decl index} {
}
TCL_VARARGS {
set arg [lindex $args 1]
- append text "TCL_VARARGS([lindex $arg 0],[lindex $arg 1])"
+ append text "([lindex $arg 0][lindex $arg 1], ...)"
}
default {
set sep "("