diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-16 08:45:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-16 08:45:19 +0000 |
| commit | b7c799aac4dc8c85fffec5f949f0f122eefd287c (patch) | |
| tree | 5b916e5fc59de413560d104b03f3d24bb616e5c5 /gcc/ada/stylesw.adb | |
| parent | 7b785fabdf01ec9fe778b0790b99652e14b5f694 (diff) | |
| download | gcc-b7c799aac4dc8c85fffec5f949f0f122eefd287c.tar.gz | |
2005-06-14 Robert Dewar <dewar@adacore.com>
* scng.adb: Add call to new Check_EOF routine
(Accumulate_Checksum): Properly handle wide wide char >= 2 ** 24
Add some comments regarding wide character handling
* style.ads, styleg.ads, styleg.adb: Implement new style switch -gnatyu
* stylesw.ads, stylesw.adb: Implement new style switch -gnatyu
* g-utf_32.ads, g-utf_32.adb (Is_UTF_32_Non_Graphic): Other_Format
characters are now considered graphic characters and hence yield false
in this call.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101056 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/stylesw.adb')
| -rw-r--r-- | gcc/ada/stylesw.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb index 3979f74e984..4a60a6dbef6 100644 --- a/gcc/ada/stylesw.adb +++ b/gcc/ada/stylesw.adb @@ -37,6 +37,7 @@ package body Stylesw is Style_Check_Indentation := 0; Style_Check_Attribute_Casing := False; Style_Check_Blanks_At_End := False; + Style_Check_Blank_Lines := False; Style_Check_Comments := False; Style_Check_DOS_Line_Terminator := False; Style_Check_End_Labels := False; @@ -121,6 +122,7 @@ package body Stylesw is Add ('r', Style_Check_References); Add ('s', Style_Check_Specs); Add ('t', Style_Check_Tokens); + Add ('u', Style_Check_Blank_Lines); Add ('x', Style_Check_Xtra_Parens); if Style_Check_Max_Line_Length then @@ -300,6 +302,9 @@ package body Stylesw is when 't' => Style_Check_Tokens := True; + when 'u' => + Style_Check_Blank_Lines := True; + when 'x' => Style_Check_Xtra_Parens := True; |