diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-05-15 04:54:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-05-15 04:54:19 (GMT) |
| commit | 153387c9d2f557901b345783fdf40fd1f2e46993 (patch) | |
| tree | a87710d391e060d7a0af577ec69ea1143ffb9c48 /tools | |
| parent | 7fd32ca06f243c8bb553b538882ac605df3dec37 (diff) | |
| parent | 351af8710dc5bcd032fd180e4e9ce717bd77c534 (diff) | |
| download | tcl-153387c9d2f557901b345783fdf40fd1f2e46993.zip tcl-153387c9d2f557901b345783fdf40fd1f2e46993.tar.gz tcl-153387c9d2f557901b345783fdf40fd1f2e46993.tar.bz2 | |
Revert part of [5caa06383d] 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
FossilOrigin-Name: 4fa183b80c76b956c66e043b108c8b13e2f9a912
Diffstat (limited to 'tools')
| -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 a7b463c..93a3669 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -536,8 +536,8 @@ proc genStubs::makeSlot {name decl index} { append text $rtype " *" $lfname "; /* $index */\n" return $text } - if {[string range $rtype end-7 end] == "CALLBACK"} { - append text [string trim [string range $rtype 0 end-8]] " (CALLBACK *" $lfname ") " + if {[string range $rtype end-8 end] == "__stdcall"} { + append text [string trim [string range $rtype 0 end-9]] " (__stdcall *" $lfname ") " } else { append text $rtype " (*" $lfname ") " } |