* gcc-interface/misc.c (gnat_init): Tweak previous change.

From-SVN: r175960

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 686aad1..a049059 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-07  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/misc.c (gnat_init): Tweak previous change.
+
 2011-07-07  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 
        PR target/39150
@@ -5,8 +9,8 @@
 
 2011-07-06  Richard Guenther  <rguenther@suse.de>
 
-       * gcc-interface/misc.c (gnat_init):
-       Merge calls to build_common_tree_nodes and build_common_tree_nodes_2.
+       * gcc-interface/misc.c (gnat_init): Merge calls to
+       build_common_tree_nodes and build_common_tree_nodes_2.
        Re-initialize boolean_false_node.
 
 2011-07-02  Eric Botcazou  <ebotcazou@adacore.com>

diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c
index 2251652..7021857 100644 (file)
--- a/gcc/ada/gcc-interface/misc.c
+++ b/gcc/ada/gcc-interface/misc.c
@@ -315,11 +315,11 @@ gnat_init (void)
   SET_TYPE_RM_MAX_VALUE (boolean_type_node,
                         build_int_cst (boolean_type_node, 1));
   SET_TYPE_RM_SIZE (boolean_type_node, bitsize_int (1));
+  boolean_true_node = TYPE_MAX_VALUE (boolean_type_node);
+  boolean_false_node = TYPE_MIN_VALUE (boolean_type_node);
 
   sbitsize_one_node = sbitsize_int (1);
   sbitsize_unit_node = sbitsize_int (BITS_PER_UNIT);
-  boolean_true_node = TYPE_MAX_VALUE (boolean_type_node);
-  boolean_false_node = TYPE_MIN_VALUE (boolean_type_node);
 
   ptr_void_type_node = build_pointer_type (void_type_node);