summaryrefslogtreecommitdiff
path: root/frontends/amiga/memory.c
blob: abf849db653470a472289603f7ee46135887684a (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
88
89
90
91
92
93
94
/*
 * Copyright 2016 Chris Young <chris@unsatisfactorysoftware.co.uk>
 *
 * This file is part of NetSurf, http://www.netsurf-browser.org/
 *
 * NetSurf is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; version 2 of the License.
 *
 * NetSurf is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#ifndef __amigaos4__
#include <proto/exec.h>
#include <exec/interrupts.h>
#include <stdlib.h>
#include "amiga/memory.h"
#include "amiga/os3support.h"
#include "utils/log.h"

ULONG __slab_max_size = 2048; /* Enable clib2's slab allocator */

/* Special clear (ie. non-zero) */
void *ami_memory_clear_alloc(size_t size, UBYTE value)
{
	void *mem = malloc(size);
	if (mem) memset(mem, value, size);
	return mem;
}

/* clib2 slab allocator stats */
static int ami_memory_slab_callback(const struct __slab_usage_information * sui)
{
	if(sui->sui_slab_index <= 1) {
		LOG("clib2 slab usage:");
		LOG("  The size of all slabs, in bytes: %ld", sui->sui_slab_size);
		LOG("  Number of allocations which are not managed by slabs: %ld",
			sui->sui_num_single_allocations);
		LOG("  Total number of bytes allocated for memory not managed by slabs: %ld",
			sui->sui_total_single_allocation_size);
		LOG("  Number of slabs currently in play: %ld", sui->sui_num_slabs);
		LOG("  Number of currently unused slabs: %ld", sui->sui_num_empty_slabs);
		LOG("  Number of slabs in use which are completely filled with data: %ld",
			sui->sui_num_full_slabs);
		LOG("  Total number of bytes allocated for all slabs: %ld",
			sui->sui_total_slab_allocation_size);
	}
	LOG("Slab %d", sui->sui_slab_index);
	LOG("  Memory chunk size managed by this slab: %ld", sui->sui_chunk_size);
	LOG("  Number of memory chunks that fit in this slab: %ld", sui->sui_num_chunks);
	LOG("  Number of memory chunks used in this slab: %ld", sui->sui_num_chunks_used);

	return 0;
}

void ami_memory_slab_dump(void)
{
	__get_slab_usage(ami_memory_slab_callback);
}

static ASM ULONG ami_memory_handler(REG(a0, struct MemHandlerData *mhd), REG(a1, void *userdata), REG(a6, struct ExecBase *execbase))
{
	__free_unused_slabs();

	return MEM_ALL_DONE;
}
 
struct Interrupt *ami_memory_init(void)
{
	struct Interrupt *memhandler = malloc(sizeof(struct Interrupt));

	memhandler->is_Node.ln_Pri = 1;
	memhandler->is_Node.ln_Name = "NetSurf slab memory handler";
	memhandler->is_Data = NULL;
	memhandler->is_Code = (APTR)&ami_memory_handler;
	AddMemHandler(memhandler);

	return memhandler;
}

void ami_memory_fini(struct Interrupt *memhandler)
{
	RemMemHandler(memhandler);
	free(memhandler);
}

#endif