mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-02 06:40:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2009-04-09  Vincent Celier  <celier@adacore.com>

	* errout.adb: Remove dependency on package Style

	* style.ads, styleg.adb, styleg.ads (RM_Column_Check): Remove function,
	moved to Stylesw.
	
	* stylesw.ads, stylesw.adb (RM_Column_Check): New function, moved from
	Styleg.

	* errutil.adb, par.adb: Import Stylesw

2009-04-09  Arnaud Charlet  <charlet@adacore.com>

	* opt.ads: Fix typos.

2009-04-09  Robert Dewar  <dewar@adacore.com>

	* einfo.adb: Minor reformatting

From-SVN: r145832
This commit is contained in:
Arnaud Charlet 2009-04-09 14:28:57 +02:00
parent e7aea0fa3f
commit c75c4293c3
15 changed files with 51 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gcc/ada/ChangeLog
View File

@ -1,3 +1,23 @@
2009-04-09 Vincent Celier <celier@adacore.com>
* errout.adb: Remove dependency on package Style
* style.ads, styleg.adb, styleg.ads (RM_Column_Check): Remove function,
moved to Stylesw.
* stylesw.ads, stylesw.adb (RM_Column_Check): New function, moved from
Styleg.
* errutil.adb, par.adb: Import Stylesw
2009-04-09 Arnaud Charlet <charlet@adacore.com>
* opt.ads: Fix typos.
2009-04-09 Robert Dewar <dewar@adacore.com>
* einfo.adb: Minor reformatting
2009-04-09 Robert Dewar <dewar@adacore.com>
* gcc-interface/Make-lang.in, style.ads, style.adb: Reorganize style

10
gcc/ada/einfo.adb
View File

@ -52,11 +52,11 @@ package body Einfo is
----------------------------------------------
-- Four of these fields are defined in Sinfo, since they in are the
-- base part of the node. The access routines for these fields and
-- the corresponding set procedures are defined in Sinfo. These fields
-- are present in all entities. Note that Homonym is also in the base
-- part of the node, but has access routines that are more properly
-- part of Einfo, which is why they are defined here.
-- base part of the node. The access routines for these fields and the
-- corresponding set procedures are defined in Sinfo. These fields are
-- present in all entities. Note that Homonym is also in the base part of
-- the node, but has access routines that are more properly part of Einfo,
-- which is why they are defined here.
-- Chars Name1
-- Next_Entity Node2

4
gcc/ada/errout.adb
View File

@ -47,7 +47,7 @@ with Sinput; use Sinput;
with Sinfo; use Sinfo;
with Snames; use Snames;
with Stand; use Stand;
with Style;
with Stylesw; use Stylesw;
with Uname; use Uname;
package body Errout is
@ -2138,7 +2138,7 @@ package body Errout is
procedure Set_Msg_Insertion_Column is
begin
if Style.RM_Column_Check then
if RM_Column_Check then
Set_Msg_Str (" in column ");
Set_Msg_Int (Int (Error_Msg_Col) + 1);
end if;

3
gcc/ada/errutil.adb
View File

@ -30,6 +30,7 @@ with Opt; use Opt;
with Output; use Output;
with Scans; use Scans;
with Sinput; use Sinput;
with Stylesw; use Stylesw;
package body Errutil is
@ -658,7 +659,7 @@ package body Errutil is
procedure Set_Msg_Insertion_Column is
begin
if Style.RM_Column_Check then
if RM_Column_Check then
Set_Msg_Str (" in column ");
Set_Msg_Int (Int (Error_Msg_Col) + 1);
end if;

4
gcc/ada/opt.ads
View File

@ -1430,8 +1430,8 @@ package Opt is
Assume_No_Invalid_Values_Config : Boolean;
-- GNAT
-- This is the value of the configuration switch for assuming no invalid
-- values enabled mode mode, as possibly set by the command line switch
-- This is the value of the configuration switch for assuming "no invalid
-- values enabled" mode, as possibly set by the command line switch
-- -gnatB, and possibly modified by the use of the configuration pragma
-- Assume_No_Invalid_Values.

4
gcc/ada/par-ch5.adb
View File

