Int64-Überlauf erkennen / Registerabfrage

[sirius]

über Register wäre so:

Delphi-Quellcode:

function getFlags:Integer;
asm
  pushfd
  pop eax
end;



procedure TForm1.Button1Click(Sender: TObject);
var x:int64;
begin
  x:=$7FFFFFFFFFFFFFFF;
  x:=x+1;
  if (getFlags and ($800))<>0 then   //$800 : Testen der Flags ob OL gesetzt ist
    showmessage('Überlauf: '+inttostr(x));
end;