From: sof <unknown>
Date: Fri, 14 Aug 1998 11:04:08 +0000 (+0000)
Subject: [project @ 1998-08-14 11:04:08 by sof]
X-Git-Tag: Approx_2487_patches~432
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e37f536c02953c87fa7ea8bc5066982dbe4ec04f;p=ghc-hetmet.git

[project @ 1998-08-14 11:04:08 by sof]
define MAX_LONG_REG
---

diff --git a/ghc/includes/GhcConstants.lh b/ghc/includes/GhcConstants.lh
index 6acf111..e3dae80 100644
--- a/ghc/includes/GhcConstants.lh
+++ b/ghc/includes/GhcConstants.lh
@@ -56,6 +56,18 @@ The size of an StgDouble, in StgWords.
 #endif
 \end{code}
 
+The size of an Stg{Int,Word}64, in StgWords.
+
+\begin{code}
+#if alpha_TARGET_ARCH
+#define WORD64_SIZE 	1
+#define INT64_SIZE 	1
+#else
+#define WORD64_SIZE 	2
+#define INT64_SIZE 	2
+#endif
+\end{code}
+
 Sizes of gmp objects, in StgWords
 
 \begin{code}
@@ -94,6 +106,7 @@ do the selection at GC time):
 #define MAX_VANILLA_REG 8
 #define MAX_FLOAT_REG 4
 #define MAX_DOUBLE_REG 2
+#define MAX_LONG_REG 2
 \end{code}
 
 %************************************************************************