diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-26 16:04:04 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-26 16:04:04 +0000 |
| commit | 2dd5337ba7701c25f6807a12b77238cc673d5b07 (patch) | |
| tree | 926d3a92d4e067832ac1e000135dedec46df9725 /embed.h | |
| parent | 12e93c28cc74b0b04b280450aa12fee787cfbe3b (diff) | |
| download | perl-2dd5337ba7701c25f6807a12b77238cc673d5b07.tar.gz | |
Following on from change 34918, scalarkids() and scalarseq() can also
be static in op.c, so make it so.
p4raw-id: //depot/perl@34919
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 28 |
1 files changed, 24 insertions, 4 deletions
@@ -394,8 +394,12 @@ #endif #define op_refcnt_lock Perl_op_refcnt_lock #define op_refcnt_unlock Perl_op_refcnt_unlock +#if defined(PERL_IN_OP_C) #ifdef PERL_CORE #define linklist S_linklist +#endif +#endif +#ifdef PERL_CORE #define list Perl_list #define listkids Perl_listkids #endif @@ -792,8 +796,14 @@ #ifdef PERL_CORE #define sawparens Perl_sawparens #define scalar Perl_scalar -#define scalarkids Perl_scalarkids -#define scalarseq Perl_scalarseq +#endif +#if defined(PERL_IN_OP_C) +#ifdef PERL_CORE +#define scalarkids S_scalarkids +#define scalarseq S_scalarseq +#endif +#endif +#ifdef PERL_CORE #define scalarvoid Perl_scalarvoid #endif #define scan_bin Perl_scan_bin @@ -2709,8 +2719,12 @@ #endif #define op_refcnt_lock() Perl_op_refcnt_lock(aTHX) #define op_refcnt_unlock() Perl_op_refcnt_unlock(aTHX) +#if defined(PERL_IN_OP_C) #ifdef PERL_CORE #define linklist(a) S_linklist(aTHX_ a) +#endif +#endif +#ifdef PERL_CORE #define list(a) Perl_list(aTHX_ a) #define listkids(a) Perl_listkids(aTHX_ a) #endif @@ -3103,8 +3117,14 @@ #ifdef PERL_CORE #define sawparens(a) Perl_sawparens(aTHX_ a) #define scalar(a) Perl_scalar(aTHX_ a) -#define scalarkids(a) Perl_scalarkids(aTHX_ a) -#define scalarseq(a) Perl_scalarseq(aTHX_ a) +#endif +#if defined(PERL_IN_OP_C) +#ifdef PERL_CORE +#define scalarkids(a) S_scalarkids(aTHX_ a) +#define scalarseq(a) S_scalarseq(aTHX_ a) +#endif +#endif +#ifdef PERL_CORE #define scalarvoid(a) Perl_scalarvoid(aTHX_ a) #endif #define scan_bin(a,b,c) Perl_scan_bin(aTHX_ a,b,c) |