diff options
author | hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-01 22:22:57 +0000 |
---|---|---|
committer | hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-01 22:22:57 +0000 |
commit | 9e169c4bf36a38689550c059570c57efbf00a6fb (patch) | |
tree | 95e6800f7ac2a49ff7f799d96f04172320e70ac0 /gcc/ada/style.adb | |
parent | 6170dfb6edfb7b19f8ae5209b8f948fe0076a4ad (diff) | |
download | gcc-9e169c4bf36a38689550c059570c57efbf00a6fb.tar.gz |
Merged trunk at revision 161680 into branch.vect256
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/vect256@161681 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/style.adb')
-rw-r--r-- | gcc/ada/style.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/style.adb b/gcc/ada/style.adb index e700abdf8f8..0f0ab300cba 100644 --- a/gcc/ada/style.adb +++ b/gcc/ada/style.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -78,11 +78,11 @@ package body Style is begin if Style_Check_Array_Attribute_Index then if D = 1 and then Present (E1) then - Error_Msg_N + Error_Msg_N -- CODEFIX ("(style) index number not allowed for one dimensional array", E1); elsif D > 1 and then No (E1) then - Error_Msg_N + Error_Msg_N -- CODEFIX ("(style) index number required for multi-dimensional array", N); end if; @@ -161,7 +161,7 @@ package body Style is then Error_Msg_Node_1 := Def; Error_Msg_Sloc := Sloc (Def); - Error_Msg + Error_Msg -- CODEFIX ("(style) bad casing of & declared#", Sref); return; @@ -222,7 +222,7 @@ package body Style is String (Tref (Sref .. Sref + Source_Ptr (Nlen) - 1)); Set_Casing (Cas); Error_Msg_Name_1 := Name_Enter; - Error_Msg_N + Error_Msg_N -- CODEFIX ("(style) bad casing of %% declared in Standard", Ref); end if; end if; @@ -243,10 +243,10 @@ package body Style is if Style_Check_Missing_Overriding and then Comes_From_Source (N) then if Nkind (N) = N_Subprogram_Body then - Error_Msg_N + Error_Msg_N -- CODEFIX ("(style) missing OVERRIDING indicator in body of%", N); else - Error_Msg_N + Error_Msg_N -- CODEFIX ("(style) missing OVERRIDING indicator in declaration of%", N); end if; end if; @@ -259,7 +259,7 @@ package body Style is procedure Subprogram_Not_In_Alpha_Order (Name : Node_Id) is begin if Style_Check_Order_Subprograms then - Error_Msg_N + Error_Msg_N -- CODEFIX ("(style) subprogram body& not in alphabetical order", Name); end if; end Subprogram_Not_In_Alpha_Order; |