trans.c (gigi): Fix non determinism leading to bootstrap comparison failures for...

	* trans.c (gigi): Fix non determinism leading to bootstrap
	comparison failures for debugging information.

From-SVN: r46567

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 19f98db20db8250bde1de1362df40bcbe9a74a13..5da42cabd9c16526ea00350a9d2d4c4f724f963e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-27  Laurent Guerby <guerby@acm.org>
+
+       * trans.c (gigi): Fix non determinism leading to bootstrap
+       comparison failures for debugging information.
+
 2001-10-26  Florian Weimer  <fw@deneb.enyo.de>
 
        * gnat_rm.texi: Use @./@: where appropriate.

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 61f90f9f0db77f7fb79dd09d402c7ffb16db8bb5..daa2469dc94bf2fd76fcc7957c833e45ec9fa4dc 100644 (file)
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -155,6 +155,9 @@ gigi (gnat_root, max_gnat_node, number_name,
 
      Int gigi_operating_mode;
 {
+  tree gnu_standard_long_long_float;
+  tree gnu_standard_exception_type;
+
   max_gnat_nodes = max_gnat_node;
   number_names = number_name;
   Nodes_Ptr = nodes_ptr - First_Node_Id;
@@ -199,10 +202,12 @@ gigi (gnat_root, max_gnat_node, number_name,
   dconstp5 = REAL_VALUE_ATOF ("0.5", DFmode);
   dconstmp5 = REAL_VALUE_ATOF ("-0.5", DFmode);
 
-  init_gigi_decls (gnat_to_gnu_entity (Base_Type (standard_long_long_float),
-                                      NULL_TREE, 0),
-                  gnat_to_gnu_entity (Base_Type (standard_exception_type),
-                                      NULL_TREE, 0));
+  gnu_standard_long_long_float
+    = gnat_to_gnu_entity (Base_Type (standard_long_long_float), NULL_TREE, 0);
+  gnu_standard_exception_type
+    = gnat_to_gnu_entity (Base_Type (standard_exception_type),  NULL_TREE, 0);
+
+  init_gigi_decls (gnu_standard_long_long_float, gnu_standard_exception_type);
 
   /* Emit global symbols containing context list info for the SGI Workshop
      debugger */