OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_ch8.adb (Find_Type): If node is a reference to 'Base and the prefix is not a scalar type... 

* sem_ch8.adb (Find_Type): If node is a reference to 'Base and the
	prefix is not a scalar type, place error message on prefix, not on
	type entity.

From-SVN: r91894
This commit is contained in:
Arnaud Charlet 2004-12-08 12:48:53 +01:00
parent e2d6a9e577
commit bc41faa231
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
gcc/ada/sem_ch8.adb
View File

@ -471,7 +471,7 @@ package body Sem_Ch8 is
-- to one of these types. -- to one of these types.
procedure Premature_Usage (N : Node_Id); procedure Premature_Usage (N : Node_Id);
-- Diagnose usage of an entity before it is visible. -- Diagnose usage of an entity before it is visible
procedure Use_One_Package (P : Entity_Id; N : Node_Id); procedure Use_One_Package (P : Entity_Id; N : Node_Id);
-- Make visible entities declared in package P potentially use-visible -- Make visible entities declared in package P potentially use-visible
@ -754,7 +754,7 @@ package body Sem_Ch8 is
and then Is_Function_Attribute_Name and then Is_Function_Attribute_Name
(Attribute_Name (Original_Node (Nam)))) (Attribute_Name (Original_Node (Nam))))
-- Weird but legal, equivalent to renaming a function call. -- Weird but legal, equivalent to renaming a function call
or else (Is_Entity_Name (Nam) or else (Is_Entity_Name (Nam)
and then Ekind (Entity (Nam)) = E_Enumeration_Literal) and then Ekind (Entity (Nam)) = E_Enumeration_Literal)
@ -842,7 +842,7 @@ package body Sem_Ch8 is
Name (N), Old_P); Name (N), Old_P);
end if; end if;
-- Set basic attributes to minimize cascaded errors. -- Set basic attributes to minimize cascaded errors
Set_Ekind (New_P, E_Package); Set_Ekind (New_P, E_Package);
Set_Etype (New_P, Standard_Void_Type); Set_Etype (New_P, Standard_Void_Type);
@ -1016,7 +1016,7 @@ package body Sem_Ch8 is
begin begin
if Entity (Sel) = Any_Id then if Entity (Sel) = Any_Id then
-- Selector is undefined on prefix. Error emitted already. -- Selector is undefined on prefix. Error emitted already
Set_Has_Completion (New_S); Set_Has_Completion (New_S);
return; return;
@ -1142,7 +1142,7 @@ package body Sem_Ch8 is
if Orig_Subp = Rename_Spec then if Orig_Subp = Rename_Spec then
-- Circularity detected. -- Circularity detected
return Orig_Subp; return Orig_Subp;
@ -1587,7 +1587,7 @@ package body Sem_Ch8 is
Error_Msg_N ("use clause not allowed in predefined spec", N); Error_Msg_N ("use clause not allowed in predefined spec", N);
end if; end if;
-- Chain clause to list of use clauses in current scope. -- Chain clause to list of use clauses in current scope
if Nkind (Parent (N)) /= N_Compilation_Unit then if Nkind (Parent (N)) /= N_Compilation_Unit then
Chain_Use_Clause (N); Chain_Use_Clause (N);
@ -1669,7 +1669,7 @@ package body Sem_Ch8 is
begin begin
Set_Hidden_By_Use_Clause (N, No_Elist); Set_Hidden_By_Use_Clause (N, No_Elist);
-- Chain clause to list of use clauses in current scope. -- Chain clause to list of use clauses in current scope
if Nkind (Parent (N)) /= N_Compilation_Unit then if Nkind (Parent (N)) /= N_Compilation_Unit then
Chain_Use_Clause (N); Chain_Use_Clause (N);
@ -2012,7 +2012,7 @@ package body Sem_Ch8 is
then then
Par := Nam; Par := Nam;
-- Find root library unit in with_clause. -- Find root library unit in with_clause
while Nkind (Par) = N_Expanded_Name loop while Nkind (Par) = N_Expanded_Name loop
Par := Prefix (Par); Par := Prefix (Par);
@ -2415,7 +2415,7 @@ package body Sem_Ch8 is
Msg : Boolean; Msg : Boolean;
Inst : Entity_Id := Empty; Inst : Entity_Id := Empty;
-- Enclosing instance, if any. -- Enclosing instance, if any
Homonyms : Entity_Id; Homonyms : Entity_Id;
-- Saves start of homonym chain -- Saves start of homonym chain
@ -3023,7 +3023,7 @@ package body Sem_Ch8 is
-- V2 : Integer := B; -- V2 : Integer := B;
-- end C; -- end C;
-- V1 resolves to A.B, but V2 resolves to library unit B. -- V1 resolves to A.B, but V2 resolves to library unit B
elsif Ekind (E2) = E_Function elsif Ekind (E2) = E_Function
and then Scope (E2) = Standard_Standard and then Scope (E2) = Standard_Standard
@ -3061,7 +3061,7 @@ package body Sem_Ch8 is
if In_Instance then if In_Instance then
Inst := Current_Scope; Inst := Current_Scope;
-- Find current instance. -- Find current instance
while Present (Inst) while Present (Inst)
and then Inst /= Standard_Standard and then Inst /= Standard_Standard
@ -3199,7 +3199,7 @@ package body Sem_Ch8 is
then then
Collect_Interps (N); Collect_Interps (N);
-- If no homonyms were visible, the entity is unambiguous. -- If no homonyms were visible, the entity is unambiguous
if not Is_Overloaded (N) then if not Is_Overloaded (N) then
Generate_Reference (E, N); Generate_Reference (E, N);
@ -3227,7 +3227,7 @@ package body Sem_Ch8 is
Set_Referenced (E, R); Set_Referenced (E, R);
end; end;
-- Normal case, not a label. Generate reference. -- Normal case, not a label. Generate reference
else else
Generate_Reference (E, N); Generate_Reference (E, N);
@ -3357,16 +3357,15 @@ package body Sem_Ch8 is
-- the formals, which is declared in the enclosing wrapper package. -- the formals, which is declared in the enclosing wrapper package.
P_Name := Scope (P_Name); P_Name := Scope (P_Name);
Id := Current_Entity (Selector);
Id := Current_Entity (Selector);
while Present (Id) loop while Present (Id) loop
exit when Scope (Id) = P_Name; exit when Scope (Id) = P_Name;
Id := Homonym (Id); Id := Homonym (Id);
end loop; end loop;
end if; end if;
if No (Id) or else Chars (Id) /= Chars (Selector) then if No (Id) or else Chars (Id) /= Chars (Selector) then
Set_Etype (N, Any_Type); Set_Etype (N, Any_Type);
-- If we are looking for an entity defined in System, try to -- If we are looking for an entity defined in System, try to
@ -3488,7 +3487,7 @@ package body Sem_Ch8 is
Error_Msg_NE ("& not declared in&", N, Selector); Error_Msg_NE ("& not declared in&", N, Selector);
-- Check for misspelling of some entity in prefix. -- Check for misspelling of some entity in prefix
Id := First_Entity (P_Name); Id := First_Entity (P_Name);
Get_Name_String (Chars (Selector)); Get_Name_String (Chars (Selector));
@ -4102,7 +4101,7 @@ package body Sem_Ch8 is
if Is_Overloaded (P) then if Is_Overloaded (P) then
-- The prefix must resolve to a unique enclosing construct. -- The prefix must resolve to a unique enclosing construct
declare declare
Found : Boolean := False; Found : Boolean := False;
@ -4345,7 +4344,8 @@ package body Sem_Ch8 is
and then not Is_Generic_Type (Typ) and then not Is_Generic_Type (Typ)
then then
Error_Msg_N Error_Msg_N
("prefix of Base attribute must be scalar type", Typ); ("prefix of Base attribute must be scalar type",
Prefix (N));
elsif Sloc (Typ) = Standard_Location elsif Sloc (Typ) = Standard_Location
and then Base_Type (Typ) = Typ and then Base_Type (Typ) = Typ
@ -4637,7 +4637,7 @@ package body Sem_Ch8 is
Next_Entity (Id); Next_Entity (Id);
end loop; end loop;
-- Equality: look for any non-limited type. Result is Boolean. -- Equality: look for any non-limited type (result is Boolean)
when Name_Op_Eq | Name_Op_Ne => when Name_Op_Eq | Name_Op_Ne =>
@ -4654,7 +4654,7 @@ package body Sem_Ch8 is
Next_Entity (Id); Next_Entity (Id);
end loop; end loop;
-- Comparison operators: scalar type, or array of scalar. -- Comparison operators: scalar type, or array of scalar
when Name_Op_Lt | Name_Op_Le | Name_Op_Gt | Name_Op_Ge => when Name_Op_Lt | Name_Op_Le | Name_Op_Gt | Name_Op_Ge =>
@ -5160,7 +5160,7 @@ package body Sem_Ch8 is
-- Start of processing for Present_System_Aux -- Start of processing for Present_System_Aux
begin begin
-- The child unit may have been loaded and analyzed already. -- The child unit may have been loaded and analyzed already
if Present (System_Aux_Id) then if Present (System_Aux_Id) then
return True; return True;
@ -5278,7 +5278,7 @@ package body Sem_Ch8 is
SS_Last : constant Int := Scope_Stack.Last; SS_Last : constant Int := Scope_Stack.Last;
begin begin
-- Restore visibility of previous scope stack, if any. -- Restore visibility of previous scope stack, if any
for J in reverse 0 .. Scope_Stack.Last loop for J in reverse 0 .. Scope_Stack.Last loop
exit when Scope_Stack.Table (J).Entity = Standard_Standard exit when Scope_Stack.Table (J).Entity = Standard_Standard
@ -5488,7 +5488,7 @@ package body Sem_Ch8 is
Error_Msg_N ("limited withed package cannot appear in use clause", N); Error_Msg_N ("limited withed package cannot appear in use clause", N);
end if; end if;
-- Find enclosing instance, if any. -- Find enclosing instance, if any
if In_Instance then if In_Instance then
Current_Instance := Current_Scope; Current_Instance := Current_Scope;
@ -5597,7 +5597,7 @@ package body Sem_Ch8 is
Prev := Homonym (Prev); Prev := Homonym (Prev);
end loop; end loop;
-- On exit, we know entity is not hidden, unless it is private. -- On exit, we know entity is not hidden, unless it is private
if not Is_Hidden (Id) if not Is_Hidden (Id)
and then ((not Is_Child_Unit (Id)) and then ((not Is_Child_Unit (Id))