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

re PR ada/38127 (ACATS cd1c04e fails on sparc, hppa)

Browse Source 
PR ada/38127
	* gcc-interface/decl.c (make_type_from_size) <INTEGER_TYPE>: Propagate
	the name.

From-SVN: r141964
This commit is contained in:
Eric Botcazou 2008-11-18 12:10:18 +00:00 committed by Eric Botcazou
parent 3dae586db9
commit d74b4b0078
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,8 +1,8 @@
2008-11-16 Eric Botcazou <ebotcazou@adacore.com>
PR ada/38127
* gcc-interface/decl.c (make_type_from_size): Do not special-case
boolean types.
* gcc-interface/decl.c (make_type_from_size) <INTEGER_TYPE>: Do not
special-case boolean types. Propagate the name.
* gcc-interface/targtyps.c: Tweak comment.
2008-11-15 Geert Bosch <bosch@adacore.com>

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

@ -7220,6 +7220,14 @@ make_type_from_size (tree type, tree size_tree, bool for_biased)
= convert (TREE_TYPE (new_type), TYPE_MIN_VALUE (type));
TYPE_MAX_VALUE (new_type)
= convert (TREE_TYPE (new_type), TYPE_MAX_VALUE (type));
/* Propagate the name to avoid creating a fake subrange type. */
if (TYPE_NAME (type))
{
if (TREE_CODE (TYPE_NAME (type)) == TYPE_DECL)
TYPE_NAME (new_type) = DECL_NAME (TYPE_NAME (type));
else
TYPE_NAME (new_type) = TYPE_NAME (type);
}
TYPE_BIASED_REPRESENTATION_P (new_type) = biased_p;
TYPE_RM_SIZE_NUM (new_type) = bitsize_int (size);
return new_type;