Commit 9f47a64f by Eric Botcazou Committed by Eric Botcazou

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
parent 92007ba6
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> 2018-04-25 Eric Botcazou <ebotcazou@adacore.com>
PR ada/85007 PR ada/85007
......
...@@ -1279,7 +1279,7 @@ __gnat_handle_vms_condition (int *sigargs, void *mechargs) ...@@ -1279,7 +1279,7 @@ __gnat_handle_vms_condition (int *sigargs, void *mechargs)
/* If it was a DEC Ada specific condtiion, make it GNAT otherwise /* If it was a DEC Ada specific condtiion, make it GNAT otherwise
keep the old facility. */ 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, SYS$PUTMSG (sigargs, copy_msg, &gnat_facility,
(unsigned long long ) message); (unsigned long long ) message);
else else
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment