diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-11-18 12:10:18 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-11-18 12:10:18 +0000 |
| commit | d74b4b00786ae456928033b68ce195794e0bf021 (patch) | |
| tree | 506689d1d9d196cb68f8a58f5d6927b14a9f7e30 /gcc/ada/gcc-interface/decl.c | |
| parent | 3dae586db9c297814116be9b3d741e9e25498903 (diff) | |
| download | gcc-d74b4b00786ae456928033b68ce195794e0bf021.zip gcc-d74b4b00786ae456928033b68ce195794e0bf021.tar.gz gcc-d74b4b00786ae456928033b68ce195794e0bf021.tar.bz2 | |
re PR ada/38127 (ACATS cd1c04e fails on sparc, hppa)
PR ada/38127
* gcc-interface/decl.c (make_type_from_size) <INTEGER_TYPE>: Propagate
the name.
From-SVN: r141964
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 35fdb0c..be30b85 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -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; |