[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9df54e5..2126995 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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]));