freepascal.compiler/bugs/bug0227.pp

function getheapsize:longint;assembler;
var
  heapsize : longint;external name 'HEAPSIZE';
asm
        movl    HEAPSIZE,%eax
end ['EAX'];

begin
  writeln(getheapsize);
end.