X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/0f4556f12c8f75078501c9d1338ae7648a97f975..95f51977ddc18faa2e212f30c00a39540b39f325:/usr/src/usr.lib/libF77/main.c

diff --git a/usr/src/usr.lib/libF77/main.c b/usr/src/usr.lib/libF77/main.c
index 9c90400cc2..37ecce27d4 100644
--- a/usr/src/usr.lib/libF77/main.c
+++ b/usr/src/usr.lib/libF77/main.c
@@ -1,6 +1,10 @@
-/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
-char id_libF77[] = "@(#)main.c	2.15	8/25/83";
-
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *	@(#)main.c	5.2	6/26/85
+ */
 #include <stdio.h>
 #include <signal.h>
 #include "../libI77/fiodefs.h"
@@ -32,6 +36,7 @@ for (signum=1; signum<=16; signum++)
 f_init();
 MAIN_();
 f_exit();
+return 0;
 }
 
 struct action {
@@ -94,10 +99,6 @@ if (s == SIGHUP || s == SIGINT || s == SIGQUIT)
 else
 	signal(s, SIG_DFL);	/* shouldn't happen again, but ... */
 
-#if	vax
-sigsetmask(0);			/* don't block */
-#endif
-
 if (act->mesg)
 	{
 	fprintf(units[STDERR].ufd, "*** %s", act->mesg);
@@ -118,18 +119,5 @@ if (act->mesg)
 		}
 	putc('\n', units[STDERR].ufd);
 	}
-f_exit();
-_cleanup();
-
-if(act->core)
-	{
-	/* now get a core */
-#if	vax
-	signal(SIGILL, SIG_DFL);
-#else	pdp11
-	signal(SIGIOT, SIG_DFL);
-#endif
-	abort();
-	}
-exit(s);
+f77_abort( s, act->core );
 }