From 3534b428629be185e096be99e3bd5fdfe32d5544 Mon Sep 17 00:00:00 2001 From: Laurent Bercot Date: Thu, 18 Sep 2014 18:55:44 +0000 Subject: initial commit with rc for skalibs-2.0.0.0 --- src/libstddjb/bitarray_testandpoke.c | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 src/libstddjb/bitarray_testandpoke.c (limited to 'src/libstddjb/bitarray_testandpoke.c') diff --git a/src/libstddjb/bitarray_testandpoke.c b/src/libstddjb/bitarray_testandpoke.c new file mode 100644 index 0000000..5075f1d --- /dev/null +++ b/src/libstddjb/bitarray_testandpoke.c @@ -0,0 +1,11 @@ +/* ISC license. */ + +#include + +int bitarray_testandpoke (register unsigned char *s, register unsigned int n, register int h) +{ + register unsigned char mask = 1 << (n & 7) ; + register unsigned char c = s[n>>3] ; + s[n>>3] = h ? c | mask : c & ~mask ; + return (c & mask) ? 1 : 0 ; +} -- cgit v1.3.1