summaryrefslogtreecommitdiff
path: root/ext/-test-/bug-14834/bug-14384.c
blob: 3a16a2d222c83270517d4a0faec8f1bfd8420a60 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#include <ruby/ruby.h>
#include <ruby/debug.h>

#ifndef MAYBE_UNUSED
# define MAYBE_UNUSED(x) x
#endif

static NOINLINE(VALUE f(VALUE));
static NOINLINE(void g(VALUE, void*));
extern NOINLINE(void Init_bug_14384(void));

void
Init_bug_14834(void)
{
    VALUE q = rb_define_module("Bug");
    rb_define_module_function(q, "bug_14834", f, 0);
}

VALUE
f(VALUE q)
{
    int   w[] = { 0, 1024 };
    VALUE e   = rb_tracepoint_new(Qnil, RUBY_INTERNAL_EVENT_NEWOBJ, g, w);

    rb_tracepoint_enable(e);
    return rb_ensure(rb_yield, q, rb_tracepoint_disable, e);
}

void
g(MAYBE_UNUSED(VALUE q), void* w)
{
    const int *e = (const int *)w;
    const int  r = *e++;
    const int  t = *e++;
    VALUE     *y = ALLOCA_N(VALUE, t);
    int       *u = ALLOCA_N(int, t);

    rb_profile_frames(r, t, y, u);
}