diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-08-20 15:31:42 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-08-20 17:34:39 +0100 |
| commit | 1e30fcd5eb66123dc2adb29941506280426aefaf (patch) | |
| tree | d378d52daafa08bea562d175532be388a310f7a4 /proto.h | |
| parent | 029821316c3d1268a765152507ac4ffb64746558 (diff) | |
| download | perl-1e30fcd5eb66123dc2adb29941506280426aefaf.tar.gz | |
Expose more_bodies(), and use it to replace S_more_he().
Convert get_arena() to be static, as now its only user is Perl_more_bodies().
Perl_get_arena() was not in the public API, and neither Google codesearch
nor an upacked CPAN show anything to be using it.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -4488,11 +4488,6 @@ STATIC HV* S_require_tie_mod(pTHX_ GV *gv, const char *varpv, SV* namesv, const #endif -PERL_CALLCONV void* Perl_get_arena(pTHX_ const size_t arenasize, const svtype bodytype) - __attribute__malloc__ - __attribute__warn_unused_result__; - - #if defined(PERL_IN_HV_C) STATIC void S_hsplit(pTHX_ HV *hv) __attribute__nonnull__(pTHX_1); @@ -5886,7 +5881,7 @@ STATIC void S_sv_release_COW(pTHX_ SV *sv, const char *pvx, SV *after) # endif STATIC SV * S_more_sv(pTHX); -STATIC void * S_more_bodies(pTHX_ const svtype sv_type, const size_t body_size, const size_t arena_size); +PERL_CALLCONV void * Perl_more_bodies(pTHX_ const svtype sv_type, const size_t body_size, const size_t arena_size); STATIC bool S_sv_2iuv_common(pTHX_ SV *const sv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_2IUV_COMMON \ |