From 92ddb923ba5904c94fb7c8d40dfc2f37eb21da52 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 29 Jul 1999 13:13:58 +0000
Subject: [PATCH] [project @ 1999-07-29 13:13:58 by sof] Another cosmetic
 change - avoid desugar warning

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

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index d90d93e..bf0b939 100644
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -799,6 +799,9 @@ callClobberedRegs
 argRegs :: Int -> [Reg]
 
 argRegs 0 = []
+#if i386_TARGET_ARCH
+argRegs _ = panic "MachRegs.argRegs: doesn't work on I386"
+#else
 #if alpha_TARGET_ARCH
 argRegs 1 = freeMappedRegs [16, fReg 16]
 argRegs 2 = freeMappedRegs [16, 17, fReg 16, fReg 17]
@@ -807,9 +810,6 @@ argRegs 4 = freeMappedRegs [16, 17, 18, 19, fReg 16, fReg 17, fReg 18, fReg 19]
 argRegs 5 = freeMappedRegs [16, 17, 18, 19, 20, fReg 16, fReg 17, fReg 18, fReg 19, fReg 20]
 argRegs 6 = freeMappedRegs [16, 17, 18, 19, 20, 21, fReg 16, fReg 17, fReg 18, fReg 19, fReg 20, fReg 21]
 #endif {- alpha_TARGET_ARCH -}
-#if i386_TARGET_ARCH
-argRegs _ = panic "MachRegs.argRegs: doesn't work on I386"
-#endif {- i386_TARGET_ARCH -}
 #if sparc_TARGET_ARCH
 argRegs 1 = freeMappedRegs (map oReg [0])
 argRegs 2 = freeMappedRegs (map oReg [0,1])
@@ -819,6 +819,7 @@ argRegs 5 = freeMappedRegs (map oReg [0,1,2,3,4])
 argRegs 6 = freeMappedRegs (map oReg [0,1,2,3,4,5])
 #endif {- sparc_TARGET_ARCH -}
 argRegs _ = panic "MachRegs.argRegs: don't know about >6 arguments!"
+#endif {- i386_TARGET_ARCH -}
 
 -------------------------------
 
-- 
1.7.10.4