mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 05:40:20 +02:00
+ implemented MaxAvail for the win16 local heap as well
git-svn-id: trunk@37692 -
This commit is contained in:
parent
46db6a6174
commit
6337ae7530
@ -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
|
||||||
|
@ -14,3 +14,5 @@
|
|||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||||
|
|
||||||
**********************************************************************}
|
**********************************************************************}
|
||||||
|
|
||||||
|
function MaxAvail: Word;
|
||||||
|
Loading…
Reference in New Issue
Block a user