Паскаль / do4 / msqp1 / Setup&Utilites / SAMPLES / BIGMEM

PROGRAM big_mem;
{ ========================= big_mem ============================
Big_mem.pas uses the sample BigHeap unit. Calls in BigHeap
allow a program to allocate heap space in block larger than
65520 bytes.
}

USES
bigheap;

VAR
generic_ptr : POINTER;
request : LongInt;
total : LongInt;
biggest : LongInt;

BEGIN

biggest := MaxAvail;
Writeln( 'Total of ', MemAvail, ' bytes available on heap.' );
Writeln( 'Largest contiguous block is ', biggest, ' bytes.' );

REPEAT
Writeln( 'You can allocate up to ', biggest, ' bytes.' );
Write( 'How large a block of memory do you want to allocate? ');
Readln( request );
IF (request > biggest) OR (request < 0)
THEN Writeln( 'That amount is not available.' );
UNTIL (request <= biggest) AND
(request >= 0);
Writeln( 'Requesting ', request, ' bytes.' );

{ Request memory. This call will use bigheap.GetMem rather than
System.GetMem, so that we can allocate more than 65520 bytes at
a time.
}
GetMem( generic_ptr, request );
Writeln( 'This leaves a total of ', MemAvail, ' bytes, with the ');
Writeln( 'largest block being ', MaxAvail, ' bytes.');

Writeln( 'Freeing space...' );
FreeMem( generic_ptr, request );

END.