pkg/vocl/errtest/printvals.cl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

procedure printvals ()

begin

time
return
	printf ("PRINTVALS:\n");
	printf ("\t$errno = %d\n", $errno)
	printf ("\t$errmsg = %d\n", $errmsg)
	printf ("\t$errtask = %d\n", $errtask)

	i  =  cl.$errno
	s1 =  cl.$errmsg
	s2 =  cl.$errtask

	=i
	=s1
	=s2
	keep
end