mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-09 23:40:29 +02:00
Fixes
This commit is contained in:
parent
a059974535
commit
0e850825e7
3 changed files with 6 additions and 6 deletions
|
@ -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"
|
||||||
}
|
}
|
||||||
|
|
|
@ -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"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -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.
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue