[Ada] Fix bogus style check failure with pragma Style_Checks (Off)
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 13 Aug 2019 08:08:06 +0000 (08:08 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Tue, 13 Aug 2019 08:08:06 +0000 (08:08 +0000)
commit063907abadf6ee9ffe4d60d4b61eb8a144aa29f7
tree59f7a55c0df4697a2efa66456ba5c493f44066b4
parentaa1b718b769c34f35c66ed11e516a350fc51d547
[Ada] Fix bogus style check failure with pragma Style_Checks (Off)

This fixes a bogus style check failure for long lines in rare cases
where the compiler is invoked, with a -gnatyX switch where X is neither
'm' nor 'M', on a unit which contains "with" clauses for other units
that contain a pragma Style_Checks (Off).

2019-08-13  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* sem.adb (Do_Analyze): Recompute Style_Check_Max_Line_Length
after restoring Style_Max_Line_Length.

From-SVN: r274352
gcc/ada/ChangeLog
gcc/ada/sem.adb