fpcsrc/rtl/os2/tests/heapsize.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

program heapsize;

var a:longint;

procedure writeheapsize;

begin
    asm
        movl $0x7f00,%ax
        xorl %edx,%edx
        call ___syscall
        mov %eax,_A
    end;
    writeln(a);
end;

begin
    writeheapsize;
    asm
        movl $0x7f00,%ax
        movl $327680,%edx
        call ___syscall
    end;
    writeheapsize;
end.