aboutsummaryrefslogtreecommitdiff
path: root/core/runtime/default_allocators.odin
diff options
context:
space:
mode:
authorgingerBill <bill@gingerbill.org>2021-06-08 11:20:39 +0100
committergingerBill <bill@gingerbill.org>2021-06-08 11:20:39 +0100
commit16eaa17ed988e8a04cc75d8aae3cdea4bd56ad9d (patch)
tree3a3298da10da8446d289c3294089d7ab587e7ce4 /core/runtime/default_allocators.odin
parent9491c13a5c967ff0fa6d5ce3c330dcbf13888d6c (diff)
Fix `-target:js_wasm32` for `core:runtime`
Diffstat (limited to 'core/runtime/default_allocators.odin')
-rw-r--r--core/runtime/default_allocators.odin244
1 files changed, 0 insertions, 244 deletions
diff --git a/core/runtime/default_allocators.odin b/core/runtime/default_allocators.odin
deleted file mode 100644
index 86fce47ae..000000000
--- a/core/runtime/default_allocators.odin
+++ /dev/null
@@ -1,244 +0,0 @@
-package runtime
-
-when ODIN_DEFAULT_TO_NIL_ALLOCATOR || ODIN_OS == "freestanding" || ODIN_OS == "js" {
- // mem.nil_allocator reimplementation
-
- default_allocator_proc :: proc(allocator_data: rawptr, mode: mem.Allocator_Mode,
- size, alignment: int,
- old_memory: rawptr, old_size: int, loc := #caller_location) -> ([]byte, Allocator_Error) {
- return nil, .None;
- }
-
- default_allocator :: proc() -> Allocator {
- return Allocator{
- procedure = default_allocator_proc,
- data = nil,
- };
- }
-
-} else when ODIN_OS == "windows" {
- default_allocator_proc :: proc(allocator_data: rawptr, mode: Allocator_Mode,
- size, alignment: int,
- old_memory: rawptr, old_size: int, loc := #caller_location) -> ([]byte, Allocator_Error) {
- switch mode {
- case .Alloc:
- return _windows_default_alloc(size, alignment);
-
- case .Free:
- _windows_default_free(old_memory);
-
- case .Free_All:
- // NOTE(tetra): Do nothing.
-
- case .Resize:
- return _windows_default_resize(old_memory, old_size, size, alignment);
-
- case .Query_Features:
- set := (^Allocator_Mode_Set)(old_memory);
- if set != nil {
- set^ = {.Alloc, .Free, .Resize, .Query_Features};
- }
- return nil, nil;
-
- case .Query_Info:
- return nil, nil;
- }
-
- return nil, nil;
- }
-
- default_allocator :: proc() -> Allocator {
- return Allocator{
- procedure = default_allocator_proc,
- data = nil,
- };
- }
-
-} else {
- // TODO(bill): reimplement these procedures in the os_specific stuff
- import "core:os"
-
- default_allocator_proc :: os.heap_allocator_proc;
-
- default_allocator :: proc() -> Allocator {
- return os.heap_allocator();
- }
-}
-
-@(private)
-byte_slice :: #force_inline proc "contextless" (data: rawptr, len: int) -> []byte {
- return transmute([]u8)Raw_Slice{data=data, len=max(len, 0)};
-}
-
-
-DEFAULT_TEMP_ALLOCATOR_BACKING_SIZE: int : #config(DEFAULT_TEMP_ALLOCATOR_BACKING_SIZE, 1<<22);
-
-
-Default_Temp_Allocator :: struct {
- data: []byte,
- curr_offset: int,
- prev_allocation: rawptr,
- backup_allocator: Allocator,
- leaked_allocations: [dynamic][]byte,
-}
-
-default_temp_allocator_init :: proc(s: ^Default_Temp_Allocator, size: int, backup_allocator := context.allocator) {
- s.data = make_aligned([]byte, size, 2*align_of(rawptr), backup_allocator);
- s.curr_offset = 0;
- s.prev_allocation = nil;
- s.backup_allocator = backup_allocator;
- s.leaked_allocations.allocator = backup_allocator;
-}
-
-default_temp_allocator_destroy :: proc(s: ^Default_Temp_Allocator) {
- if s == nil {
- return;
- }
- for ptr in s.leaked_allocations {
- free(raw_data(ptr), s.backup_allocator);
- }
- delete(s.leaked_allocations);
- delete(s.data, s.backup_allocator);
- s^ = {};
-}
-
-default_temp_allocator_proc :: proc(allocator_data: rawptr, mode: Allocator_Mode,
- size, alignment: int,
- old_memory: rawptr, old_size: int, loc := #caller_location) -> ([]byte, Allocator_Error) {
-
- s := (^Default_Temp_Allocator)(allocator_data);
-
- if s.data == nil {
- default_temp_allocator_init(s, DEFAULT_TEMP_ALLOCATOR_BACKING_SIZE, default_allocator());
- }
-
- size := size;
-
- switch mode {
- case .Alloc:
- size = align_forward_int(size, alignment);
-
- switch {
- case s.curr_offset+size <= len(s.data):
- start := uintptr(raw_data(s.data));
- ptr := start + uintptr(s.curr_offset);
- ptr = align_forward_uintptr(ptr, uintptr(alignment));
- mem_zero(rawptr(ptr), size);
-
- s.prev_allocation = rawptr(ptr);
- offset := int(ptr - start);
- s.curr_offset = offset + size;
- return byte_slice(rawptr(ptr), size), .None;
-
- case size <= len(s.data):
- start := uintptr(raw_data(s.data));
- ptr := align_forward_uintptr(start, uintptr(alignment));
- mem_zero(rawptr(ptr), size);
-
- s.prev_allocation = rawptr(ptr);
- offset := int(ptr - start);
- s.curr_offset = offset + size;
- return byte_slice(rawptr(ptr), size), .None;
- }
- a := s.backup_allocator;
- if a.procedure == nil {
- a = context.allocator;
- s.backup_allocator = a;
- }
-
- data, err := mem_alloc_bytes(size, alignment, a, loc);
- if err != nil {
- return data, err;
- }
- if s.leaked_allocations == nil {
- s.leaked_allocations = make([dynamic][]byte, a);
- }
- append(&s.leaked_allocations, data);
-
- // TODO(bill): Should leaks be notified about?
- if logger := context.logger; logger.lowest_level <= .Warning {
- if logger.procedure != nil {
- logger.procedure(logger.data, .Warning, "default temp allocator resorted to backup_allocator" , logger.options, loc);
- }
- }
-
- return data, .None;
-
- case .Free:
- if old_memory == nil {
- return nil, .None;
- }
-
- start := uintptr(raw_data(s.data));
- end := start + uintptr(len(s.data));
- old_ptr := uintptr(old_memory);
-
- if s.prev_allocation == old_memory {
- s.curr_offset = int(uintptr(s.prev_allocation) - start);
- s.prev_allocation = nil;
- return nil, .None;
- }
-
- if start <= old_ptr && old_ptr < end {
- // NOTE(bill): Cannot free this pointer but it is valid
- return nil, .None;
- }
-
- if len(s.leaked_allocations) != 0 {
- for data, i in s.leaked_allocations {
- ptr := raw_data(data);
- if ptr == old_memory {
- free(ptr, s.backup_allocator);
- ordered_remove(&s.leaked_allocations, i);
- return nil, .None;
- }
- }
- }
- return nil, .Invalid_Pointer;
- // panic("invalid pointer passed to default_temp_allocator");
-
- case .Free_All:
- s.curr_offset = 0;
- s.prev_allocation = nil;
- for data in s.leaked_allocations {
- free(raw_data(data), s.backup_allocator);
- }
- clear(&s.leaked_allocations);
-
- case .Resize:
- begin := uintptr(raw_data(s.data));
- end := begin + uintptr(len(s.data));
- old_ptr := uintptr(old_memory);
- if old_memory == s.prev_allocation && old_ptr & uintptr(alignment)-1 == 0 {
- if old_ptr+uintptr(size) < end {
- s.curr_offset = int(old_ptr-begin)+size;
- return byte_slice(old_memory, size), .None;
- }
- }
- ptr, err := default_temp_allocator_proc(allocator_data, .Alloc, size, alignment, old_memory, old_size, loc);
- if err == .None {
- copy(ptr, byte_slice(old_memory, old_size));
- _, err = default_temp_allocator_proc(allocator_data, .Free, 0, alignment, old_memory, old_size, loc);
- }
- return ptr, err;
-
- case .Query_Features:
- set := (^Allocator_Mode_Set)(old_memory);
- if set != nil {
- set^ = {.Alloc, .Free, .Free_All, .Resize, .Query_Features};
- }
- return nil, nil;
-
- case .Query_Info:
- return nil, .None;
- }
-
- return nil, .None;
-}
-
-default_temp_allocator :: proc(allocator: ^Default_Temp_Allocator) -> Allocator {
- return Allocator{
- procedure = default_temp_allocator_proc,
- data = allocator,
- };
-}