diff options
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmPrim.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/codeGen/StgCmmPrim.hs b/compiler/codeGen/StgCmmPrim.hs index d201eaf20b..7188c05e70 100644 --- a/compiler/codeGen/StgCmmPrim.hs +++ b/compiler/codeGen/StgCmmPrim.hs @@ -327,6 +327,11 @@ emitPrimOp dflags [res] SizeofByteArrayOp [arg] emitPrimOp dflags [res] SizeofMutableByteArrayOp [arg] = emitPrimOp dflags [res] SizeofByteArrayOp [arg] +-- #define getSizzeofMutableByteArrayzh(r,a) \ +-- r = ((StgArrWords *)(a))->bytes +emitPrimOp dflags [res] GetSizeofMutableByteArrayOp [arg] + = emitAssign (CmmLocal res) (cmmLoadIndexW dflags arg (fixedHdrSizeW dflags) (bWord dflags)) + -- #define touchzh(o) /* nothing */ emitPrimOp _ res@[] TouchOp args@[_arg] |