Page MenuHomePhorge
Files F3046577

strings.c
No OneTemporary
Actions

Size
4 KB
Referenced Files
None
Subscribers
None

strings.c
View Options

#include "internal.h"
#include "gc/strings.h"
#include "pool.h"
#include <stdlib.h>
#include <string.h>
typedef struct {
uint8_t *bits;
size_t n_slots;
} gc_bitmap_t;
static gc_bitmap_t bitmap_alloc(size_t n_slots) {
size_t nbytes = (n_slots + 7) / 8;
uint8_t *bits = calloc(1, nbytes);
return (gc_bitmap_t){ .bits = bits, .n_slots = n_slots };
}
static inline void bitmap_set(gc_bitmap_t *bm, size_t idx) {
if (idx < bm->n_slots && bm->bits) bm->bits[idx / 8] |= (1u << (idx % 8));
}
static inline bool bitmap_get(const gc_bitmap_t *bm, size_t idx) {
if (idx >= bm->n_slots || !bm->bits) return false;
return (bm->bits[idx / 8] >> (idx % 8)) & 1u;
}
static inline void bitmap_free(gc_bitmap_t *bm) {
free(bm->bits);
bm->bits = NULL;
bm->n_slots = 0;
}
typedef struct {
uintptr_t base;
uintptr_t end;
ant_pool_block_t *block;
ant_pool_bucket_t *bucket;
size_t stride;
gc_bitmap_t bitmap;
} gc_block_mark_t;
static gc_block_mark_t *g_string_marks = NULL;
static int g_string_mark_count = 0;
static int g_string_mark_cap = 0;
static void collect_bucket_blocks(ant_pool_bucket_t *bucket) {
if (!bucket || bucket->slot_stride == 0) return;
size_t stride = bucket->slot_stride;
for (ant_pool_block_t *b = bucket->head; b; b = b->next) {
size_t n_slots = b->used / stride;
if (n_slots == 0) continue;
if (g_string_mark_count >= g_string_mark_cap) {
int cap = g_string_mark_cap ? g_string_mark_cap * 2 : 32;
g_string_marks = realloc(g_string_marks, (size_t)cap * sizeof(gc_block_mark_t));
g_string_mark_cap = cap;
}
gc_block_mark_t *m = &g_string_marks[g_string_mark_count++];
m->base = (uintptr_t)b->data;
m->end = m->base + b->used;
m->block = b;
m->bucket = bucket;
m->stride = stride;
m->bitmap = bitmap_alloc(n_slots);
}
}
static int mark_cmp(const void *a, const void *b) {
const gc_block_mark_t *ma = (const gc_block_mark_t *)a;
const gc_block_mark_t *mb = (const gc_block_mark_t *)b;
if (ma->base < mb->base) return -1;
if (ma->base > mb->base) return 1;
return 0;
}
void gc_strings_begin(ant_t *js) {
g_string_mark_count = 0;
ant_class_pool_t *pool = &js->pool.string;
for (int i = 0; i < ANT_POOL_SIZE_CLASS_COUNT; i++) {
pool->classes[i].slot_free = NULL;
collect_bucket_blocks(&pool->classes[i]);
}
if (g_string_mark_count > 1)
qsort(g_string_marks, (size_t)g_string_mark_count, sizeof(gc_block_mark_t), mark_cmp);
}
void gc_strings_mark(ant_t *js, const void *ptr) {
if (!ptr || g_string_mark_count == 0) return;
uintptr_t p = (uintptr_t)ptr;
int lo = 0, hi = g_string_mark_count - 1;
while (lo <= hi) {
int mid = lo + (hi - lo) / 2;
gc_block_mark_t *m = &g_string_marks[mid];
if (p < m->base) hi = mid - 1;
else if (p >= m->end) lo = mid + 1;
else {
size_t offset = p - m->base;
if (offset % m->stride == 0) bitmap_set(&m->bitmap, offset / m->stride);
return;
}
}
}
static void unlink_block(ant_pool_bucket_t *bucket, ant_pool_block_t *block) {
if (block->prev) block->prev->next = block->next;
else bucket->head = block->next;
if (block->next) block->next->prev = block->prev;
}
void gc_strings_sweep(ant_t *js) {
for (int i = 0; i < g_string_mark_count; i++) {
gc_block_mark_t *m = &g_string_marks[i];
ant_pool_bucket_t *bucket = m->bucket;
bool any_live = false;
size_t n_slots = m->bitmap.n_slots;
for (size_t j = 0; j < n_slots; j++) {
if (bitmap_get(&m->bitmap, j)) { any_live = true; break; }
}
if (!any_live && bucket) {
unlink_block(bucket, m->block);
m->block->used = 0;
m->block->next = NULL;
if (bucket->current == m->block) bucket->current = NULL;
pool_free_set_next(m->block, bucket->free_head);
pool_block_madvise_free(m->block);
bucket->free_head = m->block;
} else if (any_live && bucket && m->stride >= sizeof(void *)) {
uintptr_t base = m->base;
for (size_t j = 0; j < n_slots; j++) {
if (!bitmap_get(&m->bitmap, j)) {
void *slot = (void *)(base + j * m->stride);
void *old_head = bucket->slot_free;
memcpy(slot, &old_head, sizeof(void *));
bucket->slot_free = slot;
}}
}
bitmap_free(&m->bitmap);
}
ant_class_pool_t *pool = &js->pool.string;
for (int i = 0; i < ANT_POOL_SIZE_CLASS_COUNT; i++) {
ant_pool_bucket_t *bucket = &pool->classes[i];
ant_pool_block_t *f = bucket->free_head;
int kept = 0;
while (f && kept < 2) {
f = pool_free_next(f);
kept++;
}
while (f) {
ant_pool_block_t *next = pool_free_next(f);
pool_block_free(f);
f = next;
}
f = bucket->free_head;
for (int k = 0; k < kept && f; k++) f = pool_free_next(f);
if (kept > 0) {
f = bucket->free_head;
for (int k = 1; k < kept && f; k++) f = pool_free_next(f);
if (f) pool_free_set_next(f, NULL);
} else bucket->free_head = NULL;
}
g_string_mark_count = 0;
}

File Metadata

Mime Type
text/x-c
Expires
Fri, Apr 3, 12:55 PM (2 d)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
520469
Default Alt Text
strings.c (4 KB)

Event Timeline