From: sewardj <unknown>
Date: Fri, 27 Oct 2000 11:02:05 +0000 (+0000)
Subject: [project @ 2000-10-27 11:02:05 by sewardj]
X-Git-Tag: Approximately_9120_patches~3493
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6669da7f058f8583fc92b82922e9c0c62b428c7a;p=ghc-hetmet.git

[project @ 2000-10-27 11:02:05 by sewardj]
baseRegOffset: handle long-regs correctly.
---

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