[multiple changes]

2014-02-19  Gary Dismukes  <dismukes@adacore.com>

	* gnat_rm.texi: Minor spelling fixes.

2014-02-19  Doug Rupp  <rupp@adacore.com>

	* init.c: Remove unneeded code.
	* fe.h (Float_Format): New macro
	* gcc-interface/trans.c (gigi): On VMS, set vms_float_format.

From-SVN: r207887

gcc/ada/ChangeLog

+2014-02-19  Gary Dismukes  <dismukes@adacore.com>
+
+	* gnat_rm.texi: Minor spelling fixes.
+
+2014-02-19  Doug Rupp  <rupp@adacore.com>
+
+	* init.c: Remove unneeded code.
+	* fe.h (Float_Format): New macro
+	* gcc-interface/trans.c (gigi): On VMS, set vms_float_format.
+
 2014-02-19  Hristian Kirtchev  <kirtchev@adacore.com>
 
 	* sem_prag.adb (Check_Refined_Global_Item):

gcc/ada/fe.h

@@ -184,6 +184,7 @@ extern Boolean In_Same_Source_Unit              (Node_Id, Node_Id);
 #define Exception_Mechanism            opt__exception_mechanism
 #define Generate_SCO_Instance_Table    opt__generate_sco_instance_table
 #define Global_Discard_Names           opt__global_discard_names
+#define Float_Format                   opt__float_format
 
 typedef enum {Setjmp_Longjmp, Back_End_Exceptions} Exception_Mechanism_Type;
 
@@ -193,6 +194,7 @@ extern Boolean Exception_Locations_Suppressed;
 extern Exception_Mechanism_Type Exception_Mechanism;
 extern Boolean Generate_SCO_Instance_Table;
 extern Boolean Global_Discard_Names;
+extern Char Float_Format;
 
 /* restrict: */
 

gcc/ada/gcc-interface/trans.c

@@ -316,6 +316,10 @@ gigi (Node_Id gnat_root,
 
   type_annotate_only = (gigi_operating_mode == 1);
 
+#if TARGET_ABI_OPEN_VMS
+  vms_float_format = Float_Format;
+#endif
+
   for (i = 0; i < number_file; i++)
     {
       /* Use the identifier table to make a permanent copy of the filename as

gcc/ada/gnat_rm.texi

@@ -14273,9 +14273,9 @@ for a particular subtype. Consider this example:
 
 @noindent
 By default, @code{RAB}
-has a size of 1 (sufficient to accomodate the representation
+has a size of 1 (sufficient to accommodate the representation
 of @code{A} and @code{B}, 0 and 1), and @code{REF}
-has a size of 3 (sufficient to accomodate the representation
+has a size of 3 (sufficient to accommodate the representation
 of @code{E} and @code{F}, 4 and 5). But if we add the
 following @code{Value_Size} attribute definition clause:
 

gcc/ada/init.c

@@ -809,7 +809,6 @@ void (*__gnat_ctrl_c_handler) (void) = 0;
 /* Masks for facility identification. */
 #define FAC_MASK  		0x0fff0000
 #define DECADA_M_FACILITY	0x00310000
-#define SEVERITY_MASK		0x7
 
 /* Define macro symbols for the VMS conditions that become Ada exceptions.
    It would be better to just include <ssdef.h> */
@@ -1069,9 +1068,6 @@ __gnat_default_resignal_p (int code)
     if ((code & FAC_MASK) == facility_resignal_table [i])
       return 1;
 
-  if ((code & SEVERITY_MASK) == 1 || (code & SEVERITY_MASK) == 3)
-    return 1;
-
   for (i = 0, iexcept = 0;
        cond_resignal_table [i]
 	&& !(iexcept = LIB$MATCH_COND (&code, &cond_resignal_table [i]));