diff options
Diffstat (limited to 'gcc/ada/stylesw.adb')
| -rw-r--r-- | gcc/ada/stylesw.adb | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb index 7c9d462..cce2b8f 100644 --- a/gcc/ada/stylesw.adb +++ b/gcc/ada/stylesw.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2011, 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- -- @@ -160,7 +160,13 @@ package body Stylesw is Add ('A', Style_Check_Array_Attribute_Index); Add ('b', Style_Check_Blanks_At_End); Add ('B', Style_Check_Boolean_And_Or); - Add ('c', Style_Check_Comments); + + if Style_Check_Comments_Spacing = 2 then + Add ('c', Style_Check_Comments); + elsif Style_Check_Comments_Spacing = 1 then + Add ('C', Style_Check_Comments); + end if; + Add ('d', Style_Check_DOS_Line_Terminator); Add ('e', Style_Check_End_Labels); Add ('f', Style_Check_Form_Feeds); @@ -322,6 +328,11 @@ package body Stylesw is when 'c' => Style_Check_Comments := True; + Style_Check_Comments_Spacing := 2; + + when 'C' => + Style_Check_Comments := True; + Style_Check_Comments_Spacing := 1; when 'd' => Style_Check_DOS_Line_Terminator := True; @@ -484,7 +495,7 @@ package body Stylesw is when 'B' => Style_Check_Boolean_And_Or := False; - when 'c' => + when 'c' | 'C' => Style_Check_Comments := False; when 'd' => |