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

Re-fix 32-bit vs 64-bit distinction

This commit is contained in:
Lassi Kortela 2019-10-14 01:01:37 +03:00
parent 0c79f04503
commit 847184cd4d
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
c/scheme_compiler_gnuc.h
View File

@ -2,19 +2,21 @@ typedef uintptr_t value_t;
typedef uintptr_t ufixnum_t; typedef uintptr_t ufixnum_t;
typedef intptr_t fixnum_t; typedef intptr_t fixnum_t;
#undef BITS64
#if UINTPTR_MAX == 0xffffffffffffffffULL
#define BITS64
#endif
#define SCHEME_C_COMPILER_NAME "GCC" // TODO: wrong #define SCHEME_C_COMPILER_NAME "GCC" // TODO: wrong
#define SCHEME_C_COMPILER_VERSION __VERSION__ #define SCHEME_C_COMPILER_VERSION __VERSION__
#ifdef BITS64 #if UINTPTR_MAX == 0xffffffffffffffffULL
#define BITS64
#else
#undef BITS64
#endif
#define UINT32_TOP_BIT 0x80000000
#define UINT64_TOP_BIT 0x8000000000000000ULL #define UINT64_TOP_BIT 0x8000000000000000ULL
#ifdef BITS64
#define TOP_BIT UINT64_TOP_BIT #define TOP_BIT UINT64_TOP_BIT
#else #else
#define UINT32_TOP_BIT 0x80000000
#define TOP_BIT UINT32_TOP_BIT #define TOP_BIT UINT32_TOP_BIT
#endif #endif