From e5973ed5ed7077edf70f4112414ae22c6300aec8 Mon Sep 17 00:00:00 2001 From: Jim Cromie Date: Mon, 23 Nov 2009 14:47:07 -0700 Subject: [PATCH] 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. --- 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)); -- 1.8.3.1