Forráskód Böngészése

+ implemented MaxAvail for the win16 local heap as well

git-svn-id: trunk@37692 -
nickysn 7 éve
szülő
commit
6337ae7530
2 módosított fájl, 7 hozzáadás és 0 törlés
  1. 5 0
      rtl/win16/locheap.inc
  2. 2 0
      rtl/win16/locheaph.inc

+ 5 - 0
rtl/win16/locheap.inc

@@ -68,6 +68,11 @@
         result:=LocalSize(THandle(p));
       end;
 
+    function MaxAvail: Word;
+      begin
+        result:=LocalCompact(0);
+      end;
+
     const
       LocalHeapMemoryManager: TMemoryManager = (
         NeedLock: false;  // Obsolete

+ 2 - 0
rtl/win16/locheaph.inc

@@ -14,3 +14,5 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+
+    function MaxAvail: Word;