1 /* $Header: hash.h,v 3.0.1.2 90/10/15 17:33:58 lwall Locked $
3 * Copyright (c) 1989, Larry Wall
5 * You may distribute under the terms of the GNU General Public License
6 * as specified in the README file that comes with the perl 3.0 kit.
9 * Revision 3.0.1.2 90/10/15 17:33:58 lwall
10 * patch29: the debugger now understands packages and evals
12 * Revision 3.0.1.1 90/08/09 03:51:34 lwall
13 * patch19: various MSDOS and OS/2 patches folded in
15 * Revision 3.0 89/10/18 15:18:39 lwall
20 #define FILLPCT 80 /* don't make greater than 99 */
21 #define DBM_CACHE_MAX 63 /* cache 64 entries for dbm file */
22 /* (resident array acts as a write-thru cache)*/
24 #define COEFFSIZE (16 * 8) /* size of coeff array */
26 typedef struct hentry HENT;
38 int tbl_max; /* subscript of last element of tbl_array */
39 int tbl_dosplit; /* how full to get before splitting */
40 int tbl_fill; /* how full tbl_array currently is */
41 int tbl_riter; /* current root of iterator */
42 HENT *tbl_eiter; /* current entry of iterator */
43 SPAT *tbl_spatroot; /* list of spats for this package */
44 char *tbl_name; /* name, if a symbol table */
52 unsigned char tbl_coeffsize; /* is 0 for symbol tables */