Konvertierung von BigEndian-Werten

[himitsu]

Du hattest das 1:Integer ja nur für my.wert:=0; benutzt.
Und da dieses nun weg war, wurde 1:Integer auch nicht mehr benötigt.

[p80286]

Nee da war noch result:=aa.wert; aber egal, auf jeden Fall ein Beispiel, das es viele Wege gibt.

Gruß
K-H

[himitsu]

ganz vergessen

Nicht nur viele Wege ... auch viele Ansichten

Alle meine 4 Funktionen machen ganz genau das Selbe, also wenn man es Speichertechnisch betrachtet.
Nur daß der Quellcode anders aussieht, auch wenn er, wie gesagt, genau das Selbe macht.

[Amateurprofi]

Oder so.
Der Compiler wird sich die richtige Funktion selber suchen.

Delphi-Quellcode:

FUNCTION ChangeEndian(value:Word):Word; overload;
asm
   {$IFDEF CPUX64}
   mov   rax,rcx
   {$ENDIF}
   XCHG  al,ah
end;

FUNCTION ChangeEndian(value:DWord):DWord; overload;
asm
   {$IFDEF CPUX64}
   mov   rax,rcx
   {$ENDIF}
   bswap eax
end;

FUNCTION ChangeEndian(const value:UInt64):UInt64; overload;
asm
   {$IFDEF CPUX64}
   mov   rax,rcx
   bswap rax
   {$ELSE}
   mov edx,[esp+8]
   mov eax,[esp+12]
   bswap eax
   bswap edx
   {$ENDIF}
end;

FUNCTION ChangeEndian(value:SmallInt):SmallInt; overload;
asm
   {$IFDEF CPUX64}
   mov   rax,rcx
   {$ENDIF}
   XCHG  al,ah
end;

FUNCTION ChangeEndian(value:Integer):Integer; overload;
asm
   {$IFDEF CPUX64}
   mov   rax,rcx
   {$ENDIF}
   bswap eax
end;

FUNCTION ChangeEndian(const value:Int64):Int64; overload;
asm
   {$IFDEF CPUX64}
   mov   rax,rcx
   bswap rax
   {$ELSE}
   mov edx,[esp+8]
   mov eax,[esp+12]
   bswap eax
   bswap edx
   {$ENDIF}
end;

[Furtbichler]

Funktioniert der Compilerswitch auch zur Laufzeit?

[Bummi]

welche Anwendung wechselt zu Laufzeit zwischen 32 und 64 Bit-Anwendung?

[Amateurprofi]

Zitat von Furtbichler:

Funktioniert der Compilerswitch auch zur Laufzeit?

Ja, selbstverständlich.