int32_t , int16_t in Delphi, Function nach Delphi übersetzen

[himitsu]

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;