This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Fix for bootstrap comparison failures
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Fix for bootstrap comparison failures
- From: <guerby at acm dot org>
- Date: Sat, 27 Oct 2001 11:01:40 +0200
- Reply-to: guerby at acm dot org
Tested by a -O0 bootstrap on i686-pc-linux-gnu. -O2 bootstrap still running.
I haven't inspected the rest of the code for parameter evaluation non
determinism yet.
--
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 09:02:30
*************** 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 */