From 1c3340e65db79867d7aaf37ff4d1876bc01f604c Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 26 Mar 2008 08:37:00 +0100 Subject: [PATCH] checks.adb (Ensure_Valid): Capture valid status if possible (eliminate checks) 2008-03-26 Robert Dewar * checks.adb (Ensure_Valid): Capture valid status if possible (eliminate checks) From-SVN: r133553 --- gcc/ada/checks.adb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 0af10a6b1d6..d815a534a21 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -6,7 +6,7 @@ -- -- -- 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 -- -- 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 and then Exp_Size /= No_Uint and then Obj_Size > Exp_Size - and then not Warnings_Off (E) + and then not Has_Warnings_Off (E) then if Address_Clause_Overlay_Warnings then Error_Msg_FE @@ -3890,6 +3890,12 @@ package body Checks is -- If we fall through, a validity check is required 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; ----------------------