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 /gcc/ada/decl.c | |
| 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
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 8 |
1 files changed, 4 insertions, 4 deletions
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; |