diff options
| author | nijtmans <nijtmans> | 2011-01-19 14:02:19 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2011-01-19 14:02:19 (GMT) |
| commit | 846cac3a5896e94923fee07d2004efec4f73effc (patch) | |
| tree | 80212e180ac0ac3b483e4eac20dccffb01f5aac4 /tools | |
| parent | cec54eeb88fbfdfbaca596a2d81ca64d71a18ece (diff) | |
| download | tcl-846cac3a5896e94923fee07d2004efec4f73effc.zip tcl-846cac3a5896e94923fee07d2004efec4f73effc.tar.gz tcl-846cac3a5896e94923fee07d2004efec4f73effc.tar.bz2 | |
Make sure to use CONST/VOID in stead of
const/void when appropriate. This allows to
use const/void in the *.decls file always,
genStubs will do the right thing.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/genStubs.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 43c65e4..b4fe22a 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.22.2.6 2011/01/19 08:04:49 nijtmans Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.22.2.7 2011/01/19 14:02:19 nijtmans Exp $ package require Tcl 8.4 @@ -411,8 +411,8 @@ proc genStubs::makeDecl {name decl index} { lassign $decl rtype fname args append text "/* $index */\n" - if {$rtype eq "VOID"} { - set rtype void + if {$rtype != "void"} { + regsub -all void $rtype VOID rtype } set line "EXTERN $rtype" set count [expr {2 - ([string length $line] / 8)}] @@ -530,8 +530,8 @@ proc genStubs::makeSlot {name decl index} { append lfname [string range $fname 1 end] set text " " - if {$rtype eq "VOID"} { - set rtype void + if {$rtype != "void"} { + regsub -all void $rtype VOID rtype } if {$args == ""} { append text $rtype " *" $lfname "; /* $index */\n" |