mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
f47c38245f
Currently we are not able to grab the correct end/top of the stack on powerpc64 due to the fact that it uses the fallback function. The fallback function does not return the correct top of the stack because it adds a new frame and the returned top of the stack contains this frame overhead that could be something around 112 bytes on Powerpc64. This patch simply gets the correct top of the stack pointer, which is always on r1 register according to both ABI v1 and ABI v2 (Little endian). Signed-off-by: Breno Leitao <leitao@debian.org>
131 lines
3.9 KiB
C
131 lines
3.9 KiB
C
|
|
#ifndef RUBY_GC_H
|
|
#define RUBY_GC_H 1
|
|
|
|
#if defined(__x86_64__) && !defined(_ILP32) && defined(__GNUC__)
|
|
#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("movq\t%%rsp, %0" : "=r" (*(p)))
|
|
#elif defined(__i386) && defined(__GNUC__)
|
|
#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("movl\t%%esp, %0" : "=r" (*(p)))
|
|
#elif defined(__powerpc64__) && defined(__GNUC__)
|
|
#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("mr\t%0, %%r1" : "=r" (*(p)))
|
|
#else
|
|
NOINLINE(void rb_gc_set_stack_end(VALUE **stack_end_p));
|
|
#define SET_MACHINE_STACK_END(p) rb_gc_set_stack_end(p)
|
|
#define USE_CONSERVATIVE_STACK_END
|
|
#endif
|
|
|
|
/* for GC debug */
|
|
|
|
#ifndef RUBY_MARK_FREE_DEBUG
|
|
#define RUBY_MARK_FREE_DEBUG 0
|
|
#endif
|
|
|
|
#if RUBY_MARK_FREE_DEBUG
|
|
extern int ruby_gc_debug_indent;
|
|
|
|
static inline void
|
|
rb_gc_debug_indent(void)
|
|
{
|
|
printf("%*s", ruby_gc_debug_indent, "");
|
|
}
|
|
|
|
static inline void
|
|
rb_gc_debug_body(const char *mode, const char *msg, int st, void *ptr)
|
|
{
|
|
if (st == 0) {
|
|
ruby_gc_debug_indent--;
|
|
}
|
|
rb_gc_debug_indent();
|
|
printf("%s: %s %s (%p)\n", mode, st ? "->" : "<-", msg, ptr);
|
|
|
|
if (st) {
|
|
ruby_gc_debug_indent++;
|
|
}
|
|
|
|
fflush(stdout);
|
|
}
|
|
|
|
#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)
|
|
#define RUBY_GC_INFO rb_gc_debug_indent(); printf
|
|
|
|
#else
|
|
#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
|
|
#endif
|
|
|
|
#define RUBY_MARK_NO_PIN_UNLESS_NULL(ptr) do { \
|
|
VALUE markobj = (ptr); \
|
|
if (RTEST(markobj)) {rb_gc_mark_movable(markobj);} \
|
|
} while (0)
|
|
#define RUBY_MARK_UNLESS_NULL(ptr) do { \
|
|
VALUE markobj = (ptr); \
|
|
if (RTEST(markobj)) {rb_gc_mark(markobj);} \
|
|
} while (0)
|
|
#define RUBY_FREE_UNLESS_NULL(ptr) if(ptr){ruby_xfree(ptr);(ptr)=NULL;}
|
|
|
|
#if STACK_GROW_DIRECTION > 0
|
|
# define STACK_UPPER(x, a, b) (a)
|
|
#elif STACK_GROW_DIRECTION < 0
|
|
# define STACK_UPPER(x, a, b) (b)
|
|
#else
|
|
RUBY_EXTERN int ruby_stack_grow_direction;
|
|
int ruby_get_stack_grow_direction(volatile VALUE *addr);
|
|
# define stack_growup_p(x) ( \
|
|
(ruby_stack_grow_direction ? \
|
|
ruby_stack_grow_direction : \
|
|
ruby_get_stack_grow_direction(x)) > 0)
|
|
# define STACK_UPPER(x, a, b) (stack_growup_p(x) ? (a) : (b))
|
|
#endif
|
|
|
|
/*
|
|
STACK_GROW_DIR_DETECTION is used with STACK_DIR_UPPER.
|
|
|
|
On most normal systems, stacks grow from high address to lower address. In
|
|
this case, STACK_DIR_UPPER(a, b) will return (b), but on exotic systems where
|
|
the stack grows UP (from low address to high address), it will return (a).
|
|
*/
|
|
|
|
#if STACK_GROW_DIRECTION
|
|
#define STACK_GROW_DIR_DETECTION
|
|
#define STACK_DIR_UPPER(a,b) STACK_UPPER(0, (a), (b))
|
|
#else
|
|
#define STACK_GROW_DIR_DETECTION VALUE stack_grow_dir_detection
|
|
#define STACK_DIR_UPPER(a,b) STACK_UPPER(&stack_grow_dir_detection, (a), (b))
|
|
#endif
|
|
#define IS_STACK_DIR_UPPER() STACK_DIR_UPPER(1,0)
|
|
|
|
const char *rb_obj_info(VALUE obj);
|
|
const char *rb_raw_obj_info(char *buff, const int buff_size, VALUE obj);
|
|
|
|
VALUE rb_gc_disable_no_rest(void);
|
|
|
|
struct rb_thread_struct;
|
|
|
|
RUBY_SYMBOL_EXPORT_BEGIN
|
|
|
|
/* exports for objspace module */
|
|
size_t rb_objspace_data_type_memsize(VALUE obj);
|
|
void rb_objspace_reachable_objects_from(VALUE obj, void (func)(VALUE, void *), void *data);
|
|
void rb_objspace_reachable_objects_from_root(void (func)(const char *category, VALUE, void *), void *data);
|
|
int rb_objspace_markable_object_p(VALUE obj);
|
|
int rb_objspace_internal_object_p(VALUE obj);
|
|
int rb_objspace_marked_object_p(VALUE obj);
|
|
int rb_objspace_garbage_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_each_objects_without_setup(
|
|
int (*callback)(void *, void *, size_t, void *),
|
|
void *data);
|
|
|
|
RUBY_SYMBOL_EXPORT_END
|
|
|
|
#endif /* RUBY_GC_H */
|