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

Merged Whippet into libguile/whippet

Browse source
This commit is contained in:
Andy Wingo 2025-04-11 14:10:41 +02:00
commit db181e67ff
112 changed files with 18115 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
libguile/whippet/src/freelist.h Normal file
View file

@ -0,0 +1,31 @@
#ifndef FREELIST_H
#define FREELIST_H
// A size-segregated freelist with linear-log buckets à la
// https://pvk.ca/Blog/2015/06/27/linear-log-bucketing-fast-versatile-simple/.
#include "gc-assert.h"
#include "gc-histogram.h"
#include <string.h>
#define DEFINE_FREELIST(name, max_value_bits, precision, node) \
struct name { node buckets[((max_value_bits) << (precision)) + 1]; }; \
static inline size_t name##_num_size_classes(void) { \
return ((max_value_bits) << (precision)) + 1; \
} \
static inline uint64_t name##_bucket_min_val(size_t idx) { \
GC_ASSERT(idx < name##_num_size_classes()); \
return gc_histogram_bucket_min_val((precision), idx); \
} \
static inline void name##_init(struct name *f) { \
memset(f, 0, sizeof(*f)); \
} \
static inline size_t name##_size_class(uint64_t val) { \
return gc_histogram_bucket((max_value_bits), (precision), val); \
} \
static inline node* name##_bucket(struct name *f, uint64_t val) { \
return &f->buckets[name##_size_class(val)]; \
}
#endif // FREELIST_H