blob: dd15e7bef9d1416e128b8ddf87bbd09c29089aba (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "fmio.h"
# FMIO_ERRCHK -- Check for a posted error, and process the error if one is
# posted.
procedure fmio_errchk (fm)
pointer fm #I FMIO descriptor
int errcode
begin
errcode = FM_ERRCODE(fm)
if (errcode != OK) {
FM_ERRCODE(fm) = OK
call syserrs (errcode, FM_ERROPSTR(fm))
}
end
|
