1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:40:29 +02:00
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

View file

@ -49,7 +49,7 @@
#include "libguile/alist.h" #include "libguile/alist.h"
#include "libguile/strings.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 * 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 int malloc_type_size = 31;
static hash_entry_t *malloc_type = 0; 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; static hash_entry_t *malloc_object = 0;
#define TABLE(table) malloc_ ## table #define TABLE(table) malloc_ ## table
@ -135,7 +135,7 @@ grow (hash_entry_t **table, int *size)
hash_entry_t *TABLE (new) = 0; hash_entry_t *TABLE (new) = 0;
int SIZE (new); int SIZE (new);
int i, j; int i, j;
SIZE (new) = 2 * (oldsize - N_SEEK); SIZE (new) = 2 * (oldsize - N_SEEK + 1) - 1;
again: again:
TABLE (new) = realloc (TABLE (new), TABLE (new) = realloc (TABLE (new),
sizeof (hash_entry_t) * (SIZE (new) + N_SEEK)); sizeof (hash_entry_t) * (SIZE (new) + N_SEEK));
@ -263,5 +263,5 @@ scm_debug_malloc_prehistory ()
void void
scm_init_debug_malloc () scm_init_debug_malloc ()
{ {
#include "debug-malloc.x" #include "libguile/debug-malloc.x"
} }

View file

@ -51,7 +51,7 @@
#include "libguile/root.h" #include "libguile/root.h"
#include "libguile/validate.h" #include "libguile/validate.h"
#include "lang.h" #include "libguile/lang.h"

View file

@ -5,7 +5,7 @@
extern "C" { extern "C" {
#endif #endif
#include <@qtmd_h@> #include <qt/@qtmd_h@>
/* A QuickThreads thread is represented by it's current stack pointer. /* A QuickThreads thread is represented by it's current stack pointer.