1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# SYS_PANIC -- Unconditionally abort process execution. Called when an error
# condition occurs so serious that process execution cannot continue reliably.
procedure sys_panic (errcode, errmsg)
int errcode # error code
char errmsg[ARB] # error message
begin
# Since process termination is imminent we may as well overwrite the
# error message string by packing it in place.
call strpak (errmsg, errmsg, ARB)
call zpanic (errcode, errmsg)
end
|
