diff options
author | Nicholas Clark <nick@ccl4.org> | 2021-09-27 10:02:01 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2021-10-11 11:30:25 +0000 |
commit | caf0b9e5682bde101a4ee56b69daee5f3362ad0e (patch) | |
tree | 044c0e6a53d84f1c2d2c190a14c2911144bf98a0 /hv.c | |
parent | 9710057bff258cbe68d25e718b0eeecf5c92cccc (diff) | |
download | perl-caf0b9e5682bde101a4ee56b69daee5f3362ad0e.tar.gz |
Rename HE_SVSLOT to HE_ARENA_ROOT_IX
The longer name more accurately reflects what the constant refers to.
Correct the comments describing how some arena roots are re-used.
Diffstat (limited to 'hv.c')
-rw-r--r-- | hv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -60,10 +60,10 @@ STATIC HE* S_new_he(pTHX) { HE* he; - void ** const root = &PL_body_roots[HE_SVSLOT]; + void ** const root = &PL_body_roots[HE_ARENA_ROOT_IX]; if (!*root) - Perl_more_bodies(aTHX_ HE_SVSLOT, sizeof(HE), PERL_ARENA_SIZE); + Perl_more_bodies(aTHX_ HE_ARENA_ROOT_IX, sizeof(HE), PERL_ARENA_SIZE); he = (HE*) *root; assert(he); *root = HeNEXT(he); @@ -73,8 +73,8 @@ S_new_he(pTHX) #define new_HE() new_he() #define del_HE(p) \ STMT_START { \ - HeNEXT(p) = (HE*)(PL_body_roots[HE_SVSLOT]); \ - PL_body_roots[HE_SVSLOT] = p; \ + HeNEXT(p) = (HE*)(PL_body_roots[HE_ARENA_ROOT_IX]); \ + PL_body_roots[HE_ARENA_ROOT_IX] = p; \ } STMT_END |