This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix compile warnings in malloc.c [perl #75340]
authorJesse Luehrs <doy@tozt.net>
Tue, 3 Jul 2012 18:06:50 +0000 (13:06 -0500)
committerJesse Luehrs <doy@tozt.net>
Tue, 3 Jul 2012 18:06:50 +0000 (13:06 -0500)
malloc.c

index ea8b69a..13a2f9f 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -455,7 +455,7 @@ struct aligner {
   char c;
   void *p;
 };
   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
 #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;
 
            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 {
            require = goodsbrk * MIN_SBRK_FRAC1000 / 1000;
        require = ((require - 1 + MIN_SBRK) / MIN_SBRK) * MIN_SBRK;
     } else {