projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1998-11-26 09:17:22 by sof]
[ghc-hetmet.git]
/
ghc
/
includes
/
StgTypes.lh
diff --git
a/ghc/includes/StgTypes.lh
b/ghc/includes/StgTypes.lh
index
553cd46
..
824f56d
100644
(file)
--- a/
ghc/includes/StgTypes.lh
+++ b/
ghc/includes/StgTypes.lh
@@
-247,6
+247,14
@@
typedef union __dt
unpacked_double du;
} double_thing;
unpacked_double du;
} double_thing;
+typedef StgWord unpacked_float;
+
+typedef union __ft
+ { StgFloat f;
+ unpacked_float fu;
+ } float_thing;
+
+#if HAVE_LONG_LONG
typedef union __it
{ StgInt64 i;
unpacked_double iu;
typedef union __it
{ StgInt64 i;
unpacked_double iu;
@@
-256,13
+264,7
@@
typedef union __wt
{ StgWord64 w;
unpacked_double wu;
} word64_thing;
{ StgWord64 w;
unpacked_double wu;
} word64_thing;
-
-typedef StgWord unpacked_float;
-
-typedef union __ft
- { StgFloat f;
- unpacked_float fu;
- } float_thing;
+#endif
\end{code}
\end{code}