From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 5 Dec 2000 23:53:12 +0000 (+0000)
Subject: Add TOPm1s to peek at the second topmost stack item.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56370e9f11602e6539affc6db0d7eabafd518796;p=p5sagit%2Fp5-mst-13.2.git

Add TOPm1s to peek at the second topmost stack item.

p4raw-id: //depot/perl@8006
---

diff --git a/pp.h b/pp.h
index 2226c20..5e531da 100644
--- a/pp.h
+++ b/pp.h
@@ -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))