diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-05-15 05:18:29 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-05-15 05:18:29 (GMT) |
commit | 82b68720faa0b64e3566567227373cfb315d656c (patch) | |
tree | a49d797403ee7eede25434441592fd239b4d2227 /tools/genStubs.tcl | |
parent | e92a8c89a56cfb62c3afd8f8bc612a7d4fa94d1f (diff) | |
parent | b68b8009bd3e885e1b2b4b6204c92d9791ea6f1b (diff) | |
download | tcl-82b68720faa0b64e3566567227373cfb315d656c.zip tcl-82b68720faa0b64e3566567227373cfb315d656c.tar.gz tcl-82b68720faa0b64e3566567227373cfb315d656c.tar.bz2 |
revert part of [8f9c16848b] move Tcl_MacOSXOpenBundleResources and Tcl_MacOSXOpenVersionedBundleResources from the UNIX stub table back to its own osx stub table, instead let cygwin make use of the win32 stub table
Diffstat (limited to 'tools/genStubs.tcl')
-rw-r--r-- | tools/genStubs.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 163a354..e654bf4 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -568,8 +568,8 @@ proc genStubs::makeSlot {name decl index} { append text $rtype " *" $lfname "; /* $index */\n" return $text } - if {[string range $rtype end-7 end] eq "CALLBACK"} { - append text [string trim [string range $rtype 0 end-8]] " (CALLBACK *" $lfname ") " + if {[string range $rtype end-8 end] eq "__stdcall"} { + append text [string trim [string range $rtype 0 end-9]] " (__stdcall *" $lfname ") " } else { append text $rtype " (*" $lfname ") " } |