summaryrefslogtreecommitdiffstats
path: root/tools/genStubs.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-22 15:24:11 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-22 15:24:11 (GMT)
commitcb1f5ad4901220060bc319970cf3434734b3a1aa (patch)
treef3f50ec898e4a58a8832047e598219068a9b304f /tools/genStubs.tcl
parentbd3fec22b475c3e3e0420a4db76adc41b1cdd8bf (diff)
downloadtcl-cb1f5ad4901220060bc319970cf3434734b3a1aa.zip
tcl-cb1f5ad4901220060bc319970cf3434734b3a1aa.tar.gz
tcl-cb1f5ad4901220060bc319970cf3434734b3a1aa.tar.bz2
Decorate Tcl_Panic and Tcl_PanicVA with the noreturn option, alowing further optimizations by the C-compiler.panic_noreturn
Diffstat (limited to 'tools/genStubs.tcl')
-rw-r--r--tools/genStubs.tcl2
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 ") "
}