Return to abort_.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libF77

Annotation of 42BSD/usr.lib/libF77/abort_.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     "@(#)abort_.c   1.1"
                      3:  */
                      4: 
                      5: #include <stdio.h>
                      6: 
                      7: #if    pdp11
                      8: abort_()
                      9: {
                     10:        fprintf(stderr, "Fortran abort routine called\n");
                     11:        f_exit();
                     12:        _cleanup();
                     13:        abort();
                     14: }
                     15: #else  vax
                     16: abort_(msg,len)
                     17: char *msg; int len;
                     18: {
                     19:        fprintf(stderr, "abort: ");
                     20:        if (nargs()) while (len-- > 0) fputc(*msg++, stderr);
                     21:        else fprintf(stderr, "called");
                     22:        fputc('\n', stderr);
                     23:        f_exit();
                     24:        _cleanup();
                     25:        abort();
                     26: }
                     27: #endif vax

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.