summaryrefslogtreecommitdiff
path: root/op.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-03-06 02:19:57 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-03-06 02:19:57 +0000
commit652fde50823786f32d3b9102bfc59f878d44ac15 (patch)
tree9da57900af3be3667c8dcadd5448506cb7e0cfc2 /op.h
parentc7c425a4f8fa33332c7b6868a1dee31ad0148d28 (diff)
downloadperl-652fde50823786f32d3b9102bfc59f878d44ac15.tar.gz
Retract the PMOP cleanup patch: I'm seeing strange core dumps
with oddly familiar stack traces. p4raw-id: //depot/perl@9054
Diffstat (limited to 'op.h')
-rw-r--r--op.h19
1 files changed, 0 insertions, 19 deletions
diff --git a/op.h b/op.h
index f3bc51593a..b1b11a511d 100644
--- a/op.h
+++ b/op.h
@@ -242,11 +242,6 @@ 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 */
@@ -276,20 +271,6 @@ 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;