From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 4 Apr 2017 06:33:33 +0000 (+0000)
Subject: * sem_ch3.adb (Build_Derived_Record_Type): Fix long line.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4c43930609b955f3ee3c4aec107231e4470633ac;p=gcc.git

* sem_ch3.adb (Build_Derived_Record_Type): Fix long line.

From-SVN: r246670
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 127a181431f..6b0ae2d4d06 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2017-04-04  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* sem_ch3.adb (Build_Derived_Record_Type): Fix long line.
+
 2017-04-03  Jonathan Wakely  <jwakely@redhat.com>
 
 	* doc/gnat_ugn/gnat_and_program_execution.rst: Fix typo.
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index de3a49e2910..7c3f7e601c0 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -8706,7 +8706,7 @@ package body Sem_Ch3 is
 
                --  However, if the record contains an array constrained by
                --  the discriminant but with some different bound, the compiler
-               --  attempts to create a smaller range for the discriminant type.
+               --  tries to create a smaller range for the discriminant type.
                --  (See exp_ch3.Adjust_Discriminants). In this case, where
                --  the discriminant type is a scalar type, the check must use
                --  the original discriminant type in the parent declaration.