From: sof <unknown>
Date: Mon, 25 Aug 1997 21:03:29 +0000 (+0000)
Subject: [project @ 1997-08-25 21:03:29 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~141
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=045da280ff3bbb04822101886e32c7b846dc7ab6;p=ghc-hetmet.git

[project @ 1997-08-25 21:03:29 by sof]
Added index{Char,Int,Addr,FloatDouble}OffForeignObjZh macros
---

diff --git a/ghc/includes/StgMacros.lh b/ghc/includes/StgMacros.lh
index 19baff8..3c5d48a 100644
--- a/ghc/includes/StgMacros.lh
+++ b/ghc/includes/StgMacros.lh
@@ -1163,6 +1163,12 @@ of one ptr (not bytes).
 #define indexFloatArrayZh(r,a,i)  indexFloatOffAddrZh(r,BYTE_ARR_CTS(a),i)
 #define indexDoubleArrayZh(r,a,i) indexDoubleOffAddrZh(r,BYTE_ARR_CTS(a),i)
 
+#define indexCharOffForeignObjZh(r,fo,i)   indexCharOffAddrZh(r,ForeignObj_CLOSURE_DATA(fo),i)
+#define indexIntOffForeignObjZh(r,fo,i)    indexIntOffAddrZh(r,ForeignObj_CLOSURE_DATA(fo),i)
+#define indexAddrOffForeignObjZh(r,fo,i)   indexAddrOffAddrZh(r,ForeignObj_CLOSURE_DATA(fo),i)
+#define indexFloatOffForeignObjZh(r,fo,i)  indexFloatOffAddrZh(r,ForeignObj_CLOSURE_DATA(fo),i)
+#define indexDoubleOffForeignObjZh(r,fo,i) indexDoubleOffAddrZh(r,ForeignObj_CLOSURE_DATA(fo),i)
+
 #define indexCharOffAddrZh(r,a,i)   r= ((C_ *)(a))[i]
 #define indexIntOffAddrZh(r,a,i)    r= ((I_ *)(a))[i]
 #define indexAddrOffAddrZh(r,a,i)   r= ((PP_)(a))[i]