5#if defined(__x86_64__) && !defined(_ILP32) && defined(__GNUC__)
6#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("movq\t%%rsp, %0" : "=r" (*(p)))
7#elif defined(__i386) && defined(__GNUC__)
8#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("movl\t%%esp, %0" : "=r" (*(p)))
9#elif defined(__powerpc64__) && defined(__GNUC__)
10#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("mr\t%0, %%r1" : "=r" (*(p)))
11#elif defined(__aarch64__) && defined(__GNUC__)
12#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("mov\t%0, sp" : "=r" (*(p)))
15#define SET_MACHINE_STACK_END(p) rb_gc_set_stack_end(p)
16#define USE_CONSERVATIVE_STACK_END
21#ifndef RUBY_MARK_FREE_DEBUG
22#define RUBY_MARK_FREE_DEBUG 0
25#if RUBY_MARK_FREE_DEBUG
26extern int ruby_gc_debug_indent;
29rb_gc_debug_indent(
void)
31 printf(
"%*s", ruby_gc_debug_indent,
"");
35rb_gc_debug_body(
const char *mode,
const char *msg,
int st,
void *
ptr)
38 ruby_gc_debug_indent--;
41 printf(
"%s: %s %s (%p)\n", mode,
st ?
"->" :
"<-", msg,
ptr);
44 ruby_gc_debug_indent++;
50#define RUBY_MARK_ENTER(msg) rb_gc_debug_body("mark", (msg), 1, ptr)
51#define RUBY_MARK_LEAVE(msg) rb_gc_debug_body("mark", (msg), 0, ptr)
52#define RUBY_FREE_ENTER(msg) rb_gc_debug_body("free", (msg), 1, ptr)
53#define RUBY_FREE_LEAVE(msg) rb_gc_debug_body("free", (msg), 0, ptr)
54#define RUBY_GC_INFO rb_gc_debug_indent(); printf
57#define RUBY_MARK_ENTER(msg)
58#define RUBY_MARK_LEAVE(msg)
59#define RUBY_FREE_ENTER(msg)
60#define RUBY_FREE_LEAVE(msg)
61#define RUBY_GC_INFO if(0)printf
64#define RUBY_MARK_NO_PIN_UNLESS_NULL(ptr) do { \
65 VALUE markobj = (ptr); \
66 if (RTEST(markobj)) {rb_gc_mark_movable(markobj);} \
68#define RUBY_MARK_UNLESS_NULL(ptr) do { \
69 VALUE markobj = (ptr); \
70 if (RTEST(markobj)) {rb_gc_mark(markobj);} \
72#define RUBY_FREE_UNLESS_NULL(ptr) if(ptr){ruby_xfree(ptr);(ptr)=NULL;}
74#if STACK_GROW_DIRECTION > 0
75# define STACK_UPPER(x, a, b) (a)
76#elif STACK_GROW_DIRECTION < 0
77# define STACK_UPPER(x, a, b) (b)
81# define stack_growup_p(x) ( \
82 (ruby_stack_grow_direction ? \
83 ruby_stack_grow_direction : \
84 ruby_get_stack_grow_direction(x)) > 0)
85# define STACK_UPPER(x, a, b) (stack_growup_p(x) ? (a) : (b))
96#if STACK_GROW_DIRECTION
97#define STACK_GROW_DIR_DETECTION
98#define STACK_DIR_UPPER(a,b) STACK_UPPER(0, (a), (b))
100#define STACK_GROW_DIR_DETECTION VALUE stack_grow_dir_detection
101#define STACK_DIR_UPPER(a,b) STACK_UPPER(&stack_grow_dir_detection, (a), (b))
103#define IS_STACK_DIR_UPPER() STACK_DIR_UPPER(1,0)
124 int (*callback)(
void *start,
void *end,
size_t stride,
void *data),
128 int (*callback)(
void *,
void *,
size_t,
void *),
int rb_objspace_internal_object_p(VALUE obj)
void rb_objspace_each_objects(int(*callback)(void *start, void *end, size_t stride, void *data), void *data)
void rb_objspace_reachable_objects_from_root(void(func)(const char *category, VALUE, void *), void *data)
int rb_objspace_garbage_object_p(VALUE obj)
NOINLINE(void rb_gc_set_stack_end(VALUE **stack_end_p))
const char * rb_raw_obj_info(char *buff, const int buff_size, VALUE obj)
void rb_objspace_each_objects_without_setup(int(*callback)(void *, void *, size_t, void *), void *data)
int rb_objspace_marked_object_p(VALUE obj)
RUBY_EXTERN int ruby_stack_grow_direction
void rb_objspace_reachable_objects_from(VALUE obj, void(func)(VALUE, void *), void *data)
int ruby_get_stack_grow_direction(volatile VALUE *addr)
int rb_objspace_markable_object_p(VALUE obj)
RUBY_SYMBOL_EXPORT_BEGIN size_t rb_objspace_data_type_memsize(VALUE obj)
const char * rb_obj_info(VALUE obj)
VALUE rb_gc_disable_no_rest(void)
void rb_gc_set_stack_end(VALUE **stack_end_p)