X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=mmalloc%2Fmmap-sup.c;h=8f1e1fb066f7e85c8736baad7c13a7f3f182de29;hb=a380d35f81da4bd3e6c31ab32629ec79aecfa5a4;hp=b12e43cf25530455ec03ffb456a9f38b21241c67;hpb=d70485fb7a2776fbfeccdabc568aa98ab3a80225;p=ocaml-ancient.git

diff --git a/mmalloc/mmap-sup.c b/mmalloc/mmap-sup.c
index b12e43c..8f1e1fb 100644
--- a/mmalloc/mmap-sup.c
+++ b/mmalloc/mmap-sup.c
@@ -64,7 +64,7 @@ extern int getpagesize PARAMS ((void));
 PTR
 __mmalloc_mmap_morecore (mdp, size)
   struct mdesc *mdp;
-  int size;
+  size_t size;
 {
   PTR result = NULL;
   off_t foffset;	/* File offset at which new mapping will start */
@@ -169,7 +169,7 @@ __mmalloc_remap_core (mdp)
 
 PTR
 mmalloc_findbase (size)
-  int size;
+  size_t size;
 {
   int fd;
   int flags;
@@ -205,7 +205,8 @@ mmalloc_findbase (size)
 	 to signal an error return, and besides, it is useful to
 	 catch NULL pointers if it is unmapped.  Instead start
 	 at the next page boundary. */
-      base = (caddr_t) getpagesize ();
+      size_t tmp_pagesize = getpagesize ();
+      base = (caddr_t) tmp_pagesize;
     }
   else if (base == (caddr_t) -1)
     {