This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Re: [Ada] Fix for bootstrap comparison failures


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 */


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]