projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[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)))