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
|
/*
* This file is part of Freecell Solver. It is subject to the license terms in
* the COPYING.txt file found in the top-level directory of this distribution
* and at http://fc-solve.shlomifish.org/docs/distro/COPYING.html . No part of
* Freecell Solver, including this file, may be copied, modified, propagated,
* or distributed except according to the terms contained in the COPYING file.
*
* Copyright (c) 2000 Shlomi Fish
*/
// meta_alloc.c - the Freecell Solver compact allocator based on the
// meta-allocator concept that is used to collect the pages allocated by
// the standard allocator after it is destroyed and to recycle them.
#include "meta_alloc.h"
#define ALLOCED_SIZE (FCS_IA_PACK_SIZE * 1024 - (256 + 128))
void fc_solve_compact_allocator_init(
compact_allocator *const allocator, meta_allocator *const meta_alloc)
{
allocator->meta = meta_alloc;
fc_solve_compact_allocator_init_helper(allocator);
}
#define OLD_LIST_NEXT(ptr) (*((char **)(ptr)))
#define OLD_LIST_DATA(ptr) ((char *)(&(((char **)(ptr))[1])))
static inline char *meta_request_new_buffer(meta_allocator *const meta_alloc)
{
char *const ret = meta_alloc->recycle_bin;
if (ret)
{
meta_alloc->recycle_bin = OLD_LIST_NEXT(ret);
return ret;
}
else
{
return malloc(ALLOCED_SIZE);
}
}
void fc_solve_compact_allocator_extend(compact_allocator *const allocator)
{
char *const new_data = meta_request_new_buffer(allocator->meta);
OLD_LIST_NEXT(new_data) = allocator->old_list;
allocator->old_list = new_data;
allocator->ptr = allocator->rollback_ptr = OLD_LIST_DATA(new_data);
allocator->max_ptr = new_data + ALLOCED_SIZE;
}
void fc_solve_meta_compact_allocator_finish(meta_allocator *const meta_alloc)
{
char *iter, *iter_next;
for (iter = meta_alloc->recycle_bin,
iter_next = iter ? OLD_LIST_NEXT(iter) : NULL;
iter_next; iter = iter_next, iter_next = OLD_LIST_NEXT(iter))
{
free(iter);
}
free(iter);
meta_alloc->recycle_bin = NULL;
}
void fc_solve_compact_allocator_finish(compact_allocator *const allocator)
{
char *iter, *iter_next;
meta_allocator *const meta = allocator->meta;
var_AUTO(bin, meta->recycle_bin);
// Enqueue all the allocated buffers in the meta allocator for re-use.
for (iter = allocator->old_list, iter_next = OLD_LIST_NEXT(iter); iter_next;
iter = iter_next, iter_next = OLD_LIST_NEXT(iter))
{
OLD_LIST_NEXT(iter) = bin;
bin = iter;
}
OLD_LIST_NEXT(iter) = bin;
meta->recycle_bin = iter;
}
#undef OLD_LIST_NEXT
#undef OLD_LIST_DATA
|
