diff options
| author | Karl Williamson <khw@cpan.org> | 2022-12-19 06:37:56 -0700 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-12-22 10:41:29 +0100 |
| commit | 90db462d956d162f0cca9c42a47d34e60496e603 (patch) | |
| tree | 3d6357fd5ae476db28e8909f54fe0b1441999189 /proto.h | |
| parent | 675dd65a692bc6b2423c11af8f0bfbc1c169b603 (diff) | |
| download | perl-90db462d956d162f0cca9c42a47d34e60496e603.tar.gz | |
Inline savepv() and related functions
These short functions are moved from util.c to inline.h.
savesharedpv() and savesharedpvn() aren't moved because there is a
complication of needing also to move croak_no_mem(), which could be
done, but are these called enough to justify it?
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -3598,12 +3598,12 @@ PERL_CALLCONV SV* Perl_save_svref(pTHX_ SV** sptr); PERL_CALLCONV void Perl_save_vptr(pTHX_ void *ptr); #define PERL_ARGS_ASSERT_SAVE_VPTR \ assert(ptr) -PERL_CALLCONV char* Perl_savepv(pTHX_ const char* pv) +STATIC char* Perl_savepv(pTHX_ const char* pv) __attribute__malloc__ __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_SAVEPV -PERL_CALLCONV char* Perl_savepvn(pTHX_ const char* pv, Size_t len) +STATIC char* Perl_savepvn(pTHX_ const char* pv, Size_t len) __attribute__malloc__ __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_SAVEPVN @@ -3618,7 +3618,7 @@ PERL_CALLCONV char* Perl_savesharedpvn(pTHX_ const char *const pv, const STRLEN __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_SAVESHAREDPVN -PERL_CALLCONV char* Perl_savesharedsvpv(pTHX_ SV *sv) +STATIC char* Perl_savesharedsvpv(pTHX_ SV *sv) __attribute__malloc__ __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_SAVESHAREDSVPV \ @@ -3628,7 +3628,7 @@ PERL_CALLCONV void Perl_savestack_grow(pTHX); #define PERL_ARGS_ASSERT_SAVESTACK_GROW PERL_CALLCONV void Perl_savestack_grow_cnt(pTHX_ I32 need); #define PERL_ARGS_ASSERT_SAVESTACK_GROW_CNT -PERL_CALLCONV char* Perl_savesvpv(pTHX_ SV* sv) +STATIC char* Perl_savesvpv(pTHX_ SV* sv) __attribute__malloc__ __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_SAVESVPV \ |