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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6eda59ae306a00f7977b447fa66acfb78a141103..48c60073c3dc70d7530736bcf3d7acfd3e962e7c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index 88fef2157d397e8fd1fd2f83619bc3422ae1c629..f21a6990444ba5f1403656d2e568539d8173187e 100644 (file)
--- 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;