mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 14:59:29 +02:00
23 lines
493 B
ObjectPascal
23 lines
493 B
ObjectPascal
Program Example40;
|
|
|
|
{ Program to demonstrate the MaxAvail function. }
|
|
|
|
Var
|
|
P : Pointer;
|
|
I : longint;
|
|
|
|
begin
|
|
{ This will allocate memory until there is no more memory}
|
|
I:=0;
|
|
While MaxAvail>=1000 do
|
|
begin
|
|
Inc (I);
|
|
GetMem (P,1000);
|
|
end;
|
|
{ Default 4MB heap is allocated, so 4000 blocks
|
|
should be allocated.
|
|
When compiled with the -Ch10000 switch, the program
|
|
will be able to allocate 10 block }
|
|
Writeln ('Allocated ',i,' blocks of 1000 bytes');
|
|
end.
|