1#ifndef RUBY_EVAL_INTERN_H
2#define RUBY_EVAL_INTERN_H
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())
39# ifdef HAVE_CRT_EXTERNS_H
54#ifdef HAVE_NET_SOCKET_H
55#include <net/socket.h>
58#define ruby_setjmp(env) RUBY_SETJMP(env)
59#define ruby_longjmp(env,val) RUBY_LONGJMP((env),(val))
73#ifdef HAVE_SYS_SELECT_H
74#include <sys/select.h>
83#ifdef HAVE_SELECT_LARGE_FDSET
84#define select(n, r, w, e, t) select_large_fdset((n), (r), (w), (e), (t))
88#ifdef HAVE_SYS_PARAM_H
95#define SAVE_ROOT_JMPBUF_BEFORE_STMT \
97#define SAVE_ROOT_JMPBUF_AFTER_STMT \
99 __except (GetExceptionCode() == EXCEPTION_STACK_OVERFLOW ? \
100 (rb_ec_raised_set(GET_EC(), RAISED_STACKOVERFLOW), \
102 EXCEPTION_EXECUTE_HANDLER) : \
103 EXCEPTION_CONTINUE_SEARCH) { \
106#elif defined(__MINGW32__)
107LONG WINAPI rb_w32_stack_overflow_handler(
struct _EXCEPTION_POINTERS *);
108#define SAVE_ROOT_JMPBUF_BEFORE_STMT \
110 PVOID _handler = AddVectoredExceptionHandler(1, rb_w32_stack_overflow_handler);
112#define SAVE_ROOT_JMPBUF_AFTER_STMT \
113 RemoveVectoredExceptionHandler(_handler); \
116#define SAVE_ROOT_JMPBUF_BEFORE_STMT
117#define SAVE_ROOT_JMPBUF_AFTER_STMT
120#define SAVE_ROOT_JMPBUF(th, stmt) do \
121 if (ruby_setjmp((th)->root_jmpbuf) == 0) { \
122 SAVE_ROOT_JMPBUF_BEFORE_STMT \
124 SAVE_ROOT_JMPBUF_AFTER_STMT \
130#define EC_PUSH_TAG(ec) do { \
131 rb_execution_context_t * const _ec = (ec); \
132 struct rb_vm_tag _tag; \
133 _tag.state = TAG_NONE; \
135 _tag.prev = _ec->tag;
137#define EC_POP_TAG() \
138 _ec->tag = _tag.prev; \
141#define EC_TMPPOP_TAG() \
144#define EC_REPUSH_TAG() (void)(_ec->tag = &_tag)
146#if defined __GNUC__ && __GNUC__ == 4 && (__GNUC_MINOR__ >= 6 && __GNUC_MINOR__ <= 8) || __clang__
151# define VAR_FROM_MEMORY(var) __extension__(*(__typeof__(var) volatile *)&(var))
152# define VAR_INITIALIZED(var) ((var) = VAR_FROM_MEMORY(var))
153# define VAR_NOCLOBBERED(var) volatile var
155# define VAR_FROM_MEMORY(var) (var)
156# define VAR_INITIALIZED(var) ((void)&(var))
157# define VAR_NOCLOBBERED(var) var
181#define EC_EXEC_TAG() \
182 (ruby_setjmp(_tag.buf) ? rb_ec_tag_state(VAR_FROM_MEMORY(_ec)) : (EC_REPUSH_TAG(), 0))
184#define EC_JUMP_TAG(ec, st) rb_ec_tag_jump(ec, st)
186#define INTERNAL_EXCEPTION_P(exc) FIXNUM_P(exc)
190#define CREF_FL_PUSHED_BY_EVAL IMEMO_FL_USER1
191#define CREF_FL_OMOD_SHARED IMEMO_FL_USER2
224CREF_PUSHED_BY_EVAL(
const rb_cref_t *cref)
250 cref->
flags &= ~CREF_FL_OMOD_SHARED;
258#define rb_ec_raised_set(ec, f) ((ec)->raised_flag |= (f))
259#define rb_ec_raised_reset(ec, f) ((ec)->raised_flag &= ~(f))
260#define rb_ec_raised_p(ec, f) (((ec)->raised_flag & (f)) != 0)
261#define rb_ec_raised_clear(ec) ((ec)->raised_flag = 0)
294# define CharNext(p) rb_char_next(p)
295static inline const char *
296rb_char_next(
const char *p)
305# define CharNext(p) ((p) + 1)
309#if defined DOSISH || defined __CYGWIN__
311translit_char(
char *p,
int from,
int to)
314 if ((
unsigned char)*p == from)
void rb_fiber_start(void)
void rb_print_undef(VALUE klass, ID id, rb_method_visibility_t visi)
void rb_print_inaccessible(VALUE klass, ID id, rb_method_visibility_t visi)
void rb_print_undef_str(VALUE klass, VALUE name)
int rb_ec_set_raised(rb_execution_context_t *ec)
VALUE rb_vm_call_cfunc(VALUE recv, VALUE(*func)(VALUE), VALUE arg, VALUE block_handler, VALUE filename)
#define ruby_longjmp(env, val)
VALUE rb_ec_backtrace_object(const rb_execution_context_t *ec)
VALUE rb_ec_backtrace_str_ary(const rb_execution_context_t *ec, long lev, long n)
#define CREF_FL_PUSHED_BY_EVAL
int rb_ec_stack_check(rb_execution_context_t *ec)
NORETURN(static inline void rb_ec_tag_jump(const rb_execution_context_t *ec, enum ruby_tag_type st))
char * strrchr(const char *, const char)
void rb_vm_set_progname(VALUE filename)
VALUE rb_f_eval(int argc, const VALUE *argv, VALUE self)
void rb_thread_terminate_all(void)
VALUE rb_vm_make_jump_tag_but_local_jump(int state, VALUE val)
#define CREF_FL_OMOD_SHARED
int rb_ec_reset_raised(rb_execution_context_t *ec)
rb_cref_t * rb_vm_cref_replace_with_duplicated_cref(void)
rb_cref_t * rb_vm_cref(void)
VALUE rb_ec_backtrace_location_ary(const rb_execution_context_t *ec, long lev, long n)
VALUE rb_make_exception(int argc, const VALUE *argv)
Make an Exception object from the list of arguments in a manner similar to Kernel#raise.
void rb_method_name_error(VALUE klass, VALUE str)
const rb_scope_visibility_t scope_visi
struct rb_cref_struct * next
VALUE passed_block_handler
void rb_vm_jump_tag_but_local_jump(int state)
MJIT_FUNC_EXPORTED void rb_vm_localjump_error(const char *mesg, VALUE value, int reason)