2006-12-31 18:02:22 +03:00
|
|
|
|
2007-02-05 15:21:01 +03:00
|
|
|
#ifndef RUBY_GC_H
|
|
|
|
#define RUBY_GC_H 1
|
|
|
|
|
2012-05-17 06:48:59 +04:00
|
|
|
#if defined(__x86_64__) && defined(__GNUC__) && !defined(__native_client__)
|
2012-12-02 01:15:01 +04:00
|
|
|
#define SET_MACHINE_STACK_END(p) __asm__ volatile ("movq\t%%rsp, %0" : "=r" (*(p)))
|
2012-05-17 06:48:59 +04:00
|
|
|
#elif defined(__i386) && defined(__GNUC__) && !defined(__native_client__)
|
2012-12-02 01:15:01 +04:00
|
|
|
#define SET_MACHINE_STACK_END(p) __asm__ volatile ("movl\t%%esp, %0" : "=r" (*(p)))
|
2007-07-14 11:19:59 +04:00
|
|
|
#else
|
2007-02-05 15:21:01 +03:00
|
|
|
NOINLINE(void rb_gc_set_stack_end(VALUE **stack_end_p));
|
2007-07-14 11:19:59 +04:00
|
|
|
#define SET_MACHINE_STACK_END(p) rb_gc_set_stack_end(p)
|
|
|
|
#define USE_CONSERVATIVE_STACK_END
|
|
|
|
#endif
|
|
|
|
|
2007-02-05 15:21:01 +03:00
|
|
|
/* for GC debug */
|
|
|
|
|
2007-06-25 06:44:20 +04:00
|
|
|
#ifndef RUBY_MARK_FREE_DEBUG
|
|
|
|
#define RUBY_MARK_FREE_DEBUG 0
|
2006-12-31 18:02:22 +03:00
|
|
|
#endif
|
|
|
|
|
2007-06-25 06:44:20 +04:00
|
|
|
#if RUBY_MARK_FREE_DEBUG
|
2007-12-21 11:13:39 +03:00
|
|
|
extern int ruby_gc_debug_indent;
|
2006-12-31 18:02:22 +03:00
|
|
|
|
2010-08-14 10:11:03 +04:00
|
|
|
static inline void
|
2006-12-31 18:02:22 +03:00
|
|
|
rb_gc_debug_indent(void)
|
|
|
|
{
|
2007-06-25 06:44:20 +04:00
|
|
|
printf("%*s", ruby_gc_debug_indent, "");
|
2006-12-31 18:02:22 +03:00
|
|
|
}
|
|
|
|
|
2010-08-14 10:11:03 +04:00
|
|
|
static inline void
|
2009-10-16 08:40:11 +04:00
|
|
|
rb_gc_debug_body(const char *mode, const char *msg, int st, void *ptr)
|
2006-12-31 18:02:22 +03:00
|
|
|
{
|
|
|
|
if (st == 0) {
|
2007-06-25 06:44:20 +04:00
|
|
|
ruby_gc_debug_indent--;
|
2006-12-31 18:02:22 +03:00
|
|
|
}
|
|
|
|
rb_gc_debug_indent();
|
|
|
|
printf("%s: %s %s (%p)\n", mode, st ? "->" : "<-", msg, ptr);
|
2007-06-25 06:44:20 +04:00
|
|
|
|
2006-12-31 18:02:22 +03:00
|
|
|
if (st) {
|
2007-06-25 06:44:20 +04:00
|
|
|
ruby_gc_debug_indent++;
|
2006-12-31 18:02:22 +03:00
|
|
|
}
|
2007-06-25 06:44:20 +04:00
|
|
|
|
2006-12-31 18:02:22 +03:00
|
|
|
fflush(stdout);
|
|
|
|
}
|
|
|
|
|
2011-01-18 17:05:20 +03:00
|
|
|
#define RUBY_MARK_ENTER(msg) rb_gc_debug_body("mark", (msg), 1, ptr)
|
|
|
|
#define RUBY_MARK_LEAVE(msg) rb_gc_debug_body("mark", (msg), 0, ptr)
|
|
|
|
#define RUBY_FREE_ENTER(msg) rb_gc_debug_body("free", (msg), 1, ptr)
|
|
|
|
#define RUBY_FREE_LEAVE(msg) rb_gc_debug_body("free", (msg), 0, ptr)
|
2007-06-25 06:44:20 +04:00
|
|
|
#define RUBY_GC_INFO rb_gc_debug_indent(); printf
|
2006-12-31 18:02:22 +03:00
|
|
|
|
|
|
|
#else
|
2007-06-25 06:44:20 +04:00
|
|
|
#define RUBY_MARK_ENTER(msg)
|
|
|
|
#define RUBY_MARK_LEAVE(msg)
|
|
|
|
#define RUBY_FREE_ENTER(msg)
|
|
|
|
#define RUBY_FREE_LEAVE(msg)
|
|
|
|
#define RUBY_GC_INFO if(0)printf
|
2006-12-31 18:02:22 +03:00
|
|
|
#endif
|
|
|
|
|
2007-06-25 06:44:20 +04:00
|
|
|
#define RUBY_MARK_UNLESS_NULL(ptr) if(RTEST(ptr)){rb_gc_mark(ptr);}
|
2011-02-11 13:45:34 +03:00
|
|
|
#define RUBY_FREE_UNLESS_NULL(ptr) if(ptr){ruby_xfree(ptr);(ptr)=NULL;}
|
2007-02-05 15:21:01 +03:00
|
|
|
|
2008-06-14 06:59:19 +04:00
|
|
|
#if STACK_GROW_DIRECTION > 0
|
2011-01-18 17:05:20 +03:00
|
|
|
# define STACK_UPPER(x, a, b) (a)
|
2008-06-14 06:59:19 +04:00
|
|
|
#elif STACK_GROW_DIRECTION < 0
|
2011-01-18 17:05:20 +03:00
|
|
|
# define STACK_UPPER(x, a, b) (b)
|
2008-06-14 06:59:19 +04:00
|
|
|
#else
|
|
|
|
RUBY_EXTERN int ruby_stack_grow_direction;
|
2010-04-14 11:29:04 +04:00
|
|
|
int ruby_get_stack_grow_direction(volatile VALUE *addr);
|
2008-06-14 06:59:19 +04:00
|
|
|
# define stack_growup_p(x) ( \
|
|
|
|
(ruby_stack_grow_direction ? \
|
|
|
|
ruby_stack_grow_direction : \
|
|
|
|
ruby_get_stack_grow_direction(x)) > 0)
|
2011-01-18 17:05:20 +03:00
|
|
|
# define STACK_UPPER(x, a, b) (stack_growup_p(x) ? (a) : (b))
|
2008-06-14 06:59:19 +04:00
|
|
|
#endif
|
|
|
|
|
2010-05-08 20:15:20 +04:00
|
|
|
#if STACK_GROW_DIRECTION
|
|
|
|
#define STACK_GROW_DIR_DETECTION
|
2011-01-18 17:05:20 +03:00
|
|
|
#define STACK_DIR_UPPER(a,b) STACK_UPPER(0, (a), (b))
|
2010-05-08 20:15:20 +04:00
|
|
|
#else
|
|
|
|
#define STACK_GROW_DIR_DETECTION VALUE stack_grow_dir_detection
|
2011-01-18 17:05:20 +03:00
|
|
|
#define STACK_DIR_UPPER(a,b) STACK_UPPER(&stack_grow_dir_detection, (a), (b))
|
2010-05-08 20:15:20 +04:00
|
|
|
#endif
|
2012-06-10 12:54:38 +04:00
|
|
|
#define IS_STACK_DIR_UPPER() STACK_DIR_UPPER(1,0)
|
2010-05-08 20:15:20 +04:00
|
|
|
|
2010-08-14 10:11:03 +04:00
|
|
|
#if defined __GNUC__ && __GNUC__ >= 4
|
|
|
|
#pragma GCC visibility push(default)
|
|
|
|
#endif
|
|
|
|
|
2012-10-05 12:14:09 +04:00
|
|
|
/* exports for objspace module */
|
2010-08-14 10:11:03 +04:00
|
|
|
size_t rb_objspace_data_type_memsize(VALUE obj);
|
2012-10-24 04:04:56 +04:00
|
|
|
void rb_objspace_reachable_objects_from(VALUE obj, void (func)(VALUE, void *), void *data);
|
|
|
|
int rb_objspace_markable_object_p(VALUE obj);
|
|
|
|
int rb_objspace_internal_object_p(VALUE obj);
|
2012-10-05 12:14:09 +04:00
|
|
|
|
2010-08-14 10:11:03 +04:00
|
|
|
void rb_objspace_each_objects(
|
|
|
|
int (*callback)(void *start, void *end, size_t stride, void *data),
|
|
|
|
void *data);
|
|
|
|
|
|
|
|
#if defined __GNUC__ && __GNUC__ >= 4
|
|
|
|
#pragma GCC visibility pop
|
|
|
|
#endif
|
|
|
|
|
2008-06-14 06:59:19 +04:00
|
|
|
#endif /* RUBY_GC_H */
|