BSD 4_4 release

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

diff --git a/usr/src/usr.bin/f77/libF77/trpfpe_.c b/usr/src/usr.bin/f77/libF77/trpfpe_.c
index e497240..8065f3d 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/trpfpe_.c
+++ b/usr/src/usr.bin/f77/libF77/trpfpe_.c
@@ -1,12 +1,19 @@
+/*-
+ * 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[] = "@(#)trpfpe_.c  5.7 (Berkeley) 4/12/91";
+#endif /* not lint */
+

 /* #define OLD_BSD if you're running < 4.2 bsd */
 /* #define OLD_BSD if you're running < 4.2 bsd */

+

 /*
 /*

- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)trpfpe_.c   5.5     %G%
- *
- *

  *     Fortran floating-point error handler
  *
  *     Synopsis:
  *     Fortran floating-point error handler
  *
  *     Synopsis:


@@ -148,7 +155,7 @@ static union {
 static int     max_messages    = 1;            /* the user can tell us */
 static int     fpe_count       = 0;            /* how bad is it ? */
        long    fpeflt_         = 0;    /* fortran "common /fpeflt/ flag" */
 static int     max_messages    = 1;            /* the user can tell us */
 static int     fpe_count       = 0;            /* how bad is it ? */
        long    fpeflt_         = 0;    /* fortran "common /fpeflt/ flag" */

-static int     (*sigfpe_dfl)() = SIG_DFL;      /* if we can't fix it ... */
+static sig_t   sigfpe_dfl      = SIG_DFL;      /* if we can't fix it ... */

 
 /*
  * The fortran unit control table
 
 /*
  * The fortran unit control table