summaryrefslogtreecommitdiff
path: root/op.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-03-05 18:49:12 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-03-05 18:49:12 +0000
commitff335f7ac770cb076e8f41ea8bbfcf1e4984181d (patch)
tree739056953972cb5e478c4f16dc580f59a5a7bae6 /op.h
parent8ba17844711e70508f4b318e01f671a1490f6987 (diff)
downloadperl-ff335f7ac770cb076e8f41ea8bbfcf1e4984181d.tar.gz
Forgot the other half of the PMOP patch (#9033).
p4raw-id: //depot/perl@9044
Diffstat (limited to 'op.h')
-rw-r--r--op.h19
1 files changed, 19 insertions, 0 deletions
diff --git a/op.h b/op.h
index b1b11a511d..f3bc51593a 100644
--- a/op.h
+++ b/op.h
@@ -242,6 +242,11 @@ struct pmop {
U16 op_pmflags;
U16 op_pmpermflags;
U8 op_pmdynflags;
+#ifdef USE_ITHREADS
+ char * op_pmstashpv;
+#else
+ HV * op_pmstash;
+#endif
};
#define PMdf_USED 0x01 /* pm has been used once already */
@@ -271,6 +276,20 @@ struct pmop {
/* mask of bits stored in regexp->reganch */
#define PMf_COMPILETIME (PMf_MULTILINE|PMf_SINGLELINE|PMf_LOCALE|PMf_FOLD|PMf_EXTENDED)
+#ifdef USE_ITHREADS
+# define PmopSTASHPV(o) ((o)->op_pmstashpv)
+# define PmopSTASHPV_set(o,pv) ((o)->op_pmstashpv = ((pv) ? savepv(pv) : Nullch))
+# define PmopSTASH(o) (PmopSTASHPV(o) \
+ ? gv_stashpv(PmopSTASHPV(o),GV_ADD) : Nullhv)
+# define PmopSTASH_set(o,hv) PmopSTASHPV_set(o, (hv) ? HvNAME(hv) : Nullch)
+#else
+# define PmopSTASH(o) ((o)->op_pmstash)
+# define PmopSTASH_set(o,hv) ((o)->op_pmstash = (hv))
+# define PmopSTASHPV(o) (PmopSTASH(o) ? HvNAME(PmopSTASH(o)) : Nullch)
+ /* op_pmstash is not refcounted */
+# define PmopSTASHPV_set(o,pv) PmopSTASH_set((o), gv_stashpv(pv,GV_ADD))
+#endif
+
struct svop {
BASEOP
SV * op_sv;