BSD 4_4 release

[unix-history] / usr / src / usr.bin / f77 / libF77 / range.c

diff --git a/usr/src/usr.bin/f77/libF77/range.c b/usr/src/usr.bin/f77/libF77/range.c
index b6c847e..90627c4 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/range.c
+++ b/usr/src/usr.bin/f77/libF77/range.c
@@ -1,10 +1,17 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.

  *
  *

- *     @(#)range.c     5.1     %G%
+ * This module is believed to contain source code proprietary to AT&T.
+ * Use and redistribution is subject to the Berkeley Software License
+ * Agreement and your Software Agreement with AT&T (Western Electric).

  */
  */

+
+#ifndef lint
+static char sccsid[] = "@(#)range.c    5.5 (Berkeley) 4/12/91";
+#endif /* not lint */
+
+/*

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


@@ -29,7 +36,15 @@ flmax_()
 #if    vax
        n.i = 0xffff7fff;
 #else  vax
 #if    vax
        n.i = 0xffff7fff;
 #else  vax

+#if    tahoe
+       n.i = 0x7fffffffL;
+#else  tahoe
+#if    hp300
+       n.i = 0x7fffffffL;
+#else  hp300

        UNKNOWN MACHINE!
        UNKNOWN MACHINE!

+#endif hp300
+#endif tahoe

 #endif vax
 #endif pdp11
        return(n.f);
 #endif vax
 #endif pdp11
        return(n.f);


@@ -47,7 +62,17 @@ dflmax_()
        n.j[0] = 0xffff7fff;
        n.j[1] = 0xffffffff;
 #else  vax
        n.j[0] = 0xffff7fff;
        n.j[1] = 0xffffffff;
 #else  vax

+#if    tahoe
+       n.j[0] = 0x7fffffffL;
+       n.j[1] = 0xffffffffL;
+#else  tahoe
+#if    hp300
+       n.j[0] = 0x7fffffffL;
+       n.j[1] = 0xffffffffL;
+#else  hp300

        UNKNOWN MACHINE!
        UNKNOWN MACHINE!

+#endif hp300
+#endif tahoe

 #endif vax
 #endif pdp11
        return(n.d);
 #endif vax
 #endif pdp11
        return(n.d);


@@ -63,7 +88,15 @@ flmin_()
 #if    vax
        n.i = 0x00000080;
 #else  vax
 #if    vax
        n.i = 0x00000080;
 #else  vax

+#if    tahoe
+       n.i = 0x00800000L;
+#else  tahoe
+#if    hp300
+       n.i = 0x00800000L;
+#else  hp300

        UNKNOWN MACHINE!
        UNKNOWN MACHINE!

+#endif hp300
+#endif tahoe

 #endif vax
 #endif pdp11
        return(n.f);
 #endif vax
 #endif pdp11
        return(n.f);


@@ -81,7 +114,17 @@ dflmin_()
        n.j[0] = 0x00000080;
        n.j[1] = 0;
 #else  vax
        n.j[0] = 0x00000080;
        n.j[1] = 0;
 #else  vax

+#if    tahoe
+       n.j[0] = 0x00800000L;
+       n.j[1] = 0;
+#else  tahoe
+#if    hp300
+       n.j[0] = 0x00800000L;
+       n.j[1] = 0;
+#else  hp300

        UNKNOWN MACHINE!
        UNKNOWN MACHINE!

+#endif hp300
+#endif tahoe

 #endif vax
 #endif pdp11
        return(n.d);
 #endif vax
 #endif pdp11
        return(n.d);


@@ -104,7 +147,15 @@ ffrac_()
 #if    vax
        n.i = 0x00003500;
 #else  vax
 #if    vax
        n.i = 0x00003500;
 #else  vax

+#if    tahoe
+       n.i = 0x35000000L;
+#else  tahoe
+#if    hp300
+       n.i = 0x35000000L;
+#else  hp300

        UNKNOWN MACHINE!
        UNKNOWN MACHINE!

+#endif hp300
+#endif tahoe

 #endif vax
 #endif pdp11
        return(n.f);
 #endif vax
 #endif pdp11
        return(n.f);


@@ -122,7 +173,17 @@ dffrac_()
        n.j[0] = 0x00002500;
        n.j[1] = 0;
 #else  vax
        n.j[0] = 0x00002500;
        n.j[1] = 0;
 #else  vax

+#if    tahoe
+       n.j[0] = 0x25000000L;
+       n.j[1] = 0;
+#else  tahoe
+#if    hp300
+       n.j[0] = 0x25000000L;
+       n.j[1] = 0;
+#else  hp300

        UNKNOWN MACHINE!
        UNKNOWN MACHINE!

+#endif hp300
+#endif tahoe

 #endif vax
 #endif pdp11
        return(n.d);
 #endif vax
 #endif pdp11
        return(n.d);