starpu-max/julia/src/Wrapper/Julia/static_structures.jl

const jlstarpu_allocated_structures = Vector{Ptr{Void}}([])


"""
    Copies x_c to a new allocated memory zone.
    Returns the pointer toward the copied object. Every pointer
    returned by this function will be freed after a call to
    jlstarpu_free_allocated_structures
"""
function jlstarpu_allocate_and_store(x_c :: T) where {T}

    allocated_ptr = Ptr{T}(Libc.malloc(sizeof(T)))

    if (allocated_ptr == C_NULL)
        error("Base.Libc.malloc returned NULL")
    end

    unsafe_store!(allocated_ptr, x_c)
    push!(jlstarpu_allocated_structures, Ptr{Void}(allocated_ptr))

    return allocated_ptr
end


"""
    Frees every pointer allocated by jlstarpu_allocate_and_store
"""
function jlstarpu_free_allocated_structures()
    map(Libc.free, jlstarpu_allocated_structures)
    empty!(jlstarpu_allocated_structures)
    return nothing
end