diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2017-11-09 00:38:53 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2017-11-09 00:38:53 +0100 |
| commit | 6bd352a85ffe9a649848dc79b017bb018e246d36 (patch) | |
| tree | 8aab593e6b8fd7f1318ed0cba4b2a8e77d551bc5 /rts/PrimOps.cmm | |
| parent | 803ed036704aa5bab8b0f1fee407e58d82c85393 (diff) | |
| download | haskell-6bd352a85ffe9a649848dc79b017bb018e246d36.tar.gz | |
Remove left-overs from compareByteArray# inline conversion
These removes left-overs from e3ba26f8b49700b41ff4672f3f7f6a4e453acdcc
where I implemented `compareByteArray#` as an out-of-line primop, which
got optimised into an inline primop shortly afterwards
(as per 7673561555ae354fd9eed8de1e57c681906e2d49).
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 467353a730..1dad14bc1b 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -152,20 +152,6 @@ stg_newAlignedPinnedByteArrayzh ( W_ n, W_ alignment ) return (p); } -stg_compareByteArrayszh ( gcptr src1, W_ src1_ofs, gcptr src2, W_ src2_ofs, W_ size ) -// ByteArray# -> Int# -> ByteArray# -> Int# -> Int# -> Int# -{ - CInt res; - W_ src1p, src2p; - - src1p = src1 + SIZEOF_StgHeader + OFFSET_StgArrBytes_payload + src1_ofs; - src2p = src2 + SIZEOF_StgHeader + OFFSET_StgArrBytes_payload + src2_ofs; - - (res) = ccall memcmp(src1p "ptr", src2p "ptr", size); - - return (TO_W_(res)); -} - stg_isByteArrayPinnedzh ( gcptr ba ) // ByteArray# s -> Int# { |