Funktionen in Assembler unter Delphi 7

[jaenicke]

Das hatte ich ja schon oben geschrieben.

[jbg]

Zitat von jaenicke:

Das hatte ich ja schon oben geschrieben.

Bei deinem LoWord ist ein "FF" zu wenig

[jaenicke]

Zitat von jbg:

Bei deinem LoWord ist ein "FF" zu wenig

Ich weiß, das hatte er ja oben schon selbst geschrieben:

Zitat von kwhk:

Sebastian, ich habe auch Deine Functionen probiert, dabei allerdings bei LoWord das Literal in $FFFF geändert, sonst wird ja nur das LoByte bereitgestellt. Wenn ich in der CPU debugge, sehe ich, daß die Variable ANumber tatsächlich das Register EAX ist. Es sind also immer noch die sehr schnellen 1-Befehl-Functionen, die man mit ASM machen kann, möglich.

Deshalb sah ich keine Notwendigkeit dazu noch einmal etwas zu schreiben.

[Namenloser]

Geht auch komplett ohne Assembler und Bitoperationen (und vermutlich sogar schneller dank inline )

Delphi-Quellcode:

type
  // glaube so einen Datentyp hat Delphi bereits in irgendeiner
  // Unit (vermutlich Windows), weiß aber den Namen nicht.
  TDWord = packed record 
    Lo, Hi: Word;
  end;

function HiWord(Zahl: DWord): Word; inline;
begin
  Result := TDWord(Zahl).Hi;
end;

Function LoWord(Zahl: DWord): Word; inline;
begin
  Result := TDWord(Zahl).Lo;
end;

Hoffe ich hab nicht wieder die Reihenfolge von Lo und Hi vertauscht...