From 045da280ff3bbb04822101886e32c7b846dc7ab6 Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 25 Aug 1997 21:03:29 +0000 Subject: [PATCH] [project @ 1997-08-25 21:03:29 by sof] Added index{Char,Int,Addr,FloatDouble}OffForeignObjZh macros --- ghc/includes/StgMacros.lh | 6 ++++++ 1 file changed, 6 insertions(+) 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] -- 1.7.10.4