diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-05 23:53:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-05 23:53:12 +0000 |
| commit | 56370e9f11602e6539affc6db0d7eabafd518796 (patch) | |
| tree | 196c4a02389d3d2ee79c43914fb9e1fd5ccf4c9d /pp.h | |
| parent | 00387047e0e6654d178e5a9cdcf2128fa41c1aac (diff) | |
| download | perl-56370e9f11602e6539affc6db0d7eabafd518796.tar.gz | |
Add TOPm1s to peek at the second topmost stack item.
p4raw-id: //depot/perl@8006
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -126,6 +126,7 @@ Pops a long off the stack. #endif #define TOPs (*sp) +#define TOPm1s (*(sp-1)) #define TOPp (SvPV(TOPs, PL_na)) /* deprecated */ #define TOPpx (SvPV(TOPs, n_a)) #define TOPn (SvNV(TOPs)) |