Searched refs:Perl_internal_drand48 (Results 1 - 2 of 2) sorted by relevance

/openbsd-current/gnu/usr.bin/perl/
H A Dutil.h89 #define Perl_internal_drand48() (Perl_drand48_r(&PL_internal_random_state)) macro
H A Dutil.c4762 seed_buffer[i] = (unsigned char)(Perl_internal_drand48() * (U8_MAX+1));
5759 templte[len-i] = TEMP_FILE_CH[(int)(Perl_internal_drand48() * TEMP_FILE_CH_COUNT)];

Completed in 150 milliseconds