From 37ff4336c8ef3833a3f7f2a9b5f5bf0b06c363f7 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Fri, 28 Apr 2000 15:04:07 +0000
Subject: [PATCH] [project @ 2000-04-28 15:04:07 by panne] NCG now handles
writeBLAHOffAddr# primops
---
ghc/compiler/nativeGen/StixPrim.lhs | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index f32bb9903799..9d694b915cfa 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
--
GitLab