git-svn-id: trunk@37692 -
@@ -68,6 +68,11 @@
result:=LocalSize(THandle(p));
end;
+ function MaxAvail: Word;
+ begin
+ result:=LocalCompact(0);
+ end;
+
const
LocalHeapMemoryManager: TMemoryManager = (
NeedLock: false; // Obsolete
@@ -14,3 +14,5 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}