src/zfree.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
30
31
32
33

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


void
zfree(z_t a)
{
	size_t i, x, j;
	zahl_char_t **new;

	if (unlikely(!a->chars))
		return;

	i = libzahl_msb_nz_zu(a->alloced);
	j = libzahl_pool_n[i]++;

	if (j == libzahl_pool_alloc[i]) {
		x = j ? ((j * 3) >> 1) : 128;
		new = realloc(libzahl_pool[i], x * sizeof(zahl_char_t *));
		if (!new) {
			free(a->chars);
			free(libzahl_pool[i]);
			libzahl_pool_n[i] = 0;
			libzahl_pool[i] = 0;
			libzahl_pool_alloc[i] = 0;
			return;
		}
		libzahl_pool[i] = new;
		libzahl_pool_alloc[i] = x;
	}

	libzahl_pool[i][j] = a->chars;
}