mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add definitions for [IU}V_BITS to perl.h

Browse Source 
replacing the pp.c definition of IV_BITS
This commit is contained in:
Karl Williamson 2025-12-04 06:00:36 -07:00 committed by Karl Williamson
parent d469fd11be
commit d957e95daa
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
embed.h
View File

@ -281,7 +281,9 @@
# undef case_98_SBOX32
# undef case_99_SBOX32
# undef case_9_SBOX32
# undef IV_BITS
# undef USE_STDIO
# undef UV_BITS
# if !defined(PERL_EXT)
# undef invlist_intersection_
# undef invlist_subtract_

6
perl.h
View File

@ -2410,8 +2410,10 @@ typedef UVTYPE UV;
#define Size_t_MAX (~(Size_t)0)
#define SSize_t_MAX (SSize_t)(~(Size_t)0 >> 1)
#define IV_DIG (BIT_DIGITS(IVSIZE * 8))
#define UV_DIG (BIT_DIGITS(UVSIZE * 8))
#define IV_BITS (IVSIZE * CHARBITS)
#define IV_DIG (BIT_DIGITS(IV_BITS))
#define UV_BITS (UVSIZE * CHARBITS)
#define UV_DIG (BIT_DIGITS(UV_BITS))
#ifndef NO_PERL_PRESERVE_IVUV
#define PERL_PRESERVE_IVUV /* We like our integers to stay integers. */

3
pp.c
View File

@ -2008,9 +2008,6 @@ PP(pp_subtract)
}
#define IV_BITS (IVSIZE * 8)
/* Taking the right operand of bitwise shift operators, returns an int
* indicating the shift amount clipped to the range [-IV_BITS, +IV_BITS].
*/