This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix compile warnings in malloc.c [perl #75340]
[perl5.git]
/
malloc.c
diff --git
a/malloc.c
b/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 {