Lines Matching refs:cur_env
298 #define dJMPENV JMPENV cur_env; \
299 volatile JMPENV *pcur_env = ((cur_env.je_noset = 0),&cur_env)
368 #define dJMPENV JMPENV cur_env
373 &cur_env, PL_top_env)); \
374 cur_env.je_prev = PL_top_env; \
376 cur_env.je_ret = PerlProc_setjmp(cur_env.je_buf, SCOPE_SAVES_SIGNAL_MASK); \
378 PL_top_env = &cur_env; \
379 cur_env.je_mustcatch = FALSE; \
380 (v) = cur_env.je_ret; \
384 STMT_START { PL_top_env = cur_env.je_prev; } STMT_END