blob: 4d5fa0f67756aad55f98cc50232076e5c764c0f2 (
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
|
/// @file
#include "../vortex.h"
#include "../jets.h"
#include "v2/jets.h"
#include "v2/allocate.h"
#include "v2/hashtable.h"
#include "v2/vortex.h"
#include "v3/hashtable.h"
#include "v3/jets.h"
/* u3j_v2_reclaim(): clear ad-hoc persistent caches to reclaim memory.
*/
void
u3j_v2_reclaim(void)
{
// set globals (required for aliased functions)
u3H = (u3v_home*) u3H_v2;
u3R = (u3a_road*) u3R_v2;
// clear the jet hank cache
//
u3h_v3_walk(u3R->jed.han_p, u3j_v3_free_hank);
u3h_v3_free(u3R->jed.han_p);
u3R->jed.han_p = u3h_v3_new();
}
/* u3j_v2_mig_rewrite_compact(): rewrite jet state for compaction.
*
* NB: u3R_v2->jed.han_p *must* be cleared (currently via u3j_v2_reclaim above)
* since it contains hanks which are not nouns but have loom pointers.
* Alternately, rewrite the entries with u3h_v2_walk, using u3j_v2_mark as a
* template for how to walk. There's an untested attempt at this in git
* history at e8a307a.
*/
void
u3j_v2_mig_rewrite_compact(void)
{
u3h_v2_rewrite(u3R_v2->jed.war_p);
u3h_v2_rewrite(u3R_v2->jed.cod_p);
u3h_v2_rewrite(u3R_v2->jed.han_p);
u3h_v2_rewrite(u3R_v2->jed.bas_p);
u3h_v2_rewrite(u3R_v2->jed.hot_p);
u3R_v2->jed.hot_p = u3a_v2_rewritten(u3R_v2->jed.hot_p);
u3R_v2->jed.war_p = u3a_v2_rewritten(u3R_v2->jed.war_p);
u3R_v2->jed.cod_p = u3a_v2_rewritten(u3R_v2->jed.cod_p);
u3R_v2->jed.han_p = u3a_v2_rewritten(u3R_v2->jed.han_p);
u3R_v2->jed.bas_p = u3a_v2_rewritten(u3R_v2->jed.bas_p);
}
|