@ -1104,7 +1104,7 @@ package body Ch5 is
procedure Check_If_Column is
begin
if Style.RM_Column_Check and then Token_Is_At_Start_Of_Line
if RM_Column_Check and then Token_Is_At_Start_Of_Line
and then Start_Column /= Scope.Table (Scope.Last).Ecol
then
Error_Msg_Col := Scope.Table (Scope.Last).Ecol;
@ -2076,7 +2076,7 @@ package body Ch5 is
Error_Msg_Col := Scope.Table (Scope.Last).Ecol;
if Style.RM_Column_Check
if RM_Column_Check
and then Token_Is_At_Start_Of_Line
and then Start_Column /= Error_Msg_Col
then

4
gcc/ada/par-ch7.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -200,7 +200,7 @@ package body Ch7 is
if Token = Tok_Private then
Error_Msg_Col := Scope.Table (Scope.Last).Ecol;
if Style.RM_Column_Check then
if RM_Column_Check then
if Token_Is_At_Start_Of_Line
and then Start_Column /= Error_Msg_Col
then

2
gcc/ada/par-endh.adb
View File

@ -1029,7 +1029,7 @@ package body Endh is
-- Right in this context means exactly right, or on the same
-- line as the opener.
if Style.RM_Column_Check then
if RM_Column_Check then
if End_Column /= Scope.Table (Scope.Last).Ecol
and then Current_Line_Start > Scope.Table (Scope.Last).Sloc

2
gcc/ada/par-util.adb
View File

@ -158,7 +158,7 @@ package body Util is
procedure Check_Bad_Layout is
begin
if Style.RM_Column_Check and then Token_Is_At_Start_Of_Line
if RM_Column_Check and then Token_Is_At_Start_Of_Line
and then Start_Column <= Scope.Table (Scope.Last).Ecol
then
Error_Msg_BC ("(style) incorrect layout");

1
gcc/ada/par.adb
View File

@ -42,6 +42,7 @@ with Sinput.L; use Sinput.L;
with Sinfo; use Sinfo;
with Snames; use Snames;
with Style;
with Stylesw; use Stylesw;
with Table;
with Tbuild; use Tbuild;

6
gcc/ada/style.ads
View File

@ -210,10 +210,4 @@ package Style is
-- lower case letters. On entry Token_Ptr points to the keyword token.
-- This is not used for keywords appearing as attribute designators,
-- where instead Check_Attribute_Name (True) is called.
function RM_Column_Check return Boolean
renames Style_Inst.RM_Column_Check;
-- Determines whether style checking is active and the RM column check
-- mode is set requiring checking of RM format layout.
end Style;

9
gcc/ada/styleg.adb
View File

@ -1006,13 +1006,4 @@ package body Styleg is
end if;
end Require_Preceding_Space;
---------------------
-- RM_Column_Check --
---------------------
function RM_Column_Check return Boolean is
begin
return Style_Check and Style_Check_Layout;
end RM_Column_Check;
end Styleg;

8
gcc/ada/styleg.ads
View File

@ -29,9 +29,6 @@
-- to these subprograms are only made if Opt.Style_Check is set True.
-- Styleg does not depends on the GNAT tree (Atree, Sinfo, ...).
-- For the compiler, there is also a child package Styleg.C that depends
-- on the GNAT tree.
with Types; use Types;
generic
@ -173,9 +170,4 @@ package Styleg is
-- This is not used for keywords appearing as attribute designators,
-- where instead Check_Attribute_Name (True) is called.
function RM_Column_Check return Boolean;
pragma Inline (RM_Column_Check);
-- Determines whether style checking is active and the RM column check
-- mode is set requiring checking of RM format layout.
end Styleg;

9
gcc/ada/stylesw.adb
View File

@ -61,6 +61,15 @@ package body Stylesw is
Style_Check_Xtra_Parens := False;
end Reset_Style_Check_Options;
---------------------
-- RM_Column_Check --
---------------------
function RM_Column_Check return Boolean is
begin
return Style_Check and Style_Check_Layout;
end RM_Column_Check;
------------------------------
-- Save_Style_Check_Options --
------------------------------

4
gcc/ada/stylesw.ads
View File

@ -272,6 +272,10 @@ package Stylesw is
-- Subprograms --
-----------------
function RM_Column_Check return Boolean;
-- Determines whether style checking is active and the RM column check
-- mode is set requiring checking of RM format layout.
procedure Set_Default_Style_Check_Options;
-- This procedure is called to set the default style checking options in
-- response to a -gnaty switch with no suboptions or from -gnatyy.