projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
1802983
)
[project @ 2000-04-28 15:04:07 by panne]
author
panne
<unknown>
Fri, 28 Apr 2000 15:04:07 +0000
(15:04 +0000)
committer
panne
<unknown>
Fri, 28 Apr 2000 15:04:07 +0000
(15:04 +0000)
NCG now handles writeBLAHOffAddr# primops
ghc/compiler/nativeGen/StixPrim.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/nativeGen/StixPrim.lhs
b/ghc/compiler/nativeGen/StixPrim.lhs
index
f32bb99
..
9d694b9
100644
(file)
--- a/
ghc/compiler/nativeGen/StixPrim.lhs
+++ b/
ghc/compiler/nativeGen/StixPrim.lhs
@@
-200,6
+200,15
@@
primCode [lhs] (IndexOffForeignObjOp pk) [obj, ix]
in
returnUs (\xs -> assign : xs)
+primCode [] (WriteOffAddrOp pk) [obj, ix, v]
+ = let
+ obj' = amodeToStix obj
+ ix' = amodeToStix ix
+ v' = amodeToStix v
+ assign = StAssign pk (StInd pk (StIndex pk obj' ix')) v'
+ in
+ returnUs (\xs -> assign : xs)
+
primCode [] (WriteByteArrayOp pk) [obj, ix, v]
= let
obj' = amodeToStix obj