From e37f536c02953c87fa7ea8bc5066982dbe4ec04f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 11:04:08 +0000
Subject: [PATCH] [project @ 1998-08-14 11:04:08 by sof] define MAX_LONG_REG

---
 ghc/includes/GhcConstants.lh |   13 +++++++++++++
 1 file changed, 13 insertions(+)

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}
 
 %************************************************************************
-- 
1.7.10.4