diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-09 12:28:57 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-09 12:28:57 +0000 |
| commit | ecf90fb4702994501e53c60872210ff6acefff5a (patch) | |
| tree | fefb527cc5b46391416be1e51e34a5cba5b99c02 /gcc/ada/par-ch5.adb | |
| parent | 2eabe08b3c66326a8ed87e91ca20ac46f66c5a1f (diff) | |
| download | gcc-ecf90fb4702994501e53c60872210ff6acefff5a.tar.gz | |
2009-04-09 Vincent Celier <celier@adacore.com>
* errout.adb: Remove dependency on package Style
* style.ads, styleg.adb, styleg.ads (RM_Column_Check): Remove function,
moved to Stylesw.
* stylesw.ads, stylesw.adb (RM_Column_Check): New function, moved from
Styleg.
* errutil.adb, par.adb: Import Stylesw
2009-04-09 Arnaud Charlet <charlet@adacore.com>
* opt.ads: Fix typos.
2009-04-09 Robert Dewar <dewar@adacore.com>
* einfo.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145832 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch5.adb')
| -rw-r--r-- | gcc/ada/par-ch5.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index 57c54449ac3..e0a7e0af6f8 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -1104,7 +1104,7 @@ package body Ch5 is procedure Check_If_Column is begin - if Style.RM_Column_Check and then Token_Is_At_Start_Of_Line + if RM_Column_Check and then Token_Is_At_Start_Of_Line and then Start_Column /= Scope.Table (Scope.Last).Ecol then Error_Msg_Col := Scope.Table (Scope.Last).Ecol; @@ -2076,7 +2076,7 @@ package body Ch5 is Error_Msg_Col := Scope.Table (Scope.Last).Ecol; - if Style.RM_Column_Check + if RM_Column_Check and then Token_Is_At_Start_Of_Line and then Start_Column /= Error_Msg_Col then |