diff options
author | Yves Orton <demerphq@gmail.com> | 2022-09-01 13:39:59 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2022-09-07 09:02:11 +0200 |
commit | c5cd648d0fdd05cdd95dcafdec021ebde3bdffe9 (patch) | |
tree | b8d3a6695aaf5bbe100b985da2a88274168c9407 | |
parent | 7ca60b44877e7461db603f1562b29a7432b93a7e (diff) | |
download | perl-c5cd648d0fdd05cdd95dcafdec021ebde3bdffe9.tar.gz |
perlvars.h - move length computation to a define
So it can be reused if necessary, also because it makes
parsing PERLVARx() statements easier, this is the only
place where such a definition has a parameter that contains
a parenthesis. Moving it to a define makes it easier to
parse these statements externally in some ways.
-rw-r--r-- | perlvars.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perlvars.h b/perlvars.h index 2f930dd631..baf79d0937 100644 --- a/perlvars.h +++ b/perlvars.h @@ -265,7 +265,8 @@ PERLVARA(G, hash_seed_w, PERL_HASH_SEED_WORDS, PVT__PERL_HASH_WORD_TYPE) /* perl PERLVARA(G, hash_state_w, PERL_HASH_STATE_WORDS, PVT__PERL_HASH_WORD_TYPE) /* perl.c and hv.h */ #endif #if defined(PERL_USE_SINGLE_CHAR_HASH_CACHE) -PERLVARA(G, hash_chars, (1+256) * sizeof(U32), unsigned char) /* perl.c and hv.h */ +#define PERL_SINGLE_CHAR_HASH_CACHE_ELEMS ((1+256) * sizeof(U32)) +PERLVARA(G, hash_chars, PERL_SINGLE_CHAR_HASH_CACHE_ELEMS, unsigned char) /* perl.c and hv.h */ #endif /* The path separator can vary depending on whether we're running under DCL or |