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

checks.adb (Ensure_Valid): Capture valid status if possible (eliminate checks)

Browse Source 
2008-03-26  Robert Dewar  <dewar@adacore.com>

	* checks.adb (Ensure_Valid): Capture valid status if possible
	(eliminate checks)

From-SVN: r133553
This commit is contained in:
Robert Dewar 2008-03-26 08:37:00 +01:00 committed by Arnaud Charlet
parent 1e990f1366
commit 1c3340e65d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/checks.adb
View File

@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -619,7 +619,7 @@ package body Checks is
if Obj_Size /= No_Uint if Obj_Size /= No_Uint
and then Exp_Size /= No_Uint and then Exp_Size /= No_Uint
and then Obj_Size > Exp_Size and then Obj_Size > Exp_Size
and then not Warnings_Off (E) and then not Has_Warnings_Off (E)
then then
if Address_Clause_Overlay_Warnings then if Address_Clause_Overlay_Warnings then
Error_Msg_FE Error_Msg_FE
@ -3890,6 +3890,12 @@ package body Checks is
-- If we fall through, a validity check is required -- If we fall through, a validity check is required
Insert_Valid_Check (Expr); Insert_Valid_Check (Expr);
if Is_Entity_Name (Expr)
and then Safe_To_Capture_Value (Expr, Entity (Expr))
then
Set_Is_Known_Valid (Entity (Expr));
end if;
end Ensure_Valid; end Ensure_Valid;
---------------------- ----------------------