blob: 6c22be6e30283a83e61a7e90742c62e187ae9689 (
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
25
|
include <tbset.h>
include "tbtables.h"
include "tblerr.h"
# tbrchg -- change allocated number of rows
# For row-ordered tables this procedure does nothing.
#
# Phil Hodge, 6-Feb-1992 Include only section for column ordered.
procedure tbrchg (tp, allrows)
pointer tp # Pointer to table descriptor
int allrows # The new value for the allocated number of rows
errchk tbtchs
begin
if (TB_TYPE(tp) == TBL_TYPE_S_COL) {
if (TB_IS_OPEN(tp)) {
call tbtchs (tp, -1, -1, -1, allrows)
} else {
TB_ALLROWS(tp) = allrows
}
}
end
|
