[perl.git] branch blead, updated. v5.11.2-64-ge5973ed

[Rafael Garcia-Suarez]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/e5973ed5ed7077edf70f4112414ae22c6300aec8?hp=3188b6e39f995cf3235071eb02ca85f5ab4182db>

- Log -----------------------------------------------------------------
commit e5973ed5ed7077edf70f4112414ae22c6300aec8
Author: Jim Cromie <jim.c...@gmail.com>
Date: Mon Nov 23 14:47:07 2009 -0700

cleanup get_arena param-names, mark as May-Change

new param-names reflect actual usage.
Mark as may-change so we can add a reqid field later.
-----------------------------------------------------------------------

Summary of changes:
embed.fnc | 2 +-
proto.h | 2 +-
sv.c | 6 +++---
3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/embed.fnc b/embed.fnc
index ee37dc0..575c4df 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1378,7 +1378,7 @@ s |HV* |require_tie_mod|NN GV *gv|NN const char *varpv|NN SV* namesv \

: #if defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
: Used in hv.c
-paRxo |void* |get_arena |const size_t svtype|const U32 misc
+paRxoM |void* |get_arena |const size_t arenasize |const svtype bodytype
: #endif

#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
diff --git a/proto.h b/proto.h
index 14ca6e9..eab3e82 100644
--- a/proto.h
+++ b/proto.h
@@ -4320,7 +4320,7 @@ 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 svtype, const U32 misc)
+PERL_CALLCONV void* Perl_get_arena(pTHX_ const size_t arenasize, const svtype bodytype)
__attribute__malloc__
__attribute__warn_unused_result__;

diff --git a/sv.c b/sv.c
index 397de23..95ad106 100644
--- a/sv.c
+++ b/sv.c
@@ -607,7 +607,7 @@ Perl_sv_clean_all(pTHX)
struct arena_desc {
char *arena; /* the raw storage, allocated aligned */
size_t size; /* its size ~4k typ */
- U32 misc; /* type, and in future other things. */
+ svtype utype; /* bodytype stored in arena */
};

struct arena_set;
@@ -720,7 +720,7 @@ Perl_sv_free_arenas(pTHX)
TBD: export properly for hv.c: S_more_he().
*/
void*
-Perl_get_arena(pTHX_ const size_t arena_size, const U32 misc)
+Perl_get_arena(pTHX_ const size_t arena_size, const svtype bodytype)
{
dVAR;
struct arena_desc* adesc;
@@ -749,7 +749,7 @@ Perl_get_arena(pTHX_ const size_t arena_size, const U32 misc)

Newx(adesc->arena, arena_size, char);
adesc->size = arena_size;
- adesc->misc = misc;
+ adesc->utype = bodytype;
DEBUG_m(PerlIO_printf(Perl_debug_log, "arena %d added: %p size %"UVuf"\n",
curr, (void*)adesc->arena, (UV)arena_size));

--
Perl5 Master Repository