diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-22 15:24:11 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-22 15:24:11 (GMT) |
commit | 9b08e4775f43cbdf1db67dbca17819c3ebdf1d37 (patch) | |
tree | f3f50ec898e4a58a8832047e598219068a9b304f /tools | |
parent | e0143819032635ae191c10a37c61837e359db146 (diff) | |
download | tcl-9b08e4775f43cbdf1db67dbca17819c3ebdf1d37.zip tcl-9b08e4775f43cbdf1db67dbca17819c3ebdf1d37.tar.gz tcl-9b08e4775f43cbdf1db67dbca17819c3ebdf1d37.tar.bz2 |
Decorate Tcl_Panic and Tcl_PanicVA with the noreturn option, alowing further optimizations by the C-compiler.
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 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 ") " } |