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 /embed.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 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1614,7 +1614,8 @@ # endif #ifdef PERL_CORE #define more_sv S_more_sv -#define more_bodies S_more_bodies +#endif +#ifdef PERL_CORE #define sv_2iuv_common S_sv_2iuv_common #define glob_assign_glob S_glob_assign_glob #define glob_assign_ref S_glob_assign_ref @@ -3686,8 +3687,6 @@ #define require_tie_mod(a,b,c,d,e) S_require_tie_mod(aTHX_ a,b,c,d,e) #endif #endif -#ifdef PERL_CORE -#endif #if defined(PERL_IN_HV_C) #ifdef PERL_CORE #define hsplit(a) S_hsplit(aTHX_ a) @@ -4070,7 +4069,6 @@ # endif #ifdef PERL_CORE #define more_sv() S_more_sv(aTHX) -#define more_bodies(a,b,c) S_more_bodies(aTHX_ a,b,c) #define sv_2iuv_common(a) S_sv_2iuv_common(aTHX_ a) #define glob_assign_glob(a,b,c) S_glob_assign_glob(aTHX_ a,b,c) #define glob_assign_ref(a,b) S_glob_assign_ref(aTHX_ a,b) |