From 3de54dec267abf845ca32bd1f6026834cc04d853 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Thu, 22 Sep 2005 14:21:50 +0000
Subject: Remplacement long/unsigned long par intnat/uintnat
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7064 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
byterun/unix.c | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
(limited to 'byterun/unix.c')
diff --git a/byterun/unix.c b/byterun/unix.c
index 217c86124..7bb986008 100644
--- a/byterun/unix.c
+++ b/byterun/unix.c
@@ -348,21 +348,21 @@ char * caml_dlerror(void)
char *caml_aligned_mmap (asize_t size, int modulo, void **block)
{
char *raw_mem;
- unsigned long aligned_mem;
+ uintnat aligned_mem;
Assert (modulo < Page_size);
raw_mem = (char *) mmap(NULL, size + Page_size, PROT_READ | PROT_WRITE,
MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
if (raw_mem == MAP_FAILED) return NULL;
*block = raw_mem;
raw_mem += modulo; /* Address to be aligned */
- aligned_mem = (((unsigned long) raw_mem / Page_size + 1) * Page_size);
+ aligned_mem = (((uintnat) raw_mem / Page_size + 1) * Page_size);
#ifdef DEBUG
{
- unsigned long *p;
- unsigned long *p0 = (void *) *block,
- *p1 = (void *) (aligned_mem - modulo),
- *p2 = (void *) (aligned_mem - modulo + size),
- *p3 = (void *) ((char *) *block + size + Page_size);
+ uintnat *p;
+ uintnat *p0 = (void *) *block,
+ *p1 = (void *) (aligned_mem - modulo),
+ *p2 = (void *) (aligned_mem - modulo + size),
+ *p3 = (void *) ((char *) *block + size + Page_size);
for (p = p0; p < p1; p++) *p = Debug_filler_align;
for (p = p1; p < p2; p++) *p = Debug_uninit_align;
--
cgit v1.2.3-70-g09d2