mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-28 19:19:53 +00:00
Code Issues 1 Releases Wiki Activity

Buffer initialized with janet_buffer_init will not be gced.

Browse Source 
Set an internal flag that disables garbage collection on such
buffers. For all currently correct usage, this should have no effect,
and will fix use cases where buffers are initialized this way and then
passed to the interpreter.
This commit is contained in:
Calvin Rose 2023-01-23 20:57:30 -06:00
parent 20bc323d17
commit c6eaaa83ed
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/core/buffer.c
View File

@ -29,7 +29,7 @@
#endif #endif
/* Initialize a buffer */ /* Initialize a buffer */
JanetBuffer *janet_buffer_init(JanetBuffer *buffer, int32_t capacity) { static JanetBuffer *janet_buffer_init_impl(JanetBuffer *buffer, int32_t capacity) {
uint8_t *data = NULL; uint8_t *data = NULL;
if (capacity < 4) capacity = 4; if (capacity < 4) capacity = 4;
janet_gcpressure(capacity); janet_gcpressure(capacity);
@ -43,6 +43,14 @@ JanetBuffer *janet_buffer_init(JanetBuffer *buffer, int32_t capacity) {
return buffer; return buffer;
} }
/* Initialize a buffer */
JanetBuffer *janet_buffer_init(JanetBuffer *buffer, int32_t capacity) {
janet_buffer_init_impl(buffer, capacity);
buffer->gc.data.next = NULL;
buffer->gc.flags = JANET_MEM_DISABLED;
return buffer;
}
/* Deinitialize a buffer (free data memory) */ /* Deinitialize a buffer (free data memory) */
void janet_buffer_deinit(JanetBuffer *buffer) { void janet_buffer_deinit(JanetBuffer *buffer) {
janet_free(buffer->data); janet_free(buffer->data);
@ -51,7 +59,7 @@ void janet_buffer_deinit(JanetBuffer *buffer) {
/* Initialize a buffer */ /* Initialize a buffer */
JanetBuffer *janet_buffer(int32_t capacity) { JanetBuffer *janet_buffer(int32_t capacity) {
JanetBuffer *buffer = janet_gcalloc(JANET_MEMORY_BUFFER, sizeof(JanetBuffer)); JanetBuffer *buffer = janet_gcalloc(JANET_MEMORY_BUFFER, sizeof(JanetBuffer));
return janet_buffer_init(buffer, capacity); return janet_buffer_init_impl(buffer, capacity);
} }
/* Ensure that the buffer has enough internal capacity */ /* Ensure that the buffer has enough internal capacity */