diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-14 08:36:48 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-14 08:36:48 +0000 |
| commit | 65297ca971f11afebfb1d420d32bc4c769bbbdf5 (patch) | |
| tree | 05b5ae79d8bf769dcfc728d032c9a64d115ddfeb /gcc/ada/stylesw.adb | |
| parent | 1263d20c60a2d7b5e5bccfcd39a89dde448b1c22 (diff) | |
| download | gcc-65297ca971f11afebfb1d420d32bc4c769bbbdf5.tar.gz | |
2007-08-14 Robert Dewar <dewar@adacore.com>
* uintp.adb, a-ztedit.adb, s-wchcon.adb, xnmake.adb, s-wchcon.adb,
par-ch5.adb, par-ch10.adb, get_targ.adb, a-wtedit.adb, a-teioed.adb,
s-osinte-solaris.adb, s-osinte-solaris.ads,
s-osinte-freebsd.ads, s-osinte-freebsd.adb: Minor reformatting.
* styleg.adb, styleg.ads, stylesw.adb, stylesw.ads: implement style
switch -gnatyS. Enable -gnatyS in GNAT style check mode
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127409 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/stylesw.adb')
| -rw-r--r-- | gcc/ada/stylesw.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb index 08a2ef7e3fb..5d799786f32 100644 --- a/gcc/ada/stylesw.adb +++ b/gcc/ada/stylesw.adb @@ -54,6 +54,7 @@ package body Stylesw is Style_Check_Order_Subprograms := False; Style_Check_Pragma_Casing := False; Style_Check_References := False; + Style_Check_Separate_Stmt_Lines := False; Style_Check_Specs := False; Style_Check_Standard := False; Style_Check_Tokens := False; @@ -65,7 +66,7 @@ package body Stylesw is ------------------------------ procedure Save_Style_Check_Options (Options : out Style_Check_Options) is - P : Natural := 0; + P : Natural := 0; procedure Add (C : Character; S : Boolean); -- Add given character C to string if switch S is true @@ -126,6 +127,7 @@ package body Stylesw is Add ('p', Style_Check_Pragma_Casing); Add ('r', Style_Check_References); Add ('s', Style_Check_Specs); + Add ('S', Style_Check_Separate_Stmt_Lines); Add ('t', Style_Check_Tokens); Add ('u', Style_Check_Blank_Lines); Add ('x', Style_Check_Xtra_Parens); @@ -167,7 +169,7 @@ package body Stylesw is procedure Set_GNAT_Style_Check_Options is begin Reset_Style_Check_Options; - Set_Style_Check_Options ("3aAbcdefhiklmnprstux"); + Set_Style_Check_Options ("3aAbcdefhiklmnprsStux"); end Set_GNAT_Style_Check_Options; ----------------------------- @@ -359,6 +361,9 @@ package body Stylesw is when 's' => Style_Check_Specs := True; + when 'S' => + Style_Check_Separate_Stmt_Lines := True; + when 't' => Style_Check_Tokens := True; |