Skip to content

unit HeapMem

em.utils/HeapMem.em
 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
package em.utils

from em.mcu import Common
from em.mcu import Copier

module HeapMem

    config baseAddr: addr_t
    config maxBytes: uint16

    function alloc(size: uint16): ptr_t
    function avail(): uint16
    function mark()
    function release()

private:

    var curTopPtr: uint32*
    var savTopPtr: uint32*

end

def em$startup()
    return if Common.Mcu.isWarm()
    curTopPtr = baseAddr
end

def alloc(size)
    auto ptr = curTopPtr
    auto wc = ((size + 3) & ~0x3) / 4
    curTopPtr += wc
    return ptr
end

def avail()
    return <uint16>((baseAddr + maxBytes) - <uint32>curTopPtr)
end

def mark()
    *curTopPtr = <uint32>savTopPtr
    savTopPtr = curTopPtr++
end

def release()
    fail if !savTopPtr
    curTopPtr = savTopPtr
    savTopPtr = <uint32*>*curTopPtr


end