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
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}
......
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