alpha problems with ghc 6.4

[Ian Lynagh]

Hi,

An alpha build of ghc 6.4 quickly fails because of the

#if alpha_TARGET_ARCH
import PrimRep      ( getPrimRepSize, isFloatingRep )
import Type     ( typePrimRep )
#endif

in ghc/compiler/typecheck/TcForeign.lhs which no longer exist.
Fortunately, the imported functions aren't used either.

Unfortunately, the build then fails when it comes to try to compile this
same file as the typeMachRepRep function, used in this piece of code:

\begin{code}
#include "nativeGen/NCG.h"
#if alpha_TARGET_ARCH
checkFEDArgs arg_tys
  = check (integral_args <= 32) err
  where
    integral_args = sum [ machRepByteWidth rep
            | (rep,hint) <- map typeMachRepRep arg_tys,
              hint /= FloatHint ]
    err = ptext SLIT("On Alpha, I can only handle 4 non-floating-point arguments to foreign export dynamic")
#else
checkFEDArgs arg_tys = returnM ()
#endif
\end{code}

doesn't exist. Is this fixable?


Thanks
Ian