From: Arnaud Charlet Date: Wed, 29 Apr 2009 09:45:57 +0000 (+0200) Subject: [multiple changes] X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=349ff68f06634c5974db48c37929b53e06f857fd;p=gcc.git [multiple changes] 2009-04-29 Thomas Quinot * sem_ch12.adb: Minor reformatting * sem_aggr.adb: Minor reformatting * sem_ch6.adb, sem_cat.ads: Minor reformatting * sem_ch10.adb, gnat1drv.adb, prj-nmsc.adb: Minor reformatting 2009-04-29 Quentin Ochem * prj.ads (Source_Id): Now general pointer type. From-SVN: r146938 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 29f8ea92821..43a1075c656 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,17 @@ +2009-04-29 Thomas Quinot + + * sem_ch12.adb: Minor reformatting + + * sem_aggr.adb: Minor reformatting + + * sem_ch6.adb, sem_cat.ads: Minor reformatting + + * sem_ch10.adb, gnat1drv.adb, prj-nmsc.adb: Minor reformatting + +2009-04-29 Quentin Ochem + + * prj.ads (Source_Id): Now general pointer type. + 2009-04-29 Thomas Quinot * exp_ch7.adb, rtsfind.adb: Minor reformatting diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index f8fb53ab9a1..4dec895d1bc 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -512,7 +512,7 @@ begin -- If we have a corresponding spec, and it comes from source -- or it is not a generated spec for a child subprogram body, - -- then we need object code for the spec unit as well + -- then we need object code for the spec unit as well. if Nkind (Unit (Main_Unit_Node)) in N_Unit_Body and then not Acts_As_Spec (Main_Unit_Node) diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 372f950a9b6..9c1aea0c0aa 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -256,8 +256,8 @@ package body Prj.Nmsc is function Suffix_Matches (Filename : String; Suffix : File_Name_Type) return Boolean; - -- True if the filename ends with the given suffix. It always returns False - -- if Suffix is No_Name + -- True if the file name ends with the given suffix. Always returns False + -- if Suffix is No_Name. procedure Replace_Into_Name_Buffer (Str : String; @@ -7290,7 +7290,7 @@ package body Prj.Nmsc is -- Returns True if the file belongs to the current language and we -- should stop searching for matching languages. Not that a given header -- file could belong to several languages (C and C++ for instance). Thus - -- if we found a header we'll check whether it matches other languages + -- if we found a header we'll check whether it matches other languages. --------------------------- -- Check_File_Based_Lang -- diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index a0ccdbecd14..26bf2da3b16 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -398,7 +398,7 @@ package Prj is Body_Suffix => No_File); type Source_Data; - type Source_Id is access Source_Data; + type Source_Id is access all Source_Data; No_Source : constant Source_Id := null; diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 86c74cf6535..40f15aec019 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -3116,7 +3116,7 @@ package body Sem_Aggr is -- Now collect components from all other ancestors, beginning -- with the current type. If the type has unknown discriminants - -- use the component list of the underlying_record_view, which + -- use the component list of the Underlying_Record_View, which -- needs to be used for the subsequent expansion of the aggregate -- into assignments. diff --git a/gcc/ada/sem_cat.ads b/gcc/ada/sem_cat.ads index c86bb3c0cc1..cc667aad123 100644 --- a/gcc/ada/sem_cat.ads +++ b/gcc/ada/sem_cat.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -113,9 +113,8 @@ package Sem_Cat is -- Apply semantic checks given in E2.3(10-14) procedure Validate_RCI_Subprogram_Declaration (N : Node_Id); - -- Check for RCI unit subprogram declarations with respect to - -- in-lined subprogram and subprogram with access parameter or - -- limited type parameter without Read and Write. + -- Check RCI subprogram declarations for illegal inlining and formals not + -- supporting external streaming. procedure Validate_Remote_Access_To_Class_Wide_Type (N : Node_Id); -- Checks that Storage_Pool and Storage_Size attribute references are diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 82b221f1a21..8882713a852 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -734,7 +734,7 @@ package body Sem_Ch10 is -- in its scope. Finally we create a Units table entry for -- the subprogram declaration, to maintain a one-to-one -- correspondence with compilation unit nodes. This is - -- critical for the tree traversals performed by Inspector. + -- critical for the tree traversals performed by Codepeer. declare Loc : constant Source_Ptr := Sloc (N); diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 149117088d5..e56a0f3b796 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -11878,6 +11878,7 @@ package body Sem_Ch12 is procedure Save_References (N : Node_Id) is Loc : constant Source_Ptr := Sloc (N); + begin if N = Empty then null; diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 569800c3b6d..c44a48b5696 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -2618,8 +2618,8 @@ package body Sem_Ch6 is -- Start of processing for Analyze_Subprogram_Declaration begin - -- For a null procedure. capture the profile before analysis, for - -- expansion at the freeze point, and at each point of call. + -- For a null procedure, capture the profile before analysis, for + -- expansion at the freeze point and at each point of call. -- The body will only be used if the procedure has preconditions. -- In that case the body is analyzed at the freeze point. @@ -2631,7 +2631,8 @@ package body Sem_Ch6 is Make_Subprogram_Body (Loc, Specification => New_Copy_Tree (Specification (N)), - Declarations => New_List, + Declarations => + New_List, Handled_Statement_Sequence => Make_Handled_Sequence_Of_Statements (Loc, Statements => New_List (Make_Null_Statement (Loc)))); @@ -4424,10 +4425,10 @@ package body Sem_Ch6 is then Set_Is_Overriding_Operation (Subp); - -- If style checks are enabled, indicate that the indicator - -- is missing. However, at the point of declaration, the type - -- of which this is a primitive operation may be private, in - -- which case the indicator would be premature. + -- If style checks are enabled, indicate that the indicator is + -- missing. However, at the point of declaration, the type of + -- which this is a primitive operation may be private, in which + -- case the indicator would be premature. if Has_Private_Declaration (Etype (Subp)) or else Has_Private_Declaration (Etype (First_Formal (Subp)))