1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
/***********************************************************
*
* $Header: /usr/src/local/lwall/perl5/RCS/pp.h,v 4.1 92/08/07 18:26:20 lwall Exp Locker: lwall $
*
* Description:
* Push/Pop code defs.
*
* Standards:
*
* Created:
* Mon Jun 15 16:47:20 1992
*
* Author:
* Larry Wall <lwall@netlabs.com>
*
* $Log: pp.h,v $
* Revision 4.1 92/08/07 18:26:20 lwall
*
*
**********************************************************/
#define ARGS
#define ARGSproto void
#define dARGS
#define PP(s) OP* s(ARGS) dARGS
#define SP sp
#define MARK mark
#define TARG targ
#define POPMARK (*markstack_ptr--)
#define dSP register SV **sp = stack_sp
#define dMARK register SV **mark = stack_base + POPMARK
#define dORIGMARK I32 origmark = mark - stack_base
#define SETORIGMARK origmark = mark - stack_base
#define ORIGMARK stack_base + origmark
#define SPAGAIN sp = stack_sp
#define MSPAGAIN sp = stack_sp; mark = ORIGMARK
#define GETTARGETSTACKED targ = (op->op_flags & OPf_STACKED ? POPs : PAD_SV(op->op_targ))
#define dTARGETSTACKED SV * GETTARGETSTACKED
#define GETTARGET targ = PAD_SV(op->op_targ)
#define dTARGET SV * GETTARGET
#define GETATARGET targ = (op->op_flags & OPf_STACKED ? sp[-1] : PAD_SV(op->op_targ))
#define dATARGET SV * GETATARGET
#define dTARG SV *targ
#define GETavn(a,g,st) \
a = sv_2av(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 1)
#define GEThvn(h,g,st) \
h = sv_2hv(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 1)
#define GETav(a,g,st) \
a = sv_2av(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 0)
#define GEThv(h,g,st) \
h = sv_2hv(cGVOP->op_gv ? (SV*)cGVOP->op_gv : POPs, &st, &g, 0)
#define GETcv(r,g,st) \
r = sv_2cv(POPs, &st, &g, 0)
#define NORMAL op->op_next
#define DIE return die
#define PROP if (dying) return die("%s", dying);
#define PUTBACK stack_sp = sp
#define RETURN return PUTBACK, NORMAL
#define RETURNOP(o) return PUTBACK, o
#define RETURNX(x) return x, PUTBACK, NORMAL
#define POPs (*sp--)
#define POPp (SvPVx(POPs, na))
#define POPn (SvNVx(POPs))
#define POPi ((int)SvIVx(POPs))
#define POPl ((long)SvIVx(POPs))
#define TOPs (*sp)
#define TOPp (SvPV(TOPs, na))
#define TOPn (SvNV(TOPs))
#define TOPi ((int)SvIV(TOPs))
#define TOPl ((long)SvIV(TOPs))
/* Go to some pains in the rare event that we must extend the stack. */
#define EXTEND(p,n) do { if (stack_max - p < (n)) { \
av_fill(stack, (p - stack_base) + (n) + 128); \
sp = AvARRAY(stack) + (sp - stack_base); \
stack_base = AvARRAY(stack); \
stack_max = stack_base + AvMAX(stack) - 1; \
} } while (0)
/* Same thing, but update mark register too. */
#define MEXTEND(p,n) do {if (stack_max - p < (n)) { \
av_fill(stack, (p - stack_base) + (n) + 128); \
sp = AvARRAY(stack) + (sp - stack_base); \
mark = AvARRAY(stack) + (mark - stack_base); \
stack_base = AvARRAY(stack); \
stack_max = stack_base + AvMAX(stack) - 1; \
} } while (0)
#define PUSHs(s) (*++sp = (s))
#define PUSHTARG do { SvSETMAGIC(TARG); PUSHs(TARG); } while (0)
#define PUSHp(p,l) do { sv_setpvn(TARG, (p), (l)); PUSHTARG; } while (0)
#define PUSHn(n) do { sv_setnv(TARG, (n)); PUSHTARG; } while (0)
#define PUSHi(i) do { sv_setiv(TARG, (i)); PUSHTARG; } while (0)
#define XPUSHs(s) do { EXTEND(sp,1); (*++sp = (s)); } while (0)
#define XPUSHTARG do { SvSETMAGIC(TARG); XPUSHs(TARG); } while (0)
#define XPUSHp(p,l) do { sv_setpvn(TARG, (p), (l)); XPUSHTARG; } while (0)
#define XPUSHn(n) do { sv_setnv(TARG, (n)); XPUSHTARG; } while (0)
#define XPUSHi(i) do { sv_setiv(TARG, (i)); XPUSHTARG; } while (0)
#define MXPUSHs(s) do { MEXTEND(sp,1); (*++sp = (s)); } while (0)
#define MXPUSHTARG do { SvSETMAGIC(TARG); XPUSHs(TARG); } while (0)
#define MXPUSHp(p,l) do { sv_setpvn(TARG, (p), (l)); XPUSHTARG; } while (0)
#define MXPUSHn(n) do { sv_setnv(TARG, (n)); XPUSHTARG; } while (0)
#define MXPUSHi(i) do { sv_setiv(TARG, (i)); XPUSHTARG; } while (0)
#define SETs(s) (*sp = s)
#define SETTARG do { SvSETMAGIC(TARG); SETs(TARG); } while (0)
#define SETp(p,l) do { sv_setpvn(TARG, (p), (l)); SETTARG; } while (0)
#define SETn(n) do { sv_setnv(TARG, (n)); SETTARG; } while (0)
#define SETi(i) do { sv_setiv(TARG, (i)); SETTARG; } while (0)
#define dTOPss SV *sv = TOPs
#define dPOPss SV *sv = POPs
#define dTOPnv double value = TOPn
#define dPOPnv double value = POPn
#define dTOPiv I32 value = TOPi
#define dPOPiv I32 value = POPi
#define dPOPPOPssrl SV *rstr = POPs; SV *lstr = POPs
#define dPOPPOPnnrl double right = POPn; double left = POPn
#define dPOPPOPiirl I32 right = POPi; I32 left = POPi
#define dPOPTOPssrl SV *rstr = POPs; SV *lstr = TOPs
#define dPOPTOPnnrl double right = POPn; double left = TOPn
#define dPOPTOPiirl I32 right = POPi; I32 left = TOPi
#define RETPUSHYES RETURNX(PUSHs(&sv_yes))
#define RETPUSHNO RETURNX(PUSHs(&sv_no))
#define RETPUSHUNDEF RETURNX(PUSHs(&sv_undef))
#define RETSETYES RETURNX(SETs(&sv_yes))
#define RETSETNO RETURNX(SETs(&sv_no))
#define RETSETUNDEF RETURNX(SETs(&sv_undef))
#define ARGTARG op->op_targ
#define MAXARG op->op_private
#define SWITCHSTACK(f,t) AvFILL(f) = sp - stack_base; \
stack_base = AvARRAY(t); \
stack_max = stack_base + AvMAX(t); \
sp = stack_base + AvFILL(t); \
stack = t;
#define ENTER push_scope()
#define LEAVE pop_scope()
#define SAVEINT(i) save_int((int*)(&i));
#define SAVEI32(i) save_I32((I32*)(&i));
#define SAVELONG(l) save_long((long*)(&l));
#define SAVESPTR(s) save_sptr((SV**)(&s))
#define SAVEPPTR(s) save_pptr((char**)(&s))
#define SAVETMPS save_int(&tmps_floor), tmps_floor = tmps_ix
#define SAVEFREESV(s) save_freesv((SV*)(s))
#define SAVEFREEOP(o) save_freeop((OP*)(o))
#define SAVEFREEPV(p) save_freepv((char*)(p))
#define SAVECLEARSV(sv) save_clearsv((SV**)(&sv))
#define SAVEDELETE(h,k,l) save_delete((HV*)(h), (char*)(k), (I32)l)
|
