From 6669da7f058f8583fc92b82922e9c0c62b428c7a Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 27 Oct 2000 11:02:05 +0000
Subject: [PATCH] [project @ 2000-10-27 11:02:05 by sewardj] baseRegOffset:
 handle long-regs correctly.

---
 ghc/compiler/nativeGen/MachRegs.lhs |    7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index f54401e..6ef3594 100644
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -623,11 +623,8 @@ baseRegOffset (DoubleReg 2#)         = OFFSET_D2
 baseRegOffset Sp		     = OFFSET_Sp
 baseRegOffset Su		     = OFFSET_Su
 baseRegOffset SpLim		     = OFFSET_SpLim
-#ifdef OFFSET_Lng1
-baseRegOffset (LongReg _ 1))         = OFFSET_Lng1
-#endif
-#ifdef OFFSET_Lng2
-baseRegOffset (LongReg _ 2))         = OFFSET_Lng2
+#ifdef OFFSET_L1
+baseRegOffset (LongReg _ 1#)         = OFFSET_L1
 #endif
 baseRegOffset Hp		     = OFFSET_Hp
 baseRegOffset HpLim		     = OFFSET_HpLim
-- 
1.7.10.4