From: Hans Mulder <hansmu@xs4all.nl>
Date: Fri, 19 Feb 1999 23:19:31 +0000 (+0100)
Subject: fix typo in Perl_sbrk()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a7d6335190115924fb02ebaba4cc17bde07c125;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/malloc.c b/malloc.c
index fd3b05b..2716045 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. */