From c38093b57a3effcc8156736787958cc6b65e963d Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Tue, 11 Jul 2000 19:28:34 +0000
Subject: [PATCH] [project @ 2000-07-11 19:28:34 by panne] Replace RcFloating
with RcFloat/RcDouble. I'm not exactly sure what I'm doing here, so somebody
else should better have a look.
---
ghc/compiler/nativeGen/RegAllocInfo.lhs | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/ghc/compiler/nativeGen/RegAllocInfo.lhs b/ghc/compiler/nativeGen/RegAllocInfo.lhs
index f55e49812198..392371ed8977 100644
--- a/ghc/compiler/nativeGen/RegAllocInfo.lhs
+++ b/ghc/compiler/nativeGen/RegAllocInfo.lhs
@@ -789,10 +789,9 @@ spillReg vreg_to_slot_map delta dyn vreg
{-I386: spill above stack pointer leaving 3 words/spill-}
,IF_ARCH_i386 ( let off_w = (off-delta) `div` 4
- in
- if regClass vreg == RcFloating
- then GST F80 dyn (spRel off_w)
- else MOV L (OpReg dyn) (OpAddr (spRel off_w))
+ in case regClass vreg of
+ RcInteger -> MOV L (OpReg dyn) (OpAddr (spRel off_w))
+ _ -> GST F80 dyn (spRel off_w) -- RcFloat/RcDouble
{-SPARC: spill below frame pointer leaving 2 words/spill-}
,IF_ARCH_sparc(
@@ -813,10 +812,9 @@ loadReg vreg_to_slot_map delta vreg dyn
IF_ARCH_alpha( LD sz dyn (spRel (- (off `div` 8)))
,IF_ARCH_i386 ( let off_w = (off-delta) `div` 4
- in
- if regClass vreg == RcFloating
- then GLD F80 (spRel off_w) dyn
- else MOV L (OpAddr (spRel off_w)) (OpReg dyn)
+ in case regClass vreg of
+ RcInteger -> MOV L (OpAddr (spRel off_w)) (OpReg dyn)
+ _ -> GLD F80 (spRel off_w) dyn -- RcFloat/RcDouble
,IF_ARCH_sparc(
let off_w = 1 + (off `div` 4)
--
GitLab