mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 02:10:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

tree.def (TARGET_MEM_REF): Update comment.

Browse Source 
* tree.def (TARGET_MEM_REF): Update comment.
	* alias.c (get_alias_set): Retrieve the original memory reference for
	a TARGET_MEM_REF before proceeding.

From-SVN: r153796
This commit is contained in:
Eric Botcazou 2009-11-01 22:12:07 +00:00 committed by Eric Botcazou
parent 958dd42b03
commit ebcc3d93d8
5 changed files with 39 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ChangeLog
View File

@ -1,3 +1,9 @@
2009-11-01 Eric Botcazou <ebotcazou@adacore.com>
* tree.def (TARGET_MEM_REF): Update comment.
* alias.c (get_alias_set): Retrieve the original memory reference for
a TARGET_MEM_REF before proceeding.
2009-10-31 Anatoly Sokolov <aesok@post.ru>
* config/frv/frv.c (frv_function_value, frv_libcall_value,

7
gcc/alias.c
View File

@ -640,7 +640,7 @@ get_alias_set (tree t)
aren't types. */
if (! TYPE_P (t))
{
tree inner = t;
tree inner;
/* Remove any nops, then give the language a chance to do
something with this tree before we look at it. */
@ -649,8 +649,13 @@ get_alias_set (tree t)
if (set != -1)
return set;
/* Retrieve the original memory reference if needed. */
if (TREE_CODE (t) == TARGET_MEM_REF)
t = TMR_ORIGINAL (t);
/* First see if the actual object referenced is an INDIRECT_REF from a
restrict-qualified pointer or a "void *". */
inner = t;
while (handled_component_p (inner))
{
inner = TREE_OPERAND (inner, 0);

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2009-11-01 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/opt5.adb: New test.
2009-11-01 Tobias Burnus <burnus@net-b.de>
PR fortran/41872

21
gcc/testsuite/gnat.dg/opt5.adb Normal file
View File

@ -0,0 +1,21 @@
-- { dg-do run }
-- { dg-options "-O2" }
procedure Opt5 is
type Varray is array (1 .. 4) of Natural;
procedure Check_All_Ones (A : Varray) is
begin
for J in A'Range loop
if (A (J)) /= 1 then
raise Program_Error;
end if;
end loop;
end;
X : constant Varray := (1, 1, 1, 1);
begin
Check_All_Ones (X);
end;

4
gcc/tree.def
View File

@ -967,9 +967,9 @@ DEFTREECODE (REALIGN_LOAD_EXPR, "realign_load", tcc_expression, 3)
The type of STEP, INDEX and OFFSET is sizetype. The type of BASE is
sizetype or a pointer type (if SYMBOL is NULL).
The sixth argument is the reference to the original memory access, which
is preserved for the purposes of the RTL alias analysis. */
is preserved for the purpose of alias analysis. */
DEFTREECODE (TARGET_MEM_REF, "target_mem_ref", tcc_reference, 6)