From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-65-14.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00,T_SCC_BODY_TEXT_LINE
	autolearn=ham autolearn_force=no version=3.4.6
Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!aioe.org!siG8trSPtxwtkBCOZpBn8A.user.46.165.242.91.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Newsgroups: comp.lang.ada
Subject: Re: overloading predefined operators
Date: Fri, 24 Jun 2022 10:23:48 +0200
Organization: Aioe.org NNTP Server
Message-ID: <t93sak$10r4$1@gioia.aioe.org>
References: <1fabca7a-e3f0-41bb-9b51-9eabde85e800n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Info: gioia.aioe.org; logging-data="33636"; posting-host="siG8trSPtxwtkBCOZpBn8A.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:91.0) Gecko/20100101
 Thunderbird/91.10.0
X-Notice: Filtered by postfilter v. 0.9.2
Content-Language: en-US
Xref: reader02.eternal-september.org comp.lang.ada:64026
List-Id: <comp.lang.ada>

On 2022-06-24 10:10, L. B. wrote:
> I have a question regarding redefining of operators like "=". My dummy code is:
> 
> type my_float is new float;
> 
> -- This overloads the predefined equality operation:
> function "=" (left, right : in my_float) return boolean is begin
>   ....
> end "="
> 
> a, b : my_float;
> 
> a := 0.01
> b := 0.009;
> 
> -- This test uses the overloading equality test:
> if a = b then -- uses the new "="
>   null;
> end if;
> 
> -- For some reasons I still need access to the overloaded original "=" function:
> if a = b then -- shall use the original "="
>   null;
> end if;
> 
> What can I do ?

Rename the inherited operation before killing it:

    type M_Float is new Float;
    function Equal (Left, Right : M_Float) return Boolean renames "=";
    function "=" (Left, Right : M_Float) return Boolean;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de