diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-21 11:44:16 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-21 11:44:16 +0000 |
| commit | dc3c76f8b4fe904265e159454587697a06e6e98a (patch) | |
| tree | 9432c77912a41c7b379b10b2564c0ddaa9b05b86 /embed.h | |
| parent | d9f30342f9de4793189d81b85a5e32057393e428 (diff) | |
| download | perl-dc3c76f8b4fe904265e159454587697a06e6e98a.tar.gz | |
Refactor the common soft-reference code from pp_rv2sv and pp_rv2av
into a single routine Perl_softref2xv(). As soft references are
rarely used compared with true references, move this code from pp_hot.c
p4raw-id: //depot/perl@29905
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -1230,6 +1230,8 @@ #define refto S_refto #endif #endif +#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) +#endif #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define unpack_rec S_unpack_rec @@ -3430,6 +3432,10 @@ #define refto(a) S_refto(aTHX_ a) #endif #endif +#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#endif +#endif #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define unpack_rec(a,b,c,d,e) S_unpack_rec(aTHX_ a,b,c,d,e) |