Re: Way to use Ada Mod function on floats?

["Randy Brukardt" <randy@rrsoftware.com>]

"Gautier" <gautier@fakeaddress.nil> wrote in message
news:4571ac78_6@news.bluewin.ch...
> Stephen Leake:
>
> > SAL (http://stephe-leake.org/ada/sal.html) has:
> >
> >    function Modulo (Dividend, Divisor : in Real_Type) return Real_Type
> >    is
> >       --  match names in Ada LRM 4.5.5
> >
> >       A : Real_Type renames Dividend;
> >       B : Real_Type renames Divisor;
> >       N : constant Integer := Integer (Real_Type'Floor (A / B));
> >    begin
> >       return A - B * Real_Type (N);
> >    end Modulo;
>
> Out of curiosity, what is the need of converting Real_Type'Floor (A / B)
to an
> Integer and back to a Real_Type ?

He just wanted to get Constraint_Error sometimes (esp. on Janus/Ada, where
Integer is 16 bits!). ;-)

                             Randy.