On 29 June 2005 04:47, Ian Lynagh wrote:

On Tue, Jun 28, 2005 at 12:14:08PM +0100, Simon Marlow wrote:

...

On 27 June 2005 17:53, Michiel Buddingh' wrote:

...

Commented out:

#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")

from TcForeign.lhs. typeMachRepRep was nowhere to be found (not in ghc-6.4, or any earlier released version), and I wasn't able to figure out what, exactly, it does. It seemed like an RTS thing, so I decided to comment it out, and the build proceded. Not sure if that was such a wise idea now.

That looks like a sanity check that has bitrotted. You can ignore it until you need to get 'foreign import "wrapper"' working.

This works (or at least compiles!) on Linux/Alpha:

Committed, thanks. Simon