[Ada] Fix minor comment issues

2018-01-11  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* sem_ch13.adb (Build_Predicate_Functions): Fix minor issues in
	comment.

From-SVN: r256482

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c1697e34a0e8e3febdfe5faf14a164ca64143fb6..88e6ed58c77e478aa793d512569ab3bf6bc1ced3 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-01-11  Piotr Trojanek  <trojanek@adacore.com>
+
+       * sem_ch13.adb (Build_Predicate_Functions): Fix minor issues in
+       comment.
+
 2018-01-11  Arnaud Charlet  <charlet@adacore.com>
 
        * einfo.ads, einfo.adb (Activation_Record_Component,

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index d2533b01f7eb7e2116353abc589983783d3bf7ae..dd001971dd12d97d1402cb70be8d3b1b125f1cf5 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -8359,15 +8359,15 @@ package body Sem_Ch13 is
    -- Build_Predicate_Functions --
    -------------------------------
 
-   --  The procedures that are constructed here have the form:
+   --  The functions that are constructed here have the form:
 
    --    function typPredicate (Ixxx : typ) return Boolean is
    --    begin
    --       return
    --          typ1Predicate (typ1 (Ixxx))
    --          and then typ2Predicate (typ2 (Ixxx))
-   --          and then ...;
-   --          exp1 and then exp2 and then ...
+   --          and then ...
+   --          and then exp1 and then exp2 and then ...;
    --    end typPredicate;
 
    --  Here exp1, and exp2 are expressions from Predicate pragmas. Note that