ForeignObjs were incorrectly passed to foreign functions by the NCG.
Fixed.
case getAmodeRep x of
ArrayRep -> StIndex PtrRep base arrPtrsHS
ByteArrayRep -> StIndex IntRep base arrWordsHS
case getAmodeRep x of
ArrayRep -> StIndex PtrRep base arrPtrsHS
ByteArrayRep -> StIndex IntRep base arrWordsHS
- ForeignObjRep -> StIndex PtrRep base fixedHS
+ ForeignObjRep -> StInd PtrRep (StIndex PtrRep base fixedHS)
_ -> base
ccall = case lhs of
_ -> base
ccall = case lhs of