fpc/tests/tbs0227.pp
pierre 9d4e91b79c + bug0259-260
* bug0227-258
1999-06-15 12:12:52 +00:00

13 lines
217 B
ObjectPascal

function getheapsize:longint;assembler;
var
heapsize : longint;external name 'HEAPSIZE';
sbrk : longint;external name '___sbrk';
asm
movl HEAPSIZE,%eax
end ['EAX'];
begin
writeln(getheapsize);
end.