From 652fde50823786f32d3b9102bfc59f878d44ac15 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 6 Mar 2001 02:19:57 +0000 Subject: Retract the PMOP cleanup patch: I'm seeing strange core dumps with oddly familiar stack traces. p4raw-id: //depot/perl@9054 --- op.h | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'op.h') 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; -- cgit v1.2.1