소스 검색

+ implemented MaxAvail for the win16 local heap as well

git-svn-id: trunk@37692 -
nickysn 7 년 전
부모
커밋
6337ae7530
2개의 변경된 파일7개의 추가작업 그리고 0개의 파일을 삭제
  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));
         result:=LocalSize(THandle(p));
       end;
       end;
 
 
+    function MaxAvail: Word;
+      begin
+        result:=LocalCompact(0);
+      end;
+
     const
     const
       LocalHeapMemoryManager: TMemoryManager = (
       LocalHeapMemoryManager: TMemoryManager = (
         NeedLock: false;  // Obsolete
         NeedLock: false;  // Obsolete

+ 2 - 0
rtl/win16/locheaph.inc

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