From ecf90fb4702994501e53c60872210ff6acefff5a Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 9 Apr 2009 12:28:57 +0000 Subject: 2009-04-09 Vincent Celier * 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 * opt.ads: Fix typos. 2009-04-09 Robert Dewar * einfo.adb: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145832 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/par-ch5.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/par-ch5.adb') 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 -- cgit v1.2.1