re PR ada/85540 (gcc/ada/init.c:1282: suspicious expression ?)

	PR ada/85540
	* init.c (__gnat_handle_vms_condition): Add missing parentheses.

From-SVN: r259698

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 33ea6b4907ea67716ea611e7f931d15fdc0d9e7a..ae1bf99a860ed167156e666847905a5dda7ca73b 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-04-27  Eric Botcazou  <ebotcazou@adacore.com>
+
+       PR ada/85540
+       * init.c (__gnat_handle_vms_condition): Add missing parentheses.
+
 2018-04-25  Eric Botcazou  <ebotcazou@adacore.com>
 
        PR ada/85007

diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index cc271af68d4e00a60fe9b5c009f167af74828f73..5088ecffc4f1843e2944d1f79e4d4fbe2b0ea878 100644 (file)
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -1279,7 +1279,7 @@ __gnat_handle_vms_condition (int *sigargs, void *mechargs)
 
   /* If it was a DEC Ada specific condtiion, make it GNAT otherwise
      keep the old facility.  */
-  if (sigargs [1] & FAC_MASK == DECADA_M_FACILITY)
+  if ((sigargs [1] & FAC_MASK) == DECADA_M_FACILITY)
     SYS$PUTMSG (sigargs, copy_msg, &gnat_facility,
                (unsigned long long ) message);
   else