diff options
| -rw-r--r-- | includes/stg/MiscClosures.h | 1 | ||||
| -rw-r--r-- | rts/PrimOps.cmm | 14 | ||||
| -rw-r--r-- | rts/RtsSymbols.c | 1 |
3 files changed, 0 insertions, 16 deletions
diff --git a/includes/stg/MiscClosures.h b/includes/stg/MiscClosures.h index 66e26545f8..76cfbd6c8c 100644 --- a/includes/stg/MiscClosures.h +++ b/includes/stg/MiscClosures.h @@ -351,7 +351,6 @@ RTS_FUN_DECL(stg_casArrayzh); RTS_FUN_DECL(stg_newByteArrayzh); RTS_FUN_DECL(stg_newPinnedByteArrayzh); RTS_FUN_DECL(stg_newAlignedPinnedByteArrayzh); -RTS_FUN_DECL(stg_compareByteArrayszh); RTS_FUN_DECL(stg_isByteArrayPinnedzh); RTS_FUN_DECL(stg_isMutableByteArrayPinnedzh); RTS_FUN_DECL(stg_shrinkMutableByteArrayzh); 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# { diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c index ff15d77905..dd233fad36 100644 --- a/rts/RtsSymbols.c +++ b/rts/RtsSymbols.c @@ -674,7 +674,6 @@ SymI_HasProto(stg_casMutVarzh) \ SymI_HasProto(stg_newPinnedByteArrayzh) \ SymI_HasProto(stg_newAlignedPinnedByteArrayzh) \ - SymI_HasProto(stg_compareByteArrayszh) \ SymI_HasProto(stg_isByteArrayPinnedzh) \ SymI_HasProto(stg_isMutableByteArrayPinnedzh) \ SymI_HasProto(stg_shrinkMutableByteArrayzh) \ |