src/znot.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

/* 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);
	SET(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);
}