diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-04-08 09:08:12 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-04-08 09:08:12 +0000 |
| commit | 113c69ff2d41091359ec37789974cc47f1169e05 (patch) | |
| tree | baa5f85fcaf8970ce98360f75251932428ea8095 /gcc/ada/gcc-interface/trans.c | |
| parent | 43941fa55c5246c51a31c86df1006819ec67d8e0 (diff) | |
| download | gcc-113c69ff2d41091359ec37789974cc47f1169e05.zip gcc-113c69ff2d41091359ec37789974cc47f1169e05.tar.gz gcc-113c69ff2d41091359ec37789974cc47f1169e05.tar.bz2 | |
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) <E_Function>: Do not make
a function returning an unconstrained type 'const' for the middle-end.
* gcc-interface/trans.c (Pragma_to_gnu) <case Pragma_Warning>: Use
exact condition to detect Reason => "..." pattern.
From-SVN: r221916
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 3 |
1 files changed, 2 insertions, 1 deletions
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) |