src/zsetu.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

/* See LICENSE file for copyright and license details. */
#include "internals.h"

#define SIZE_MULTIPLE(fit, in)  ((sizeof(fit) + sizeof(in) - 1) / sizeof(in))


void
zsetu(z_t a, unsigned long long int b)
{
	if (!b) {
		SET_SIGNUM(a, 0);
		return;
	}
	if (a->alloced < SIZE_MULTIPLE(b, *(a->chars)))
		zahl_realloc(a, SIZE_MULTIPLE(b, *(a->chars)));
	SET_SIGNUM(a, 1);
	a->used = 0;
	while (b) {
		a->chars[a->used++] = (zahl_char_t)b;
		b >>= BITS_PER_CHAR;
	}
}