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.

diff --git a/embed.fnc b/embed.fnc
index ee37dc0..575c4df 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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));