diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2022-06-15 16:56:37 +0200 |
|---|---|---|
| committer | Sylvain Henry <sylvain@haskus.fr> | 2022-06-15 16:56:37 +0200 |
| commit | 91746c5f04534ee7c7e4a3430e44d21d359da456 (patch) | |
| tree | e82851e8e19bbf4d2ebcda778c45024b21af85ae /compiler | |
| parent | 874a45c5ca0d785f69ae404bb20bb73d7fd9a10d (diff) | |
| download | haskell-91746c5f04534ee7c7e4a3430e44d21d359da456.tar.gz | |
Add primop
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/StgToJS/Prim.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/StgToJS/Prim.hs b/compiler/GHC/StgToJS/Prim.hs index b1538989d7..1aa8533e7d 100644 --- a/compiler/GHC/StgToJS/Prim.hs +++ b/compiler/GHC/StgToJS/Prim.hs @@ -445,6 +445,7 @@ genPrim _ _ NewAlignedPinnedByteArrayOp_Char [r] [l,_align] = PrimInline (newB genPrim _ _ MutableByteArrayIsPinnedOp [r] [_] = PrimInline $ r |= one_ genPrim _ _ ByteArrayIsPinnedOp [r] [_] = PrimInline $ r |= one_ genPrim _ _ ByteArrayContents_Char [a,o] [b] = PrimInline $ mconcat [a |= b, o |= zero_] +genPrim _ _ MutableByteArrayContents_Char [a,o] [b] = PrimInline $ mconcat [a |= b, o |= zero_] genPrim _ _ ShrinkMutableByteArrayOp_Char [] [a,n] = PrimInline $ appS "h$shrinkMutableByteArray" [a,n] genPrim _ _ ResizeMutableByteArrayOp_Char [r] [a,n] = PrimInline $ r |= app "h$resizeMutableByteArray" [a,n] genPrim _ _ UnsafeFreezeByteArrayOp [a] [b] = PrimInline $ a |= b |