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

* gcc-interface/decl.c (make_aligning_type): Declare the type.

Browse Source 
From-SVN: r159183
This commit is contained in:
Eric Botcazou 2010-05-08 11:38:26 +00:00 committed by Eric Botcazou
parent 35e2a4b842
commit 9c026b8767
5 changed files with 53 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2010-05-08 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (make_aligning_type): Declare the type.
2010-05-08 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity): Create variables for size

10
gcc/ada/gcc-interface/decl.c
View File

@ -5955,8 +5955,8 @@ make_aligning_type (tree type, unsigned int align, tree size,
if (TREE_CODE (name) == TYPE_DECL)
name = DECL_NAME (name);
TYPE_NAME (record_type) = concat_name (name, "_ALIGN");
name = concat_name (name, "ALIGN");
TYPE_NAME (record_type) = name;
/* Compute VOFFSET and then POS. The next byte position multiple of some
alignment after some address is obtained by "and"ing the alignment minus
@ -6001,8 +6001,12 @@ make_aligning_type (tree type, unsigned int align, tree size,
size_int (room + align / BITS_PER_UNIT));
SET_TYPE_MODE (record_type, BLKmode);
relate_alias_sets (record_type, type, ALIAS_SET_COPY);
/* Declare it now since it will never be declared otherwise. This is
necessary to ensure that its subtrees are properly marked. */
create_type_decl (name, record_type, NULL, true, false, Empty);
return record_type;
}

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2010-05-08 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/lto4.ad[sb]: New test.
2010-05-08 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/specs/lto3.ads: New test.

12
gcc/testsuite/gnat.dg/lto4.adb Normal file
View File

@ -0,0 +1,12 @@
-- { dg-do compile }
-- { dg-options "-flto" }
package body Lto4 is
procedure SS_Allocate (Stack : Stack_Ptr) is
Chunk : Chunk_Ptr := Stack.Current_Chunk;
begin
Chunk := new Chunk_Id (First => Chunk.Last, Last => Chunk.Last);
end;
end Lto4;

26
gcc/testsuite/gnat.dg/lto4.ads Normal file
View File

@ -0,0 +1,26 @@
with System.Storage_Elements;
package Lto4 is
package SSE renames System.Storage_Elements;
type SS_Ptr is new SSE.Integer_Address;
type Memory is array (SS_Ptr range <>) of SSE.Storage_Element;
for Memory'Alignment use Standard'Maximum_Alignment;
type Chunk_Id (First, Last : SS_Ptr) is record
Mem : Memory (First .. Last);
end record;
type Chunk_Ptr is access all Chunk_Id;
type Stack_Id is record
Current_Chunk : Chunk_Ptr;
end record;
type Stack_Ptr is access Stack_Id;
procedure SS_Allocate (Stack : Stack_Ptr);
end Lto4;