From: qrczak <unknown>
Date: Fri, 1 Sep 2000 18:28:41 +0000 (+0000)
Subject: [project @ 2000-09-01 18:28:41 by qrczak]
X-Git-Tag: Approximately_9120_patches~3812
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ea61a2f06fbf6bdbfab54397b9b173936376ff83;p=ghc-hetmet.git

[project @ 2000-09-01 18:28:41 by qrczak]
ForeignObjs were incorrectly passed to foreign functions by the NCG.
Fixed.
---

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index 388bb86..1f5fde1 100644
--- a/ghc/compiler/nativeGen/StixPrim.lhs
+++ b/ghc/compiler/nativeGen/StixPrim.lhs
@@ -278,7 +278,7 @@ primCode lhs (CCallOp (CCall (StaticTarget fn) is_asm may_gc cconv)) rhs
 	    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