From ea61a2f06fbf6bdbfab54397b9b173936376ff83 Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Fri, 1 Sep 2000 18:28:41 +0000
Subject: [PATCH] [project @ 2000-09-01 18:28:41 by qrczak] ForeignObjs were
incorrectly passed to foreign functions by the NCG. Fixed.
---
ghc/compiler/nativeGen/StixPrim.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index 388bb864e074..1f5fde1da62b 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
--
GitLab