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

[ghc-hetmet.git] / ghc / compiler / nativeGen / StixPrim.lhs

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index a035b83..38dfa3a 100644 (file)
--- 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