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
perldelta: we suspect no known problems..?
[perl5.git]
/
malloc.c
diff --git
a/malloc.c
b/malloc.c
index
e2f97ad
..
beaaa2f
100644
(file)
--- a/
malloc.c
+++ b/
malloc.c
@@
-787,7
+787,7
@@
static const char bucket_of[] =
# define SBRK_FAILURE_PRICE 50
#endif
# define SBRK_FAILURE_PRICE 50
#endif
-static void morecore (
register
int bucket);
+static void morecore (int bucket);
# if defined(DEBUGGING)
static void botch (const char *diag, const char *s, const char *file, int line);
# endif
# if defined(DEBUGGING)
static void botch (const char *diag, const char *s, const char *file, int line);
# endif
@@
-1675,7
+1675,7
@@
getpages_adjacent(MEM_SIZE require)
* Allocate more memory to the indicated bucket.
*/
static void
* Allocate more memory to the indicated bucket.
*/
static void
-morecore(
register
int bucket)
+morecore(int bucket)
{
dVAR;
union overhead *ovp;
{
dVAR;
union overhead *ovp;
@@
-2100,7
+2100,7
@@
Perl_realloc(void *mp, size_t nbytes)
}
Malloc_t
}
Malloc_t
-Perl_calloc(
register size_t elements, register
size_t size)
+Perl_calloc(
size_t elements,
size_t size)
{
long sz = elements * size;
Malloc_t p = Perl_malloc(sz);
{
long sz = elements * size;
Malloc_t p = Perl_malloc(sz);