瀏覽代碼

* fixed system unit for the new heap manager

Károly Balogh 21 年之前
父節點
當前提交
a1c8a8bb37
共有 1 個文件被更改,包括 5 次插入2 次删除
  1. 5 2
      rtl/morphos/system.pp

+ 5 - 2
rtl/morphos/system.pp

@@ -729,7 +729,7 @@ end;
 
 
 procedure SysOSFree(p: pointer; size: ptrint);
 procedure SysOSFree(p: pointer; size: ptrint);
 begin
 begin
-  fpmunmap(p, size);
+  FreePooled(MOS_heapPool,p,size);
 end;
 end;
 
 
 {$I heap.inc}
 {$I heap.inc}
@@ -1178,7 +1178,10 @@ end.
 
 
 {
 {
   $Log$
   $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
     * New heapmanager that releases memory back to the OS, donated
       by Micha Nelissen
       by Micha Nelissen