diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-20 14:27:22 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-20 14:27:22 +0100 |
| commit | 7ecb40e839f823f563d67b8b86270ac6d33e57d0 (patch) | |
| tree | abf6a818a624bc8eda53e53ccfd42138bf4c44e9 | |
| parent | 5e2409c51c90be5e163f91e689b2a41d80983d13 (diff) | |
| download | haskell-7ecb40e839f823f563d67b8b86270ac6d33e57d0.tar.gz | |
Define W_TO_LONG in Cmm.h
| -rw-r--r-- | includes/Cmm.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/includes/Cmm.h b/includes/Cmm.h index f582ca9771..bfac1ee2f0 100644 --- a/includes/Cmm.h +++ b/includes/Cmm.h @@ -197,6 +197,12 @@ #define W_TO_INT(x) (x) #endif +#if SIZEOF_LONG == 4 && SIZEOF_W == 8 +#define W_TO_LONG(x) %lobits32(x) +#elif SIZEOF_LONG == SIZEOF_W +#define W_TO_LONG(x) (x) +#endif + /* ----------------------------------------------------------------------------- Heap/stack access, and adjusting the heap/stack pointers. -------------------------------------------------------------------------- */ |