13 #define SAVEt_NSTAB 12
14 #define SAVEt_SVREF 13
16 #define SAVEt_FREESV 15
17 #define SAVEt_FREEOP 16
18 #define SAVEt_FREEPV 17
19 #define SAVEt_CLEARSV 18
20 #define SAVEt_DELETE 19
21 #define SAVEt_DESTRUCTOR 20
22 #define SAVEt_REGCONTEXT 21
23 #define SAVEt_STACK_POS 22
25 #define SAVEt_AELEM 24
26 #define SAVEt_HELEM 25
28 #define SAVEt_HINTS 27
29 #define SAVEt_ALLOC 28
31 #define SSCHECK(need) if (PL_savestack_ix + need > PL_savestack_max) savestack_grow()
32 #define SSPUSHINT(i) (PL_savestack[PL_savestack_ix++].any_i32 = (I32)(i))
33 #define SSPUSHLONG(i) (PL_savestack[PL_savestack_ix++].any_long = (long)(i))
34 #define SSPUSHIV(i) (PL_savestack[PL_savestack_ix++].any_iv = (IV)(i))
35 #define SSPUSHPTR(p) (PL_savestack[PL_savestack_ix++].any_ptr = (void*)(p))
36 #define SSPUSHDPTR(p) (PL_savestack[PL_savestack_ix++].any_dptr = (p))
37 #define SSPOPINT (PL_savestack[--PL_savestack_ix].any_i32)
38 #define SSPOPLONG (PL_savestack[--PL_savestack_ix].any_long)
39 #define SSPOPIV (PL_savestack[--PL_savestack_ix].any_iv)
40 #define SSPOPPTR (PL_savestack[--PL_savestack_ix].any_ptr)
41 #define SSPOPDPTR (PL_savestack[--PL_savestack_ix].any_dptr)
43 #define SAVETMPS save_int((int*)&PL_tmps_floor), PL_tmps_floor = PL_tmps_ix
44 #define FREETMPS if (PL_tmps_ix > PL_tmps_floor) free_tmps()
50 DEBUG_l(WITH_THR(deb("ENTER scope %ld at %s:%d\n", \
51 PL_scopestack_ix, __FILE__, __LINE__))); \
55 DEBUG_l(WITH_THR(deb("LEAVE scope %ld at %s:%d\n", \
56 PL_scopestack_ix, __FILE__, __LINE__))); \
60 #define ENTER push_scope()
61 #define LEAVE pop_scope()
63 #define LEAVE_SCOPE(old) if (PL_savestack_ix > old) leave_scope(old)
66 * Not using SOFT_CAST on SAVEFREESV and SAVEFREESV
67 * because these are used for several kinds of pointer values
69 #define SAVEI16(i) save_I16(SOFT_CAST(I16*)&(i))
70 #define SAVEI32(i) save_I32(SOFT_CAST(I32*)&(i))
71 #define SAVEINT(i) save_int(SOFT_CAST(int*)&(i))
72 #define SAVEIV(i) save_iv(SOFT_CAST(IV*)&(i))
73 #define SAVELONG(l) save_long(SOFT_CAST(long*)&(l))
74 #define SAVESPTR(s) save_sptr((SV**)&(s))
75 #define SAVEPPTR(s) save_pptr(SOFT_CAST(char**)&(s))
76 #define SAVEFREESV(s) save_freesv((SV*)(s))
77 #define SAVEFREEOP(o) save_freeop(SOFT_CAST(OP*)(o))
78 #define SAVEFREEPV(p) save_freepv(SOFT_CAST(char*)(p))
79 #define SAVECLEARSV(sv) save_clearsv(SOFT_CAST(SV**)&(sv))
80 #define SAVEDELETE(h,k,l) \
81 save_delete(SOFT_CAST(HV*)(h), SOFT_CAST(char*)(k), (I32)(l))
83 #define CALLDESTRUCTOR this->*SSPOPDPTR
84 #define SAVEDESTRUCTOR(f,p) \
85 save_destructor((DESTRUCTORFUNC)(FUNC_NAME_TO_PTR(f)), \
88 #define CALLDESTRUCTOR *SSPOPDPTR
89 #define SAVEDESTRUCTOR(f,p) \
90 save_destructor(SOFT_CAST(void(*)_((void*)))(FUNC_NAME_TO_PTR(f)), \
94 #define SAVESTACK_POS() \
97 SSPUSHINT(PL_stack_sp - PL_stack_base); \
98 SSPUSHINT(SAVEt_STACK_POS); \
101 #define SAVEOP() save_op()
103 #define SAVEHINTS() \
105 if (PL_hints & HINT_LOCALIZE_HH) \
109 SSPUSHINT(PL_hints); \
110 SSPUSHINT(SAVEt_HINTS); \
114 /* SSNEW() temporarily allocates a specified number of bytes of data on the
115 * savestack. It returns an integer index into the savestack, because a
116 * pointer would get broken if the savestack is moved on reallocation.
117 * SSNEWa() works like SSNEW(), but also aligns the data to the specified
118 * number of bytes. MEM_ALIGNBYTES is perhaps the most useful. The
119 * alignment will be preserved therough savestack reallocation *only* if
120 * realloc returns data aligned to a size divisible by `align'!
122 * SSPTR() converts the index returned by SSNEW/SSNEWa() into a pointer.
125 #define SSNEW(size) save_alloc(size, 0)
126 #define SSNEWa(size,align) save_alloc(size, \
127 (align - ((int)((caddr_t)&PL_savestack[PL_savestack_ix]) % align)) % align)
129 #define SSPTR(off,type) ((type) ((char*)PL_savestack + off))
131 /* A jmpenv packages the state required to perform a proper non-local jump.
132 * Note that there is a start_env initialized when perl starts, and top_env
133 * points to this initially, so top_env should always be non-null.
135 * Existence of a non-null top_env->je_prev implies it is valid to call
136 * longjmp() at that runlevel (we make sure start_env.je_prev is always
137 * null to ensure this).
139 * je_mustcatch, when set at any runlevel to TRUE, means eval ops must
140 * establish a local jmpenv to handle exception traps. Care must be taken
141 * to restore the previous value of je_mustcatch before exiting the
142 * stack frame iff JMPENV_PUSH was not called in that stack frame.
147 struct jmpenv * je_prev;
149 int je_ret; /* return value of last setjmp() */
150 bool je_mustcatch; /* longjmp()s must be caught locally */
153 typedef struct jmpenv JMPENV;
155 #ifdef OP_IN_REGISTER
156 #define OP_REG_TO_MEM PL_opsave = op
157 #define OP_MEM_TO_REG op = PL_opsave
159 #define OP_REG_TO_MEM NOOP
160 #define OP_MEM_TO_REG NOOP
163 #define dJMPENV JMPENV cur_env
164 #define JMPENV_PUSH(v) \
166 cur_env.je_prev = PL_top_env; \
168 cur_env.je_ret = PerlProc_setjmp(cur_env.je_buf, 1); \
170 PL_top_env = &cur_env; \
171 cur_env.je_mustcatch = FALSE; \
172 (v) = cur_env.je_ret; \
175 STMT_START { PL_top_env = cur_env.je_prev; } STMT_END
176 #define JMPENV_JUMP(v) \
179 if (PL_top_env->je_prev) \
180 PerlProc_longjmp(PL_top_env->je_buf, (v)); \
182 PerlProc_exit(STATUS_NATIVE_EXPORT); \
183 PerlIO_printf(PerlIO_stderr(), "panic: top_env\n"); \
187 #define CATCH_GET (PL_top_env->je_mustcatch)
188 #define CATCH_SET(v) (PL_top_env->je_mustcatch = (v))