diff options
| author | Larry Wall <lwall@netlabs.com> | 1993-10-07 23:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1993-10-07 23:00:00 +0000 |
| commit | 79072805bf63abe5b5978b5928ab00d360ea3e7f (patch) | |
| tree | 96688fcd69f9c8d2110e93c350b4d0025eaf240d /scope.h | |
| parent | e334a159a5616cab575044bafaf68f75b7bb3a16 (diff) | |
| download | perl-79072805bf63abe5b5978b5928ab00d360ea3e7f.tar.gz | |
perl 5.0 alpha 2perl-5a2
[editor's note: from history.perl.org. The sparc executables
originally included in the distribution are not in this commit.]
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/scope.h b/scope.h new file mode 100644 index 0000000000..6c753c51ee --- /dev/null +++ b/scope.h @@ -0,0 +1,18 @@ +#define SAVEt_ITEM 0 +#define SAVEt_SV 1 +#define SAVEt_AV 2 +#define SAVEt_HV 3 +#define SAVEt_INT 4 +#define SAVEt_I32 5 +#define SAVEt_SPTR 6 +#define SAVEt_HPTR 7 +#define SAVEt_APTR 8 +#define SAVEt_NSTAB 9 +#define SAVEt_SVREF 10 +#define SAVEt_GP 11 + +#define SSCHECK(need) if (savestack_ix + need > savestack_max) savestack_grow() +#define SSPUSHINT(i) (savestack[savestack_ix++].any_i32 = (I32)(i)) +#define SSPUSHPTR(p) (savestack[savestack_ix++].any_ptr = (void*)(p)) +#define SSPOPINT (savestack[--savestack_ix].any_i32) +#define SSPOPPTR (savestack[--savestack_ix].any_ptr) |