blob: 25a750c5b2014d462ff153cb34a201b46c6372f6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#* HISTORY *
#* B.Simon 07-Jan-99 Original
# TUNITERR -- Print error message for tunits
procedure tuniterr (errstr, errval)
char errstr[ARB] # i: error message string
char errval[ARB] # i: value which caused error
#--
pointer sp, errmsg
begin
call smark (sp)
call salloc (errmsg, SZ_LINE, TY_CHAR)
call sprintf (Memc[errmsg], SZ_LINE, "%s (%s)")
call pargstr (errstr)
call pargstr (errval)
call error (1, Memc[errmsg])
call sfree (sp)
end
|
