oonta 0.3.1

OCaml (subset) to LLVM IR compiler front-end
Documentation 
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

#include "gc.hpp"
#include <cerrno>
#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <sys/mman.h>

size_t Gc::INITIAL_HEAP_SIZE = 2048;

Gc::Gc() { allocate_new_heap(INITIAL_HEAP_SIZE); }

void *Gc::allocate(size_t size) {
    void *ptr;
    if ((heap_offset + size) >= heap_size) {
        allocate_new_heap(heap_size * 2);
    }
    ptr = (char *)heap + heap_offset;
    heap_offset += size;
    return ptr;
}

void Gc::allocate_new_heap(size_t size) {
    heap_size = size;
    heap_offset = 0;
    heap = mmap(NULL, heap_size, PROT_READ | PROT_WRITE,
                MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
    if (heap == MAP_FAILED) {
        printf("Failed to allocate new heap: %s\n", strerror(errno));
        std::exit(-1);
    }
}