From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 3 Jul 2012 18:06:50 +0000 (-0500)
Subject: fix compile warnings in malloc.c [perl #75340]
X-Git-Tag: v5.17.2~114
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/8c2f25b1be8766a42e2af6baa3f19e83fb74005c

fix compile warnings in malloc.c [perl #75340]
---

diff --git a/malloc.c b/malloc.c
index ea8b69a..13a2f9f 100644
--- a/malloc.c
+++ b/malloc.c
@@ -455,7 +455,7 @@ struct aligner {
   char c;
   void *p;
 };
-#  define ALIGN_SMALL ((int)((caddr_t)&(((struct aligner*)0)->p)))
+#  define ALIGN_SMALL ((IV)((caddr_t)&(((struct aligner*)0)->p)))
 #else
 #  define ALIGN_SMALL MEM_ALIGNBYTES
 #endif
@@ -1506,7 +1506,7 @@ getpages(MEM_SIZE needed, int *nblksp, int bucket)
 	    require = FIRST_SBRK;
 	else if (require < (MEM_SIZE)MIN_SBRK) require = MIN_SBRK;
 
-	if (require < goodsbrk * MIN_SBRK_FRAC1000 / 1000)
+	if (require < (Size_t)(goodsbrk * MIN_SBRK_FRAC1000 / 1000))
 	    require = goodsbrk * MIN_SBRK_FRAC1000 / 1000;
 	require = ((require - 1 + MIN_SBRK) / MIN_SBRK) * MIN_SBRK;
     } else {