From 3ae8c069900514c1785fe4a84b6cdb0157dff59e Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Wed, 2 Mar 2016 21:07:08 +0100 Subject: Add zand, zor, zxor, znot, zbtest, zsplit, and the newly introduced ztrunc MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- src/znot.c | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 src/znot.c (limited to 'src/znot.c') diff --git a/src/znot.c b/src/znot.c new file mode 100644 index 0000000..7f2f021 --- /dev/null +++ b/src/znot.c @@ -0,0 +1,30 @@ +/* See LICENSE file for copyright and license details. */ +#include "internals" + + +void +znot(z_t a, z_t b) +{ + size_t bits, n; + + if (zzero(b)) { + SET_SIGNUM(a, 0) + return; + } + + bits = zbits(b); + if (a != b) + zset(a, b); + SET_SIGNUM(a, -zsignum(a)); + + for (n = a->used; n--;) + a->chars[n] = ~(a->chars[n]); + bits &= BITS_PER_CHAR - 1; + a->chars[a->used - 1] &= ((zahl_char_t)1 << bits) - 1; + + while (; a->used; a->used--) + if (a->chars[a->used - 1]) + break; + if (!a->used) + SET_SIGNUM(a, 0); +} -- cgit v1.2.3-70-g09d2