blob: 23c5eaae0cfc42cbef7383258cca41a7f93b5d78 (
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_POSTERR -- Post an error. This is called to flag an error condition
# by low level code that cannot call the error handling code directly.
procedure fmio_posterr (fm, errcode, opstr)
pointer fm #I FMIO descriptor
int errcode #I error code
char opstr[ARB] #I operand id string
begin
# In case of multiple errors, post only the first one.
if (FM_ERRCODE(fm) == OK) {
FM_ERRCODE(fm) = errcode
call strcpy (opstr, FM_ERROPSTR(fm), SZ_ERROPSTR)
}
end
|
