suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unbreak compilation with gcc < v4.5

Browse Source
This commit is contained in:
Matthew Flatt 2019-07-04 07:38:53 -06:00
parent 62f1243136
commit 21481421a0
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
racket/src/racket/include/scheme.h
View File

@ -253,23 +253,23 @@ extern "C"
#endif
#if !defined(MZ_NORETURN)
#if defined(__GNUC__) || defined(__clang__)
#define MZ_NORETURN __attribute__((noreturn))
#elif defined(_MSC_VER)
#define MZ_NORETURN __declspec(noreturn)
#else
#define MZ_NORETURN
#endif /* defined(__GNUC__) || defined(__clang__) */
# if defined(__GNUC__) || defined(__clang__)
# define MZ_NORETURN __attribute__((noreturn))
# elif defined(_MSC_VER)
# define MZ_NORETURN __declspec(noreturn)
# else
# define MZ_NORETURN
# endif /* defined(__GNUC__) || defined(__clang__) */
#endif /* !defined(MZ_NORETURN) */
#if !defined(MZ_UNREACHABLE)
#if defined(__GNUC__) || defined(__clang__)
#define MZ_UNREACHABLE __builtin_unreachable()
#elif defined(_MSC_VER)
#define MZ_UNREACHABLE __assume(0)
#else
#define MZ_UNREACHABLE
#endif /* defined(__GNUC__) || defined(__clang__) */
# if (defined(__GNUC__) && (__GNUC__ > 4)) || defined(__clang__)
# define MZ_UNREACHABLE __builtin_unreachable()
# elif defined(_MSC_VER)
# define MZ_UNREACHABLE __assume(0)
# else
# define MZ_UNREACHABLE
# endif /* defined(__GNUC__) || defined(__clang__) */
#endif /* !defined(MZ_UNREACHABLE) */
/* Allowed by all configurations, currently: */