static VALUE
prof_call_info_add_wait_time(VALUE self, VALUE other)
{
prof_call_info_t *result = prof_get_call_info_result(self);
prof_call_info_t *other_info = prof_get_call_info_result(other);
result->wait_time += other_info->wait_time;
return Qnil;
}
/* call-seq:
parent=new_parent -> new_parent
Changes the parent of self to new_parent and returns it.*/
static VALUE
prof_call_info_set_parent(VALUE self, VALUE new_parent)
{
prof_call_info_t *result = prof_get_call_info_result(self);
if (new_parent == Qnil)
result->parent = NULL;
else
result->parent = prof_get_call_info_result(new_parent);
return prof_call_info_parent(self);
}
/* call-seq:
wait_time -> float
Returns the total amount of time this method waited for other threads. */
static VALUE
prof_call_info_wait_time(VALUE self)
{
prof_call_info_t *result = prof_get_call_info_result(self);
return rb_float_new(convert_measurement(result->wait_time));
}
/* call-seq:
called=n -> n
Sets the call count to n. */
static VALUE
prof_call_info_set_called(VALUE self, VALUE called)
{
prof_call_info_t *result = prof_get_call_info_result(self);
result->called = NUM2INT(called);
return called;
}
/* call-seq:
parent -> call_info
Returns the call_infos parent call_info object (the method that called this method).*/
static VALUE
prof_call_info_parent(VALUE self)
{
prof_call_info_t *result = prof_get_call_info_result(self);
if (result->parent)
return prof_call_info_wrap(result->parent);
else
return Qnil;
}
/* call-seq:
called -> MethodInfo
Returns the target method. */
static VALUE
prof_call_info_target(VALUE self)
{
/* Target is a pointer to a method_info - so we have to be careful
about the GC. We will wrap the method_info but provide no
free method so the underlying object is not freed twice! */
prof_call_info_t *result = prof_get_call_info_result(self);
return prof_method_wrap(result->target);
}
/* call-seq:
children -> hash
Returns an array of call info objects of methods that this method
called (ie, children).*/
static VALUE
prof_call_info_children(VALUE self)
{
prof_call_info_t *call_info = prof_get_call_info_result(self);
if (call_info->children == Qnil)
{
call_info->children = rb_ary_new();
st_foreach(call_info->call_infos, prof_call_info_collect_children, call_info->children);
}
return call_info->children;
}
/* call-seq:
line_no -> int
returns the line number of the method */
static VALUE
prof_call_info_line(VALUE self)
{
prof_call_info_t *result = prof_get_call_info_result(self);
return rb_int_new(result->line);
}
/* call-seq:
called -> int
Returns the total amount of time this method was called. */
static VALUE
prof_call_info_called(VALUE self)
{
prof_call_info_t *result = prof_get_call_info_result(self);
return INT2NUM(result->called);
}
