81 lines
2.1 KiB
C
81 lines
2.1 KiB
C
/*
|
|
* Memory calls.
|
|
*/
|
|
|
|
#include "third_party/duktape/duk_internal.h"
|
|
|
|
DUK_EXTERNAL void *duk_alloc_raw(duk_hthread *thr, duk_size_t size) {
|
|
DUK_ASSERT_API_ENTRY(thr);
|
|
|
|
return DUK_ALLOC_RAW(thr->heap, size);
|
|
}
|
|
|
|
DUK_EXTERNAL void duk_free_raw(duk_hthread *thr, void *ptr) {
|
|
DUK_ASSERT_API_ENTRY(thr);
|
|
|
|
DUK_FREE_RAW(thr->heap, ptr);
|
|
}
|
|
|
|
DUK_EXTERNAL void *duk_realloc_raw(duk_hthread *thr, void *ptr, duk_size_t size) {
|
|
DUK_ASSERT_API_ENTRY(thr);
|
|
|
|
return DUK_REALLOC_RAW(thr->heap, ptr, size);
|
|
}
|
|
|
|
DUK_EXTERNAL void *duk_alloc(duk_hthread *thr, duk_size_t size) {
|
|
DUK_ASSERT_API_ENTRY(thr);
|
|
|
|
return DUK_ALLOC(thr->heap, size);
|
|
}
|
|
|
|
DUK_EXTERNAL void duk_free(duk_hthread *thr, void *ptr) {
|
|
DUK_ASSERT_API_ENTRY(thr);
|
|
|
|
DUK_FREE_CHECKED(thr, ptr);
|
|
}
|
|
|
|
DUK_EXTERNAL void *duk_realloc(duk_hthread *thr, void *ptr, duk_size_t size) {
|
|
DUK_ASSERT_API_ENTRY(thr);
|
|
|
|
/*
|
|
* Note: since this is an exposed API call, there should be
|
|
* no way a mark-and-sweep could have a side effect on the
|
|
* memory allocation behind 'ptr'; the pointer should never
|
|
* be something that Duktape wants to change.
|
|
*
|
|
* Thus, no need to use DUK_REALLOC_INDIRECT (and we don't
|
|
* have the storage location here anyway).
|
|
*/
|
|
|
|
return DUK_REALLOC(thr->heap, ptr, size);
|
|
}
|
|
|
|
DUK_EXTERNAL void duk_get_memory_functions(duk_hthread *thr, duk_memory_functions *out_funcs) {
|
|
duk_heap *heap;
|
|
|
|
DUK_ASSERT_API_ENTRY(thr);
|
|
DUK_ASSERT(out_funcs != NULL);
|
|
DUK_ASSERT(thr != NULL);
|
|
DUK_ASSERT(thr->heap != NULL);
|
|
|
|
heap = thr->heap;
|
|
out_funcs->alloc_func = heap->alloc_func;
|
|
out_funcs->realloc_func = heap->realloc_func;
|
|
out_funcs->free_func = heap->free_func;
|
|
out_funcs->udata = heap->heap_udata;
|
|
}
|
|
|
|
DUK_EXTERNAL void duk_gc(duk_hthread *thr, duk_uint_t flags) {
|
|
duk_heap *heap;
|
|
duk_small_uint_t ms_flags;
|
|
|
|
DUK_ASSERT_API_ENTRY(thr);
|
|
heap = thr->heap;
|
|
DUK_ASSERT(heap != NULL);
|
|
|
|
DUK_D(DUK_DPRINT("mark-and-sweep requested by application"));
|
|
DUK_ASSERT(DUK_GC_COMPACT == DUK_MS_FLAG_EMERGENCY); /* Compact flag is 1:1 with emergency flag which forces compaction. */
|
|
ms_flags = (duk_small_uint_t) flags;
|
|
duk_heap_mark_and_sweep(heap, ms_flags);
|
|
}
|