procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tree-sra.c (try_instantiate_multiple_fields): Early return if field has POINTER_TYPE.

Browse source 
* tree-sra.c (try_instantiate_multiple_fields): Early return
        if field has POINTER_TYPE.
               
        testsuite/
        * gnat.dg/fatp_sra.adb: New test.

From-SVN: r134982
This commit is contained in:
Olivier Hainque 2008-05-06 12:13:07 +00:00 • committed by Olivier Hainque
parent 18efb17965
commit 2b9d6cf30e
4 changed files with 30 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ChangeLog
View file

@ -1,3 +1,8 @@
2008-05-06 Olivier Hainque <hainque@adacore.com>
* tree-sra.c (try_instantiate_multiple_fields): Early return
if field has POINTER_TYPE.
2008-05-06 Kai Tietz <kai.tietz@onevision.com>
* config/i386/i386.c (output_set_got): Fix for x86_64 output_emit_asm

4
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,7 @@
2008-05-06 Olivier Hainque <hainque@adacore.com>
* gnat.dg/fatp_sra.adb: New test.
2008-05-05 Andrew Pinski <andrew_pinski@playstation.sony.com>
PR middle-end/36141

17
gcc/testsuite/gnat.dg/fatp_sra.adb Normal file
View file

@ -0,0 +1,17 @@
-- { dg-do compile }
-- { dg-options "-gnatp -O1" }
procedure Fatp_Sra is
function X return String is
begin
return "X";
end;
function Letter return String is
begin
return X;
end;
begin
null;
end;

4
gcc/tree-sra.c
View file

@ -1472,6 +1472,10 @@ try_instantiate_multiple_fields (struct sra_elt *elt, tree f)
tree type, var;
struct sra_elt *block;
/* Point fields are typically best handled as standalone entities. */
if (POINTER_TYPE_P (TREE_TYPE (f)))
return f;
if (!is_sra_scalar_type (TREE_TYPE (f))
|| !host_integerp (DECL_FIELD_OFFSET (f), 1)
|| !host_integerp (DECL_FIELD_BIT_OFFSET (f), 1)