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 | cb1f5ad4901220060bc319970cf3434734b3a1aa (patch) | |
| tree | f3f50ec898e4a58a8832047e598219068a9b304f /tools/genStubs.tcl | |
| parent | bd3fec22b475c3e3e0420a4db76adc41b1cdd8bf (diff) | |
| download | tcl-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.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 ") " } |