diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-07-15 10:25:24 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-15 12:25:24 +0200 |
| commit | 8aaeba8ffac5a59bf1efac5a8cbfe7bd666ec6f7 (patch) | |
| tree | 9b58e97ad8cdf1400124fc7e605ea44310b71d40 /gcc/ada/par-ch10.adb | |
| parent | 36366047c1b09c1eecc5d5f13c45a4be93db5a20 (diff) | |
| download | gcc-8aaeba8ffac5a59bf1efac5a8cbfe7bd666ec6f7.tar.gz | |
par.adb: Minor reformatting Add ??? comment for possible bad comment
2009-07-15 Robert Dewar <dewar@adacore.com>
* par.adb: Minor reformatting
Add ??? comment for possible bad comment
* par-ch10.adb: Minor reformatting
From-SVN: r149677
Diffstat (limited to 'gcc/ada/par-ch10.adb')
| -rw-r--r-- | gcc/ada/par-ch10.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index d90d27bfc4e..23cb1cd444c 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2009, 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- -- @@ -243,6 +243,7 @@ package body Ch10 is if Token = Tok_Private then Private_Sloc := Token_Ptr; Set_Keyword_Casing (Current_Source_File, Determine_Token_Casing); + if Style_Check then Style.Check_Indentation; end if; @@ -321,6 +322,7 @@ package body Ch10 is -- it hasn't already been done on seeing a WITH or PRIVATE. Set_Keyword_Casing (Current_Source_File, Determine_Token_Casing); + if Style_Check then Style.Check_Indentation; end if; @@ -1059,7 +1061,6 @@ package body Ch10 is Set_Proper_Body (Subunit_Node, Body_Node); return Subunit_Node; - end P_Subunit; ------------------ |