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

[Ada] Minor: improve comments

Browse Source 
2019-12-16  Bob Duff  <duff@adacore.com>

gcc/ada/

	* errout.adb, errout.ads: Improve comments.

From-SVN: r279440
This commit is contained in:
Bob Duff 2019-12-16 10:35:24 +00:00 committed by Pierre-Marie de Rodat
parent 9aaea2cc4b
commit 495cdc79fb
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2019-12-16 Bob Duff <duff@adacore.com>
* errout.adb, errout.ads: Improve comments.
2019-12-16 Bob Duff <duff@adacore.com> 2019-12-16 Bob Duff <duff@adacore.com>
* sem_util.ads: Minor comment fix. * sem_util.ads: Minor comment fix.

3
gcc/ada/errout.adb
View File

@ -1716,9 +1716,12 @@ package body Errout is
function Is_Size_Too_Small_Message (S : String) return Boolean is function Is_Size_Too_Small_Message (S : String) return Boolean is
Size_For : constant String := "size for"; Size_For : constant String := "size for";
pragma Assert (Size_Too_Small_Message (1 .. Size_For'Last) = Size_For);
-- Assert that Size_Too_Small_Message starts with Size_For
begin begin
return S'Length >= Size_For'Length return S'Length >= Size_For'Length
and then S (S'First .. S'First + Size_For'Length - 1) = Size_For; and then S (S'First .. S'First + Size_For'Length - 1) = Size_For;
-- True if S starts with Size_For
end Is_Size_Too_Small_Message; end Is_Size_Too_Small_Message;
----------------- -----------------

7
gcc/ada/errout.ads
View File

@ -957,8 +957,9 @@ package Errout is
function Is_Size_Too_Small_Message (S : String) return Boolean; function Is_Size_Too_Small_Message (S : String) return Boolean;
Size_Too_Small_Message : constant String := Size_Too_Small_Message : constant String :=
"size for& too small, minimum allowed is ^"; "size for& too small, minimum allowed is ^";
-- This message is explicitly tested in Special_Msg_Delete in the package -- This message is printed in Freeze and Sem_Ch13. We also test for it in
-- body, which is somewhat questionable, but at least by using a constant -- the body of this package (see Special_Msg_Delete) ???which is somewhat
-- we are obeying the DRY principle. -- questionable. The Is_Size_Too_Small_Message function tests for it by
-- testing a prefix. The function and constant should be kept in synch.
end Errout; end Errout;