From a1c8a8bb37a9548ee7e4caa07ac52bf39f0e4c08 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Wed, 23 Jun 2004 13:27:32 +0000
Subject: [PATCH]   * fixed system unit for the new heap manager

---
 rtl/morphos/system.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/morphos/system.pp b/rtl/morphos/system.pp
index df19b9cffb..9e498b0a46 100644
--- a/rtl/morphos/system.pp
+++ b/rtl/morphos/system.pp
@@ -729,7 +729,7 @@ end;
 
 procedure SysOSFree(p: pointer; size: ptrint);
 begin
-  fpmunmap(p, size);
+  FreePooled(MOS_heapPool,p,size);
 end;
 
 {$I heap.inc}
@@ -1178,7 +1178,10 @@ end.
 
 {
   $Log$
-  Revision 1.14  2004-06-17 16:16:14  peter
+  Revision 1.15  2004-06-23 13:27:32  karoly
+    * fixed system unit for the new heap manager
+
+  Revision 1.14  2004/06/17 16:16:14  peter
     * New heapmanager that releases memory back to the OS, donated
       by Micha Nelissen