blob: 31d42e286bd8bba1281f97be73361f77588756ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#ifdef DEBUG
#include <forms.h>
int
debug_dump_bindings(char *key, void *data, void *arg)
{
TUPLE *tuple = (TUPLE *)data;
printf("%s, %d, %x\n", tuple->name, tuple->type, (int)tuple->addr);
return (1);
}
void
debug_dump_table(hash_table *htable)
{
printf("Dumping table at address %x\n", htable);
hash_traverse(htable, debug_dump_bindings, NULL);
printf("------------------------------\n");
}
#endif
|
