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 ee83391..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.
- *
- *     @(#)range.c     5.3     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.

  *
  *

+ * 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
  */


@@ -32,7 +39,11 @@ flmax_()
 #if    tahoe
        n.i = 0x7fffffffL;
 #else  tahoe
 #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
 #endif tahoe
 #endif vax
 #endif pdp11


@@ -55,7 +66,12 @@ dflmax_()
        n.j[0] = 0x7fffffffL;
        n.j[1] = 0xffffffffL;
 #else  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
 #endif tahoe
 #endif vax
 #endif pdp11


@@ -75,7 +91,11 @@ flmin_()
 #if    tahoe
        n.i = 0x00800000L;
 #else  tahoe
 #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
 #endif tahoe
 #endif vax
 #endif pdp11


@@ -98,7 +118,12 @@ dflmin_()
        n.j[0] = 0x00800000L;
        n.j[1] = 0;
 #else  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
 #endif tahoe
 #endif vax
 #endif pdp11


@@ -125,7 +150,11 @@ ffrac_()
 #if    tahoe
        n.i = 0x35000000L;
 #else  tahoe
 #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
 #endif tahoe
 #endif vax
 #endif pdp11


@@ -148,7 +177,12 @@ dffrac_()
        n.j[0] = 0x25000000L;
        n.j[1] = 0;
 #else  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
 #endif tahoe
 #endif vax
 #endif pdp11