File : ints.ads

package Ints is

  function IMin(I1,I2: Integer) return Integer renames Integer'Min;
  function IMax(I1,I2: Integer) return Integer renames Integer'Max;
  function IMin(I1,I2,I3: Integer) return Integer;
  function IMax(I1,I2,I3: Integer) return Integer;
  function Int(B: Boolean) return Integer;

  pragma Inline (IMin,IMax);

end Ints;