paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-02 20:50:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test program - bug #40072

Browse Source
This commit is contained in:
Tomas Hajny 2022-12-31 15:10:44 +01:00
parent c631d86122
commit 092bc17cb2
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/emx/tests/helloos2.pas Normal file
View File

@ -0,0 +1,29 @@
program HelloOS2;
var A,B: ^word;
begin
WriteLn ('Hello World.');
case os_mode of
osDOS: WriteLn ('Running under DOS.');
osDPMI: WriteLn ('Running under DPMI (RSX extender).');
else WriteLn ('Running under OS/2.');
end;
{
WriteLn ('Free memory: ', MemAvail);
WriteLn ('Largest block: ', MaxAvail);
WriteLn ('Heap start: ',longint(heaporg));
WriteLn ('Heap end: ',longint(heapend));
}
WriteLn ('Memory allocation.');
GetMem (A, 1000);
GetMem (B, 2000);
A^ := 2;
B^ := 10;
{
WriteLn ('Free memory: ', MemAvail);
WriteLn ('Largest block: ', MaxAvail);
}
FreeMem (A, 1000);
FreeMem (B, 2000);
end.