diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-29 11:46:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-29 11:46:08 (GMT) |
| commit | 1af61f093f8cf6c61d39cb0b6d9755f079d6019c (patch) | |
| tree | 15520182fe04729ea34d65d2c5d0721ed79208f0 | |
| parent | bb78c34cf7890dfb09d3b4b98ccff86e68336508 (diff) | |
| parent | ec55073555d4635a032d4c661a00a7dfe39d5629 (diff) | |
| download | tcl-1af61f093f8cf6c61d39cb0b6d9755f079d6019c.zip tcl-1af61f093f8cf6c61d39cb0b6d9755f079d6019c.tar.gz tcl-1af61f093f8cf6c61d39cb0b6d9755f079d6019c.tar.bz2 | |
Tcl_MainEx() never returns, so it should be TCL_NORETURN as well.
| -rw-r--r-- | generic/tcl.decls | 6 | ||||
| -rw-r--r-- | generic/tcl.h | 2 | ||||
| -rw-r--r-- | generic/tclDecls.h | 2 | ||||
| -rw-r--r-- | generic/tclMain.c | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index dc67078..238c45e 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -2568,11 +2568,11 @@ declare 3 win { # Public functions that are not accessible via the stubs table. export { - void Tcl_Main(Tcl_Size argc, char **argv, Tcl_AppInitProc *appInitProc) + TCL_NORETURN void Tcl_Main(Tcl_Size argc, char **argv, Tcl_AppInitProc *appInitProc) } export { - void Tcl_MainEx(Tcl_Size argc, char **argv, Tcl_AppInitProc *appInitProc, - Tcl_Interp *interp) + TCL_NORETURN void Tcl_MainEx(Tcl_Size argc, char **argv, Tcl_AppInitProc *appInitProc, + Tcl_Interp *interp) } export { void Tcl_StaticLibrary(Tcl_Interp *interp, const char *prefix, diff --git a/generic/tcl.h b/generic/tcl.h index fe37d2e..7afd119 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2493,7 +2493,7 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ ((Tcl_SetPanicProc(Tcl_ConsolePanic), Tcl_CreateInterp)())) -EXTERN void Tcl_MainEx(Tcl_Size argc, char **argv, +EXTERN TCL_NORETURN void Tcl_MainEx(Tcl_Size argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, const char *version, int exact); diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 82bcfb1..d599b48 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -4177,7 +4177,7 @@ extern const TclStubs *tclStubsPtr; # define Tcl_SetPanicProc(arg) ((void)((Tcl_SetPanicProc)(arg))) # endif # define Tcl_MainEx Tcl_MainExW - EXTERN void Tcl_MainExW(Tcl_Size argc, wchar_t **argv, + EXTERN TCL_NORETURN void Tcl_MainExW(Tcl_Size argc, wchar_t **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); #elif !defined(TCL_NO_DEPRECATED) # define Tcl_FindExecutable(arg) ((void)((Tcl_FindExecutable)(arg))) diff --git a/generic/tclMain.c b/generic/tclMain.c index 3ee3fbc..e43958d 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -274,7 +274,7 @@ Tcl_SourceRCFile( *---------------------------------------------------------------------- */ -void +TCL_NORETURN void Tcl_MainEx( int argc, /* Number of arguments. */ TCHAR **argv, /* Array of argument strings. */ |