Delphi-Quellcode:
function IsNegative(
const X: Integer): Boolean;
asm
SHR EAX, 31
end;
Jaja, warum einfach, wenn's auch umständlich geht.
Nur Achtung: das funktioniert so nur unter
Win32, unter Win64 gibt's nur ganze
asm Funktionen und kein Inline
asm...