Re: no + or - defined for fixed point types in Standard, why ?

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

"Mehdi Saada" <00120260a@gmail.com> wrote in message 
news:3c342468-67da-4973-a318-14e0cf1293fb@googlegroups.com...
> generic
>   type Modele is delta <>;
> package P_Proba1 is
>   type T_Proba is private;
>   function "+" (
>         Un,
>         Deux : in     T_Proba )
>     return T_Proba;
> private
> type T_proba is new MODELE range 0.1..1.0;
> end P_Proba1;
>
> package body P_Proba1 is
> function "+"
>     (Un,
>         Deux : in     T_Proba)
>        return T_Proba is (P_Proba1."+"(UN,Deux));
> end P_Proba1;
>
>> program, you have to prefix by the package name that contains the 
>> operators : My code.
> It causes infinite recursion (dixit compiler), so I didn't understand.

Yup, that calls the operator you just defined, and not the original one. In 
this case, there is no way to get to the original operator of T_Proba; 
you've hidden it with the new one. (This is a common Ada programming mistake 
when defining operators, happens to me all the time.) You have to use some 
other type's "+" operator with type conversions. In this case, you might as 
well use the operators of Modele (which are declared with it at the formal 
type declaration):

T_Proba (Modele (Un) + Modele (Deux));

There's a way to get at the original operator using renames, but it isn't 
worth the headache unless you don't have a similar type that you can convert 
to.

                                   Randy.