From 113c69ff2d41091359ec37789974cc47f1169e05 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 8 Apr 2015 09:08:12 +0000 Subject: decl.c (gnat_to_gnu_entity): Do not make a function returning an unconstrained type 'const' for the middle-end. * gcc-interface/decl.c (gnat_to_gnu_entity) : Do not make a function returning an unconstrained type 'const' for the middle-end. * gcc-interface/trans.c (Pragma_to_gnu) : Use exact condition to detect Reason => "..." pattern. From-SVN: r221916 --- gcc/ada/gcc-interface/trans.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/gcc-interface/trans.c') diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 7379477..6ffee06 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1444,7 +1444,8 @@ Pragma_to_gnu (Node_Id gnat_node) } /* Deal with optional pattern (but ignore Reason => "..."). */ - if (Present (Next (gnat_temp)) && No (Chars (Next (gnat_temp)))) + if (Present (Next (gnat_temp)) + && Chars (Next (gnat_temp)) != Name_Reason) { /* pragma Warnings (On | Off, Name) is handled differently. */ if (Nkind (Expression (Next (gnat_temp))) != N_String_Literal) -- cgit v1.1