projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tidy up comments in DynFlags
[ghc-hetmet.git]
/
rts
/
StgPrimFloat.c
diff --git
a/rts/StgPrimFloat.c
b/rts/StgPrimFloat.c
index
5bd6aeb
..
9521094
100644
(file)
--- a/
rts/StgPrimFloat.c
+++ b/
rts/StgPrimFloat.c
@@
-48,7
+48,7
@@
#define FMSBIT 0x80000000
#endif
#define FMSBIT 0x80000000
#endif
-#ifdef WORDS_BIGENDIAN
+#if defined(WORDS_BIGENDIAN) || defined(FLOAT_WORDS_BIGENDIAN)
#define L 1
#define H 0
#else
#define L 1
#define H 0
#else
@@
-307,11
+307,18
@@
union stg_ieee754_dbl
unsigned int mantissa0:20;
unsigned int mantissa1:32;
#else
unsigned int mantissa0:20;
unsigned int mantissa1:32;
#else
+#if FLOAT_WORDS_BIGENDIAN
+ unsigned int mantissa0:20;
+ unsigned int exponent:11;
+ unsigned int negative:1;
+ unsigned int mantissa1:32;
+#else
unsigned int mantissa1:32;
unsigned int mantissa0:20;
unsigned int exponent:11;
unsigned int negative:1;
#endif
unsigned int mantissa1:32;
unsigned int mantissa0:20;
unsigned int exponent:11;
unsigned int negative:1;
#endif
+#endif
} ieee;
/* This format makes it easier to see if a NaN is a signalling NaN. */
struct {
} ieee;
/* This format makes it easier to see if a NaN is a signalling NaN. */
struct {
@@
-323,12
+330,20
@@
union stg_ieee754_dbl
unsigned int mantissa0:19;
unsigned int mantissa1:32;
#else
unsigned int mantissa0:19;
unsigned int mantissa1:32;
#else
+#if FLOAT_WORDS_BIGENDIAN
+ unsigned int mantissa0:19;
+ unsigned int quiet_nan:1;
+ unsigned int exponent:11;
+ unsigned int negative:1;
+ unsigned int mantissa1:32;
+#else
unsigned int mantissa1:32;
unsigned int mantissa0:19;
unsigned int quiet_nan:1;
unsigned int exponent:11;
unsigned int negative:1;
#endif
unsigned int mantissa1:32;
unsigned int mantissa0:19;
unsigned int quiet_nan:1;
unsigned int exponent:11;
unsigned int negative:1;
#endif
+#endif
} ieee_nan;
};
} ieee_nan;
};