Explorar el Código

+ implemented MaxAvail for the win16 local heap as well

git-svn-id: trunk@37692 -
nickysn hace 7 años
padre
commit
6337ae7530
Se han modificado 2 ficheros con 7 adiciones y 0 borrados
  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;