From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,69de43750defd0bb,start
X-Google-Attributes: gid103376,public
From: "Dmitriy Anisimkov" <ts@quadrat.omsk.su>
Subject: Conflict of names
Date: 1998/03/05
Message-ID: <01bd47da$81564840$LocalHost@---->#1/1
X-Deja-AN: 330946756
Organization: Complex Computer Systems
Newsgroups: comp.lang.ada
Date: 1998-03-05T00:00:00+00:00
List-Id: <comp.lang.ada>


with Text_Io;use Text_Io;
procedure Eq is 

   package Long_Equal is
      subtype LLI is Long_Long_Integer;
      function "="(Left,Right : LLi) return Boolean; 
      pragma Inline("=");
   end Long_Equal;   
   package body Long_Equal is
      function "="(Left,Right : Lli) return Boolean is 
      begin
         return Standard."="(Left,Right);
      end;
   end Long_Equal;   
   use Long_Equal;

   Lc : constant LLI :=  16#F_0000_0000#; 
   L : LLi := 0;
begin  
   L := Lc;
   if L=0 then 
-- Which call compiler must made Standard."=" or Long_Equal."="
-- or must generate error ?
-- The GNAT 3-10 for Win32 calls Standard."="
      Put_Line("------");
   end if;
end;


Compare with :

with Text_Io;use Text_Io;
procedure Eq is 

   subtype LLI is Long_Long_Integer;
   function "="(Left,Right : Lli) return Boolean is 
   begin
      Put_Line("--=--");
      return Standard."="(Left,Right);
   end;
   pragma Inline("=");

   Lc : constant LLI :=  16#F_0000_0000#; 
   L : LLi := 0;
begin  
   L := Lc;
   if L=0 then -- calls the function "="(Left,Right : Lli) return Boolean;
      Put_Line("------");
   end if;
end;