diff options
| author | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-21 20:06:10 +0000 |
|---|---|---|
| committer | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-21 20:06:10 +0000 |
| commit | 35cd87c410b0046a2516d4e4d4574f1a83166af7 (patch) | |
| tree | 9a67b2c892b2f151f38474c5ddf9bab482bc711c | |
| parent | 796fcc8b9266beab4d710c1db2d1a445f1c5b490 (diff) | |
| download | ppe42-gcc-35cd87c410b0046a2516d4e4d4574f1a83166af7.tar.gz ppe42-gcc-35cd87c410b0046a2516d4e4d4574f1a83166af7.zip | |
* stylesw.adb: Change Style_Check_Subprogram_Order to
Style_Check_Order_Subprograms.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90985 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/stylesw.adb | 14 |
2 files changed, 12 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3dbed55fddf..ac42b983379 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2004-11-21 Andreas Jaeger <aj@suse.de> + + * stylesw.adb: Change Style_Check_Subprogram_Order to + Style_Check_Order_Subprograms. + 2004-11-18 Arnaud Charlet <charlet@adacore.com> * adaint.h, adaint.c diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb index 8c2aa58d08e..b07826f7f8a 100644 --- a/gcc/ada/stylesw.adb +++ b/gcc/ada/stylesw.adb @@ -50,7 +50,7 @@ package body Stylesw is Style_Check_References := False; Style_Check_Specs := False; Style_Check_Standard := False; - Style_Check_Subprogram_Order := False; + Style_Check_Order_Subprograms := False; Style_Check_Tokens := False; end Reset_Style_Check_Options; @@ -113,7 +113,7 @@ package body Stylesw is Add ('k', Style_Check_Keyword_Casing); Add ('l', Style_Check_Layout); Add ('n', Style_Check_Standard); - Add ('o', Style_Check_Subprogram_Order); + Add ('o', Style_Check_Order_Subprograms); Add ('p', Style_Check_Pragma_Casing); Add ('r', Style_Check_References); Add ('s', Style_Check_Specs); @@ -279,19 +279,19 @@ package body Stylesw is Style_Check_Max_Line_Length := Style_Max_Line_Length /= 0; when 'o' => - Style_Check_Subprogram_Order := True; + Style_Check_Order_Subprograms := True; when 'p' => - Style_Check_Pragma_Casing := True; + Style_Check_Pragma_Casing := True; when 'r' => - Style_Check_References := True; + Style_Check_References := True; when 's' => - Style_Check_Specs := True; + Style_Check_Specs := True; when 't' => - Style_Check_Tokens := True; + Style_Check_Tokens := True; when ' ' => null; |
