X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FStg.h;h=06a866256e0d94408d2f72a6f5443a6964889af2;hb=d1c9e5aaf9f032ad9c4b123499bdd948c2fe9e47;hp=7ac6b1a86427e25853412c3dda8749c1569a66aa;hpb=5ee6212c3b25c14db37bc01beeca67707736c406;p=ghc-hetmet.git diff --git a/includes/Stg.h b/includes/Stg.h index 7ac6b1a..06a8662 100644 --- a/includes/Stg.h +++ b/includes/Stg.h @@ -35,6 +35,10 @@ // Turn on C99 for .hc code. This gives us the INFINITY and NAN // constants from math.h, which we occasionally need to use in .hc (#1861) # define _ISOC99_SOURCE + +// We need _BSD_SOURCE so that math.h defines things like gamma +// on Linux +# define _BSD_SOURCE #endif #if IN_STG_CODE == 0 @@ -74,6 +78,10 @@ #define BITS_PER_BYTE 8 #define BITS_IN(x) (BITS_PER_BYTE * sizeof(x)) +/* Compute offsets of struct fields + */ +#define STG_FIELD_OFFSET(s_type, field) ((StgWord)&(((s_type*)0)->field)) + /* * 'Portable' inlining: * INLINE_HEADER is for inline functions in header files (macros) @@ -202,9 +210,7 @@ typedef StgWord StgWordArray[]; #include "MachRegs.h" #include "Regs.h" -#ifdef TICKY_TICKY #include "TickyCounters.h" -#endif #if IN_STG_CODE /*