OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_util.adb (Wrong_Type): Special message for cases like A and B = 0 

2009-07-23  Robert Dewar  <dewar@adacore.com>

	* sem_util.adb (Wrong_Type): Special message for cases like A and B = 0

From-SVN: r150004
This commit is contained in:
Robert Dewar 2009-07-23 14:41:04 +02:00 committed by Arnaud Charlet
parent e0dc6003fc
commit 3ac489432f
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gcc/ada/sem_util.adb
View File

@ -11077,6 +11077,30 @@ package body Sem_Util is
Error_Msg_NE ("\\found}!", Expr, Found_Type); Error_Msg_NE ("\\found}!", Expr, Found_Type);
end if; end if;
-- A special check for cases like M1 and M2 = 0 where M1 and M2 are
-- of the same modular type, and (M1 and M2) = 0 was intended.
if Expec_Type = Standard_Boolean
and then Is_Modular_Integer_Type (Found_Type)
and then Nkind_In (Parent (Expr), N_Op_And, N_Op_Or, N_Op_Xor)
and then Nkind (Right_Opnd (Parent (Expr))) in N_Op_Compare
then
declare
Op : constant Node_Id := Right_Opnd (Parent (Expr));
L : constant Node_Id := Left_Opnd (Op);
R : constant Node_Id := Right_Opnd (Op);
begin
if Etype (L) = Found_Type
and then Is_Integer_Type (Etype (R))
then
Error_Msg_N
("\\possible missing parens for modular operation", Expr);
end if;
end;
end if;
-- Reset error message qualification indication
Error_Msg_Qual_Level := 0; Error_Msg_Qual_Level := 0;
end if; end if;
end Wrong_Type; end Wrong_Type;