X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/0f4556f12c8f75078501c9d1338ae7648a97f975..95f51977ddc18faa2e212f30c00a39540b39f325:/usr/src/usr.lib/libF77/abort_.c?ds=inline

diff --git a/usr/src/usr.lib/libF77/abort_.c b/usr/src/usr.lib/libF77/abort_.c
index 67dde04959..f2e950a961 100644
--- a/usr/src/usr.lib/libF77/abort_.c
+++ b/usr/src/usr.lib/libF77/abort_.c
@@ -1,5 +1,9 @@
 /*
- *	"@(#)abort_.c	1.1"
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *	@(#)abort_.c	5.1	6/7/85
  */
 
 #include <stdio.h>
@@ -20,8 +24,6 @@ char *msg; int len;
 	if (nargs()) while (len-- > 0) fputc(*msg++, stderr);
 	else fprintf(stderr, "called");
 	fputc('\n', stderr);
-	f_exit();
-	_cleanup();
-	abort();
+	f77_abort();
 }
 #endif	vax