This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / scope.h
... / ...
CommitLineData
1#define SAVEt_ITEM 0
2#define SAVEt_SV 1
3#define SAVEt_AV 2
4#define SAVEt_HV 3
5#define SAVEt_INT 4
6#define SAVEt_I32 5
7#define SAVEt_SPTR 6
8#define SAVEt_HPTR 7
9#define SAVEt_APTR 8
10#define SAVEt_NSTAB 9
11#define SAVEt_SVREF 10
12#define SAVEt_GP 11
13
14#define SSCHECK(need) if (savestack_ix + need > savestack_max) savestack_grow()
15#define SSPUSHINT(i) (savestack[savestack_ix++].any_i32 = (I32)(i))
16#define SSPUSHPTR(p) (savestack[savestack_ix++].any_ptr = (void*)(p))
17#define SSPOPINT (savestack[--savestack_ix].any_i32)
18#define SSPOPPTR (savestack[--savestack_ix].any_ptr)