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

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

Browse source
This commit is contained in:
Andy Wingo 2025-04-18 15:11:40 +02:00
commit b6236fdcdc
13 changed files with 82 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

36
libguile/whippet/api/gc-stack-addr.h Normal file
View file

@ -0,0 +1,36 @@
#ifndef GC_STACK_ADDR_H
#define GC_STACK_ADDR_H
#include "gc-assert.h"
#include "gc-visibility.h"
struct gc_stack_addr {
uintptr_t addr;
};
static inline struct gc_stack_addr gc_empty_stack_addr (void) {
return (struct gc_stack_addr){ 0 };
};
static inline int gc_stack_addr_is_empty (struct gc_stack_addr addr) {
return addr.addr == 0;
};
static inline char* gc_stack_addr_as_pointer (struct gc_stack_addr addr) {
GC_ASSERT(!gc_stack_addr_is_empty(addr));
return (char*)addr.addr;
};
static inline struct gc_stack_addr gc_stack_addr (uintptr_t addr) {
GC_ASSERT(addr);
return (struct gc_stack_addr){ addr };
};
GC_API_ void* gc_call_with_stack_addr(void* (*f)(struct gc_stack_addr,
void *),
void *data) GC_NEVER_INLINE;
GC_API_ int gc_stack_addr_is_colder(struct gc_stack_addr a,
struct gc_stack_addr b);
#endif // GC_STACK_ADDR_H