mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fixes

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-04-21 15:57:22 +00:00
parent a059974535
commit 0e850825e7
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/debug-malloc.c
View file

@ -49,7 +49,7 @@
#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
@ -71,7 +71,7 @@ typedef struct hash_entry {
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
@ -135,7 +135,7 @@ grow (hash_entry_t **table, int *size)
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));
@ -263,5 +263,5 @@ scm_debug_malloc_prehistory ()
void
scm_init_debug_malloc ()
{
#include "debug-malloc.x"
#include "libguile/debug-malloc.x"
}