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 /proto.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 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -1446,11 +1446,13 @@ PERL_CALLCONV void Perl_op_clear(pTHX_ OP* o) PERL_CALLCONV void Perl_op_refcnt_lock(pTHX); PERL_CALLCONV void Perl_op_refcnt_unlock(pTHX); +#if defined(PERL_IN_OP_C) STATIC OP* S_linklist(pTHX_ OP *o) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_LINKLIST \ assert(o) +#endif PERL_CALLCONV OP* Perl_list(pTHX_ OP* o); PERL_CALLCONV OP* Perl_listkids(pTHX_ OP* o); PERL_CALLCONV void Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...) @@ -2924,8 +2926,10 @@ PERL_CALLCONV SV* Perl_save_svref(pTHX_ SV** sptr) PERL_CALLCONV OP* Perl_sawparens(pTHX_ OP* o); PERL_CALLCONV OP* Perl_scalar(pTHX_ OP* o); -PERL_CALLCONV OP* Perl_scalarkids(pTHX_ OP* o); -PERL_CALLCONV OP* Perl_scalarseq(pTHX_ OP* o); +#if defined(PERL_IN_OP_C) +STATIC OP* S_scalarkids(pTHX_ OP* o); +STATIC OP* S_scalarseq(pTHX_ OP* o); +#endif PERL_CALLCONV OP* Perl_scalarvoid(pTHX_ OP* o) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SCALARVOID \ |