From 128875b501bc2989617ae553317b80faa556d752 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Thu, 15 Aug 2019 16:11:30 +0100 Subject: chore: Remove remaining Bazel-related files --- .../examples/primitive/cbits/primitive-memops.c | 56 ---------------------- 1 file changed, 56 deletions(-) delete mode 100644 third_party/bazel/rules_haskell/examples/primitive/cbits/primitive-memops.c (limited to 'third_party/bazel/rules_haskell/examples/primitive/cbits/primitive-memops.c') diff --git a/third_party/bazel/rules_haskell/examples/primitive/cbits/primitive-memops.c b/third_party/bazel/rules_haskell/examples/primitive/cbits/primitive-memops.c deleted file mode 100644 index 81b1d6f57530..000000000000 --- a/third_party/bazel/rules_haskell/examples/primitive/cbits/primitive-memops.c +++ /dev/null @@ -1,56 +0,0 @@ -#include -#include "primitive-memops.h" - -void hsprimitive_memcpy( void *dst, ptrdiff_t doff, void *src, ptrdiff_t soff, size_t len ) -{ - memcpy( (char *)dst + doff, (char *)src + soff, len ); -} - -void hsprimitive_memmove( void *dst, ptrdiff_t doff, void *src, ptrdiff_t soff, size_t len ) -{ - memmove( (char *)dst + doff, (char *)src + soff, len ); -} - -#define MEMSET(TYPE, ATYPE) \ -void hsprimitive_memset_ ## TYPE (Hs ## TYPE *p, ptrdiff_t off, size_t n, ATYPE x) \ -{ \ - p += off; \ - if (x == 0) \ - memset(p, 0, n * sizeof(Hs ## TYPE)); \ - else if (sizeof(Hs ## TYPE) == sizeof(int)*2) { \ - int *q = (int *)p; \ - const int *r = (const int *)(void *)&x; \ - while (n>0) { \ - q[0] = r[0]; \ - q[1] = r[1]; \ - q += 2; \ - --n; \ - } \ - } \ - else { \ - while (n>0) { \ - *p++ = x; \ - --n; \ - } \ - } \ -} - -int hsprimitive_memcmp( HsWord8 *s1, HsWord8 *s2, size_t n ) -{ - return memcmp( s1, s2, n ); -} - -void hsprimitive_memset_Word8 (HsWord8 *p, ptrdiff_t off, size_t n, HsWord x) -{ - memset( (char *)(p+off), x, n ); -} - -/* MEMSET(HsWord8, HsWord) */ -MEMSET(Word16, HsWord) -MEMSET(Word32, HsWord) -MEMSET(Word64, HsWord64) -MEMSET(Word, HsWord) -MEMSET(Ptr, HsPtr) -MEMSET(Float, HsFloat) -MEMSET(Double, HsDouble) -MEMSET(Char, HsChar) -- cgit 1.4.1