mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-06 09:30:29 +02:00
Code Activity

Add gc_can_move_objects() to gc-attrs.h

Browse source
This commit is contained in:
Andy Wingo 2025-07-02 09:59:45 +02:00
parent 5c55c26ad4
commit dda1522ab0
5 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
api/bdw-attrs.h
View file

@ -92,4 +92,8 @@ static inline int gc_can_pin_objects(void) {
return 1; return 1;
} }
static inline int gc_can_move_objects(void) {
return 0;
}
#endif // BDW_ATTRS_H #endif // BDW_ATTRS_H

1
api/gc-attrs.h
View file

@ -65,6 +65,7 @@ enum gc_cooperative_safepoint_kind {
static inline enum gc_cooperative_safepoint_kind gc_cooperative_safepoint_kind(void) GC_ALWAYS_INLINE; static inline enum gc_cooperative_safepoint_kind gc_cooperative_safepoint_kind(void) GC_ALWAYS_INLINE;
static inline int gc_can_pin_objects(void) GC_ALWAYS_INLINE; static inline int gc_can_pin_objects(void) GC_ALWAYS_INLINE;
static inline int gc_can_move_objects(void) GC_ALWAYS_INLINE;
#ifndef GC_IMPL #ifndef GC_IMPL
#ifdef GC_ATTRS #ifdef GC_ATTRS

4
api/mmc-attrs.h
View file

@ -117,4 +117,8 @@ static inline int gc_can_pin_objects(void) {
return 1; return 1;
} }
static inline int gc_can_move_objects(void) {
return GC_CONSERVATIVE_TRACE ? 0 : 1;
}
#endif // MMC_ATTRS_H #endif // MMC_ATTRS_H

4
api/pcc-attrs.h
View file

@ -89,4 +89,8 @@ static inline int gc_can_pin_objects(void) {
return 0; return 0;
} }
static inline int gc_can_move_objects(void) {
return 1;
}
#endif // PCC_ATTRS_H #endif // PCC_ATTRS_H

4
api/semi-attrs.h
View file

@ -78,4 +78,8 @@ static inline int gc_can_pin_objects(void) {
return 0; return 0;
} }
static inline int gc_can_move_objects(void) {
return 1;
}
#endif // SEMI_ATTRS_H #endif // SEMI_ATTRS_H