ruby-104/ruby/vm_core.h

172     VALUE (*call)(struct rb_thread_struct *th, struct rb_control_frame_struct *cfp, struct rb_call_info_struct *ci);
426     VALUE *pc;			/* cfp[0] */
427     VALUE *sp;			/* cfp[1] */
428     rb_iseq_t *iseq;		/* cfp[2] */
429     VALUE flag;			/* cfp[3] */
430     VALUE self;			/* cfp[4] / block[0] */
431     VALUE klass;		/* cfp[5] / block[1] */
432     VALUE *ep;			/* cfp[6] / block[2] */
433     rb_iseq_t *block_iseq;	/* cfp[7] / block[3] */
434     VALUE proc;			/* cfp[8] / block[4] */
435     const rb_method_entry_t *me;/* cfp[9] */
438     VALUE *bp_check;		/* cfp[10] */
500     rb_control_frame_t *cfp;
736 #define VM_FRAME_TYPE(cfp) ((cfp)->flag & VM_FRAME_MAGIC_MASK)
741 #define VM_FRAME_TYPE_FINISH_P(cfp) (((cfp)->flag & VM_FRAME_FLAG_FINISH) != 0)
743 #define RUBYVM_CFUNC_FRAME_P(cfp) \
744   (VM_FRAME_TYPE(cfp) == VM_FRAME_MAGIC_CFUNC)
785 rb_block_t *rb_vm_control_frame_block_ptr(rb_control_frame_t *cfp);
787 #define RUBY_VM_PREVIOUS_CONTROL_FRAME(cfp) ((cfp)+1)
788 #define RUBY_VM_NEXT_CONTROL_FRAME(cfp) ((cfp)-1)
791 #define RUBY_VM_VALID_CONTROL_FRAME_P(cfp, ecfp) \
792   ((void *)(ecfp) > (void *)(cfp))
793 #define RUBY_VM_CONTROL_FRAME_STACK_OVERFLOW_P(th, cfp) \
794   (!RUBY_VM_VALID_CONTROL_FRAME_P((cfp), RUBY_VM_END_CONTROL_FRAME(th)))
800 #define RUBY_VM_GET_BLOCK_PTR_IN_CFP(cfp) ((rb_block_t *)(&(cfp)->self))
811 extern void rb_vmdebug_debug_print_pre(rb_thread_t *th, rb_control_frame_t *cfp);
812 extern void rb_vmdebug_debug_print_post(rb_thread_t *th, rb_control_frame_t *cfp);
814 #define SDR() rb_vmdebug_stack_dump_raw(GET_THREAD(), GET_THREAD()->cfp)
815 #define SDR2(cfp) rb_vmdebug_stack_dump_raw(GET_THREAD(), (cfp))
832 VALUE rb_vm_make_env_object(rb_thread_t *th, rb_control_frame_t *cfp);
849 rb_control_frame_t *rb_vm_get_ruby_level_next_cfp(rb_thread_t *th, const rb_control_frame_t *cfp);
850 rb_control_frame_t *rb_vm_get_binding_creatable_next_cfp(rb_thread_t *th, const rb_control_frame_t *cfp);
855 int rb_vm_control_frame_id_and_class(const rb_control_frame_t *cfp, ID *idp, VALUE *klassp);
863 #define CHECK_VM_STACK_OVERFLOW(cfp, margin) do \
864   if ((VALUE *)((char *)(((VALUE *)(cfp)->sp) + (margin)) + sizeof(rb_control_frame_t)) >= ((VALUE *)(cfp))) { \
958     rb_control_frame_t *cfp;
966     /* calc from cfp */
980 	    trace_arg.cfp = (trace_arg.th)->cfp; \