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

Re-commit wrongly reverted previous change. 

From-SVN: r216922
This commit is contained in:
Arnaud Charlet 2014-10-30 12:45:03 +01:00
parent cd2c602730
commit 1572e2c327
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2486,16 +2486,14 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
/* We need special types for debugging information to point to
the index types if they have variable bounds, are not integer
types, are biased or are wider than sizetype. */
if (!integer_onep (gnu_orig_min)
types or are biased. */
if (TREE_CODE (gnu_orig_min) != INTEGER_CST
|| TREE_CODE (gnu_orig_max) != INTEGER_CST
|| TREE_CODE (gnu_index_type) != INTEGER_TYPE
|| (TREE_TYPE (gnu_index_type)
&& TREE_CODE (TREE_TYPE (gnu_index_type))
!= INTEGER_TYPE)
|| TYPE_BIASED_REPRESENTATION_P (gnu_index_type)
|| compare_tree_int (rm_size (gnu_index_type),
TYPE_PRECISION (sizetype)) > 0)
|| TYPE_BIASED_REPRESENTATION_P (gnu_index_type))
need_index_type_struct = true;
}

1
gcc/ada/gcc-interface/misc.c
View File

@ -238,6 +238,7 @@ gnat_init_options (unsigned int decoded_options_count,
#undef flag_compare_debug
#undef flag_short_enums
#undef flag_stack_check
int gnat_encodings = 0;
int optimize;
int optimize_size;
int flag_compare_debug;