diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2014-04-15 08:47:29 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2014-04-15 08:47:29 +0000 |
| commit | bd6a077a919f616121b641802c73de75587c99ff (patch) | |
| tree | e19027a5cc2a8de60b547b474ba84d13be10a316 /gcc/ada/gcc-interface | |
| parent | 628169e0d76597fdb0477cc27a23466ebcb408ab (diff) | |
| download | gcc-bd6a077a919f616121b641802c73de75587c99ff.zip gcc-bd6a077a919f616121b641802c73de75587c99ff.tar.gz gcc-bd6a077a919f616121b641802c73de75587c99ff.tar.bz2 | |
decl.c (prepend_one_attribute_pragma): Call Is_OK_Static_Expression in lieu of Is_Static_Expression to detect valid...
* gcc-interface/decl.c (prepend_one_attribute_pragma): Call
Is_OK_Static_Expression in lieu of Is_Static_Expression to
detect valid arguments.
From-SVN: r209409
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index f3f3d6d..aed49b7 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -6151,7 +6151,8 @@ prepend_one_attribute_pragma (struct attrib **attr_list, Node_Id gnat_pragma) Node_Id gnat_arg0 = Next (First (gnat_arg)); Node_Id gnat_arg1 = Empty; - if (Present (gnat_arg0) && Is_Static_Expression (Expression (gnat_arg0))) + if (Present (gnat_arg0) + && Is_OK_Static_Expression (Expression (gnat_arg0))) { gnu_arg0 = gnat_to_gnu (Expression (gnat_arg0)); @@ -6165,7 +6166,8 @@ prepend_one_attribute_pragma (struct attrib **attr_list, Node_Id gnat_pragma) gnat_arg1 = Next (gnat_arg0); } - if (Present (gnat_arg1) && Is_Static_Expression (Expression (gnat_arg1))) + if (Present (gnat_arg1) + && Is_OK_Static_Expression (Expression (gnat_arg1))) { gnu_arg1 = gnat_to_gnu (Expression (gnat_arg1)); |