Tcl Source Code

Check-in [564f73579c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:__declspec should have double underscore (even though it works with one)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 564f73579cb5f57aecf1445730534c49dae471572bccbbb0c2334d66d2db39b7
User & Date: jan.nijtmans 2024-04-24 12:32:14
Context
2024-04-26
07:50
typo check-in: ef77b41eaf user: jan.nijtmans tags: core-8-6-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-21
22:27
Sync parameter name in tcl.decls with other places check-in: e86f3ff06b user: jan.nijtmans tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tcl.h.

152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
#	define TCL_NORETURN1 __attribute__ ((noreturn))
#   else
#	define TCL_NORETURN1 /* nothing */
#   endif
#else
#   define TCL_FORMAT_PRINTF(a,b)
#   if defined(_MSC_VER) && (_MSC_VER >= 1310)
#	define TCL_NORETURN _declspec(noreturn)
#   else
#	define TCL_NORETURN /* nothing */
#   endif
#   define TCL_NORETURN1 /* nothing */
#endif

/*







|







152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
#	define TCL_NORETURN1 __attribute__ ((noreturn))
#   else
#	define TCL_NORETURN1 /* nothing */
#   endif
#else
#   define TCL_FORMAT_PRINTF(a,b)
#   if defined(_MSC_VER) && (_MSC_VER >= 1310)
#	define TCL_NORETURN __declspec(noreturn)
#   else
#	define TCL_NORETURN /* nothing */
#   endif
#   define TCL_NORETURN1 /* nothing */
#endif

/*