diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-23 12:19:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-23 12:19:12 (GMT) |
| commit | 93802f62b1b7db705e29fe8dcd3abe5fedd6b8d9 (patch) | |
| tree | 0f51141ce77037f18b3777c23c9ab7666b590eea /tools/genStubs.tcl | |
| parent | 00e36faa85d26704fb289ee399cad3c810c0eaa2 (diff) | |
| parent | 401ea793a5691a5dc91795371922de138ea7f68c (diff) | |
| download | tcl-93802f62b1b7db705e29fe8dcd3abe5fedd6b8d9.zip tcl-93802f62b1b7db705e29fe8dcd3abe5fedd6b8d9.tar.gz tcl-93802f62b1b7db705e29fe8dcd3abe5fedd6b8d9.tar.bz2 | |
Merge trunk
Diffstat (limited to 'tools/genStubs.tcl')
| -rw-r--r-- | tools/genStubs.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 7a75dc6..beede9e 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -582,6 +582,8 @@ proc genStubs::makeSlot {name decl index} { } if {[string range $rtype end-8 end] eq "__stdcall"} { append text [string trim [string range $rtype 0 end-9]] " (__stdcall *" $lfname ") " + } elseif {[string range $rtype 0 11] eq "TCL_NORETURN"} { + append text "TCL_NORETURN1 " [string trim [string range $rtype 12 end]] " (*" $lfname ") " } else { append text $rtype " (*" $lfname ") " } |