From 58eca57feb4528a423fe0406ba0bb4c838c230cb Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 12 Jun 2020 20:50:45 +0000
Subject: [PATCH]   * patch by Christo Crause: embedded heap manager: free
 small blocks, resolves #37204

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

diff --git a/rtl/embedded/heapmgr.pp b/rtl/embedded/heapmgr.pp
index 50b597ecf6..060a9d92c1 100644
--- a/rtl/embedded/heapmgr.pp
+++ b/rtl/embedded/heapmgr.pp
@@ -195,6 +195,8 @@ Unit heapmgr;
             exit;
           end;
         sz := Align(FindSize(addr)+SizeOf(pointer), sizeof(pointer));
+        if sz < MinBlock then
+          sz := MinBlock;
 
         InternalFreeMem(@pptruint(addr)[-1], sz);