From 9f47a64fccccb215eacf52aea827b577eabdb1f0 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 27 Apr 2018 08:05:44 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/init.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 33ea6b4..ae1bf99 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-04-27 Eric Botcazou + + PR ada/85540 + * init.c (__gnat_handle_vms_condition): Add missing parentheses. + 2018-04-25 Eric Botcazou PR ada/85007 diff --git a/gcc/ada/init.c b/gcc/ada/init.c index cc271af..5088ecf 100644 --- 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 -- 2.7.4