diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-23 10:29:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-23 10:29:00 (GMT) |
| commit | 401ea793a5691a5dc91795371922de138ea7f68c (patch) | |
| tree | 453ef7765e2aeaef13b888bb260a18e6298fda26 /tools | |
| parent | ee0b1f4703492cd3d1889551e782882b6b081b46 (diff) | |
| parent | cb1f5ad4901220060bc319970cf3434734b3a1aa (diff) | |
| download | tcl-401ea793a5691a5dc91795371922de138ea7f68c.zip tcl-401ea793a5691a5dc91795371922de138ea7f68c.tar.gz tcl-401ea793a5691a5dc91795371922de138ea7f68c.tar.bz2 | |
Micro-optimization handling Tcl_Panic(), suggested by D. Richard Hipp.
As a side-effect, this is as well a fix for [1446864]: segfaults if Tcl_Panic() returns.
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 ") " } |