diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-01-28 14:34:52 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2023-01-28 16:57:35 +0000 |
commit | 4f4dc62d1459c2cff4a78da09c980fd7cc8dfc18 (patch) | |
tree | 66bdcc28b9ab9e9dfeecb50986d82f9f72850fb3 /proto.h | |
parent | 8cb94cf6eb83ea14ef27697517f7e92842876536 (diff) | |
download | perl-4f4dc62d1459c2cff4a78da09c980fd7cc8dfc18.tar.gz |
Make the new optree function declarations conditional on PERL_CORE|PERL_USE_VOLATILE_API
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 22 |
1 files changed, 12 insertions, 10 deletions
@@ -1126,11 +1126,6 @@ Perl_filter_read(pTHX_ int idx, SV *buf_sv, int maxlen) #define PERL_ARGS_ASSERT_FILTER_READ \ assert(buf_sv) -PERL_CALLCONV void -Perl_finalize_optree(pTHX_ OP *o); -#define PERL_ARGS_ASSERT_FINALIZE_OPTREE \ - assert(o) - PERL_CALLCONV CV * Perl_find_lexical_cv(pTHX_ PADOFFSET off) __attribute__visibility__("hidden"); @@ -3264,11 +3259,6 @@ Perl_op_wrap_finally(pTHX_ OP *block, OP *finally) assert(block); assert(finally) PERL_CALLCONV void -Perl_optimize_optree(pTHX_ OP *o); -#define PERL_ARGS_ASSERT_OPTIMIZE_OPTREE \ - assert(o) - -PERL_CALLCONV void Perl_package(pTHX_ OP *o) __attribute__visibility__("hidden"); #define PERL_ARGS_ASSERT_PACKAGE \ @@ -6143,6 +6133,18 @@ S_my_memrchr(const char *s, const char c, const STRLEN len); # endif /* !defined(HAS_MEMRCHR) */ # endif /* !defined(PERL_NO_INLINE_FUNCTIONS) */ #endif /* defined(PERL_CORE) || defined(PERL_EXT) */ +#if defined(PERL_CORE) || defined(PERL_USE_VOLATILE_API) +PERL_CALLCONV void +Perl_finalize_optree(pTHX_ OP *o); +# define PERL_ARGS_ASSERT_FINALIZE_OPTREE \ + assert(o) + +PERL_CALLCONV void +Perl_optimize_optree(pTHX_ OP *o); +# define PERL_ARGS_ASSERT_OPTIMIZE_OPTREE \ + assert(o) + +#endif /* defined(PERL_CORE) || defined(PERL_USE_VOLATILE_API) */ #if defined(PERL_DEBUG_READONLY_COW) PERL_CALLCONV void Perl_sv_buf_to_ro(pTHX_ SV *sv) |