diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-01-19 00:13:02 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-01-19 00:13:02 +0000 |
commit | 89086707de1a3d9012ea80f0c19441d3352a2f73 (patch) | |
tree | dda8ec0369683a3b5f4119cb124d5a95bcb051cf | |
parent | 23e9d66c1734ef16f12b017bf517a60be8c44e01 (diff) | |
download | perl-89086707de1a3d9012ea80f0c19441d3352a2f73.tar.gz |
As Perl_get_arena() is dealing with sizes, use size_t rather than int,
as it's both unsigned and semantically the correct width for a size.
As all arenas get cleared later on, can use Newx() rather than Newxz().
p4raw-id: //depot/perl@29879
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | proto.h | 2 | ||||
-rw-r--r-- | sv.c | 4 |
3 files changed, 4 insertions, 4 deletions
@@ -1106,7 +1106,7 @@ s |HV* |require_tie_mod|NN GV *gv|NN const char *varpv|NN SV* namesv \ #endif : #if defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) -paRxo |void* |get_arena |int svtype +paRxo |void* |get_arena |size_t svtype : #endif #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) @@ -2958,7 +2958,7 @@ STATIC HV* S_require_tie_mod(pTHX_ GV *gv, const char *varpv, SV* namesv, const #endif -PERL_CALLCONV void* Perl_get_arena(pTHX_ int svtype) +PERL_CALLCONV void* Perl_get_arena(pTHX_ size_t svtype) __attribute__malloc__ __attribute__warn_unused_result__; @@ -679,7 +679,7 @@ Perl_sv_free_arenas(pTHX) TBD: export properly for hv.c: S_more_he(). */ void* -Perl_get_arena(pTHX_ int arena_size) +Perl_get_arena(pTHX_ size_t arena_size) { dVAR; struct arena_desc* adesc; @@ -704,7 +704,7 @@ Perl_get_arena(pTHX_ int arena_size) adesc = &((*aroot)->set[curr]); assert(!adesc->arena); - Newxz(adesc->arena, arena_size, char); + Newx(adesc->arena, arena_size, char); adesc->size = arena_size; DEBUG_m(PerlIO_printf(Perl_debug_log, "arena %d added: %p size %d\n", curr, (void*)adesc->arena, arena_size)); |