Re: Truncating a fixed-point value

["Jeffrey R. Carter" <spam.jrcarter.not@spam.acm.org>]

On 07/09/2010 01:39 PM, Gene wrote:
>
> An ugly approach is to convert to e.g. a long float, take the floor,
> and convert back.  No doubt others will have something more elegant.

That's the approach I use, though, in the interest of portability, I declare my 
own floating-point type for the purpose:

function Floor (Value : in Fixed) return Integer is
    type Big is digits System.Max_Digits;
begin -- Floor
    return Integer (Big'Floor (Big (Value) ) );
end Floor;

-- 
Jeff Carter
"It's symbolic of his struggle against reality."
Monty Python's Life of Brian
78