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

util.c: Convert _rand48_(mult|add) to legal names

Browse Source
This commit is contained in:
Karl Williamson 2025-08-14 12:33:57 -06:00
parent 7919ad182e
commit 82c582d736
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
util.c
View File

@ -5999,12 +5999,12 @@ Perl_get_re_arg(pTHX_ SV *sv) {
#define FREEBSD_DRAND48_MULT_2 (0x0005)
#define FREEBSD_DRAND48_ADD (0x000b)
const unsigned short _rand48_mult[3] = {
const unsigned short rand48_mult_[3] = {
FREEBSD_DRAND48_MULT_0,
FREEBSD_DRAND48_MULT_1,
FREEBSD_DRAND48_MULT_2
};
const unsigned short _rand48_add = FREEBSD_DRAND48_ADD;
const unsigned short rand48_add_ = FREEBSD_DRAND48_ADD;
#endif
@ -6037,17 +6037,17 @@ Perl_drand48_r(perl_drand48_t *random_state)
U32 accu;
U16 temp[2];
accu = (U32) _rand48_mult[0] * (U32) random_state->seed[0]
+ (U32) _rand48_add;
accu = (U32) rand48_mult_[0] * (U32) random_state->seed[0]
+ (U32) rand48_add_;
temp[0] = (U16) accu; /* lower 16 bits */
accu >>= sizeof(U16) * 8;
accu += (U32) _rand48_mult[0] * (U32) random_state->seed[1]
+ (U32) _rand48_mult[1] * (U32) random_state->seed[0];
accu += (U32) rand48_mult_[0] * (U32) random_state->seed[1]
+ (U32) rand48_mult_[1] * (U32) random_state->seed[0];
temp[1] = (U16) accu; /* middle 16 bits */
accu >>= sizeof(U16) * 8;
accu += _rand48_mult[0] * random_state->seed[2]
+ _rand48_mult[1] * random_state->seed[1]
+ _rand48_mult[2] * random_state->seed[0];
accu += rand48_mult_[0] * random_state->seed[2]
+ rand48_mult_[1] * random_state->seed[1]
+ rand48_mult_[2] * random_state->seed[0];
random_state->seed[0] = temp[0];
random_state->seed[1] = temp[1];
random_state->seed[2] = (U16) accu;