File : bit_arrays-numbers.ads


-- Simple functions for integers:

with Interfaces;

package Bit_arrays.Numbers is

   -- Always Big Endian; Size specifies the number of significant bits in n

   -- Undefined results if n < 0

   function To_bit_array(
      n: Long_long_integer; Size: Positive) return Bit_array;
   function To_bit_array(
      n: Integer; Size: Positive) return Bit_array;

   -- Returns a number:

   function To_number_LE(b: Bit_array) return integer;
   function To_number_BE(b: Bit_array) return integer;

private

   subtype Mod_aux is Interfaces.Unsigned_64;

end Bit_arrays.Numbers;