* gcc-interface/trans.c (gigi): Fix initialization order.

From-SVN: r231068

gcc/ada/ChangeLog

 2015-11-30  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gcc-interface/trans.c (gigi): Fix initialization order.
+
+2015-11-30  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* osint.adb: Add use type clause for CRTL.size_t.
 	(C_String_Length): Return CRTL.size_t instead of Integer.
 	(To_Path_String_Access): Take CRTL.size_t instead of Integer.

gcc/ada/gcc-interface/trans.c

@@ -627,8 +627,16 @@ gigi (Node_Id gnat_root,
 
   main_identifier_node = get_identifier ("main");
 
-  /* Install the builtins we might need, either internally or as
-     user available facilities for Intrinsic imports.  */
+  /* If we are using the GCC exception mechanism, let GCC know.  */
+  if (Back_End_Exceptions ())
+    gnat_init_gcc_eh ();
+
+  /* Initialize the GCC support for FP operations.  */
+  gnat_init_gcc_fp ();
+
+  /* Install the builtins we might need, either internally or as user-available
+     facilities for Intrinsic imports.  Note that this must be done after the
+     GCC exception mechanism is initialized.  */
   gnat_install_builtins ();
 
   vec_safe_push (gnu_except_ptr_stack, NULL_TREE);
@@ -641,13 +649,6 @@ gigi (Node_Id gnat_root,
     targetm.asm_out.output_ident
       (TREE_STRING_POINTER (gnat_to_gnu (Ident_String (Main_Unit))));
 
-  /* If we are using the GCC exception mechanism, let GCC know.  */
-  if (Back_End_Exceptions ())
-    gnat_init_gcc_eh ();
-
-  /* Initialize the GCC support for FP operations.  */
-  gnat_init_gcc_fp ();
-
   /* Force -fno-strict-aliasing if the configuration pragma was seen.  */
   if (No_Strict_Aliasing_CP)
     flag_strict_aliasing = 0;