1#ifndef RUBY_EVAL_INTERN_H
2#define RUBY_EVAL_INTERN_H
10 vm_block_handler_verify(block_handler);
11 ec->passed_block_handler = block_handler;
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))
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); \
114#define EC_POP_TAG() \
115 _ec->tag = _tag.prev; \
118#define EC_TMPPOP_TAG() \
121#define EC_REPUSH_TAG() (void)(_ec->tag = &_tag)
123#if defined __GNUC__ && __GNUC__ == 4 && (__GNUC_MINOR__ >= 6 && __GNUC_MINOR__ <= 8) || defined __clang__
128# define VAR_FROM_MEMORY(var) __extension__(*(__typeof__(var) volatile *)&(var))
129# define VAR_INITIALIZED(var) ((var) = VAR_FROM_MEMORY(var))
130# define VAR_NOCLOBBERED(var) volatile var
132# define VAR_FROM_MEMORY(var) (var)
133# define VAR_INITIALIZED(var) ((void)&(var))
134# define VAR_NOCLOBBERED(var) var
140 unsigned int current_lock_rec = rb_ec_vm_lock_rec(ec);
141 if (current_lock_rec != recorded_lock_rec) {
142 rb_ec_vm_lock_rec_release(ec, recorded_lock_rec, current_lock_rec);
151 enum ruby_tag_type state = tag->state;
152 tag->state = TAG_NONE;
153 rb_ec_vm_lock_rec_check(ec, tag->lock_rec);
162 ruby_longjmp(ec->tag->buf, 1);
169#define EC_EXEC_TAG() \
170 (ruby_setjmp(_tag.buf) ? rb_ec_tag_state(VAR_FROM_MEMORY(_ec)) : (EC_REPUSH_TAG(), 0))
172#define EC_JUMP_TAG(ec, st) rb_ec_tag_jump(ec, st)
174#define INTERNAL_EXCEPTION_P(exc) FIXNUM_P(exc)
178#define CREF_FL_PUSHED_BY_EVAL IMEMO_FL_USER1
179#define CREF_FL_OMOD_SHARED IMEMO_FL_USER2
180#define CREF_FL_SINGLETON IMEMO_FL_USER3
182static inline int CREF_SINGLETON(
const rb_cref_t *cref);
187 if (CREF_SINGLETON(cref)) {
188 return CLASS_OF(cref->klass_or_self);
191 return cref->klass_or_self;
196CREF_CLASS_FOR_DEFINITION(
const rb_cref_t *cref)
198 if (CREF_SINGLETON(cref)) {
202 return cref->klass_or_self;
215 return &cref->scope_visi;
221 return cref->refinements;
231CREF_PUSHED_BY_EVAL(
const rb_cref_t *cref)
233 return cref->flags & CREF_FL_PUSHED_BY_EVAL;
239 cref->flags |= CREF_FL_PUSHED_BY_EVAL;
245 return cref->flags & CREF_FL_SINGLETON;
251 cref->flags |= CREF_FL_SINGLETON;
257 return cref->flags & CREF_FL_OMOD_SHARED;
263 cref->flags |= CREF_FL_OMOD_SHARED;
269 cref->flags &= ~CREF_FL_OMOD_SHARED;
273 RAISED_EXCEPTION = 1,
274 RAISED_STACKOVERFLOW = 2,
277#define rb_ec_raised_set(ec, f) ((ec)->raised_flag |= (f))
278#define rb_ec_raised_reset(ec, f) ((ec)->raised_flag &= ~(f))
279#define rb_ec_raised_p(ec, f) (((ec)->raised_flag & (f)) != 0)
280#define rb_ec_raised_clear(ec) ((ec)->raised_flag = 0)
286VALUE rb_make_exception(
int argc,
const VALUE *argv);
288NORETURN(
void rb_method_name_error(
VALUE,
VALUE));
292NORETURN(
void rb_print_undef(
VALUE,
ID, rb_method_visibility_t));
293NORETURN(
void rb_print_undef_str(
VALUE,
VALUE));
294NORETURN(
void rb_print_inaccessible(
VALUE,
ID, rb_method_visibility_t));
295NORETURN(
void rb_vm_localjump_error(
const char *,
VALUE,
int));
296NORETURN(
void rb_vm_jump_tag_but_local_jump(
int));
298VALUE rb_vm_make_jump_tag_but_local_jump(
int state,
VALUE val);
300rb_cref_t *rb_vm_cref_replace_with_duplicated_cref(
void);
302void rb_vm_set_progname(
VALUE filename);
303VALUE rb_vm_cbase(
void);
312# define CharNext(p) rb_char_next(p)
314rb_char_next(
const char *p)
317 int len = mblen(p, RUBY_MBCHAR_MAXSIZE);
318 p += len > 0 ? len : 1;
323# define CharNext(p) ((p) + 1)
327#if defined DOSISH || defined __CYGWIN__
329translit_char(
char *p,
int from,
int to)
332 if ((
unsigned char)*p == from)
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.
uintptr_t VALUE
Type that represents a Ruby object.
uintptr_t ID
Type that represents a Ruby identifier such as a variable name.