blob: 47f7b22727fd46aee9654533b3dadc600600ccc8 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "symtab.h"
# STSQUEEZE -- Return any unused storage in a symbol table. This is useful
# when it is known that no more symbols will be entered in a table, or before
# saving a symbol table in a save file.
procedure stsqueeze (stp)
pointer stp # symtab descriptor
begin
if (ST_STABLEN(stp) > ST_STABOP(stp)) {
ST_STABLEN(stp) = ST_STABOP(stp)
ST_STABINC(stp) = min (MAX_INCREMENT, ST_STABLEN(stp))
call realloc (ST_STABP(stp), ST_STABLEN(stp), TY_STRUCT)
}
if (ST_SBUFLEN(stp) > ST_SBUFOP(stp)) {
ST_SBUFLEN(stp) = ST_SBUFOP(stp)
ST_SBUFINC(stp) = min (MAX_INCREMENT, ST_SBUFLEN(stp))
call realloc (ST_SBUFP(stp), ST_SBUFLEN(stp), TY_CHAR)
}
end
|
