diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-31 10:23:25 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-31 10:23:25 +0000 |
commit | 78976972ae3ef0881f018102a8104db0e3e2ac67 (patch) | |
tree | 53d9fad7764e46233036b104c5363cc023e5b437 /gcc/ada/restrict.adb | |
parent | c133ba938e437900a7f6e813bbed3bbfd022270b (diff) | |
download | ppe42-gcc-78976972ae3ef0881f018102a8104db0e3e2ac67.tar.gz ppe42-gcc-78976972ae3ef0881f018102a8104db0e3e2ac67.zip |
2007-08-31 Hristian Kirtchev <kirtchev@adacore.com>
* restrict.adb, namet.adb, par-util.adb: Remove redundant type
conversion.
* sem_res.adb (Resolve_Qualified_Expression): Add machinery to detect
simple redundant qualifications. The check is performed whenever the
expression is a non-overloaded identifier.
(Resolve_Type_Conversion): Enchance the redundant type conversion check
to include loop parameters.
(Valid_Conversion): Avoid generation of spurious error message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127976 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/restrict.adb')
-rw-r--r-- | gcc/ada/restrict.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index 03905ec690b..8b333b61926 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -99,7 +99,7 @@ package body Restrict is and then not Suppress_Restriction_Message (N) then Namet.Unlock; - Check_Restriction (Restriction_Id'(No_Elaboration_Code), N); + Check_Restriction (No_Elaboration_Code, N); Namet.Lock; end if; end Check_Elaboration_Code_Allowed; @@ -110,7 +110,7 @@ package body Restrict is procedure Check_No_Implicit_Heap_Alloc (N : Node_Id) is begin - Check_Restriction (Restriction_Id'(No_Implicit_Heap_Allocations), N); + Check_Restriction (No_Implicit_Heap_Allocations, N); end Check_No_Implicit_Heap_Alloc; --------------------------- |