Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

gc: revert adding STAGE_FORCING

Browse source 
Use gc_start_major_collection() instead. Partial work towards
addressing issue #534.
This commit is contained in:
Yorick Hardy 2024-11-18 22:00:48 +02:00
parent 41ac00d6be
commit 48b95db3d2
4 changed files with 2 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gc.c
View file

@ -2534,14 +2534,6 @@ void gc_collector()
ck_pr_cas_int(&gc_stage, STAGE_SWEEPING, STAGE_RESTING);
}
void gc_force(void)
{
/* try to force the collector to run */
ck_pr_cas_int(&gc_stage, STAGE_RESTING, STAGE_FORCING);
/* if the collector thread was idle, then begin collecting */
ck_pr_cas_int(&gc_stage, STAGE_FORCING, STAGE_CLEAR_OR_MARKING);
}
void *collector_main(void *arg)
{
int stage;

5
include/cyclone/runtime.h
View file

@ -52,11 +52,6 @@ void GC(void *, closure, object *, int);
*/
void gc_init_heap(long heap_size);
/**
* \ingroup gc_force
*/
void gc_force(void);
/**
* \defgroup prim Primitives
* @brief Built-in Scheme functions provided by the runtime library

3
include/cyclone/types.h
View file

@ -264,7 +264,7 @@ typedef enum { STATUS_ASYNC, STATUS_SYNC1, STATUS_SYNC2
/** Stages of the Major GC's collector thread */
typedef enum { STAGE_CLEAR_OR_MARKING, STAGE_TRACING
//, STAGE_REF_PROCESSING
, STAGE_SWEEPING, STAGE_RESTING, STAGE_FORCING
, STAGE_SWEEPING, STAGE_RESTING
} gc_stage_type;
// Constant colors are defined here.
@ -377,7 +377,6 @@ struct gc_thread_data_t {
/* GC prototypes */
void gc_initialize(void);
void gc_force(void);
void gc_add_new_unrunning_mutator(gc_thread_data * thd);
void gc_add_mutator(gc_thread_data * thd);
void gc_remove_mutator(gc_thread_data * thd);

2
runtime.c
View file

@ -7181,7 +7181,7 @@ void Cyc_exit_thread(void *data, object _, int argc, object * args)
gc_remove_mutator(thd);
ck_pr_cas_int((int *)&(thd->thread_state), CYC_THREAD_STATE_RUNNABLE,
CYC_THREAD_STATE_TERMINATED);
gc_force();
gc_start_major_collection(thd);
pthread_exit(NULL);
}