rts: fix Windows megablock allocator
authorTamar Christina <tamar@zhox.com>
Thu, 22 Nov 2018 16:47:10 +0000 (11:47 -0500)
committerBen Gamari <ben@smart-cactus.org>
Thu, 22 Nov 2018 18:14:01 +0000 (13:14 -0500)
commit676f1f2d2eb39740fe5d88e72f6aa8e89cb0ebc0
tree844a246a4e9383732f66091ffce0d5c7f7f4e91b
parent7cba71fc25af8287db61f6f6aa80d45ce96404a7
rts: fix Windows megablock allocator

The megablock allocator does not currently check that after aligning the
free region if it still has enough space to actually do the allocation.

This causes it to return a memory region which it didn't fully allocate
itself.  Even worse, it can cause it to return a block with a region
that will be present in two allocation pools.

This causes if you're lucky an error from the OS that you're committing
memory that has never been reserved, or causes random heap corruption.

This change makes it consider the alignment as well.

Test Plan: ./validate , testcase testmblockalloc

Reviewers: bgamari, erikd, simonmar

Reviewed By: simonmar

Subscribers: rwbarton, carter

Differential Revision: https://phabricator.haskell.org/D5363
rts/win32/OSMem.c