blob: 99df994b8e156218c0b833746f26b47d3b4da9c4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <error.h>
# ERRCODE -- Return the integer code of the last error posted. The error
# code is set to a positive nonnegative integer by a call to ERROR or
# FATAL, and is cleared (set to OK) whenever an IFERR block is entered.
# Note that if we are called from within an error handler (true part of
# an IFERR block), xerflg is false, so we cannot test xerflg to see if
# an error occurred.
int procedure errcode()
include "error.com"
begin
return (xercod)
end
|
