Übersetzen von 3 Zeilen C Code nach Delphi

[eric_draven]

Hi,

kann mir jemand bitte diesen (für mich) kryptischen C Code nach Delphi oder Pseudocode übersetzen ?

Code:

void get_crc( unsigned char d )
{
  int i;

  crc ^= d;
  for( i = 8; i; i-- ){
    crc = (crc >> 1) ^ ((crc & 1) ? 0xA001 : 0 );
  }
}

[implementation]

Zitat von eric_draven:

Code:

void get_crc( unsigned char d )
{
  int i;

  crc ^= d;
  for( i = 8; i; i-- ){
    crc = (crc >> 1) ^ ((crc & 1) ? 0xA001 : 0 );
  }
}

Wenn ich mich nicht irre:

Delphi-Quellcode:

procedure get_crc(d: char);
var i: integer;
begin
  crc := crc xor d;
  for i := 8 downto 1 do
    if (crc and 1)<>0 then
      crc := (crc shr 1) xor $A001
    else crc := crc shr 1;
end;

//Edit: Peinlicher Fehler korrigiert

//Edit2: Erklärung
crc ^= d ist Kurzform für crc = crc ^ d , also XOR.
for( i = 8; i; i-- ) Teil 1+3 dürften klar sein, der mittlere Teil ist impliziter Cast in bool, ergo 0=false, sonst true.
crc = (crc >> 1) ^ ((crc & 1) ? 0xA001 : 0 ); Der Pfeil steht für ein Bitshift, das & für ein AND und die ?:-Schreibweise ist eine Inline-Bedingung. Auch hier wieder impliziter bool-Cast.

//Edit3: Man hätte den Code aber auch kürzer kriegen können:

Code:

void get_crc( unsigned char d )
{
  crc ^= d;
  for(int i = 8; i; i--)
    crc = (crc >> 1) ^ ((crc & 1) ? 0xA001 : 0 );
}

Klammern und Int-Zeile gespart.

[Aphton]

Code:

void get_crc( unsigned char d )
{
  int i;

  crc ^= d;
  for( i = 8; i; i-- ){
    crc = (crc >> 1) ^ ((crc & 1) ? 0xA001 : 0 );
  }
}

Delphi-Quellcode:

procedure get_crc(d: DWord);
var
  i: Integer;
const
  v: Array[Boolean] of Word = (0; $A001);
begin
  crc := crc xor d;
  for i := 8 downto 1 do
    crc := (crc shr 1) xor v[(crc and 1)];
end;

[eric_draven]

Klasse !
Danke für Eure Blitzantworten
Nun brauche ich das Ganze noch in asm für Atmel's, aber das bekomme ich hin. C ist leider nicht meine Stärke

[isilive]

Delphi-Quellcode:

const
  v: Array[Boolean] of Word = (0; $A001);
begin
  ...
  crc := (crc shr 1) xor v[(crc and 1)];
end;

Abgefahren

[himitsu]

Delphi-Quellcode:

const
  v: Array[Boolean] of Word = (0, $A001); // mit Komma, nicht daß sich wer beschwert es funktioniere nicht.
begin
  ...
  crc := (crc shr 1) xor v[crc and 1 <> 0];  // <>0 , denn Delphi gibt es keine automatische Ordinal-Boolean-Konvertierung
  crc := (crc shr 1) xor IfThen(crc and 1 <> 0, 0xA001, 0);
  crc := (crc shr 1) xor IfThen(Odd(crc), 0xA001, 0);
end;

Eine syntaktisch korrekte Übersetzung gibt es leider nicht. (schade eigentlich), aber am Nächsten würde doch wohl IfThen kommen.
Leider ist IfThen nur eine billige Funktion und keine so schöne native Operation, was einige Nachteile mit sich bringt.
- Funktionsaufrufe (Codesprünge)
- alle Parameter werden erst ausgewertet (in C wird nur der verwendete "Parameter" ausgewertet)

Also hier wäre, von der Ausführungsgeschwindigkeit her, das BoolArray natürlich besser.

[Neutral General]

*Unsinn*

[Aphton]

@Himitsu
Danke schön. Habe auf Schönheitsfehler nicht geachtet und einfach darauf losgetippt ^_^

Aber so in etwas sollte das gehen.
Btw ein einfaches casten auf Boolean hätte ja auch geholfen, denn alles was <> 0 ist, ist true!
  crc := (crc shr 1) xor v[Boolean(crc and 1)]; (oder nicht?)

[DeddyH]

crc := (crc shr 1) xor v[Odd(crc)];

[himitsu]

Zitat von Aphton:

Btw ein einfaches casten auf Boolean hätte ja auch geholfen, denn alles was <> 0 ist, ist true!

Da mußt du immer etwas aufpassen.

crc ist 32 Bit und Boolean nur 8 Bit.
Falls Delphi hier keine Compilermagic versteckt hat, welche das Boolean logisch castet, anstatt es binär zu casten,
dann könnte es eventuell Probleme mit sowas geben, denn LongBool($FFFFFF00) <> Boolean($FFFFFF00) .
Aber zum Glück gibt es hier noch das and 1 , so daß in diesem Fall am Ende die oberen Bytes eh wegfallen.