Nur Achtung: das funktioniert so nur unter
Win32, unter Win64 gibt's nur ganze
asm Funktionen und kein Inline
asm...
Das ist doch eine ganze
ASM-Funktion.
Und wer unter keinen Umständen
ASM verwenden will, der kann das ganze auch als einzeiler in Pascal schreiben:
Delphi-Quellcode:
function IsNegative(const X: Integer): Boolean;
begin
Result := Boolean(X shr 31);
end;
Ist jetzt wirklich kein Hexenwerk. Oder halt...
Delphi-Quellcode:
function IsNegative(const X: Integer): Boolean;
begin
Result := X < 0;
end;
wie schon etliche male vorgeschlagen wurde.