ruby-104/ruby/vm_backtrace.c

33 rb_vm_get_sourceline(const rb_control_frame_t *cfp)
36     const rb_iseq_t *iseq = cfp->iseq;
39 	lineno = calc_lineno(cfp->iseq, cfp->pc);
429 	       void (*iter_iseq)(void *arg, const rb_control_frame_t *cfp),
430 	       void (*iter_cfunc)(void *arg, const rb_control_frame_t *cfp, ID mid),
433     rb_control_frame_t *last_cfp = th->cfp;
435     rb_control_frame_t *cfp;
445      *  current frame <- th->cfp
462     for (i=0, cfp = start_cfp; i<size; i++, cfp = RUBY_VM_NEXT_CONTROL_FRAME(cfp)) {
463 	/* fprintf(stderr, "cfp: %d\n", (rb_control_frame_t *)(th->stack + th->stack_size) - cfp); */
464 	if (cfp->iseq) {
465 	    if (cfp->pc) {
466 		iter_iseq(arg, cfp);
469 	else if (RUBYVM_CFUNC_FRAME_P(cfp)) {
470 	    ID mid = cfp->me->def ? cfp->me->def->original_id : cfp->me->called_id;
472 	    iter_cfunc(arg, cfp, mid);
494 bt_iter_iseq(void *ptr, const rb_control_frame_t *cfp)
496     const rb_iseq_t *iseq = cfp->iseq;
497     const VALUE *pc = cfp->pc;
507 bt_iter_cfunc(void *ptr, const rb_control_frame_t *cfp, ID mid)
680 oldbt_iter_iseq(void *ptr, const rb_control_frame_t *cfp)
682     const rb_iseq_t *iseq = cfp->iseq;
683     const VALUE *pc = cfp->pc;
693 oldbt_iter_cfunc(void *ptr, const rb_control_frame_t *cfp, ID mid)
1028     rb_control_frame_t *cfp;
1030     VALUE contexts; /* [[klass, binding, iseq, cfp], ...] */
1053 get_klass(const rb_control_frame_t *cfp)
1056     if (rb_vm_control_frame_id_and_class(cfp, 0, &klass)) {
1070 collect_caller_bindings_iseq(void *arg, const rb_control_frame_t *cfp)
1075     rb_ary_store(frame, CALLER_BINDING_SELF, cfp->self);
1076     rb_ary_store(frame, CALLER_BINDING_CLASS, get_klass(cfp));
1077     rb_ary_store(frame, CALLER_BINDING_BINDING, GC_GUARDED_PTR(cfp)); /* create later */
1078     rb_ary_store(frame, CALLER_BINDING_ISEQ, cfp->iseq ? cfp->iseq->self : Qnil);
1079     rb_ary_store(frame, CALLER_BINDING_CFP, GC_GUARDED_PTR(cfp));
1085 collect_caller_bindings_cfunc(void *arg, const rb_control_frame_t *cfp, ID mid)
1090     rb_ary_store(frame, CALLER_BINDING_SELF, cfp->self);
1091     rb_ary_store(frame, CALLER_BINDING_CLASS, get_klass(cfp));
1094     rb_ary_store(frame, CALLER_BINDING_CFP, GC_GUARDED_PTR(cfp));
1122 	    rb_control_frame_t *cfp = GC_GUARDED_PTR_REF(cfp_val);
1123 	    rb_ary_store(entry, CALLER_BINDING_BINDING, rb_binding_new_with_cfp(th, cfp));
1144     dbg_context.cfp = dbg_context.th->cfp;