[Ada] Fix ineffective -gnatyN for separate compilation units
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 17 Sep 2019 08:02:46 +0000 (08:02 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Tue, 17 Sep 2019 08:02:46 +0000 (08:02 +0000)
commit1e0a3cc4ca87b57b2a9b8a02ff20bacdce6146a3
tree039f8d96bb9784456ead1cd055ec292e85f65287
parent7afbd9419f78de69a9bbbd90ad10e38f4ed77d65
[Ada] Fix ineffective -gnatyN for separate compilation units

This fixes a recent regression introduced in the machinery giving style
warnings: the -gnatyN switch no longer cancels an earlier -gnaty switch
for separate compilation units.

Running this command:

  gcc -c slib.adb -gnatyaAbcefhiIklmM25OnprStux -gnatyN

On the following sources:

package Slib is
   procedure I_Am_Short;
end Slib;

with Ada.Text_IO; use Ada.Text_IO;

package body Slib is
   --  have a long line here as well.
   procedure                I_Am_Short is               separate;
end Slib;

separate (Slib)

procedure I_Am_Short is
begin
    Put_Line (".......................................................");
end I_Am_Short;

Should execute silently.

2019-09-17  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* sem.adb (Do_Analyze): Save Style_Check_Max_Line_Length on
entry and restore it on exit instead of recomputing it.

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