mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-05 18:13:37 +00:00
Code Issues 1 Releases Wiki Activity

Allow passing pointer-buffers to other threads.

Browse Source
This commit is contained in:
Calvin Rose
2023-02-12 11:07:45 -06:00
parent 1cadff8e58
commit 2e38f9ba61
6 changed files with 56 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/ffi.c
View File

@@ -1515,12 +1515,8 @@ JANET_CORE_FN(cfun_ffi_pointer_buffer,
int32_t capacity = janet_getnat(argv, 1);
int32_t count = janet_optnat(argv, argc, 2, 0);
int64_t offset = janet_optinteger64(argv, argc, 3, 0);
JanetBuffer *buffer = janet_gcalloc(JANET_MEMORY_BUFFER, sizeof(JanetBuffer));
buffer->gc.flags |= JANET_BUFFER_FLAG_NO_REALLOC;
buffer->capacity = capacity;
buffer->count = count;
buffer->data = ((uint8_t *) pointer) + offset;
return janet_wrap_buffer(buffer);
uint8_t *offset_pointer = ((uint8_t *) pointer) + offset;
return janet_wrap_buffer(janet_pointer_buffer_unsafe(offset_pointer, capacity, count));
}
void janet_lib_ffi(JanetTable *env) {