This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Ada] Fix for bootstrap comparison failures
- To: guerby at acm dot org
- Subject: Re: [Ada] Fix for bootstrap comparison failures
- From: bosch at gnat dot com
- Date: Sat, 27 Oct 2001 10:26:44 -0400 (EDT)
- Cc: gcc-patches at gcc dot gnu dot org
Applied. Thanks again. -Geert
--
Laurent Guerby <guerby@acm.org>
2001-10-27 Laurent Guerby <guerby@acm.org>
* trans.c (gigi): Fix non determinism leading to bootstrap
comparison failures for debugging information.
diff -c -3 -p -r1.3 trans.c
*** trans.c 2001/10/26 16:01:07 1.3
--- trans.c 2001/10/27 12:58:47
*************** gigi (gnat_root, max_gnat_node, number_n
*** 155,160 ****
--- 155,163 ----
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;
*************** gigi (gnat_root, max_gnat_node, number_n
*** 198,208 ****
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));
/* Emit global symbols containing context list info for the SGI Workshop
debugger */
--- 201,213 ----
dconstp5 = REAL_VALUE_ATOF ("0.5", DFmode);
dconstmp5 = REAL_VALUE_ATOF ("-0.5", DFmode);
+
+ 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 */