Skip to content

Commit 7f22457

Browse files
committed
makedef.pl changes for wellrng (squash me)
1 parent b2f2f94 commit 7f22457

File tree

1 file changed

+13
-0
lines changed

1 file changed

+13
-0
lines changed

makedef.pl

+13
Original file line numberDiff line numberDiff line change
@@ -673,6 +673,19 @@ sub readvar {
673673
);
674674
}
675675

676+
if (!$define{PERL_USE_WELL512A_RNG}) {
677+
++$skip{$_} foreach qw(
678+
Perl_drand01_wellrng512a_r
679+
Perl_wellrng512a_init_r
680+
Perl_wellrng512a_u_r
681+
);
682+
} else {
683+
++$skip{$_} foreach qw(
684+
Perl_drand48_init_r
685+
Perl_drand48_r
686+
);
687+
}
688+
676689
# functions from *.sym files
677690

678691
my @syms = qw(globvar.sym);

0 commit comments

Comments
 (0)