From e266b13aaf18bd3bcbbd75e6a063f62ebb326828 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 24 May 2001 15:01:33 +0000
Subject: [PATCH] [project @ 2001-05-24 15:01:33 by simonpj] wibble

---
 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 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
-- 
1.7.10.4