3 * Copyright (c) 1991-1994, Larry Wall
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
12 #define dARGS struct thread *thr;
13 #define PP(s) OP* s(ARGS) dARGS
17 #define PP(s) OP* s(ARGS) dARGS
18 #endif /* USE_THREADS */
24 #define PUSHMARK(p) if (++markstack_ptr == markstack_max) \
26 *markstack_ptr = (p) - stack_base
28 #define TOPMARK (*markstack_ptr)
29 #define POPMARK (*markstack_ptr--)
31 #define dSP register SV **sp = stack_sp
32 #define dMARK register SV **mark = stack_base + POPMARK
33 #define dORIGMARK I32 origmark = mark - stack_base
34 #define SETORIGMARK origmark = mark - stack_base
35 #define ORIGMARK (stack_base + origmark)
37 #define SPAGAIN sp = stack_sp
38 #define MSPAGAIN sp = stack_sp; mark = ORIGMARK
40 #define GETTARGETSTACKED targ = (op->op_flags & OPf_STACKED ? POPs : PAD_SV(op->op_targ))
41 #define dTARGETSTACKED SV * GETTARGETSTACKED
43 #define GETTARGET targ = PAD_SV(op->op_targ)
44 #define dTARGET SV * GETTARGET
46 #define GETATARGET targ = (op->op_flags & OPf_STACKED ? sp[-1] : PAD_SV(op->op_targ))
47 #define dATARGET SV * GETATARGET
49 #define dTARG SV *targ
51 #define NORMAL op->op_next
52 #define DIE return die
54 #define PUTBACK stack_sp = sp
55 #define RETURN return PUTBACK, NORMAL
56 #define RETURNOP(o) return PUTBACK, o
57 #define RETURNX(x) return x, PUTBACK, NORMAL
60 #define POPp (SvPVx(POPs, na))
61 #define POPn (SvNVx(POPs))
62 #define POPi ((IV)SvIVx(POPs))
63 #define POPl ((long)SvIVx(POPs))
66 #define TOPp (SvPV(TOPs, na))
67 #define TOPn (SvNV(TOPs))
68 #define TOPi ((IV)SvIV(TOPs))
69 #define TOPl ((long)SvIV(TOPs))
71 /* Go to some pains in the rare event that we must extend the stack. */
72 #define EXTEND(p,n) STMT_START { if (stack_max - p < (n)) { \
73 sp = stack_grow(sp,p, (int) (n)); \
76 /* Same thing, but update mark register too. */
77 #define MEXTEND(p,n) STMT_START {if (stack_max - p < (n)) { \
78 int markoff = mark - stack_base; \
79 sp = stack_grow(sp,p,(int) (n)); \
80 mark = stack_base + markoff; \
83 #define PUSHs(s) (*++sp = (s))
84 #define PUSHTARG STMT_START { SvSETMAGIC(TARG); PUSHs(TARG); } STMT_END
85 #define PUSHp(p,l) STMT_START { sv_setpvn(TARG, (p), (l)); PUSHTARG; } STMT_END
86 #define PUSHn(n) STMT_START { sv_setnv(TARG, (double)(n)); PUSHTARG; } STMT_END
87 #define PUSHi(i) STMT_START { sv_setiv(TARG, (IV)(i)); PUSHTARG; } STMT_END
89 #define XPUSHs(s) STMT_START { EXTEND(sp,1); (*++sp = (s)); } STMT_END
90 #define XPUSHTARG STMT_START { SvSETMAGIC(TARG); XPUSHs(TARG); } STMT_END
91 #define XPUSHp(p,l) STMT_START { sv_setpvn(TARG, (p), (l)); XPUSHTARG; } STMT_END
92 #define XPUSHn(n) STMT_START { sv_setnv(TARG, (double)(n)); XPUSHTARG; } STMT_END
93 #define XPUSHi(i) STMT_START { sv_setiv(TARG, (IV)(i)); XPUSHTARG; } STMT_END
95 #define SETs(s) (*sp = s)
96 #define SETTARG STMT_START { SvSETMAGIC(TARG); SETs(TARG); } STMT_END
97 #define SETp(p,l) STMT_START { sv_setpvn(TARG, (p), (l)); SETTARG; } STMT_END
98 #define SETn(n) STMT_START { sv_setnv(TARG, (double)(n)); SETTARG; } STMT_END
99 #define SETi(i) STMT_START { sv_setiv(TARG, (IV)(i)); SETTARG; } STMT_END
102 #define SETsv(sv) STMT_START { sv_setsv(TARG, (sv)); SETTARG; } STMT_END
103 #endif /* OVERLOAD */
105 #define dTOPss SV *sv = TOPs
106 #define dPOPss SV *sv = POPs
107 #define dTOPnv double value = TOPn
108 #define dPOPnv double value = POPn
109 #define dTOPiv IV value = TOPi
110 #define dPOPiv IV value = POPi
112 #define dPOPPOPssrl SV *right = POPs; SV *left = POPs
113 #define dPOPPOPnnrl double right = POPn; double left = POPn
114 #define dPOPPOPiirl IV right = POPi; IV left = POPi
116 #define dPOPTOPssrl SV *right = POPs; SV *left = TOPs
117 #define dPOPTOPnnrl double right = POPn; double left = TOPn
118 #define dPOPTOPiirl IV right = POPi; IV left = TOPi
120 #define RETPUSHYES RETURNX(PUSHs(&sv_yes))
121 #define RETPUSHNO RETURNX(PUSHs(&sv_no))
122 #define RETPUSHUNDEF RETURNX(PUSHs(&sv_undef))
124 #define RETSETYES RETURNX(SETs(&sv_yes))
125 #define RETSETNO RETURNX(SETs(&sv_no))
126 #define RETSETUNDEF RETURNX(SETs(&sv_undef))
128 #define ARGTARG op->op_targ
129 #define MAXARG op->op_private
131 #define SWITCHSTACK(f,t) AvFILL(f) = sp - stack_base; \
132 stack_base = AvARRAY(t); \
133 stack_max = stack_base + AvMAX(t); \
134 sp = stack_sp = stack_base + AvFILL(t); \
139 #define AMGf_noright 1
140 #define AMGf_noleft 2
141 #define AMGf_assign 4
144 #define tryAMAGICbinW(meth,assign,set) STMT_START { \
145 if (amagic_generation) { \
147 SV* right= *(sp); SV* left= *(sp-1);\
148 if ((SvAMAGIC(left)||SvAMAGIC(right))&&\
149 (tmpsv=amagic_call(left, \
152 (assign)? AMGf_assign: 0))) {\
154 (void)POPs; set(tmpsv); RETURN; } \
158 #define tryAMAGICbin(meth,assign) tryAMAGICbinW(meth,assign,SETsv)
159 #define tryAMAGICbinSET(meth,assign) tryAMAGICbinW(meth,assign,SETs)
161 #define AMG_CALLun(sv,meth) amagic_call(sv,&sv_undef, \
162 CAT2(meth,_amg),AMGf_noright | AMGf_unary)
163 #define AMG_CALLbinL(left,right,meth) \
164 amagic_call(left,right,CAT2(meth,_amg),AMGf_noright)
166 #define tryAMAGICunW(meth,set) STMT_START { \
167 if (amagic_generation) { \
170 if ((SvAMAGIC(arg))&&\
171 (tmpsv=AMG_CALLun(arg,meth))) {\
173 set(tmpsv); RETURN; } \
177 #define tryAMAGICun(meth) tryAMAGICunW(meth,SETsv)
178 #define tryAMAGICunSET(meth) tryAMAGICunW(meth,SETs)
180 #define opASSIGN (op->op_flags & OPf_STACKED)
182 /* newSVsv does not behave as advertised, so we copy missing
183 * information by hand */
186 #define RvDEEPCP(rv) STMT_START { SV* ref=SvRV(rv); \
187 if (SvREFCNT(ref)>1) { \
189 SvRV(rv)=AMG_CALLun(rv,copy); \
193 #define tryAMAGICbin(a,b)
194 #define tryAMAGICbinSET(a,b)
195 #define tryAMAGICun(a)
196 #define tryAMAGICunSET(a)
198 #endif /* OVERLOAD */