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

exp_pakd.adb (Expand_Bit_Packed_Element_Set): Fix packed array type in complex case where array is Volatile. 

2007-12-19  Robert Dewar  <dewar@adacore.com>

	* exp_pakd.adb (Expand_Bit_Packed_Element_Set): Fix packed array type
	in complex case where array is Volatile.

From-SVN: r131075
This commit is contained in:
Robert Dewar 2007-12-19 17:23:43 +01:00 committed by Arnaud Charlet
parent 6625fbd0cb
commit e5aa8dd31e
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gcc/ada/exp_pakd.adb
View File

@ -1430,8 +1430,20 @@ package body Exp_Pakd is
end if;
end if;
New_Lhs := Duplicate_Subexpr (Obj, True);
New_Rhs := Duplicate_Subexpr_No_Checks (Obj);
-- Now create copies removing side effects. Note that in some
-- complex cases, this may cause the fact that we have already
-- set a packed array type on Obj to get lost. So we save the
-- type of Obj, and make sure it is reset properly.
declare
T : constant Entity_Id := Etype (Obj);
begin
New_Lhs := Duplicate_Subexpr (Obj, True);
New_Rhs := Duplicate_Subexpr_No_Checks (Obj);
Set_Etype (Obj, T);
Set_Etype (New_Lhs, T);
Set_Etype (New_Rhs, T);
end;
-- First we deal with the "and"