projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d08db63
)
[project @ 2001-09-06 10:03:32 by sewardj]
author
sewardj
<unknown>
Thu, 6 Sep 2001 10:03:32 +0000
(10:03 +0000)
committer
sewardj
<unknown>
Thu, 6 Sep 2001 10:03:32 +0000
(10:03 +0000)
Fix cpp-inspired sparc breakage. Sigh.
ghc/compiler/typecheck/TcForeign.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/typecheck/TcForeign.lhs
b/ghc/compiler/typecheck/TcForeign.lhs
index
3236ec0
..
ab0961e
100644
(file)
--- 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}