Vorzeichenbehaftete Zahlen und Endianess

[himitsu]

TBytes ist ein gemaagter Typ, und wenn du ohne VAR und OUT arbeitest, wird/kann es in einer Kopie des Arrays weitergearbeitet.

Hier hast nur den Vorteil, dass außer bei Strings das CopyOnWrite seit Jahrzehnten im Arsch ist, drum geht das "zufällig" auch ohne VAR, so lange man kein SetLength benutzt.
Und ich hab schon immer gehofft das wird endlich mal repariert, nach über 20 Jahren. (dank der neuen ManagedRecords kann ich das nun aber selbst bugfixen)


Bei Klassen/Objekten stimmt deine Aussage dennoch.
Dort ist es ein ungemangter Typ (außer im NextGen ala Android und iOS), womit das VAR sich nur auf die Variable bezieht, aber nicht auf den Inahlt des Objekts.

[Benmik]

Zitat von himitsu:

TBytes ist ein gemanagter Typ, und wenn du ohne VAR und OUT arbeitest, wird/kann mit einer Kopie des Arrays weitergearbeitet werden.

Hier hast nur den Vorteil, dass außer bei Strings das CopyOnWrite seit Jahrzehnten im Arsch ist, drum geht das "zufällig" auch ohne VAR, so lange man kein SetLength benutzt.

Ich finde es richtig schlimm, welche Tretminen sich immer wieder bei den scheinbar harmlosesten Sachen finden. OK, Delphi ist für Profis gemacht, aber ich bin sicher, dass ein Haufen Profis viele Tretminen nicht kennen.

Zitat von himitsu:

Swap ist aber auch echt böse, da das CodeInsight dort Integer als Parameter nennt.

Ich habe Swap immer für Word gebraucht, und dann die Hilfe gelesen. 2. und 3. Byte bei Integer? Wird seinen Grund haben, aber was zum Teufel bedeutet das in der Praxis? Das war der Punkt, an dem ich mich um eine hauseigene Lösung bemüht habe. Das geht mir öfter so.

[Uwe Raabe]

Zitat von Benmik:

Ich habe Swap immer für Word gebraucht, und dann die Hilfe gelesen. 2. und 3. Byte bei Integer? Wird seinen Grund haben, aber was zum Teufel bedeutet das in der Praxis?

Swap kommt ja noch aus der 16-Bit Welt, wo Integer eben nur 16-Bit hatten.

Das 2. und 3. Byte bezeichnen in diesem Zusammenhang aber eben die Lo-Bytes. Swap vertauscht in dem Integer die beiden niedrigen Bytes, als wäre es ein Word. Insofern ist das Verhalten schon konsistent. Die Nummerierung der Bytes bezieht sich offenbar auf das verlinkte Beispiel.

Delphi-Quellcode:

var
  X: Integer;
begin
  X := $A0B1C2D3;
  Assert(Swap(X) = $A0B1D3C2);
end;

[Benmik]

Aber das ist doch nicht das, was man will (und erwartet), wenn die vier Byte eines Integers vertauscht werden sollen?!

[Uwe Raabe]

Zitat von Benmik:

Aber das ist doch nicht das, was man will (und erwartet), wenn die vier Byte eines Integers vertauscht werden sollen?!

Das kommt auf die Erwartungshaltung an. Swap tauscht hat früher immer nur zwei Bytes getauscht und tut es auch jetzt noch. Bei vier Bytes ist es ja kein Swap mehr, sondern eine Umsortierung. Man muss das auch immer im Kontext des Hinweises betrachten, der in der Hilfe steht:

Zitat:

Hinweis: Die Prozedur dient lediglich der Abwärtskompatibilität.

[himitsu]

Zitat:

Abwärtskompatibilität.....

Jetzt könnte man sich natürlich fragen, warum es THash.ToBigEndian nicht als Word gibt.
und gerade in THash hätte ich nicht nach sowas gesucht ... eher in den Helpern der ordinalen Typen.


Jupp, wenn ich im CodeInsight das Integer sehe, denkt man zu schnell, dass das Delphi-Swap die Kapselung des Assembler-BSWAP ist und das dreht sowohl bei Word, also auch Integer alle Bytes um, jenachdem was man als Register reingibt. (z.B. AX oder EAX und vielleicht sogar auch RAX)

Aber gerade bei diesen beiden System-Units muß man immer doppelt hinsehn. Auch bei der Compiliermagic zeigt's CodeInsight dort hin, selbst wenn es garnicht dort liegt und da wird es noch schlimmer.

[Benmik]

Da finde ich gerade bei Stackoverflow Folgendes:

Delphi-Quellcode:

function ByteSwap64(Value: Int64): Int64;
asm
{$IF Defined(CPUX86)}
  mov    edx, [ebp+$08]
  mov    eax, [ebp+$0c]
  bswap  edx
  bswap  eax
{$ELSEIF Defined(CPUX64)}
  mov    rax, rcx
  bswap  rax
{$ELSE}
{$Message Fatal 'ByteSwap64 has not been implemented for this architecture.'}
{$ENDIF}
end;

von unserem Freund David Heffernan.
Tatsächlich "rax".