BSD 4_3 release

[unix-history] / usr / src / usr.lib / libF77 / abort_.c

diff --git a/usr/src/usr.lib/libF77/abort_.c b/usr/src/usr.lib/libF77/abort_.c
index 67dde04..f2e950a 100644 (file)
--- 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>
  */
 
 #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);
        if (nargs()) while (len-- > 0) fputc(*msg++, stderr);
        else fprintf(stderr, "called");
        fputc('\n', stderr);

-       f_exit();
-       _cleanup();
-       abort();
+       f77_abort();

 }
 #endif vax
 }
 #endif vax