diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-25 08:29:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-25 08:29:56 (GMT) |
| commit | ee55320de2017010b98c9e4bcbcb9639552bb159 (patch) | |
| tree | 286ae31e7b32f71518113fa8ebf91ce32e5e2a24 /generic/tcl.h | |
| parent | 6f73a33fd73a1eab1a3e207f1bfb6c9664274b45 (diff) | |
| parent | b38ad5b97817fd3e3c22ffbffb92965dacad04d7 (diff) | |
| download | tcl-ee55320de2017010b98c9e4bcbcb9639552bb159.zip tcl-ee55320de2017010b98c9e4bcbcb9639552bb159.tar.gz tcl-ee55320de2017010b98c9e4bcbcb9639552bb159.tar.bz2 | |
Merge 8.7 (Tcl_ConsolePanic() should be TCL_NORETURN)
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index d339b8f..73f38d6 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -117,7 +117,7 @@ extern "C" { #else # define TCL_FORMAT_PRINTF(a,b) # if defined(_MSC_VER) -# define TCL_NORETURN _declspec(noreturn) +# define TCL_NORETURN __declspec(noreturn) # define TCL_NOINLINE __declspec(noinline) # else # define TCL_NORETURN /* nothing */ @@ -2312,9 +2312,9 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, const char * TclInitStubTable(const char *version); void * TclStubCall(void *arg); #if defined(_WIN32) - TCL_NORETURN1 void Tcl_ConsolePanic(const char *format, ...); + TCL_NORETURN void Tcl_ConsolePanic(const char *format, ...); #else -# define Tcl_ConsolePanic NULL +# define Tcl_ConsolePanic ((Tcl_PanicProc *)NULL) #endif #ifdef USE_TCL_STUBS |