diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-19 16:05:43 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-19 16:05:43 +0100 |
| commit | d7cb47b448ef3d183f006a2f5dd6ac1f77ec20ad (patch) | |
| tree | 94007ca31ffee9d9fd74b827bfad76d2a7a60f45 /gcc/ada/styleg.adb | |
| parent | 53f697ee80c6c9bbc0bb575d4dfcb622f3a376cb (diff) | |
| download | gcc-d7cb47b448ef3d183f006a2f5dd6ac1f77ec20ad.zip gcc-d7cb47b448ef3d183f006a2f5dd6ac1f77ec20ad.tar.gz gcc-d7cb47b448ef3d183f006a2f5dd6ac1f77ec20ad.tar.bz2 | |
[multiple changes]
2014-02-19 Robert Dewar <dewar@adacore.com>
* sem_ch5.adb, sem_prag.adb, sem_attr.adb: Minor reformatting.
* debug.adb: Remove -gnatd.X switch, no longer used.
* styleg.adb (Check_Then): Remove check of -gnatd.X, check is
now always made.
2014-02-19 Bob Duff <duff@adacore.com>
* g-socket.ads: Minor: Correct some comments.
From-SVN: r207907
Diffstat (limited to 'gcc/ada/styleg.adb')
| -rw-r--r-- | gcc/ada/styleg.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb index 67af2fc..0a1880f 100644 --- a/gcc/ada/styleg.adb +++ b/gcc/ada/styleg.adb @@ -30,7 +30,6 @@ with Atree; use Atree; with Casing; use Casing; with Csets; use Csets; -with Debug; use Debug; with Einfo; use Einfo; with Err_Vars; use Err_Vars; with Opt; use Opt; @@ -1019,9 +1018,7 @@ package body Styleg is begin if If_Line = Then_Line then null; - elsif Debug_Flag_Dot_XX - and then Token_Ptr /= First_Non_Blank_Location - then + elsif Token_Ptr /= First_Non_Blank_Location then Error_Msg_SC ("(style) misplaced THEN"); end if; end; |