rts/includes: Fix up .dir-locals.el
[ghc.git] / includes / MachDeps.h
index 81e223d..f176ef8 100644 (file)
@@ -9,7 +9,7 @@
  * NB: THIS FILE IS INCLUDED IN HASKELL SOURCE!
  *
  * To understand the structure of the RTS headers, see the wiki:
- *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
+ *   http://ghc.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
  *
  * ---------------------------------------------------------------------------*/
 
 #define SIZEOF_HSINT            SIZEOF_VOID_P
 #define ALIGNMENT_HSINT         ALIGNMENT_VOID_P
 
-#define SIZEOF_HSWORD          SIZEOF_VOID_P
-#define ALIGNMENT_HSWORD       ALIGNMENT_VOID_P
+#define SIZEOF_HSWORD           SIZEOF_VOID_P
+#define ALIGNMENT_HSWORD        ALIGNMENT_VOID_P
 
-#define SIZEOF_HSDOUBLE                SIZEOF_DOUBLE
-#define ALIGNMENT_HSDOUBLE     ALIGNMENT_DOUBLE
+#define SIZEOF_HSDOUBLE         SIZEOF_DOUBLE
+#define ALIGNMENT_HSDOUBLE      ALIGNMENT_DOUBLE
 
-#define SIZEOF_HSFLOAT         SIZEOF_FLOAT
-#define ALIGNMENT_HSFLOAT      ALIGNMENT_FLOAT
+#define SIZEOF_HSFLOAT          SIZEOF_FLOAT
+#define ALIGNMENT_HSFLOAT       ALIGNMENT_FLOAT
 
 #define SIZEOF_HSPTR            SIZEOF_VOID_P
 #define ALIGNMENT_HSPTR         ALIGNMENT_VOID_P
 #ifndef WORD_SIZE_IN_BITS
 #if SIZEOF_HSWORD == 4
 #define WORD_SIZE_IN_BITS       32
+#define WORD_SIZE_IN_BITS_FLOAT 32.0
 #else 
 #define WORD_SIZE_IN_BITS       64
+#define WORD_SIZE_IN_BITS_FLOAT 64.0
 #endif
 #endif