1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 15:40:38 +02:00

Remove unused internal inline allocation functions

* libguile/gc-inline.h (scm_inline_cell, scm_inline_double_cell)
(scm_inline_words, scm_inline_gc_malloc_pointerless, scm_inline_gc_malloc)
(scm_inline_gc_malloc_words, scm_inline_gc_malloc_pointerless_words):
Remove.
This commit is contained in:
Andy Wingo 2025-06-24 11:38:46 +02:00
parent 5d9d84b68e
commit c2f451bf57

View file

@ -66,65 +66,5 @@ scm_inline_allocate_sloppy (scm_thread *thread, size_t bytes)
GC_ALLOCATION_UNTAGGED_CONSERVATIVE);
}
static inline void *
scm_inline_gc_malloc_pointerless (scm_thread *thread, size_t bytes)
{
return gc_allocate (thread->mutator, bytes,
GC_ALLOCATION_UNTAGGED_POINTERLESS);
}
static inline void *
scm_inline_gc_malloc (scm_thread *thread, size_t bytes)
{
return gc_allocate (thread->mutator, bytes, GC_ALLOCATION_TAGGED);
}
static inline void *
scm_inline_gc_malloc_words (scm_thread *thread, size_t words)
{
return scm_inline_gc_malloc (thread, words * sizeof (void *));
}
static inline void *
scm_inline_gc_malloc_pointerless_words (scm_thread *thread, size_t words)
{
return scm_inline_gc_malloc_pointerless (thread, words * sizeof (void *));
}
static inline SCM
scm_inline_cell (scm_thread *thread, scm_t_bits car, scm_t_bits cdr)
{
SCM cell = SCM_PACK_POINTER (scm_inline_gc_malloc_words (thread, 2));
SCM_GC_SET_CELL_WORD (cell, 0, car);
SCM_GC_SET_CELL_WORD (cell, 1, cdr);
return cell;
}
static inline SCM
scm_inline_double_cell (scm_thread *thread, scm_t_bits car, scm_t_bits cbr,
scm_t_bits ccr, scm_t_bits cdr)
{
SCM cell = SCM_PACK_POINTER (scm_inline_gc_malloc_words (thread, 4));
SCM_GC_SET_CELL_WORD (cell, 0, car);
SCM_GC_SET_CELL_WORD (cell, 1, cbr);
SCM_GC_SET_CELL_WORD (cell, 2, ccr);
SCM_GC_SET_CELL_WORD (cell, 3, cdr);
return cell;
}
static inline SCM
scm_inline_words (scm_thread *thread, scm_t_bits car, uint32_t n_words)
{
SCM obj = SCM_PACK_POINTER (scm_inline_gc_malloc_words (thread, n_words));
SCM_GC_SET_CELL_WORD (obj, 0, car);
return obj;
}
#endif /* SCM_GC_INLINE_H */