Re: Float conversion

[Shark8 <onewingedshark@gmail.com>]

> I don't understand that.  Phil Clayton's example was:

>   if A < B and A < C
>   then
>     Y := A;
>   elsif B < C and B < A
>   then
>     Y := B;
>   else
>     Y := C;
>   end if;

> (Interesting example, by the way!)

This could be written better as:


Function Min( A, B, C : SOME_TYPE ) is
begin
If A < B AND A < C then
   return A;                -- We know A is the smallest valued var
here...
elsif B < C then            -- and in the ELSE case we know that it is
not the smallest value.
                            -- If A is equal to C or B then returning
that value is equivalent to returning A's value.
   return B;
else                        -- We know here that C is the low-valued
parameter.
   return C;
end Min;

You could also add the Pragma 'inline' if you wanted.