lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix previous commit

This commit is contained in:
Lassi Kortela 2019-10-14 03:58:30 +03:00
parent 6c02b18076
commit 3bd2897129
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
c/scheme_compiler_gnuc.h
View File

@ -5,11 +5,27 @@ typedef intptr_t fixnum_t;
#define SCHEME_C_COMPILER_NAME "GCC" // TODO: wrong
#define SCHEME_C_COMPILER_VERSION __VERSION__
#if __GNUC__ < 3 // Haiku
// Support old GCC 2 used by Haiku.
// TODO: The real mimimum GCC versions for these features may be higher.
#if __GNUC__ >= 3
#define __unlikely(x) __builtin_expect(!!(x), 0)
#define __likely(x) __builtin_expect(!!(x), 1)
#else
#define __unlikely(x) (x)
#define __likely(x) (x)
#endif
#ifndef __ORDER_BIG_ENDIAN__
#define __ORDER_BIG_ENDIAN__ 4321
#endif
#ifndef __ORDER_LITTLE_ENDIAN__
#define __ORDER_LITTLE_ENDIAN__ 1234
#endif
#ifndef __BYTE_ORDER__
#ifdef __i386__
#define __BYTE_ORDER__ __ORDER_LITTLE_ENDIAN__
#endif
@ -44,9 +60,6 @@ typedef intptr_t fixnum_t;
#define DFINITE(d) \
(((*(int64_t *)&(d)) & 0x7ff0000000000000LL) != 0x7ff0000000000000LL)
#define __unlikely(x) __builtin_expect(!!(x), 0)
#define __likely(x) __builtin_expect(!!(x), 1)
void DivideByZeroError(void) __attribute__((__noreturn__));
void lerrorf(value_t e, const char *format, ...)