diff options
| author | andreask <andreask> | 2012-05-17 21:47:55 (GMT) |
|---|---|---|
| committer | andreask <andreask> | 2012-05-17 21:47:55 (GMT) |
| commit | 4ebcb961515b7669f17d14bfe72d4eebd98f724f (patch) | |
| tree | 1d1e5aff3b84beae7a1a01f1002b973777f8cd06 /tools/genStubs.tcl | |
| parent | a3a3198dfe08f980f9895d03c2a31a6c302c21dc (diff) | |
| parent | 6e977b903ee0e35f5b799abe1c8b3c902a5b5cef (diff) | |
| download | tcl-4ebcb961515b7669f17d14bfe72d4eebd98f724f.zip tcl-4ebcb961515b7669f17d14bfe72d4eebd98f724f.tar.gz tcl-4ebcb961515b7669f17d14bfe72d4eebd98f724f.tar.bz2 | |
Brought bugfix branch uptodate with head development.
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 ") " } |