1#ifndef RUBY_EVAL_INTERN_H
2#define RUBY_EVAL_INTERN_H
8vm_passed_block_handler_set(rb_execution_context_t *ec,
VALUE block_handler)
10 vm_block_handler_verify(block_handler);
11 ec->passed_block_handler = block_handler;
15pass_passed_block_handler(rb_execution_context_t *ec)
17 VALUE block_handler = rb_vm_frame_block_handler(ec->cfp);
18 vm_passed_block_handler_set(ec, block_handler);
19 VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_PASSED);
22#define PASS_PASSED_BLOCK_HANDLER_EC(ec) pass_passed_block_handler(ec)
23#define PASS_PASSED_BLOCK_HANDLER() pass_passed_block_handler(GET_EC())
36#if defined(__wasm__) && !defined(__EMSCRIPTEN__)
37# include "wasm/setjmp.h"
43# ifdef HAVE_CRT_EXTERNS_H
44# include <crt_externs.h>
46# include "missing/crt_externs.h"
51char *strrchr(
const char *,
const char);
58#ifdef HAVE_NET_SOCKET_H
59#include <net/socket.h>
62#define ruby_setjmp(env) RUBY_SETJMP(env)
63#define ruby_longjmp(env,val) RUBY_LONGJMP((env),(val))
69NORETURN(
void _longjmp(jmp_buf,
int));
77#ifdef HAVE_SYS_SELECT_H
78#include <sys/select.h>
87#ifdef HAVE_SELECT_LARGE_FDSET
88#define select(n, r, w, e, t) select_large_fdset((n), (r), (w), (e), (t))
89extern int select_large_fdset(
int, fd_set *, fd_set *, fd_set *,
struct timeval *);
92#ifdef HAVE_SYS_PARAM_H
99#define SAVE_ROOT_JMPBUF(th, stmt) do \
106#define EC_PUSH_TAG(ec) do { \
107 rb_execution_context_t * const _ec = (ec); \
108 struct rb_vm_tag _tag; \
109 _tag.state = TAG_NONE; \
111 _tag.prev = _ec->tag; \
112 _tag.lock_rec = rb_ec_vm_lock_rec(_ec); \
113 rb_vm_tag_jmpbuf_init(&_tag.buf); \
115#define EC_POP_TAG() \
116 _ec->tag = _tag.prev; \
117 rb_vm_tag_jmpbuf_deinit(&_tag.buf); \
120#define EC_TMPPOP_TAG() \
123#define EC_REPUSH_TAG() (void)(_ec->tag = &_tag)
125#if defined __GNUC__ && __GNUC__ == 4 && (__GNUC_MINOR__ >= 6 && __GNUC_MINOR__ <= 8) || defined __clang__
130# define VAR_FROM_MEMORY(var) __extension__(*(__typeof__(var) volatile *)&(var))
131# define VAR_INITIALIZED(var) ((var) = VAR_FROM_MEMORY(var))
132# define VAR_NOCLOBBERED(var) volatile var
134# define VAR_FROM_MEMORY(var) (var)
135# define VAR_INITIALIZED(var) ((void)&(var))
136# define VAR_NOCLOBBERED(var) var
140rb_ec_vm_lock_rec_check(
const rb_execution_context_t *ec,
unsigned int recorded_lock_rec)
142 unsigned int current_lock_rec = rb_ec_vm_lock_rec(ec);
143 if (current_lock_rec != recorded_lock_rec) {
144 rb_ec_vm_lock_rec_release(ec, recorded_lock_rec, current_lock_rec);
150rb_ec_tag_state(
const rb_execution_context_t *ec)
153 enum ruby_tag_type state = tag->state;
154 tag->state = TAG_NONE;
155 rb_ec_vm_lock_rec_check(ec, tag->lock_rec);
160NORETURN(
static inline void rb_ec_tag_jump(
const rb_execution_context_t *ec,
enum ruby_tag_type st));
162rb_ec_tag_jump(
const rb_execution_context_t *ec,
enum ruby_tag_type st)
166 ruby_longjmp(RB_VM_TAG_JMPBUF_GET(ec->tag->buf), 1);
173#define EC_EXEC_TAG() \
174 (UNLIKELY(ruby_setjmp(RB_VM_TAG_JMPBUF_GET(_tag.buf))) ? rb_ec_tag_state(VAR_FROM_MEMORY(_ec)) : (EC_REPUSH_TAG(), 0))
176#define EC_JUMP_TAG(ec, st) rb_ec_tag_jump(ec, st)
178#define INTERNAL_EXCEPTION_P(exc) FIXNUM_P(exc)
182#define CREF_FL_PUSHED_BY_EVAL IMEMO_FL_USER1
183#define CREF_FL_OMOD_SHARED IMEMO_FL_USER2
184#define CREF_FL_SINGLETON IMEMO_FL_USER3
186static inline int CREF_SINGLETON(
const rb_cref_t *cref);
189CREF_CLASS(
const rb_cref_t *cref)
191 if (CREF_SINGLETON(cref)) {
192 return CLASS_OF(cref->klass_or_self);
195 return cref->klass_or_self;
200CREF_CLASS_FOR_DEFINITION(
const rb_cref_t *cref)
202 if (CREF_SINGLETON(cref)) {
206 return cref->klass_or_self;
210static inline rb_cref_t *
211CREF_NEXT(
const rb_cref_t *cref)
216static inline const rb_scope_visibility_t *
217CREF_SCOPE_VISI(
const rb_cref_t *cref)
219 return &cref->scope_visi;
223CREF_REFINEMENTS(
const rb_cref_t *cref)
225 return cref->refinements;
229CREF_REFINEMENTS_SET(rb_cref_t *cref,
VALUE refs)
235CREF_PUSHED_BY_EVAL(
const rb_cref_t *cref)
237 return cref->flags & CREF_FL_PUSHED_BY_EVAL;
241CREF_PUSHED_BY_EVAL_SET(rb_cref_t *cref)
243 cref->flags |= CREF_FL_PUSHED_BY_EVAL;
247CREF_SINGLETON(
const rb_cref_t *cref)
249 return cref->flags & CREF_FL_SINGLETON;
253CREF_SINGLETON_SET(rb_cref_t *cref)
255 cref->flags |= CREF_FL_SINGLETON;
259CREF_OMOD_SHARED(
const rb_cref_t *cref)
261 return cref->flags & CREF_FL_OMOD_SHARED;
265CREF_OMOD_SHARED_SET(rb_cref_t *cref)
267 cref->flags |= CREF_FL_OMOD_SHARED;
271CREF_OMOD_SHARED_UNSET(rb_cref_t *cref)
273 cref->flags &= ~CREF_FL_OMOD_SHARED;
277 RAISED_EXCEPTION = 1,
278 RAISED_STACKOVERFLOW = 2,
281#define rb_ec_raised_set(ec, f) ((ec)->raised_flag |= (f))
282#define rb_ec_raised_reset(ec, f) ((ec)->raised_flag &= ~(f))
283#define rb_ec_raised_p(ec, f) (((ec)->raised_flag & (f)) != 0)
284#define rb_ec_raised_clear(ec) ((ec)->raised_flag = 0)
285int rb_ec_set_raised(rb_execution_context_t *ec);
286int rb_ec_reset_raised(rb_execution_context_t *ec);
287int rb_ec_stack_check(rb_execution_context_t *ec);
290VALUE rb_make_exception(
int argc,
const VALUE *argv);
292NORETURN(
void rb_method_name_error(
VALUE,
VALUE));
294NORETURN(
void rb_fiber_start(rb_fiber_t*));
296NORETURN(
void rb_print_undef(
VALUE,
ID, rb_method_visibility_t));
297NORETURN(
void rb_print_undef_str(
VALUE,
VALUE));
298NORETURN(
void rb_print_inaccessible(
VALUE,
ID, rb_method_visibility_t));
299NORETURN(
void rb_vm_localjump_error(
const char *,
VALUE,
int));
300NORETURN(
void rb_vm_jump_tag_but_local_jump(
int));
302VALUE rb_vm_make_jump_tag_but_local_jump(
int state,
VALUE val);
303rb_cref_t *rb_vm_cref(
void);
304rb_cref_t *rb_vm_cref_replace_with_duplicated_cref(
void);
306void rb_vm_set_progname(
VALUE filename);
307VALUE rb_vm_cbase(
void);
310VALUE rb_ec_backtrace_object(
const rb_execution_context_t *ec);
311VALUE rb_ec_backtrace_str_ary(
const rb_execution_context_t *ec,
long lev,
long n);
312VALUE rb_ec_backtrace_location_ary(
const rb_execution_context_t *ec,
long lev,
long n,
bool skip_internal);
316# define CharNext(p) rb_char_next(p)
318rb_char_next(
const char *p)
321 int len = mblen(p, RUBY_MBCHAR_MAXSIZE);
327# define CharNext(p) ((p) + 1)
331#if defined DOSISH || defined __CYGWIN__
333translit_char(
char *p,
int from,
int to)
336 if ((
unsigned char)*p == from)
#define RUBY_ASSERT(expr)
Asserts that the given expression is truthy if and only if RUBY_DEBUG is truthy.
VALUE rb_singleton_class(VALUE obj)
Finds or creates the singleton class of the passed object.
#define CLASS_OF
Old name of rb_class_of.
#define RB_OBJ_WRITE(old, slot, young)
Declaration of a "back" pointer.
int len
Length of the buffer.
#define RBIMPL_ASSUME(_)
Wraps (or simulates) __builtin_unreachable.
uintptr_t ID
Type that represents a Ruby identifier such as a variable name.
uintptr_t VALUE
Type that represents a Ruby object.