Ruby 2.0.0p353(2013-11-22revision43784)

- Main Page
- Modules
- Data Structures
- Files

- File List
- Globals

gc.h
Go to the documentation of this file.
1
2 #ifndef RUBY_GC_H
3 #define RUBY_GC_H 1
4
5 #if defined(__x86_64__) && defined(__GNUC__) && !defined(__native_client__)
6 #define SET_MACHINE_STACK_END(p) __asm__ volatile ("movq\t%%rsp, %0" : "=r" (*(p)))
7 #elif defined(__i386) && defined(__GNUC__) && !defined(__native_client__)
8 #define SET_MACHINE_STACK_END(p) __asm__ volatile ("movl\t%%esp, %0" : "=r" (*(p)))
9 #else
10 NOINLINE(void rb_gc_set_stack_end(VALUE **stack_end_p));
11 #define SET_MACHINE_STACK_END(p) rb_gc_set_stack_end(p)
12 #define USE_CONSERVATIVE_STACK_END
13 #endif
14
15 /* for GC debug */
16
17 #ifndef RUBY_MARK_FREE_DEBUG
18 #define RUBY_MARK_FREE_DEBUG 0
19 #endif
20
21 #if RUBY_MARK_FREE_DEBUG
22 extern int ruby_gc_debug_indent;
23
24 static inline void
25 rb_gc_debug_indent(void)
26 {
27 printf("%*s", ruby_gc_debug_indent, "");
28 }
29
30 static inline void
31 rb_gc_debug_body(const char *mode, const char *msg, int st, void *ptr)
32 {
33 if (st == 0) {
34 ruby_gc_debug_indent--;
35 }
36 rb_gc_debug_indent();
37 printf("%s: %s %s (%p)\n", mode, st ? "->" : "<-", msg, ptr);
38
39 if (st) {
40 ruby_gc_debug_indent++;
41 }
42
43 fflush(stdout);
44 }
45
46 #define RUBY_MARK_ENTER(msg) rb_gc_debug_body("mark", (msg), 1, ptr)
47 #define RUBY_MARK_LEAVE(msg) rb_gc_debug_body("mark", (msg), 0, ptr)
48 #define RUBY_FREE_ENTER(msg) rb_gc_debug_body("free", (msg), 1, ptr)
49 #define RUBY_FREE_LEAVE(msg) rb_gc_debug_body("free", (msg), 0, ptr)
50 #define RUBY_GC_INFO rb_gc_debug_indent(); printf
51
52 #else
53 #define RUBY_MARK_ENTER(msg)
54 #define RUBY_MARK_LEAVE(msg)
55 #define RUBY_FREE_ENTER(msg)
56 #define RUBY_FREE_LEAVE(msg)
57 #define RUBY_GC_INFO if(0)printf
58 #endif
59
60 #define RUBY_MARK_UNLESS_NULL(ptr) if(RTEST(ptr)){rb_gc_mark(ptr);}
61 #define RUBY_FREE_UNLESS_NULL(ptr) if(ptr){ruby_xfree(ptr);(ptr)=NULL;}
62
63 #if STACK_GROW_DIRECTION > 0
64 # define STACK_UPPER(x, a, b) (a)
65 #elif STACK_GROW_DIRECTION < 0
66 # define STACK_UPPER(x, a, b) (b)
67 #else
68 RUBY_EXTERN int ruby_stack_grow_direction;
69 int ruby_get_stack_grow_direction(volatile VALUE *addr);
70 # define stack_growup_p(x) ( \
71 (ruby_stack_grow_direction ? \
72 ruby_stack_grow_direction : \
73 ruby_get_stack_grow_direction(x)) > 0)
74 # define STACK_UPPER(x, a, b) (stack_growup_p(x) ? (a) : (b))
75 #endif
76
77 #if STACK_GROW_DIRECTION
78 #define STACK_GROW_DIR_DETECTION
79 #define STACK_DIR_UPPER(a,b) STACK_UPPER(0, (a), (b))
80 #else
81 #define STACK_GROW_DIR_DETECTION VALUE stack_grow_dir_detection
82 #define STACK_DIR_UPPER(a,b) STACK_UPPER(&stack_grow_dir_detection, (a), (b))
83 #endif
84 #define IS_STACK_DIR_UPPER() STACK_DIR_UPPER(1,0)
85
86 #if defined __GNUC__ && __GNUC__ >= 4
87 #pragma GCC visibility push(default)
88 #endif
89
90 /* exports for objspace module */
91 size_t rb_objspace_data_type_memsize(VALUE obj);
92 void rb_objspace_reachable_objects_from(VALUE obj, void (func)(VALUE, void *), void *data);
93 int rb_objspace_markable_object_p(VALUE obj);
94 int rb_objspace_internal_object_p(VALUE obj);
95
96 void rb_objspace_each_objects(
97 int (*callback)(void *start, void *end, size_t stride, void *data),
98 void *data);
99
100 #if defined __GNUC__ && __GNUC__ >= 4
101 #pragma GCC visibility pop
102 #endif
103
104 #endif /* RUBY_GC_H */
data
VALUE data
Definition: tcltklib.c:3368
func
SSL_METHOD *(* func)(void)
Definition: ossl_ssl.c:108
ruby_get_stack_grow_direction
int ruby_get_stack_grow_direction(volatile VALUE *addr)
Definition: gc.c:2267
rb_objspace_each_objects
void rb_objspace_each_objects(each_obj_callback *callback, void *data)
Definition: gc.c:1128
rb_objspace_markable_object_p
int rb_objspace_markable_object_p(VALUE obj)
Definition: gc.c:2576
callback
void callback(ffi_cif *cif, void *resp, void **args, void *ctx)
Definition: closure.c:53
ruby_stack_grow_direction
int ruby_stack_grow_direction
Definition: gc.c:2265
NOINLINE
#define NOINLINE(x)
Definition: ruby.h:37
obj
static VALUE VALUE obj
Definition: tcltklib.c:3158
rb_objspace_internal_object_p
int rb_objspace_internal_object_p(VALUE obj)
Definition: gc.c:1170
mode
VALUE mode
Definition: tcltklib.c:1664
rb_gc_set_stack_end
void rb_gc_set_stack_end(VALUE **stack_end_p)
Definition: thread.c:3714
ptr
return ptr
Definition: tcltklib.c:784
msg
volatile VALUE msg
Definition: tcltklib.c:3100
end
gz end
Definition: zlib.c:2272
rb_objspace_reachable_objects_from
void rb_objspace_reachable_objects_from(VALUE obj, void(func)(VALUE, void *), void *data)
Definition: gc.c:3336
ruby_gc_debug_indent
int ruby_gc_debug_indent
Definition: gc.c:333
RUBY_EXTERN
#define RUBY_EXTERN
Definition: defines.h:188
VALUE
unsigned long VALUE
Definition: ripper.y:104
rb_objspace_data_type_memsize
size_t rb_objspace_data_type_memsize(VALUE obj)
Definition: gc.c:738
st
Tcl_Interp *int * st
Definition: stubs.c:510