diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-08-06 22:48:04 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-08-09 14:08:10 +0200 |
| commit | 86d84dd06fe16998648c41a393a25a59b9c470b7 (patch) | |
| tree | c21c3218ada6a4611f63ebcac03b568d337d96c7 /perl.c | |
| parent | 58411bc7381d696a6aa53ea5106866fc975fe9ae (diff) | |
| download | perl-86d84dd06fe16998648c41a393a25a59b9c470b7.tar.gz | |
perl.c - remove code for reporting state of non-existent defines in -V
Most of the hash based defines are no longer supported, so remove them.
Also at the same time introduce a new simpler way to track which hash
function we are using. Also add the info about if SBOX32 is in use.
This removes the need to keep the list of hash functions supported in
two places, hv_func.h and perl.c. Instead hv_func.h drives the whole
process and perl.c just does what it is told.
Previously the way to control SBOX32 was to use a define with a value
but our perl -V output currently doesnt support that, so this adds some
two new defines PERL_HASH_USE_SBOX32 and PERL_HASH_NO_SBOX32 which map
to the older PERL_HASH_USE_SBOX32_ALSO flag define (integer 1/0).
Both are still supported, this just makes everything more consistent.
This also includes minor doc changes to INSTALL to mention -Accflags
as being the way to set these defines during the Configure process.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 32 |
1 files changed, 10 insertions, 22 deletions
@@ -1923,6 +1923,7 @@ perl_parse(pTHXx_ XSINIT_t xsinit, int argc, char **argv, char **env) /* What this returns is subject to change. Use the public interface in Config. */ + static void S_Internals_V(pTHX_ CV *cv) { @@ -1959,29 +1960,15 @@ S_Internals_V(pTHX_ CV *cv) # ifdef PERL_EXTERNAL_GLOB " PERL_EXTERNAL_GLOB" # endif -# ifdef PERL_HASH_FUNC_SIPHASH - " PERL_HASH_FUNC_SIPHASH" -# endif -# ifdef PERL_HASH_FUNC_SDBM - " PERL_HASH_FUNC_SDBM" -# endif -# ifdef PERL_HASH_FUNC_DJB2 - " PERL_HASH_FUNC_DJB2" -# endif -# ifdef PERL_HASH_FUNC_SUPERFAST - " PERL_HASH_FUNC_SUPERFAST" -# endif -# ifdef PERL_HASH_FUNC_MURMUR3 - " PERL_HASH_FUNC_MURMUR3" +# ifdef PERL_HASH_FUNC_DEFINE +/* note that this is different from the others, PERL_HASH_FUNC_DEFINE + * is a string which says which define was defined. */ + " " PERL_HASH_FUNC_DEFINE # endif -# ifdef PERL_HASH_FUNC_ONE_AT_A_TIME - " PERL_HASH_FUNC_ONE_AT_A_TIME" -# endif -# ifdef PERL_HASH_FUNC_ONE_AT_A_TIME_HARD - " PERL_HASH_FUNC_ONE_AT_A_TIME_HARD" -# endif -# ifdef PERL_HASH_FUNC_ONE_AT_A_TIME_OLD - " PERL_HASH_FUNC_ONE_AT_A_TIME_OLD" +# ifdef PERL_HASH_USE_SBOX32 + " PERL_HASH_USE_SBOX32" +# else + " PERL_HASH_NO_SBOX32" # endif # ifdef PERL_IS_MINIPERL " PERL_IS_MINIPERL" @@ -2019,6 +2006,7 @@ S_Internals_V(pTHX_ CV *cv) # ifdef PERL_USE_SAFE_PUTENV " PERL_USE_SAFE_PUTENV" # endif + # ifdef PERL_USE_UNSHARED_KEYS_IN_LARGE_HASHES " PERL_USE_UNSHARED_KEYS_IN_LARGE_HASHES" # endif |