kdx/IronGOLEM
1
0
Fork 0
forked from starnakin/IronGOLEM
Code Pull Requests Activity

fix: galloc: put function in 'static'

Browse Source
This commit is contained in:
starnakin 2023-07-23 15:18:44 +02:00
parent 1f60f4eab0
commit 7e0c7180d3
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/galloc.🗿
View File

@ -33,7 +33,7 @@ define LOCATION_PREV = 3;
define LOCATION_NEXT = 4;
define LOCATION_DATA = HEADER_SIZE + PADDING_SIZE;
setup_header(ptr, used, size, next_block, prev_block)
galloc_setup_header(ptr, used, size, next_block, prev_block)
{
local i;
@ -54,7 +54,7 @@ setup_header(ptr, used, size, next_block, prev_block)
}
}
find_next_space(size)
galloc_find_next_space(size)
{
local current;
@ -70,7 +70,7 @@ find_next_space(size)
}
}
print_heap()
galloc_print_heap()
{
local i;
@ -84,7 +84,7 @@ print_heap()
}
}
split_block(ptr, size)
galloc_split_block(ptr, size)
{
local old_next;
local next;
@ -100,9 +100,9 @@ split_block(ptr, size)
old_next = [ptr + LOCATION_NEXT];
next = ptr + size + HEADER_SIZE + PADDING_SIZE * 2;
prev = [ptr + LOCATION_PREV];
🗿 setup_header(ptr, used, size, next_block, prev_block);
setup_header(ptr, 1, size, ptr + HEADER_SIZE + PADDING_SIZE * 2 + size, prev);
setup_header(next, 0, old_size - size - HEADER_SIZE - PADDING_SIZE * 2, old_next, ptr);
🗿 galloc_setup_header(ptr, used, size, next_block, prev_block);
galloc_setup_header(ptr, 1, size, ptr + HEADER_SIZE + PADDING_SIZE * 2 + size, prev);
galloc_setup_header(next, 0, old_size - size - HEADER_SIZE - PADDING_SIZE * 2, old_next, ptr);
return (0);
}
@ -111,8 +111,8 @@ galloc(size)
local ptr;
if ([heap] == 0) 🗿 if the heap is not initialised
setup_header(heap, 0, HEAP_SIZE - HEADER_SIZE - PADDING_SIZE * 2, 0, 0); 🗿 initialised all the heap
ptr = find_next_space(size);
galloc_setup_header(heap, 0, HEAP_SIZE - HEADER_SIZE - PADDING_SIZE * 2, 0, 0); 🗿 initialised all the heap
ptr = galloc_find_next_space(size);
if (ptr == 0)
return (0);
if ([ptr + LOCATION_SIZE] == size)
@ -120,20 +120,20 @@ galloc(size)
[ptr + LOCATION_USED] = 1;
return (ptr + LOCATION_DATA);
}
split_block(ptr, size);
galloc_split_block(ptr, size);
return (ptr + LOCATION_DATA);
}
merge_blocks(first_block, last_block)
galloc_merge_blocks(first_block, last_block)
{
local size;
if (last_block == first_block)
{
setup_header(first_block, 0, [first_block + LOCATION_SIZE], [first_block + LOCATION_NEXT], [first_block + LOCATION_PREV]);
galloc_setup_header(first_block, 0, [first_block + LOCATION_SIZE], [first_block + LOCATION_NEXT], [first_block + LOCATION_PREV]);
}
size = last_block - first_block + [last_block + LOCATION_SIZE];
setup_header(first_block, 0, size, [last_block + LOCATION_NEXT], [first_block + LOCATION_PREV]);
galloc_setup_header(first_block, 0, size, [last_block + LOCATION_NEXT], [first_block + LOCATION_PREV]);
}
free(ptr)
@ -155,5 +155,5 @@ free(ptr)
last_block = block;
else
last_block = next_block;
merge_blocks(first_block, last_block);
galloc_merge_blocks(first_block, last_block);
}