diff options
| author | Andy Lester <andy@petdance.com> | 2007-05-07 06:34:16 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-08 12:32:15 +0000 |
| commit | 1e05feb346a08fdb97515cde9c4ec43c95989da5 (patch) | |
| tree | c4e7a9e8fdadb009cd6639ec93d8c819b0c810ae /hv.c | |
| parent | bf115a3fd060dd35255300a375f898f48752fe76 (diff) | |
| download | perl-1e05feb346a08fdb97515cde9c4ec43c95989da5.tar.gz | |
more consting
Message-ID: <20070507163416.GA6187@petdance.com>
p4raw-id: //depot/perl@31167
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 9 |
1 files changed, 3 insertions, 6 deletions
@@ -40,12 +40,9 @@ STATIC void S_more_he(pTHX) { dVAR; - HE* he; - HE* heend; - - he = (HE*) Perl_get_arena(aTHX_ PERL_ARENA_SIZE, HE_SVSLOT); + HE* he = (HE*) Perl_get_arena(aTHX_ PERL_ARENA_SIZE, HE_SVSLOT); + HE * const heend = &he[PERL_ARENA_SIZE / sizeof(HE) - 1]; - heend = &he[PERL_ARENA_SIZE / sizeof(HE) - 1]; PL_body_roots[HE_SVSLOT] = he; while (he < heend) { HeNEXT(he) = (HE*)(he + 1); @@ -1124,7 +1121,7 @@ STATIC void S_hsplit(pTHX_ HV *hv) { dVAR; - register XPVHV* xhv = (XPVHV*)SvANY(hv); + register XPVHV* const xhv = (XPVHV*)SvANY(hv); const I32 oldsize = (I32) xhv->xhv_max+1; /* HvMAX(hv)+1 (sick) */ register I32 newsize = oldsize * 2; register I32 i; |