diff options
| author | Larry Wall <larry@netlabs.com> | 1994-03-18 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <larry@netlabs.com> | 1994-03-18 00:00:00 +0000 |
| commit | 8990e3071044a96302560bbdb5706f3e74cf1bef (patch) | |
| tree | 6cf4a58108544204591f25bd2d4f1801d49334b4 /scope.h | |
| parent | ed6116ce9b9d13712ea252ee248b0400653db7f9 (diff) | |
| download | perl-8990e3071044a96302560bbdb5706f3e74cf1bef.tar.gz | |
perl 5.0 alpha 6
[editor's note: cleaned up from the September '94 InfoMagic CD, just
like the last commit]
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -10,9 +10,17 @@ #define SAVEt_NSTAB 9 #define SAVEt_SVREF 10 #define SAVEt_GP 11 +#define SAVEt_FREESV 12 +#define SAVEt_FREEOP 13 +#define SAVEt_FREEPV 14 +#define SAVEt_CLEARSV 15 +#define SAVEt_DELETE 16 #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) + +#define FREE_TMPS() if (tmps_ix > tmps_floor) free_tmps() +#define LEAVE_SCOPE(old) if (savestack_ix > old) leave_scope(old) |