summaryrefslogtreecommitdiff
path: root/gcc/ada/par-util.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-09 12:28:57 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-09 12:28:57 +0000
commitecf90fb4702994501e53c60872210ff6acefff5a (patch)
treefefb527cc5b46391416be1e51e34a5cba5b99c02 /gcc/ada/par-util.adb
parent2eabe08b3c66326a8ed87e91ca20ac46f66c5a1f (diff)
downloadgcc-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-util.adb')
-rw-r--r--gcc/ada/par-util.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb
index bf9d7dfe5a3..bf5680e2515 100644
--- a/gcc/ada/par-util.adb
+++ b/gcc/ada/par-util.adb
@@ -158,7 +158,7 @@ package body Util is
procedure Check_Bad_Layout 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_BC ("(style) incorrect layout");