From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 11 Jan 2018 08:50:12 +0000 (+0000)
Subject: [Ada] Fix minor comment issues
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=593e3172343967753c81fb85013b3f769679c9e2;p=gcc.git

[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 c1697e34a0e..88e6ed58c77 100644
--- 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 d2533b01f7e..dd001971dd1 100644
--- 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