From: Bob Duff Date: Fri, 16 Oct 2015 10:50:42 +0000 (+0000) Subject: sem_util.ads, [...]: Minor comment fixes. X-Git-Tag: basepoints/gcc-7~3934 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1bc619ef941fca4db7469d425bb09b4abcf1f3b4;p=thirdparty%2Fgcc.git sem_util.ads, [...]: Minor comment fixes. 2015-10-16 Bob Duff * sem_util.ads, sinput.ads, bcheck.adb: Minor comment fixes. From-SVN: r228868 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 746c8396661a..b36b8de4683e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2015-10-16 Bob Duff + + * sem_util.ads, sinput.ads, bcheck.adb: Minor comment fixes. + 2015-10-16 Javier Miranda * inline.adb (Add_Inlined_Body): Ensure that diff --git a/gcc/ada/bcheck.adb b/gcc/ada/bcheck.adb index 172e1300377d..2cae84024751 100644 --- a/gcc/ada/bcheck.adb +++ b/gcc/ada/bcheck.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -639,9 +639,9 @@ package body Bcheck is -- Check_Consistent_Normalize_Scalars -- ---------------------------------------- - -- The rule is that if any unit is compiled with Normalized_Scalars, + -- The rule is that if any unit is compiled with Normalize_Scalars, -- then all other units in the partition must also be compiled with - -- Normalized_Scalars in effect. + -- Normalize_Scalars in effect. -- There is some issue as to whether this consistency check is desirable, -- it is certainly required at the moment by the RM. We should keep a watch diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 28f0b34f2f6a..0ea54daa369e 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -823,7 +823,7 @@ package Sem_Util is -- returned. Otherwise the Etype of the node is returned. function Get_Body_From_Stub (N : Node_Id) return Node_Id; - -- Return the body node for a stub + -- Return the body node for a stub. function Get_Cursor_Type (Aspect : Node_Id; @@ -1325,7 +1325,7 @@ package Sem_Util is function Is_Fully_Initialized_Type (Typ : Entity_Id) return Boolean; -- Typ is a type entity. This function returns true if this type is fully -- initialized, meaning that an object of the type is fully initialized. - -- Note that initialization resulting from use of pragma Normalized_Scalars + -- Note that initialization resulting from use of pragma Normalize_Scalars -- does not count. Note that this is only used for the purpose of issuing -- warnings for objects that are potentially referenced uninitialized. This -- means that the result returned is not crucial, but should err on the @@ -1400,7 +1400,7 @@ package Sem_Util is -- initialized, meaning that an object of the type is at least partly -- initialized (in particular in the record case, that at least one -- component has an initialization expression). Note that initialization - -- resulting from the use of pragma Normalized_Scalars does not count. + -- resulting from the use of pragma Normalize_Scalars does not count. -- Include_Implicit controls whether implicit initialization of access -- values to null, and of discriminant values, is counted as making the -- type be partially initialized. For the default setting of True, these diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 3d36903bb05c..cc9554252d61 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -431,7 +431,7 @@ package Sinput is Current_Source_File : Source_File_Index := No_Source_File; -- Source_File table index of source file currently being scanned. -- Initialized so that some tools (such as gprbuild) can be built with - -- -gnatVa and pragma Initialized_Scalars without problems. + -- -gnatVa and pragma Initialize_Scalars without problems. Current_Source_Unit : Unit_Number_Type; -- Unit number of source file currently being scanned. The special value