Skip to content

R
riscv-gcc-1
Commit cc0b3bac by Arnaud Charlet
Options

Minor reformatting. 

From-SVN: r247184
parent 457cee0b
Showing with 25 additions and 25 deletions
gcc/ada/exp_atag.adb
......@@ -197,20 +197,21 @@ package body Exp_Atag is
Make_Object_Declaration (Loc,
Defining_Identifier => Obj_TSD,
Constant_Present => True,
Object_Definition => New_Occurrence_Of
(RTE (RE_Type_Specific_Data_Ptr), Loc),
Expression => Build_TSD (Loc, New_Occurrence_Of (Tag_Addr, Loc))),
Object_Definition =>
New_Occurrence_Of (RTE (RE_Type_Specific_Data_Ptr), Loc),
Expression =>
Build_TSD (Loc, New_Occurrence_Of (Tag_Addr, Loc))),
Suppress => All_Checks);
Insert_Action (Related_Nod,
Make_Object_Declaration (Loc,
Defining_Identifier => Typ_TSD,
Constant_Present => True,
Object_Definition => New_Occurrence_Of
(RTE (RE_Type_Specific_Data_Ptr), Loc),
Expression => Build_TSD (Loc,
Unchecked_Convert_To (RTE (RE_Address),
Typ_Tag_Node))),
Object_Definition =>
New_Occurrence_Of (RTE (RE_Type_Specific_Data_Ptr), Loc),
Expression =>
Build_TSD (Loc,
Unchecked_Convert_To (RTE (RE_Address), Typ_Tag_Node))),
Suppress => All_Checks);
Insert_Action (Related_Nod,
......@@ -246,7 +247,7 @@ package body Exp_Atag is
Make_Op_Eq (Loc,
Left_Opnd =>
Make_Indexed_Component (Loc,
Prefix =>
Prefix =>
Make_Selected_Component (Loc,
Prefix => New_Occurrence_Of (Obj_TSD, Loc),
Selector_Name =>
......
gcc/ada/exp_ch4.adb
......@@ -5859,8 +5859,7 @@ package body Exp_Ch4 is
if Tagged_Type_Expansion then
Tagged_Membership (N, SCIL_Node, New_N);
Rewrite (N, New_N);
Analyze_And_Resolve
(N, Restyp, Suppress => All_Checks);
Analyze_And_Resolve (N, Restyp, Suppress => All_Checks);
-- Update decoration of relocated node referenced by the
-- SCIL node.
......
gcc/ada/inline.adb
......@@ -812,7 +812,7 @@ package body Inline is
Next (Item);
end loop;
-- If no suspicious with_clauses, analyze the body.
-- If no suspicious with_clauses, analyze the body
if Is_Inlined (U_Id) then
Semantics (Body_Unit);
......
gcc/ada/sem_ch8.adb
......@@ -1090,8 +1090,8 @@ package body Sem_Ch8 is
("\function & will be called only once?R?", Nam,
Entity (Name (Nam)));
Error_Msg_N -- CODEFIX
("\suggest using an initialized constant "
& "object instead?R?", Nam);
("\suggest using an initialized constant object "
& "instead?R?", Nam);
end if;
end case;
end if;
......@@ -3804,8 +3804,8 @@ package body Sem_Ch8 is
return;
end if;
-- Otherwise, create new list and attach to it the operations that
-- are made use-visible by the clause.
-- Otherwise, create new list and attach to it the operations that are
-- made use-visible by the clause.
Set_Used_Operations (N, New_Elmt_List);
Id := First (Subtype_Marks (N));
......@@ -4606,13 +4606,13 @@ package body Sem_Ch8 is
-- use_type clause.
if Nkind (Id) = N_Defining_Operator_Symbol
and then
(Is_Primitive_Operator_In_Use (Id, First_Formal (Id))
or else
(Present (Next_Formal (First_Formal (Id)))
and then
Is_Primitive_Operator_In_Use
(Id, Next_Formal (First_Formal (Id)))))
and then
(Is_Primitive_Operator_In_Use (Id, First_Formal (Id))
or else
(Present (Next_Formal (First_Formal (Id)))
and then
Is_Primitive_Operator_In_Use
(Id, Next_Formal (First_Formal (Id)))))
then
null;
else
......@@ -9197,8 +9197,8 @@ package body Sem_Ch8 is
elsif From_Limited_With (T) and then From_Limited_With (Scope (T)) then
Error_Msg_N
("incomplete type from limited view "
& "cannot appear in use clause", Id);
("incomplete type from limited view cannot appear in use clause",
Id);
-- If the use clause is redundant, Used_Operations will usually be
-- empty, but we need to set it to empty here in one case: If we are
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment