References to the Rts in unregisterised first build of ghc 6.4

[Simon Marlow]

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