1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
include "../lib/mctable.h"
# MCT_INDEF - Fill table buffer with undefined values, acording to the
# data type used.
procedure mct_indef (table, buffer, npts)
pointer table # table descriptor
pointer buffer # buffer to clear
int npts # number of untis to clear
char cval
short sval
begin
# Clear according to data type.
switch (MCT_TYPE (table)) {
case TY_CHAR:
cval = '\000'
call amovkc (cval, Memc[buffer], npts)
case TY_SHORT:
sval = INDEFS
call amovks (sval, Mems[buffer], npts)
case TY_INT:
call amovki (INDEFI, Memi[buffer], npts)
case TY_LONG:
call amovkl (INDEFL, Meml[buffer], npts)
case TY_REAL:
call amovkr (INDEFR, Memr[buffer], npts)
case TY_DOUBLE:
call amovkd (INDEFD, Memd[buffer], npts)
case TY_COMPLEX:
call amovkx (INDEFX, Memx[buffer], npts)
case TY_POINTER:
call amovki (NULL, Memi[buffer], npts)
default:
call error (0, "mct_indef: Unknown data type")
}
end
|
