diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-10-17 05:10:53 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-18 12:17:16 +0000 |
| commit | bb6f4497de510b4ef8ece50af67246912d14fb8e (patch) | |
| tree | 6f7e45279f9b70493fc324eee0140ec7233f16bf /perlvars.h | |
| parent | fd7b6849d7cf47f2fe101ad9761adae57a573493 (diff) | |
| download | perl-bb6f4497de510b4ef8ece50af67246912d14fb8e.tar.gz | |
try#2: [proposed PATCH Perl@12401] ieee floats, rand() & old systems
Message-Id: <011017090944.15ad2e@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@12491
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perlvars.h b/perlvars.h index 704192422a..e70dd7f772 100644 --- a/perlvars.h +++ b/perlvars.h @@ -40,3 +40,7 @@ PERLVAR(Gop_mutex, perl_mutex) /* Mutex for op refcounting */ PERLVAR(Gsharedsv_space, PerlInterpreter*) /* The shared sv space */ PERLVAR(Gsharedsv_space_mutex, perl_mutex) /* Mutex protecting the shared sv space */ #endif + +#if defined(VMS) && defined(Drand01_is_rand) +PERLVAR(Gmy_inv_rand_max, float) /* nasty compiler bug workaround */ +#endif |