From: panne <unknown>
Date: Fri, 28 Apr 2000 15:04:07 +0000 (+0000)
Subject: [project @ 2000-04-28 15:04:07 by panne]
X-Git-Tag: Approximately_9120_patches~4579
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=37ff4336c8ef3833a3f7f2a9b5f5bf0b06c363f7;p=ghc-hetmet.git

[project @ 2000-04-28 15:04:07 by panne]
NCG now handles writeBLAHOffAddr# primops
---

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index f32bb99..9d694b9 100644
--- 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