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 #endif
#if !defined(MZ_NORETURN) #if !defined(MZ_NORETURN)
#if defined(__GNUC__) || defined(__clang__) # if defined(__GNUC__) || defined(__clang__)
#define MZ_NORETURN __attribute__((noreturn)) # define MZ_NORETURN __attribute__((noreturn))
#elif defined(_MSC_VER) # elif defined(_MSC_VER)
#define MZ_NORETURN __declspec(noreturn) # define MZ_NORETURN __declspec(noreturn)
#else # else
#define MZ_NORETURN # define MZ_NORETURN
#endif /* defined(__GNUC__) || defined(__clang__) */ # endif /* defined(__GNUC__) || defined(__clang__) */
#endif /* !defined(MZ_NORETURN) */ #endif /* !defined(MZ_NORETURN) */
#if !defined(MZ_UNREACHABLE) #if !defined(MZ_UNREACHABLE)
#if defined(__GNUC__) || defined(__clang__) # if (defined(__GNUC__) && (__GNUC__ > 4)) || defined(__clang__)
#define MZ_UNREACHABLE __builtin_unreachable() # define MZ_UNREACHABLE __builtin_unreachable()
#elif defined(_MSC_VER) # elif defined(_MSC_VER)
#define MZ_UNREACHABLE __assume(0) # define MZ_UNREACHABLE __assume(0)
#else # else
#define MZ_UNREACHABLE # define MZ_UNREACHABLE
#endif /* defined(__GNUC__) || defined(__clang__) */ # endif /* defined(__GNUC__) || defined(__clang__) */
#endif /* !defined(MZ_UNREACHABLE) */ #endif /* !defined(MZ_UNREACHABLE) */
/* Allowed by all configurations, currently: */ /* Allowed by all configurations, currently: */