Re: Little Endian -> Big Endian (Ada95 / GNAT)

[Guillaume Foliard <guifo@wanadoo.fr>]

Hi,

On a x86 with GNAT, a slightly modified version would look like :

with Interfaces;
with System.Machine_Code; use System.Machine_Code;

function To_Big_Endian
  (N : Interfaces.Unsigned_32) return Interfaces.Unsigned_32 is
      Result : Integer;
begin
      Asm ("bswap %0",
           Inputs  => Integer'Asm_Input ("a", N),
           Outputs => Integer'Asm_Output ("=a", Result));
      return Result;
end To_Big_Endian;