summaryrefslogtreecommitdiff
path: root/malloc.c
diff options
context:
space:
mode:
authorHans Mulder <hansmu@xs4all.nl>1999-02-20 00:19:31 +0100
committerGurusamy Sarathy <gsar@cpan.org>1999-02-20 00:59:10 +0000
commit5a7d6335190115924fb02ebaba4cc17bde07c125 (patch)
tree1bb05a8898684665b99de869e3a3828fc6f2ca32 /malloc.c
parentc4954b40b9da2802a82960be779165c7e4925790 (diff)
downloadperl-5a7d6335190115924fb02ebaba4cc17bde07c125.tar.gz
fix typo in Perl_sbrk()
Message-Id: <9902192221.AA07213@icgned.icgroup.nl> Subject: Not OK: perl 5.00555 on OPENSTEP-Mach 4_2 (UNINSTALLED) p4raw-id: //depot/perl@2993
Diffstat (limited to 'malloc.c')
-rw-r--r--malloc.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/malloc.c b/malloc.c
index fd3b05b272..2716045fae 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1793,7 +1793,7 @@ Perl_sbrk(int size)
# endif
got = (IV)SYSTEM_ALLOC(size);
# if NEEDED_ALIGNMENT > SYSTEM_ALLOC_ALIGNMENT
- got = (got + NEEDED_ALIGNMENT - 1) & (NEEDED_ALIGNMENT - 1);
+ got = (got + NEEDED_ALIGNMENT - 1) & ~(NEEDED_ALIGNMENT - 1);
# endif
if (small) {
/* Chunk is small, register the rest for future allocs. */