diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-11-10 12:39:48 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-11-10 12:39:48 +0000 |
| commit | b84346aeecd0f6adef4e6d4162cc54c243f991fa (patch) | |
| tree | e6e9d9babf35ae41992c7deea81b07ba221080ab | |
| parent | abd2049344be64aa9810080bed1a6e1023a39513 (diff) | |
Utiliser un type non signe pour faire le hachage des pointeurs.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@435 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/extern.c | 6 | ||||
| -rw-r--r-- | byterun/intext.h | 3 |
2 files changed, 3 insertions, 6 deletions
diff --git a/byterun/extern.c b/byterun/extern.c index 31957de07..c4ce514eb 100644 --- a/byterun/extern.c +++ b/byterun/extern.c @@ -33,12 +33,12 @@ struct extern_obj { }; static struct extern_obj * extern_table; -static asize_t extern_table_size; +static unsigned long extern_table_size; #ifdef SIXTYFOUR -#define Hash(v) (((asize_t) ((v) >> 3)) % extern_table_size) +#define Hash(v) (((unsigned long) ((v) >> 3)) % extern_table_size) #else -#define Hash(v) (((asize_t) ((v) >> 2)) % extern_table_size) +#define Hash(v) (((unsigned long) ((v) >> 2)) % extern_table_size) #endif static void alloc_extern_table() diff --git a/byterun/intext.h b/byterun/intext.h index 5247b00a8..7ffafefea 100644 --- a/byterun/intext.h +++ b/byterun/intext.h @@ -58,9 +58,6 @@ /* Initial sizes of data structures for extern */ -#ifndef INITIAL_EXTERN_SIZE -#define INITIAL_EXTERN_SIZE 4096 -#endif #ifndef INITIAL_EXTERN_TABLE_SIZE #define INITIAL_EXTERN_TABLE_SIZE 2039 #endif |