Commit d813d165 authored by sewardj's avatar sewardj
Browse files

[project @ 2001-09-06 10:03:32 by sewardj]

Fix cpp-inspired sparc breakage.  Sigh.
parent d08db632
...@@ -161,7 +161,8 @@ checkFEDArgs arg_tys ...@@ -161,7 +161,8 @@ checkFEDArgs arg_tys
where where
words_of_args = sum (map (getPrimRepSize . typePrimRep) arg_tys) 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") 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 checkFEDArgs arg_tys
= check (integral_args <= 4) err = check (integral_args <= 4) err
where where
...@@ -171,6 +172,7 @@ checkFEDArgs arg_tys ...@@ -171,6 +172,7 @@ checkFEDArgs arg_tys
#else #else
checkFEDArgs arg_tys = returnNF_Tc () checkFEDArgs arg_tys = returnNF_Tc ()
#endif #endif
#endif
\end{code} \end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment