Da fehlt ein #IF zum #ENDIF
Und ja, da war jemand bissl wirr im Kopf und hat die "selbe" Endianess-Konvertierung auf zwei Weisen umgesetzt.
Delphi-Quellcode:
procedure gds(var i: LongInt); inline;
begin
// swap required
i := ByteSwap(i); // sowas ähnliches, wie System.Swap
// ......
// other action
i := ByteSwap(i);
end;
OHNE das "Heimliche" in den ... hebt sich das Gegenseitig auf und es kommt nix bei raus
Delphi-Quellcode:
procedure gds(var i: LongInt); inline;
begin
//i := ByteSwap(i);
//i := ByteSwap(i);
end;