Tcl Source Code

Check-in [8cc1729b8b]
Login

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

Overview
Comment:Missing "_" in __declspec
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-ef23a85ac6
Files: files | file ages | folders
SHA3-256: 8cc1729b8bc9b0abf2d90baf498240ee486f5e6c31fef91712d1ef06a71a91a1
User & Date: jan.nijtmans 2024-04-23 20:36:04
Context
2024-04-24
19:16
Improve use of TCL_NORETURN, so no unnecessary warnings are produced any more check-in: 8afd80d68a user: jan.nijtmans tags: bug-ef23a85ac6
2024-04-23
20:36
Missing "_" in __declspec check-in: 8cc1729b8b user: jan.nijtmans tags: bug-ef23a85ac6
20:17
Still one TCL_NORETURN1 too much check-in: c0f71bd0ce user: jan.nijtmans tags: bug-ef23a85ac6
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tcl.h.

113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
#   endif
#   define TCL_NORETURN __attribute__ ((noreturn))
#   define TCL_NOINLINE __attribute__ ((noinline))
#   define TCL_NORETURN1 __attribute__ ((noreturn))
#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







|







113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
#   endif
#   define TCL_NORETURN __attribute__ ((noreturn))
#   define TCL_NOINLINE __attribute__ ((noinline))
#   define TCL_NORETURN1 __attribute__ ((noreturn))
#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