summaryrefslogtreecommitdiff
path: root/op.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-03-14 03:57:41 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-03-14 03:57:41 +0000
commit4af0bda917eceeead6e59e5dc7c6b28fce055a0a (patch)
tree4a49cb06e7b48d0aecc3272dd720143c91492414 /op.h
parent5cfc78421f161e223f47fcc0aa3d4d3fa5f3976e (diff)
downloadperl-4af0bda917eceeead6e59e5dc7c6b28fce055a0a.tar.gz
(Retracted by #9150.)
p4raw-id: //depot/perl@9145
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 6c629427da..f7bd4b04d6 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;