Code cleanup.
gcc/ada/
* contracts.adb (Inherit_Subprogram_Contract): Fix style.
* sem_ch5.adb (Analyze_Iterator_Specification): Likewise.
end if;
end Inherit_Pragma;
- -- Start of processing for Inherit_Subprogram_Contract
+ -- Start of processing for Inherit_Subprogram_Contract
begin
-- Inheritance is carried out only when both entities are subprograms
return Etype (Ent);
end Get_Cursor_Type;
- -- Start of processing for Analyze_Iterator_Specification
+ -- Start of processing for Analyze_Iterator_Specification
begin
Enter_Name (Def_Id);