blob: d69eb6cd31df1b093cb0a17a13b502e8da0243a8 (
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 <syserr.h>
include <error.h>
# MERROR -- Provide a convenient trap for a memory error.
procedure merror (msg)
char msg[ARB]
include "nmemio.com"
begin
if (in_task > 0)
call error (EA_ERROR, msg)
end
|
