OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Eric Botcazou 2019-09-17 08:02:46 +00:00 committed by Pierre-Marie de Rodat
parent 7afbd9419f
commit 1e0a3cc4ca
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2019-09-17 Eric Botcazou <ebotcazou@adacore.com>
* sem.adb (Do_Analyze): Save Style_Check_Max_Line_Length on
entry and restore it on exit instead of recomputing it.
2019-09-17 Tom Tromey <tromey@adacore.com>
* exp_dbug.ads: Update character type comment.

5
gcc/ada/sem.adb
View File

@ -1360,7 +1360,8 @@ package body Sem is
-- unconditionally, and has no restore mechanism, because it is
-- intended as a lowest-level Pure package.
Saved_ML : constant Int := Style_Max_Line_Length;
Saved_ML : constant Int := Style_Max_Line_Length;
Saved_CML : constant Boolean := Style_Check_Max_Line_Length;
List : Elist_Id;
@ -1395,7 +1396,7 @@ package body Sem is
Restore_Scope_Stack (List);
Restore_Ghost_Region (Saved_GM, Saved_IGR);
Style_Max_Line_Length := Saved_ML;
Style_Check_Max_Line_Length := Style_Max_Line_Length /= 0;
Style_Check_Max_Line_Length := Saved_CML;
end Do_Analyze;
-- Local variables