Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tcl_ConsolePanic() is TCL_NORETURN, not TCL_NORETURN1. Merge 8.6 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
c2849233bf0c81384f1cf1513be98414 |
| User & Date: | jan.nijtmans 2024-04-24 19:54:10 |
Context
|
2024-04-25
| ||
| 08:24 | (cherry-pick): Fix building of libtclzip for out-of-source builds check-in: 5ae320c23c user: jan.nijtmans tags: core-8-branch | |
|
2024-04-24
| ||
| 19:54 | Tcl_ConsolePanic() is TCL_NORETURN, not TCL_NORETURN1. Merge 8.6 check-in: c2849233bf user: jan.nijtmans tags: core-8-branch | |
| 12:32 | __declspec should have double underscore (even though it works with one) check-in: 564f73579c user: jan.nijtmans tags: core-8-6-branch | |
|
2024-04-22
| ||
| 17:41 | Only use Tcl_TomMath_InitStubs() when TCL_WITH_EXTERNAL_TOMMATH is not defined check-in: 7dbd4588c7 user: jan.nijtmans tags: core-8-branch | |
Changes
Changes to generic/tcl.h.
| ︙ | ︙ | |||
154 155 156 157 158 159 160 | # define TCL_NORETURN1 __attribute__ ((noreturn)) # else # define TCL_NORETURN1 /* nothing */ # endif #else # define TCL_FORMAT_PRINTF(a,b) # if defined(_MSC_VER) | | | 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 | # define TCL_NORETURN1 __attribute__ ((noreturn)) # else # define TCL_NORETURN1 /* nothing */ # endif #else # define TCL_FORMAT_PRINTF(a,b) # if defined(_MSC_VER) # define TCL_NORETURN __declspec(noreturn) # define TCL_NOINLINE __declspec(noinline) # else # define TCL_NORETURN /* nothing */ # define TCL_NOINLINE /* nothing */ # endif # define TCL_NORETURN1 /* nothing */ #endif |
| ︙ | ︙ |
Changes to win/tclWinPanic.c.
| ︙ | ︙ | |||
24 25 26 27 28 29 30 | * * Side effects: * None. * *---------------------------------------------------------------------- */ | | | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
TCL_NORETURN void
Tcl_ConsolePanic(
const char *format, ...)
{
#define TCL_MAX_WARN_LEN 26000
va_list argList;
WCHAR msgString[TCL_MAX_WARN_LEN];
char buf[TCL_MAX_WARN_LEN * 3];
|
| ︙ | ︙ |