From 4c43930609b955f3ee3c4aec107231e4470633ac Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 4 Apr 2017 06:33:33 +0000 Subject: [PATCH] * sem_ch3.adb (Build_Derived_Record_Type): Fix long line. From-SVN: r246670 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_ch3.adb | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * sem_ch3.adb (Build_Derived_Record_Type): Fix long line. + 2017-04-03 Jonathan Wakely * 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.