#include "libguile/alist.h"
#include "libguile/strings.h"
-#include "debug-malloc.h"
+#include "libguile/debug-malloc.h"
/*
* The following code is a hack written quickly in order to solve a
static int malloc_type_size = 31;
static hash_entry_t *malloc_type = 0;
-static int malloc_object_size = 9973;
+static int malloc_object_size = 8191;
static hash_entry_t *malloc_object = 0;
#define TABLE(table) malloc_ ## table
hash_entry_t *TABLE (new) = 0;
int SIZE (new);
int i, j;
- SIZE (new) = 2 * (oldsize - N_SEEK);
+ SIZE (new) = 2 * (oldsize - N_SEEK + 1) - 1;
again:
TABLE (new) = realloc (TABLE (new),
sizeof (hash_entry_t) * (SIZE (new) + N_SEEK));
void
scm_init_debug_malloc ()
{
-#include "debug-malloc.x"
+#include "libguile/debug-malloc.x"
}