From: sewardj <unknown>
Date: Thu, 6 Sep 2001 10:03:32 +0000 (+0000)
Subject: [project @ 2001-09-06 10:03:32 by sewardj]
X-Git-Tag: Approximately_9120_patches~1023
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d813d1652cafa0f840b4b38a2a4c0b0502c781e4;p=ghc-hetmet.git

[project @ 2001-09-06 10:03:32 by sewardj]
Fix cpp-inspired sparc breakage.  Sigh.
---

diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs
index 3236ec0..ab0961e 100644
--- a/ghc/compiler/typecheck/TcForeign.lhs
+++ b/ghc/compiler/typecheck/TcForeign.lhs
@@ -161,7 +161,8 @@ checkFEDArgs arg_tys
   where
     words_of_args = sum (map (getPrimRepSize . typePrimRep) arg_tys)
     err = ptext SLIT("On SPARC, I can only handle 4 words of arguments to foreign export dynamic")
-#elsif alpha_TARGET_ARCH
+#else
+#if alpha_TARGET_ARCH
 checkFEDArgs arg_tys
   = check (integral_args <= 4) err
   where
@@ -171,6 +172,7 @@ checkFEDArgs arg_tys
 #else
 checkFEDArgs arg_tys = returnNF_Tc ()
 #endif
+#endif
 \end{code}