blob: a7ad2ad50f2fc70e767f6430e923138f741a45e3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
include "../lib/mctable.h"
# MCT_REW - Rewinding the sequential get counters.
procedure mct_rew (table)
pointer table # table descriptor
begin
# Check the pointer and magic number.
if (table == NULL)
call error (0, "mct_rew: Null table pointer")
if (MCT_MAGIC (table) != MAGIC)
call error (0, "mct_rew: Bad magic number")
# Clear get counters.
MCT_NGCOLS (table) = 0
MCT_NGROWS (table) = 0
end
|
