blob: 773e38f9d763da701e015270c3469c729ce63521 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <error.h>
# XER_RESET -- Called to initialize error handling. Used during startup and
# during error recovery (e.g. in an interrupt handler) to reset the state of
# the error handling code.
procedure xer_reset()
include "error.com"
begin
xerflg = false
xercod = OK
err_restart = NO
nhandlers = 0
xermsg[1] = EOS
end
|
