Unterschiedliches Verhalten bei Bitverschiebung (C# / Delphi

[WorstNightmare]

Hallo,

ich übersetze gerade mal wieder ein Programm von C# nach Delphi. Da das Resultat nicht so funktionierte wie es sollte, habe ich nach dem Fehler gesucht und ihn auch gefunden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: Integer;
begin
  a := -1024 shr 11;
  Button1.Caption := IntToStr(a);
end;

Ergebnis: 2097151

Code:

        private void button1_Click(object sender, EventArgs e)
        {
            int a = -1024 >> 11;
            button1.Text = Convert.ToString(a);
        }

Ergebnis: -1

Wie kommt es zu so einem unterschiedlichem Ergebnis?

[SirThornberry]

also mir ist das c# Ergebnis schleierhaft. Wenn eine Zahl negativ ist so ist das höchste bit gesetzt. Und wenn man nach rechts shiftet sollte dieses Bit mit wandern. Entsprechend sollte bereits beim Shiften um 1 nach Rechts keine negative Zahl das Ergebnis sein da eben das "NegativBit" weg geshiftet wurde.

[Khabarakh]

C# benutzt einen arithmetic, Delphi einen logical shift:
http://en.wikipedia.org/wiki/Bitwise...ion#Bit_shifts
https://newsgroups.codegear.com/thre...?threadID=5367

[himitsu]

Dann wirst du da wohl etwas selber basteln müssen,
also entweder dir das Ergebnis entsprechende selber berechnen
oder auf ASM ausweichen.

[SirThornberry]

Ich glaub ich hab müll gepostet - das höchste bit steht doch gar nicht für Minus - es wird Zeit das ich mir das mal wieder etwas genauer ansehe.

[Dax]

Zitat von himitsu:

Dann wirst du da wohl etwas selber basteln müssen,
also entweder dir das Ergebnis entsprechende selber berechnen
oder auf ASM ausweichen.

Auf UInt casten reicht.

[himitsu]

Wieso?

Delphis SHR/SHL behandelt doch Signed und Unsigned gleich.

Und er braucht doch SAR (ASM)

[WorstNightmare]

Ich habe leider keine Ahnung von asm.
Kann mir das einer machen?

[himitsu]

Delphi-Quellcode:

Function ArithmeticShiftRight(i: Integer; Shift: Byte): Integer;
  ASM
    SAR EAX, DL
  End;

ich hoff mal es stimmt

[add]

Delphi-Quellcode:

Function ArithmeticShiftRight(i: Integer; Shift: Byte): Integer;
  Begin
    Result := (i shr Shift) or (($FFFFFFFF * (i shr 31)) shl 32 - Shift)
  End;

[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