slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

runtime/stdlib: add MaxAvail function

Browse source
This commit is contained in:
slederer 2026-04-18 03:30:54 +02:00
parent 72b6ab6a30
commit 3fd6011e36
5 changed files with 75 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tests/testmem.pas Normal file
View file

@ -0,0 +1,18 @@
program testmem;
var s1:^string[2048];
s2:^string[2048];
begin
writeln(MemAvail);
writeln(MaxAvail);
writeln('new s1 and s2');
new(s1);
new(s2);
writeln(MemAvail);
writeln(MaxAvail);
writeln('dispose s1');
dispose(s1);
writeln(MemAvail);
writeln(MaxAvail);
end.