From: Jim Cromie <jim.cromie@gmail.com>
Date: Mon, 23 Nov 2009 21:47:07 +0000 (-0700)
Subject: cleanup get_arena param-names, mark as May-Change
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5973ed5ed7077edf70f4112414ae22c6300aec8;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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));