diff options
| author | Andrew Pinski <pinskia@physics.uc.edu> | 2005-07-09 19:53:55 +0000 |
|---|---|---|
| committer | Andrew Pinski <pinskia@gcc.gnu.org> | 2005-07-09 12:53:55 -0700 |
| commit | f685a2e68d5f87b7eb3b9e7119c7abb9e4304672 (patch) | |
| tree | 7174cc530e8f45784086bc392222562e95abdef7 | |
| parent | 38f31687815ca01c8851a8322e67e75e2afce1ab (diff) | |
| download | gcc-f685a2e68d5f87b7eb3b9e7119c7abb9e4304672.zip gcc-f685a2e68d5f87b7eb3b9e7119c7abb9e4304672.tar.gz gcc-f685a2e68d5f87b7eb3b9e7119c7abb9e4304672.tar.bz2 | |
decl.c (components_to_record): Use DECL_FCONTEXT instead of DECL_SECTION_NAME.
2005-07-09 Andrew Pinski <pinskia@physics.uc.edu>
* decl.c (components_to_record): Use DECL_FCONTEXT instead of DECL_SECTION_NAME.
(compare_field_bitpos): Likewise.
From-SVN: r101834
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/decl.c | 8 |
2 files changed, 10 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6eda59a..48c6007 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,11 @@ 2005-07-09 Andrew Pinski <pinskia@physics.uc.edu> + * decl.c (components_to_record): Use DECL_FCONTEXT instead of + DECL_SECTION_NAME. + (compare_field_bitpos): Likewise. + +2005-07-09 Andrew Pinski <pinskia@physics.uc.edu> + * utils.c (create_var_decl): Only set DECL_COMMON on VAR_DECLs. Only set SET_DECL_ASSEMBLER_NAME on VAR_OR_FUNCTION_DECL_P. diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 88fef21..f21a699 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -5636,13 +5636,13 @@ components_to_record (tree gnu_record_type, Node_Id component_list, tree *gnu_arr = (tree *) alloca (sizeof (tree) * len); int i; - /* Set DECL_SECTION_NAME to increasing integers so we have a + /* Set/abuse DECL_FCONTEXT to increasing integers so we have a stable sort. */ for (i = 0, gnu_field = gnu_our_rep_list; gnu_field; gnu_field = TREE_CHAIN (gnu_field), i++) { gnu_arr[i] = gnu_field; - DECL_SECTION_NAME (gnu_field) = size_int (i); + DECL_FCONTEXT (gnu_field) = size_int (i); } qsort (gnu_arr, len, sizeof (tree), compare_field_bitpos); @@ -5655,7 +5655,7 @@ components_to_record (tree gnu_record_type, Node_Id component_list, TREE_CHAIN (gnu_arr[i]) = gnu_our_rep_list; gnu_our_rep_list = gnu_arr[i]; DECL_CONTEXT (gnu_arr[i]) = gnu_rep_type; - DECL_SECTION_NAME (gnu_arr[i]) = NULL_TREE; + DECL_FCONTEXT (gnu_arr[i]) = NULL_TREE; } if (gnu_field_list) @@ -5691,7 +5691,7 @@ compare_field_bitpos (const PTR rt1, const PTR rt2) if (tree_int_cst_equal (bit_position (*t1), bit_position (*t2))) return - (tree_int_cst_lt (DECL_SECTION_NAME (*t1), DECL_SECTION_NAME (*t2)) + (tree_int_cst_lt (DECL_FCONTEXT (*t1), DECL_FCONTEXT (*t2)) ? -1 : 1); else if (tree_int_cst_lt (bit_position (*t1), bit_position (*t2))) return -1; |