1 76193d7c 2003-09-30 devnull #include	"mk.h"
 2 76193d7c 2003-09-30 devnull 
 3 76193d7c 2003-09-30 devnull #define	NHASH	4099
 4 26cae02d 2020-01-14 rsc #define	HASHMUL	79UL	/* this is a good value */
 5 76193d7c 2003-09-30 devnull static Symtab *hash[NHASH];
 6 76193d7c 2003-09-30 devnull 
 7 76193d7c 2003-09-30 devnull void
 8 76193d7c 2003-09-30 devnull syminit(void)
 9 76193d7c 2003-09-30 devnull {
10 3300f9cd 2005-01-15 devnull 	Symtab **s, *ss, *next;
11 76193d7c 2003-09-30 devnull 
12 76193d7c 2003-09-30 devnull 	for(s = hash; s < &hash[NHASH]; s++){
13 3300f9cd 2005-01-15 devnull 		for(ss = *s; ss; ss = next){
14 3300f9cd 2005-01-15 devnull 			next = ss->next;
15 76193d7c 2003-09-30 devnull 			free((char *)ss);
16 3300f9cd 2005-01-15 devnull 		}
17 76193d7c 2003-09-30 devnull 		*s = 0;
18 76193d7c 2003-09-30 devnull 	}
19 76193d7c 2003-09-30 devnull }
20 76193d7c 2003-09-30 devnull 
21 76193d7c 2003-09-30 devnull Symtab *
22 76193d7c 2003-09-30 devnull symlook(char *sym, int space, void *install)
23 76193d7c 2003-09-30 devnull {
24 a8bd9e9d 2021-03-24 rsc 	unsigned long h;
25 76193d7c 2003-09-30 devnull 	char *p;
26 76193d7c 2003-09-30 devnull 	Symtab *s;
27 76193d7c 2003-09-30 devnull 
28 76193d7c 2003-09-30 devnull 	for(p = sym, h = space; *p; h += *p++)
29 76193d7c 2003-09-30 devnull 		h *= HASHMUL;
30 76193d7c 2003-09-30 devnull 	h %= NHASH;
31 76193d7c 2003-09-30 devnull 	for(s = hash[h]; s; s = s->next)
32 76193d7c 2003-09-30 devnull 		if((s->space == space) && (strcmp(s->name, sym) == 0))
33 76193d7c 2003-09-30 devnull 			return(s);
34 76193d7c 2003-09-30 devnull 	if(install == 0)
35 76193d7c 2003-09-30 devnull 		return(0);
36 76193d7c 2003-09-30 devnull 	s = (Symtab *)Malloc(sizeof(Symtab));
37 76193d7c 2003-09-30 devnull 	s->space = space;
38 76193d7c 2003-09-30 devnull 	s->name = sym;
39 3fe9465a 2006-04-20 devnull 	s->u.ptr = install;
40 76193d7c 2003-09-30 devnull 	s->next = hash[h];
41 76193d7c 2003-09-30 devnull 	hash[h] = s;
42 76193d7c 2003-09-30 devnull 	return(s);
43 76193d7c 2003-09-30 devnull }
44 76193d7c 2003-09-30 devnull 
45 76193d7c 2003-09-30 devnull void
46 76193d7c 2003-09-30 devnull symdel(char *sym, int space)
47 76193d7c 2003-09-30 devnull {
48 a8bd9e9d 2021-03-24 rsc 	unsigned long h;
49 76193d7c 2003-09-30 devnull 	char *p;
50 76193d7c 2003-09-30 devnull 	Symtab *s, *ls;
51 76193d7c 2003-09-30 devnull 
52 76193d7c 2003-09-30 devnull 	/* multiple memory leaks */
53 76193d7c 2003-09-30 devnull 
54 76193d7c 2003-09-30 devnull 	for(p = sym, h = space; *p; h += *p++)
55 76193d7c 2003-09-30 devnull 		h *= HASHMUL;
56 76193d7c 2003-09-30 devnull 	h %= NHASH;
57 76193d7c 2003-09-30 devnull 	for(s = hash[h], ls = 0; s; ls = s, s = s->next)
58 76193d7c 2003-09-30 devnull 		if((s->space == space) && (strcmp(s->name, sym) == 0)){
59 76193d7c 2003-09-30 devnull 			if(ls)
60 76193d7c 2003-09-30 devnull 				ls->next = s->next;
61 76193d7c 2003-09-30 devnull 			else
62 76193d7c 2003-09-30 devnull 				hash[h] = s->next;
63 76193d7c 2003-09-30 devnull 			free((char *)s);
64 76193d7c 2003-09-30 devnull 		}
65 76193d7c 2003-09-30 devnull }
66 76193d7c 2003-09-30 devnull 
67 76193d7c 2003-09-30 devnull void
68 76193d7c 2003-09-30 devnull symtraverse(int space, void (*fn)(Symtab*))
69 76193d7c 2003-09-30 devnull {
70 76193d7c 2003-09-30 devnull 	Symtab **s, *ss;
71 76193d7c 2003-09-30 devnull 
72 76193d7c 2003-09-30 devnull 	for(s = hash; s < &hash[NHASH]; s++)
73 76193d7c 2003-09-30 devnull 		for(ss = *s; ss; ss = ss->next)
74 76193d7c 2003-09-30 devnull 			if(ss->space == space)
75 76193d7c 2003-09-30 devnull 				(*fn)(ss);
76 76193d7c 2003-09-30 devnull }
77 76193d7c 2003-09-30 devnull 
78 76193d7c 2003-09-30 devnull void
79 76193d7c 2003-09-30 devnull symstat(void)
80 76193d7c 2003-09-30 devnull {
81 76193d7c 2003-09-30 devnull 	Symtab **s, *ss;
82 76193d7c 2003-09-30 devnull 	int n;
83 76193d7c 2003-09-30 devnull 	int l[1000];
84 76193d7c 2003-09-30 devnull 
85 76193d7c 2003-09-30 devnull 	memset((char *)l, 0, sizeof(l));
86 76193d7c 2003-09-30 devnull 	for(s = hash; s < &hash[NHASH]; s++){
87 76193d7c 2003-09-30 devnull 		for(ss = *s, n = 0; ss; ss = ss->next)
88 76193d7c 2003-09-30 devnull 			n++;
89 76193d7c 2003-09-30 devnull 		l[n]++;
90 76193d7c 2003-09-30 devnull 	}
91 76193d7c 2003-09-30 devnull 	for(n = 0; n < 1000; n++)
92 76193d7c 2003-09-30 devnull 		if(l[n]) Bprint(&bout, "%ld of length %d\n", l[n], n);
93 76193d7c 2003-09-30 devnull }