From 85e6fe838fb25b257a1b363debf8691c0992ef71 Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@netlabs.com>
Date: Wed, 4 May 1994 23:00:00 +0000
Subject: perl 5.0 alpha 9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]
---
 op.h | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'op.h')

diff --git a/op.h b/op.h
index c230dd0b99..b988f31d63 100644
--- a/op.h
+++ b/op.h
@@ -42,7 +42,7 @@ typedef U16 PADOFFSET;
     char	op_flags;		\
     char	op_private;
 
-#define GIMME (op->op_flags & OPf_KNOW ? op->op_flags & OPf_LIST : getgimme(op))
+#define GIMME (op->op_flags & OPf_KNOW ? op->op_flags & OPf_LIST : cxstack[cxstack_ix].blk_gimme)
 
 /* Public flags */
 #define OPf_LIST	1	/* Do operator in list context. */
@@ -75,8 +75,11 @@ typedef U16 PADOFFSET;
 /* Private for OP_REPEAT */
 #define OPpREPEAT_DOLIST	1	/* List replication. */
 
-/* Private for OP_SUBR */
-#define OPpSUBR_DB		1	/* Debug subroutine. */
+/* Private for OP_ENTERSUBR, OP_RV2?V, OP_?ELEM */
+  /* (lower bits carry hints) */
+#define OPpDEREF_DB		32	/* Debug subroutine. */
+#define OPpDEREF_AV		64	/* Want ref to AV. */
+#define OPpDEREF_HV		128	/* Want ref to HV. */
 
 /* Private for OP_CONST */
 #define OPpCONST_BARE		1	/* Was a bare word (filehandle?). */
@@ -146,6 +149,7 @@ struct pmop {
 #define PMf_GLOBAL 256			/* pattern had a g modifier */
 #define PMf_RUNTIME 512			/* pattern coming in on the stack */
 #define PMf_EVAL 1024			/* evaluating replacement as expr */
+#define PMf_WHITE 2048			/* pattern is \s+ */
 
 struct svop {
     BASEOP
-- 
cgit v1.2.1