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

[multiple changes]

Browse Source 
2010-10-21  Javier Miranda  <miranda@adacore.com>

	* exp_ch5.adb: Update comment.

2010-10-21  Robert Dewar  <dewar@adacore.com>

	* sem_ch13.adb (Build_Invariant_Procedure): Remove commented out code
	for interfaces, since invariants are not allowed on interfaces in any
	case.

From-SVN: r165758
This commit is contained in:
Arnaud Charlet 2010-10-21 11:58:50 +02:00
parent 25e29378a7
commit 5162533940
3 changed files with 12 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/ChangeLog
View File

@ -1,3 +1,13 @@
2010-10-21 Javier Miranda <miranda@adacore.com>
* exp_ch5.adb: Update comment.
2010-10-21 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Build_Invariant_Procedure): Remove commented out code
for interfaces, since invariants are not allowed on interfaces in any
case.
2010-10-21 Javier Miranda <miranda@adacore.com>
* sem_attr.adb (Resolve_Attribute): After replacing the range attribute

4
gcc/ada/exp_ch5.adb
View File

@ -562,8 +562,8 @@ package body Exp_Ch5 is
-- cannot assign to elements of the array without this extra
-- unchecked conversion.
-- Note: We must propagate Parent to the conversion node to allow
-- climbing the subtree if Insert_Action is invoked later.
-- Note: We propagate Parent to the conversion nodes to generate
-- a well-formed subtree.
if Nkind (Act_Lhs) = N_Slice then
Larray := Prefix (Act_Lhs);

22
gcc/ada/sem_ch13.adb
View File

@ -3679,28 +3679,6 @@ package body Sem_Ch13 is
end loop;
end;
-- Add invariants for inherited interfaces
-- (commented out because it blows up on simpleinv in J701-022)
-- declare
-- Ifaces : Elist_Id;
-- Iface : Elmt_Id;
--
-- begin
-- Collect_Interfaces
-- (T => Typ,
-- Ifaces_List => Ifaces,
-- Exclude_Parents => True,
-- Use_Full_View => True);
--
-- loop
-- Iface := First_Elmt (Ifaces);
-- exit when Iface = No_Elmt;
-- Add_Invariants (Node (Iface), Inherit => True);
-- Remove_Elmt (Ifaces, Iface);
-- end loop;
-- end;
-- Build the procedure if we generated at least one Check pragma
if Stmts /= No_List then