diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-20 05:35:17 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-20 05:35:17 +0000 |
| commit | 6b351cc8c497c4ed9d296b55b424341f20b56f92 (patch) | |
| tree | 8bcbc6cc30a2f9d6253007a662393cfed258713a /gcc/ada/par-ch10.adb | |
| parent | d0df232358778b869142e628e5e736fc7515f5ab (diff) | |
| download | gcc-6b351cc8c497c4ed9d296b55b424341f20b56f92.tar.gz | |
2009-07-20 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 149800
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@149801 138bc75d-0d04-0410-961f-82ee72b054a4
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; ------------------ |