diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-08 14:41:46 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-08 14:41:46 (GMT) |
commit | 8d774cfa0b1b8d498a49a67811e70f56bef37d15 (patch) | |
tree | 6536ed8e4e2b792c8a24b07fe63701c5f7bde8c1 /generic/tcl.decls | |
parent | fe2ac816b01c0fc23cae4f31835c5797274b5e90 (diff) | |
download | tcl-8d774cfa0b1b8d498a49a67811e70f56bef37d15.zip tcl-8d774cfa0b1b8d498a49a67811e70f56bef37d15.tar.gz tcl-8d774cfa0b1b8d498a49a67811e70f56bef37d15.tar.bz2 |
Decorate Tcl_Exit() and Tcl_SetExitProc()'s argument with TCL_NORETURN as appropriate, as already done with Tcl_Panic() earlier.
Fix minor msvc compiler warning in tclWinFile.c
Diffstat (limited to 'generic/tcl.decls')
-rw-r--r-- | generic/tcl.decls | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index a5cd24d..797a5a7 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -480,7 +480,7 @@ declare 132 { void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc) } declare 133 { - void Tcl_Exit(int status) + TCL_NORETURN void Tcl_Exit(int status) } declare 134 { int Tcl_ExposeCommand(Tcl_Interp *interp, const char *hiddenCmdToken, @@ -1872,7 +1872,7 @@ declare 518 { # TIP#121 (exit handler) dkf for Joe Mistachkin declare 519 { - Tcl_ExitProc *Tcl_SetExitProc(Tcl_ExitProc *proc) + Tcl_ExitProc *Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc) } # TIP#143 (resource limits) dkf |