diff options
| author | Mattias Andrée <maandree@kth.se> | 2016-03-02 21:07:08 +0100 |
|---|---|---|
| committer | Mattias Andrée <maandree@kth.se> | 2016-03-02 21:07:08 +0100 |
| commit | 3ae8c069900514c1785fe4a84b6cdb0157dff59e (patch) | |
| tree | aec0c146010be40239c1582a8b8ae6e7b28aa045 /src/zbtest.c | |
| parent | Add zgcd (diff) | |
| download | libzahl-3ae8c069900514c1785fe4a84b6cdb0157dff59e.tar.gz libzahl-3ae8c069900514c1785fe4a84b6cdb0157dff59e.tar.bz2 libzahl-3ae8c069900514c1785fe4a84b6cdb0157dff59e.tar.xz | |
Add zand, zor, zxor, znot, zbtest, zsplit, and the newly introduced ztrunc
Signed-off-by: Mattias Andrée <maandree@kth.se>
Diffstat (limited to 'src/zbtest.c')
| -rw-r--r-- | src/zbtest.c | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/zbtest.c b/src/zbtest.c new file mode 100644 index 0000000..8e9f8ff --- /dev/null +++ b/src/zbtest.c @@ -0,0 +1,18 @@ +/* See LICENSE file for copyright and license details. */ +#include "internals" + + +int +zbtest(z_t a, size_t bit) +{ + size_t chars; + if (zzero(a)) + return 0; + + chars = bit >> LB_BITS_PER_CHAR; + if (chars >= a->used) + return 0; + + bit &= BITS_PER_CHAR - 1; + return (a->chars[chars] >> bit) & 1; +} |
