[project @ 2002-02-06 11:13:47 by sewardj]

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

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index 6d6db58..5bac1b5 100644 (file)
--- a/ghc/compiler/nativeGen/StixPrim.lhs
+++ b/ghc/compiler/nativeGen/StixPrim.lhs
@@ -147,8 +147,6 @@ amodeToStix (CVal rr pk) = StInd pk (amodeToStix (CAddr rr))
 amodeToStix CBytesPerWord
   = StInt (toInteger wORD_SIZE)
 
-amodeToStix (CMem pk addr) = StInd pk (amodeToStix addr)
-
 amodeToStix (CAddr (SpRel off))
   = StIndex PtrRep (StReg stgSp) (StInt (toInteger (iBox off)))