diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-26 19:36:06 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-26 19:36:06 +0000 |
| commit | b7783a124ffeaab87679eba041dd9997f4d5372a (patch) | |
| tree | af245ee575199fdd19d5d912348560ee4e2f5f53 /proto.h | |
| parent | e3cf49e2e2df78528afdd14c4a3219cf5059e6eb (diff) | |
| download | perl-b7783a124ffeaab87679eba041dd9997f4d5372a.tar.gz | |
force_list(), fold_constants() and gen_constant_list() can be static.
p4raw-id: //depot/perl@34924
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -798,12 +798,14 @@ PERL_CALLCONV char* Perl_find_script(pTHX_ const char *scriptname, bool dosearch #define PERL_ARGS_ASSERT_FIND_SCRIPT \ assert(scriptname) -PERL_CALLCONV OP* Perl_force_list(pTHX_ OP* arg); -PERL_CALLCONV OP* Perl_fold_constants(pTHX_ OP *o) +#if defined(PERL_IN_OP_C) +STATIC OP* S_force_list(pTHX_ OP* arg); +STATIC OP* S_fold_constants(pTHX_ OP *o) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_FOLD_CONSTANTS \ assert(o) +#endif PERL_CALLCONV char* Perl_form(pTHX_ const char* pat, ...) __attribute__format__(__printf__,pTHX_1,pTHX_2) __attribute__nonnull__(pTHX_1); @@ -816,7 +818,7 @@ PERL_CALLCONV char* Perl_vform(pTHX_ const char* pat, va_list* args) assert(pat) PERL_CALLCONV void Perl_free_tmps(pTHX); -PERL_CALLCONV OP* Perl_gen_constant_list(pTHX_ OP* o); +STATIC OP* S_gen_constant_list(pTHX_ OP* o); #if !defined(HAS_GETENV_LEN) PERL_CALLCONV char* Perl_getenv_len(pTHX_ const char *env_elem, unsigned long *len) __attribute__nonnull__(pTHX_1) |