mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Merge remote-tracking branch 'whippet/main' into wip-whippet

Browse source
This commit is contained in:
Andy Wingo 2025-05-15 12:00:17 +02:00
commit 799901edc4
5 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/whippet/api/gc-api.h
View file

@ -307,6 +307,7 @@ static inline void gc_safepoint(struct gc_mutator *mut) {
gc_safepoint_slow(mut); gc_safepoint_slow(mut);
} }
GC_API_ int gc_safepoint_signal_number(void);
GC_API_ void gc_safepoint_signal_inhibit(struct gc_mutator *mut); GC_API_ void gc_safepoint_signal_inhibit(struct gc_mutator *mut);
GC_API_ void gc_safepoint_signal_reallow(struct gc_mutator *mut); GC_API_ void gc_safepoint_signal_reallow(struct gc_mutator *mut);

3
libguile/whippet/src/bdw.c
View file

@ -203,6 +203,9 @@ void gc_write_barrier_slow(struct gc_mutator *mut, struct gc_ref obj,
int* gc_safepoint_flag_loc(struct gc_mutator *mut) { GC_CRASH(); } int* gc_safepoint_flag_loc(struct gc_mutator *mut) { GC_CRASH(); }
void gc_safepoint_slow(struct gc_mutator *mut) { GC_CRASH(); } void gc_safepoint_slow(struct gc_mutator *mut) { GC_CRASH(); }
int gc_safepoint_signal_number(void) {
return GC_get_suspend_signal();
}
void gc_safepoint_signal_inhibit(struct gc_mutator *mut) { void gc_safepoint_signal_inhibit(struct gc_mutator *mut) {
GC_alloc_lock(); GC_alloc_lock();
} }

1
libguile/whippet/src/mmc.c
View file

@ -872,6 +872,7 @@ gc_safepoint_slow(struct gc_mutator *mut) {
heap_unlock(heap); heap_unlock(heap);
} }
int gc_safepoint_signal_number(void) { GC_CRASH(); }
void gc_safepoint_signal_inhibit(struct gc_mutator *mut) { GC_CRASH(); } void gc_safepoint_signal_inhibit(struct gc_mutator *mut) { GC_CRASH(); }
void gc_safepoint_signal_reallow(struct gc_mutator *mut) { GC_CRASH(); } void gc_safepoint_signal_reallow(struct gc_mutator *mut) { GC_CRASH(); }

1
libguile/whippet/src/pcc.c
View file

@ -1084,6 +1084,7 @@ void gc_safepoint_slow(struct gc_mutator *mut) {
heap_unlock(heap); heap_unlock(heap);
} }
int gc_safepoint_signal_number(void) { GC_CRASH(); }
void gc_safepoint_signal_inhibit(struct gc_mutator *mut) { GC_CRASH(); } void gc_safepoint_signal_inhibit(struct gc_mutator *mut) { GC_CRASH(); }
void gc_safepoint_signal_reallow(struct gc_mutator *mut) { GC_CRASH(); } void gc_safepoint_signal_reallow(struct gc_mutator *mut) { GC_CRASH(); }

1
libguile/whippet/src/semi.c
View file

@ -487,6 +487,7 @@ void gc_write_barrier_slow(struct gc_mutator *mut, struct gc_ref obj,
int* gc_safepoint_flag_loc(struct gc_mutator *mut) { GC_CRASH(); } int* gc_safepoint_flag_loc(struct gc_mutator *mut) { GC_CRASH(); }
void gc_safepoint_slow(struct gc_mutator *mut) { GC_CRASH(); } void gc_safepoint_slow(struct gc_mutator *mut) { GC_CRASH(); }
int gc_safepoint_signal_number(void) { GC_CRASH(); }
void gc_safepoint_signal_inhibit(struct gc_mutator *mut) { GC_CRASH(); } void gc_safepoint_signal_inhibit(struct gc_mutator *mut) { GC_CRASH(); }
void gc_safepoint_signal_reallow(struct gc_mutator *mut) { GC_CRASH(); } void gc_safepoint_signal_reallow(struct gc_mutator *mut) { GC_CRASH(); }