From d315d3cc96edc190595fcd680987d4fcf7d3c38f Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 30 Dec 2017 16:38:13 +0000
Subject: [PATCH] * after r34939, it was not taken care of the extra storage
 needed for the size field, fixed, should fix #32875

git-svn-id: trunk@37883 -
---
 rtl/embedded/heapmgr.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/embedded/heapmgr.pp b/rtl/embedded/heapmgr.pp
index 661059416d..50b597ecf6 100644
--- a/rtl/embedded/heapmgr.pp
+++ b/rtl/embedded/heapmgr.pp
@@ -49,10 +49,10 @@ Unit heapmgr;
         p, prev: PHeapBlock;
         AllocSize, RestSize: ptruint;
       begin
-        if size<MinBlock then
+        if size+sizeof(PtrUInt)<MinBlock then
           AllocSize := MinBlock
         else
-          AllocSize := align(size, sizeof(pointer));
+          AllocSize := align(size+sizeof(PtrUInt), sizeof(pointer));
 
         p := Blocks;
         prev := nil;