[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

5 files changed, 18 insertions, 6 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9df54e5..2126995 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,13 @@
+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):
diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h
index 1c5aac4..9b38903 100644
--- a/gcc/ada/fe.h
+++ b/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: */
 
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index b0cbedb..d2446b1 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/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
diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi
index 6453c28..89ed0d3 100644
--- a/gcc/ada/gnat_rm.texi
+++ b/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:
 
diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index fb94198..e943837 100644
--- a/gcc/ada/init.c
+++ b/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]));