[project @ 2001-10-17 11:50:38 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 45461ca..fecca7e 100644 (file)
--- a/ghc/compiler/nativeGen/StixPrim.lhs
+++ b/ghc/compiler/nativeGen/StixPrim.lhs
@@ -147,12 +147,6 @@ primCode [res] Int2WordOp [arg]
 primCode [res] Word2IntOp [arg]
   = simpleCoercion IntRep res arg
 
-primCode [res] AddrNullOp [arg]
-  = let
-        assign = StAssign AddrRep (amodeToStix res) (StInt 0) 
-    in
-    returnUs (\xs -> assign : xs)
-
 primCode [res] AddrToHValueOp [arg]
   = simpleCoercion PtrRep res arg