[commit: ghc] master: [ci skip] includes: detabify/dewhitespace HsFFI.h (a784afc)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:51:48 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/a784afcba03fac7f3f428a15b632792d2e404898/ghc
>---------------------------------------------------------------
commit a784afcba03fac7f3f428a15b632792d2e404898
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:41:46 2014 -0500
[ci skip] includes: detabify/dewhitespace HsFFI.h
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
a784afcba03fac7f3f428a15b632792d2e404898
includes/HsFFI.h | 168 +++++++++++++++++++++++++++----------------------------
1 file changed, 84 insertions(+), 84 deletions(-)
diff --git a/includes/HsFFI.h b/includes/HsFFI.h
index ab3b3eb..d51ee04 100644
--- a/includes/HsFFI.h
+++ b/includes/HsFFI.h
@@ -36,58 +36,58 @@ extern "C" {
#endif
#ifdef INT8_MIN
-#define __INT8_MIN INT8_MIN
-#define __INT16_MIN INT16_MIN
-#define __INT32_MIN INT32_MIN
-#define __INT64_MIN INT64_MIN
-#define __INT8_MAX INT8_MAX
-#define __INT16_MAX INT16_MAX
-#define __INT32_MAX INT32_MAX
-#define __INT64_MAX INT64_MAX
-#define __UINT8_MAX UINT8_MAX
-#define __UINT16_MAX UINT16_MAX
-#define __UINT32_MAX UINT32_MAX
-#define __UINT64_MAX UINT64_MAX
+#define __INT8_MIN INT8_MIN
+#define __INT16_MIN INT16_MIN
+#define __INT32_MIN INT32_MIN
+#define __INT64_MIN INT64_MIN
+#define __INT8_MAX INT8_MAX
+#define __INT16_MAX INT16_MAX
+#define __INT32_MAX INT32_MAX
+#define __INT64_MAX INT64_MAX
+#define __UINT8_MAX UINT8_MAX
+#define __UINT16_MAX UINT16_MAX
+#define __UINT32_MAX UINT32_MAX
+#define __UINT64_MAX UINT64_MAX
#else
/* if we had no luck, let's do it for ourselves (assuming 64bit long longs) */
-#define __INT8_MIN (-128)
-#define __INT16_MIN (-32767-1)
-#define __INT32_MIN (-2147483647-1)
-#define __INT64_MIN (-9223372036854775807LL-1)
-#define __INT8_MAX (127)
-#define __INT16_MAX (32767)
-#define __INT32_MAX (2147483647)
-#define __INT64_MAX (9223372036854775807LL)
-#define __UINT8_MAX (255U)
-#define __UINT16_MAX (65535U)
-#define __UINT32_MAX (4294967295U)
-#define __UINT64_MAX (18446744073709551615ULL)
+#define __INT8_MIN (-128)
+#define __INT16_MIN (-32767-1)
+#define __INT32_MIN (-2147483647-1)
+#define __INT64_MIN (-9223372036854775807LL-1)
+#define __INT8_MAX (127)
+#define __INT16_MAX (32767)
+#define __INT32_MAX (2147483647)
+#define __INT64_MAX (9223372036854775807LL)
+#define __UINT8_MAX (255U)
+#define __UINT16_MAX (65535U)
+#define __UINT32_MAX (4294967295U)
+#define __UINT64_MAX (18446744073709551615ULL)
#endif
/* get limits for floating point types */
#include <float.h>
-typedef StgChar HsChar;
-typedef StgInt HsInt;
-typedef StgInt8 HsInt8;
-typedef StgInt16 HsInt16;
-typedef StgInt32 HsInt32;
-typedef StgInt64 HsInt64;
+typedef StgChar HsChar;
+typedef StgInt HsInt;
+typedef StgInt8 HsInt8;
+typedef StgInt16 HsInt16;
+typedef StgInt32 HsInt32;
+typedef StgInt64 HsInt64;
typedef StgWord HsWord;
-typedef StgWord8 HsWord8;
-typedef StgWord16 HsWord16;
-typedef StgWord32 HsWord32;
-typedef StgWord64 HsWord64;
-typedef StgFloat HsFloat;
-typedef StgDouble HsDouble;
-typedef StgInt HsBool;
-typedef void* HsPtr; /* this should better match StgAddr */
-typedef void (*HsFunPtr)(void); /* this should better match StgAddr */
-typedef void* HsStablePtr;
+typedef StgWord8 HsWord8;
+typedef StgWord16 HsWord16;
+typedef StgWord32 HsWord32;
+typedef StgWord64 HsWord64;
+typedef StgFloat HsFloat;
+typedef StgDouble HsDouble;
+typedef StgInt HsBool;
+typedef void* HsPtr; /* this should better match StgAddr */
+typedef void (*HsFunPtr)(void); /* this should better match StgAddr */
+typedef void* HsStablePtr;
/* this should correspond to the type of StgChar in StgTypes.h */
-#define HS_CHAR_MIN 0
-#define HS_CHAR_MAX 0x10FFFF
+#define HS_CHAR_MIN 0
+#define HS_CHAR_MAX 0x10FFFF
/* is it true or not? */
#define HS_BOOL_FALSE 0
@@ -98,53 +98,53 @@ typedef void* HsStablePtr;
/* this mirrors the distinction of cases in StgTypes.h */
#if SIZEOF_VOID_P == 8
-#define HS_INT_MIN __INT64_MIN
-#define HS_INT_MAX __INT64_MAX
-#define HS_WORD_MAX __UINT64_MAX
+#define HS_INT_MIN __INT64_MIN
+#define HS_INT_MAX __INT64_MAX
+#define HS_WORD_MAX __UINT64_MAX
#elif SIZEOF_VOID_P == 4
-#define HS_INT_MIN __INT32_MIN
-#define HS_INT_MAX __INT32_MAX
-#define HS_WORD_MAX __UINT32_MAX
+#define HS_INT_MIN __INT32_MIN
+#define HS_INT_MAX __INT32_MAX
+#define HS_WORD_MAX __UINT32_MAX
#else
#error GHC untested on this architecture: sizeof(void *) != 4 or 8
#endif
-#define HS_INT8_MIN __INT8_MIN
-#define HS_INT8_MAX __INT8_MAX
-#define HS_INT16_MIN __INT16_MIN
-#define HS_INT16_MAX __INT16_MAX
-#define HS_INT32_MIN __INT32_MIN
-#define HS_INT32_MAX __INT32_MAX
-#define HS_INT64_MIN __INT64_MIN
-#define HS_INT64_MAX __INT64_MAX
-#define HS_WORD8_MAX __UINT8_MAX
-#define HS_WORD16_MAX __UINT16_MAX
-#define HS_WORD32_MAX __UINT32_MAX
-#define HS_WORD64_MAX __UINT64_MAX
-
-#define HS_FLOAT_RADIX FLT_RADIX
-#define HS_FLOAT_ROUNDS FLT_ROUNDS
-#define HS_FLOAT_EPSILON FLT_EPSILON
-#define HS_FLOAT_DIG FLT_DIG
-#define HS_FLOAT_MANT_DIG FLT_MANT_DIG
-#define HS_FLOAT_MIN FLT_MIN
-#define HS_FLOAT_MIN_EXP FLT_MIN_EXP
-#define HS_FLOAT_MIN_10_EXP FLT_MIN_10_EXP
-#define HS_FLOAT_MAX FLT_MAX
-#define HS_FLOAT_MAX_EXP FLT_MAX_EXP
-#define HS_FLOAT_MAX_10_EXP FLT_MAX_10_EXP
-
-#define HS_DOUBLE_RADIX DBL_RADIX
-#define HS_DOUBLE_ROUNDS DBL_ROUNDS
-#define HS_DOUBLE_EPSILON DBL_EPSILON
-#define HS_DOUBLE_DIG DBL_DIG
-#define HS_DOUBLE_MANT_DIG DBL_MANT_DIG
-#define HS_DOUBLE_MIN DBL_MIN
-#define HS_DOUBLE_MIN_EXP DBL_MIN_EXP
-#define HS_DOUBLE_MIN_10_EXP DBL_MIN_10_EXP
-#define HS_DOUBLE_MAX DBL_MAX
-#define HS_DOUBLE_MAX_EXP DBL_MAX_EXP
-#define HS_DOUBLE_MAX_10_EXP DBL_MAX_10_EXP
+#define HS_INT8_MIN __INT8_MIN
+#define HS_INT8_MAX __INT8_MAX
+#define HS_INT16_MIN __INT16_MIN
+#define HS_INT16_MAX __INT16_MAX
+#define HS_INT32_MIN __INT32_MIN
+#define HS_INT32_MAX __INT32_MAX
+#define HS_INT64_MIN __INT64_MIN
+#define HS_INT64_MAX __INT64_MAX
+#define HS_WORD8_MAX __UINT8_MAX
+#define HS_WORD16_MAX __UINT16_MAX
+#define HS_WORD32_MAX __UINT32_MAX
+#define HS_WORD64_MAX __UINT64_MAX
+
+#define HS_FLOAT_RADIX FLT_RADIX
+#define HS_FLOAT_ROUNDS FLT_ROUNDS
+#define HS_FLOAT_EPSILON FLT_EPSILON
+#define HS_FLOAT_DIG FLT_DIG
+#define HS_FLOAT_MANT_DIG FLT_MANT_DIG
+#define HS_FLOAT_MIN FLT_MIN
+#define HS_FLOAT_MIN_EXP FLT_MIN_EXP
+#define HS_FLOAT_MIN_10_EXP FLT_MIN_10_EXP
+#define HS_FLOAT_MAX FLT_MAX
+#define HS_FLOAT_MAX_EXP FLT_MAX_EXP
+#define HS_FLOAT_MAX_10_EXP FLT_MAX_10_EXP
+
+#define HS_DOUBLE_RADIX DBL_RADIX
+#define HS_DOUBLE_ROUNDS DBL_ROUNDS
+#define HS_DOUBLE_EPSILON DBL_EPSILON
+#define HS_DOUBLE_DIG DBL_DIG
+#define HS_DOUBLE_MANT_DIG DBL_MANT_DIG
+#define HS_DOUBLE_MIN DBL_MIN
+#define HS_DOUBLE_MIN_EXP DBL_MIN_EXP
+#define HS_DOUBLE_MIN_10_EXP DBL_MIN_10_EXP
+#define HS_DOUBLE_MAX DBL_MAX
+#define HS_DOUBLE_MAX_EXP DBL_MAX_EXP
+#define HS_DOUBLE_MAX_10_EXP DBL_MAX_10_EXP
extern void hs_init (int *argc, char **argv[]);
extern void hs_exit (void);
More information about the ghc-commits
mailing list