Unterschiedliches Verhalten bei Bitverschiebung (C# / Delphi

[jfheins]

Wie wärs damit:

Delphi-Quellcode:

// arithmetic shift
function arithmetic_shr(a: Integer; b: Byte): Integer;
begin
  Result := Sign(a) * (abs(a) shr b);
end;

okay, asm is vll. n bisschen schneller