VAX => ADDR32

[unix-history] / usr / src / usr.bin / pascal / libpc / PERROR.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)PERROR.c 1.2 %G%";

#include        <stdio.h>
#include        <signal.h>

/*
* Routine PERROR is called from the runtime library when a runtime
* I/O error occurs. Its arguments are a pointer to an error message and 
* the name of the offending file.
*/
long
PERROR(msg, fname)

       char    *msg, *fname;
{
       PFLUSH();
       fputc('\n',stderr);
       fputs(msg, stderr);
       perror(fname);
       kill(getpid(), SIGTRAP);
       return 0;
}