diff options
author | Karl Williamson <khw@cpan.org> | 2021-07-20 11:51:59 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-07-30 05:41:28 -0600 |
commit | 19d2c525bfed3f9eea1099e6eb745dbb50ca818b (patch) | |
tree | a54fc03ca6f4b1fdf8157d9b29b7747e50b0d198 /embed.h | |
parent | 58ddb8c5c1121d947ee72818b81ee254edb17699 (diff) | |
download | perl-19d2c525bfed3f9eea1099e6eb745dbb50ca818b.tar.gz |
Create and use 32 and 64 bit lsbit_pos() fcns
The existing code to determine the position of the least significant 1
bit in a word is extracted from variant_byte_number() and moved to a new
function in preparation for being called from other places.
A U32 version is created, and on 64 bit platforms, a second, parallel,
version taking a U64 argument is also created. This is because future
commits may care about the word size differences.
Diffstat (limited to 'embed.h')
-rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -302,6 +302,7 @@ #define load_module Perl_load_module #endif #define looks_like_number(a) Perl_looks_like_number(aTHX_ a) +#define lsbit_pos32 Perl_lsbit_pos32 #define magic_dump(a) Perl_magic_dump(aTHX_ a) #define markstack_grow() Perl_markstack_grow(aTHX) #ifndef MULTIPLICITY @@ -871,6 +872,7 @@ #define csighandler Perl_csighandler #endif #if defined(U64TYPE) /* HAS_QUAD undefined outside of core */ +#define lsbit_pos64 Perl_lsbit_pos64 #define single_1bit_pos64 Perl_single_1bit_pos64 #endif #if defined(UNLINK_ALL_VERSIONS) |