diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-04-15 23:06:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-04-15 23:06:00 (GMT) |
| commit | 368acc3d50a9ccc0787da6495ca53a107c5a6d69 (patch) | |
| tree | 19e1467fd9395d6af953a41f8836ff921a609b44 /tools | |
| parent | 50698aacbf194f062d07de3bc505584f5b51de71 (diff) | |
| download | tcl-368acc3d50a9ccc0787da6495ca53a107c5a6d69.zip tcl-368acc3d50a9ccc0787da6495ca53a107c5a6d69.tar.gz tcl-368acc3d50a9ccc0787da6495ca53a107c5a6d69.tar.bz2 | |
Fix [9f3c253df5eec5669673d05fe3a51e4afcf99418|9f3c253df5]: Tcl build broken on Win. Re-introduce TCL_NORETURN1, apparently still needed on MSVC.
Diffstat (limited to 'tools')
| -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 a345437..830ba2b 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -600,6 +600,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 ") " } |