diff options
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# { |