blob: a798ccca39c8a8f460034dc062318b0876619c0a (
plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/// @file
#include "../vortex.h"
#include "../jets.h"
#include "v1/jets.h"
#include "v2/jets.h"
#include "v1/allocate.h"
#include "v1/hashtable.h"
/* _cj_fink_free(): lose and free everything in a u3j_v1_fink.
*/
static void
_cj_v1_fink_free(u3p(u3j_v1_fink) fin_p)
{
c3_w i_w;
u3j_v1_fink* fin_u = u3to(u3j_v1_fink, fin_p);
u3a_v1_lose(fin_u->sat);
for ( i_w = 0; i_w < fin_u->len_w; ++i_w ) {
u3j_v1_fist* fis_u = &(fin_u->fis_u[i_w]);
u3a_v1_lose(fis_u->bat);
u3a_v1_lose(fis_u->pax);
}
u3a_v1_wfree(fin_u);
}
/* u3j_v1_rite_lose(): lose references of u3j_v1_rite (but do not free).
*/
void
u3j_v1_rite_lose(u3j_v1_rite* rit_u)
{
if ( (c3y == rit_u->own_o) && u3_none != rit_u->clu ) {
u3a_v1_lose(rit_u->clu);
_cj_v1_fink_free(rit_u->fin_p);
}
}
/* u3j_v1_site_lose(): lose references of u3j_v1_site (but do not free).
*/
void
u3j_v1_site_lose(u3j_v1_site* sit_u)
{
u3a_v1_lose(sit_u->axe);
if ( u3_none != sit_u->bat ) {
u3a_v1_lose(sit_u->bat);
}
if ( u3_none != sit_u->bas ) {
u3a_v1_lose(sit_u->bas);
}
if ( u3_none != sit_u->loc ) {
u3a_v1_lose(sit_u->loc);
u3a_v1_lose(sit_u->lab);
if ( c3y == sit_u->fon_o ) {
if ( sit_u->fin_p ) {
_cj_v1_fink_free(sit_u->fin_p);
}
}
}
}
/* _cj_v1_free_hank(): free an entry from the hank cache.
*/
static void
_cj_v1_free_hank(u3_noun kev)
{
u3a_v1_cell* cel_u = (u3a_v1_cell*) u3a_v1_to_ptr(kev);
u3j_v1_hank* han_u = u3to(u3j_v1_hank, cel_u->tel);
if ( u3_none != han_u->hax ) {
u3a_v1_lose(han_u->hax);
u3j_v1_site_lose(&(han_u->sit_u));
}
u3a_v1_wfree(han_u);
}
/* u3j_v1_reclaim(): clear ad-hoc persistent caches to reclaim memory.
*/
void
u3j_v1_reclaim(void)
{
// clear the jet hank cache
//
u3h_v1_walk(u3R_v1->jed.han_p, _cj_v1_free_hank);
u3h_v1_free_nodes(u3R_v1->jed.han_p);
}
|
