Zander671/glisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix typo again

Browse Source
This commit is contained in:
Zander671
2026-09-05 14:24:04 -07:00
parent aa9f9e12ef
commit 9dd2ad2413
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/gc.c
+8 -8
View File
@@ -23,7 +23,7 @@ static size_t free_objects_list_count;
static struct GCObjectList *free_objects_list; static struct GCObjectList *free_objects_list;
static struct GCObjectList *black_objects; static struct GCObjectList *black_objects;
static struct GCObjectList *GRAY_objects; static struct GCObjectList *gray_objects;
static struct GCObjectList *white_objects; static struct GCObjectList *white_objects;
static struct GCObjectList *static_objects; static struct GCObjectList *static_objects;
@@ -52,7 +52,7 @@ static ALWAYS_INLINE struct GCObjectList **HEAD_FOR_SET(ObjectGCSet set) {
if (set == GC_BLACK) { if (set == GC_BLACK) {
return &black_objects; return &black_objects;
} else if (set == GC_GRAY) { } else if (set == GC_GRAY) {
return &GRAY_objects; return &gray_objects;
} else if (set == GC_WHITE) { } else if (set == GC_WHITE) {
return &white_objects; return &white_objects;
} else { } else {
@@ -336,10 +336,10 @@ static void unmark_the_stack(void) {
} }
static void mark_GRAY_objects(size_t *restrict limit) { static void mark_GRAY_objects(size_t *restrict limit) {
while (GRAY_objects && saturating_dec(limit, 1)) { while (gray_objects && saturating_dec(limit, 1)) {
mark_object(GRAY_objects->obj); mark_object(gray_objects->obj);
} }
if (!GRAY_objects) { if (!gray_objects) {
incremental_state.step = GC_STEP_FREE; incremental_state.step = GC_STEP_FREE;
} }
} }
@@ -383,7 +383,7 @@ void lisp_gc_yield(struct timespec *restrict time_took, bool full) {
size_t limit = full ? SIZE_MAX : LISP_GC_INCREMENTAL_COUNT; size_t limit = full ? SIZE_MAX : LISP_GC_INCREMENTAL_COUNT;
while (limit) { while (limit) {
// there are more GRAY objects, mark them before we sweep // there are more GRAY objects, mark them before we sweep
if (incremental_state.step == GC_STEP_FREE && GRAY_objects) { if (incremental_state.step == GC_STEP_FREE && gray_objects) {
incremental_state.step = GC_STEP_HEAP; incremental_state.step = GC_STEP_HEAP;
} }
switch (incremental_state.step) { switch (incremental_state.step) {
@@ -419,8 +419,8 @@ void lisp_gc_teardown(void) {
while (white_objects) { while (white_objects) {
free_object(white_objects->obj); free_object(white_objects->obj);
} }
while (GRAY_objects) { while (gray_objects) {
free_object(GRAY_objects->obj); free_object(gray_objects->obj);
} }
while (black_objects) { while (black_objects) {
free_object(black_objects->obj); free_object(black_objects->obj);