From: simonpj <unknown>
Date: Thu, 24 May 2001 15:01:33 +0000 (+0000)
Subject: [project @ 2001-05-24 15:01:33 by simonpj]
X-Git-Tag: Approximately_9120_patches~1881
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e266b13aaf18bd3bcbbd75e6a063f62ebb326828;p=ghc-hetmet.git

[project @ 2001-05-24 15:01:33 by simonpj]
wibble
---

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index a035b83..38dfa3a 100644
--- a/ghc/compiler/nativeGen/StixPrim.lhs
+++ b/ghc/compiler/nativeGen/StixPrim.lhs
@@ -69,7 +69,7 @@ rather than inheriting the calling convention of the thing which we're really
 calling.
 
 \begin{code}
-foreignCallCode lhs (CCall (CCallSpec (StaticTarget fn) cconv safety is_asm)) rhs
+foreignCallCode lhs (CCall (CCallSpec (StaticTarget fn) cconv safety)) rhs
   | not (playSafe safety) = returnUs (\xs -> ccall : xs)
 
   | otherwise