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

Move constants upwards in the file

This commit is contained in:
Lassi Kortela 2019-10-14 01:19:32 +03:00
parent 847184cd4d
commit f80305fd73
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
c/scheme_compiler_gnuc.h
View File

@ -5,21 +5,6 @@ typedef intptr_t fixnum_t;
#define SCHEME_C_COMPILER_NAME "GCC" // TODO: wrong
#define SCHEME_C_COMPILER_VERSION __VERSION__
#if UINTPTR_MAX == 0xffffffffffffffffULL
#define BITS64
#else
#undef BITS64
#endif
#define UINT32_TOP_BIT 0x80000000
#define UINT64_TOP_BIT 0x8000000000000000ULL
#ifdef BITS64
#define TOP_BIT UINT64_TOP_BIT
#else
#define TOP_BIT UINT32_TOP_BIT
#endif
#define DBL_MAXINT 9007199254740992LL
#define FLT_MAXINT 16777216
#define U64_MAX 18446744073709551615ULL
@ -28,6 +13,21 @@ typedef intptr_t fixnum_t;
#define BIT63 0x8000000000000000LL
#define BIT31 0x80000000
#define UINT32_TOP_BIT 0x80000000
#define UINT64_TOP_BIT 0x8000000000000000ULL
#if UINTPTR_MAX == 0xffffffffffffffffULL
#define BITS64
#else
#undef BITS64
#endif
#ifdef BITS64
#define TOP_BIT UINT64_TOP_BIT
#else
#define TOP_BIT UINT32_TOP_BIT
#endif
#define LOG2_10 3.3219280948873626
#define sign_bit(r) ((*(int64_t *)&(r)) & BIT63)
#define NBABS(n, nb) (((n) ^ ((n) >> ((nb)-1))) - ((n) >> ((nb)-1)))