add tahoe

SCCS-vsn: usr.bin/f77/libF77/rand_.c 5.3
SCCS-vsn: usr.bin/f77/libF77/random_.c 5.3
SCCS-vsn: usr.bin/f77/libF77/range.c 5.3

diff --git a/usr/src/usr.bin/f77/libF77/rand_.c b/usr/src/usr.bin/f77/libF77/rand_.c
index 8909593..0f0cde5 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/rand_.c
+++ b/usr/src/usr.bin/f77/libF77/rand_.c
@@ -3,7 +3,7 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)rand_.c     5.2     %G%
+ *     @(#)rand_.c     5.3     %G%

  *
  * Routines to return random values
  *
  *
  * Routines to return random values
  *


@@ -20,15 +20,15 @@
  *     (see rand(3))
  */
 
  *     (see rand(3))
  */
 

-#if    vax
+#if    defined(vax) || defined(tahoe)

 #define        RANDMAX         2147483647
 #define        RANDMAX         2147483647

-#else  vax
+#else  vax || tahoe

 #if    pdp11
 #define        RANDMAX         32767
 #else  pdp11
        UNKNOWN MACHINE!
 #endif pdp11
 #if    pdp11
 #define        RANDMAX         32767
 #else  pdp11
        UNKNOWN MACHINE!
 #endif pdp11

-#endif vax
+#endif vax || tahoe

 
 long irand_(iarg)
 long *iarg;
 
 long irand_(iarg)
 long *iarg;

diff --git a/usr/src/usr.bin/f77/libF77/random_.c b/usr/src/usr.bin/f77/libF77/random_.c
index cf8ef56..a2d8dc4 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/random_.c
+++ b/usr/src/usr.bin/f77/libF77/random_.c
@@ -3,7 +3,7 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)random_.c   5.2     %G%
+ *     @(#)random_.c   5.3     %G%

  * 
  * Routines to return random values
  *
  * 
  * Routines to return random values
  *


@@ -19,11 +19,11 @@
  *     Real values will range from 0.0 thru 1.0 .
  */
 
  *     Real values will range from 0.0 thru 1.0 .
  */
 

-#if    vax
+#if    defined(vax) || defined(tahoe)

 #define        RANDMAX         2147483647
 #define        RANDMAX         2147483647

-#else  vax
+#else  vax || tahoe

        UNKNOWN MACHINE!
        UNKNOWN MACHINE!

-#endif vax
+#endif vax || tahoe

 
 long irandm_(iarg)
 long *iarg;
 
 long irandm_(iarg)
 long *iarg;

diff --git a/usr/src/usr.bin/f77/libF77/range.c b/usr/src/usr.bin/f77/libF77/range.c
index 2ed61c4..7b81a59 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/range.c
+++ b/usr/src/usr.bin/f77/libF77/range.c
@@ -3,7 +3,7 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)range.c     5.2     %G%
+ *     @(#)range.c     5.3     %G%

  *
  * routines to return extreme values
  * VERY MACHINE DEPENDENT
  *
  * routines to return extreme values
  * VERY MACHINE DEPENDENT