diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2013-11-18 09:50:25 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2013-11-18 09:50:25 +0000 |
| commit | 9adcf5b40abb931351d356213eee9e6f79865128 (patch) | |
| tree | 70ae33e2e784021e8e43b9f864fd2b7083217581 /gcc/ada/gcc-interface/decl.c | |
| parent | 5f1b2f8bfb566db880a546c5f8d8fc5777f9706f (diff) | |
| download | gcc-9adcf5b40abb931351d356213eee9e6f79865128.zip gcc-9adcf5b40abb931351d356213eee9e6f79865128.tar.gz gcc-9adcf5b40abb931351d356213eee9e6f79865128.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Deal with an error mark as renamed object in type annotating mode.
* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Deal with an
error mark as renamed object in type annotating mode.
From-SVN: r204942
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index d386602..d3cc546 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1117,8 +1117,12 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) as we have a VAR_DECL for the pointer we make. */ } - gnu_expr = build_unary_op (ADDR_EXPR, gnu_type, - maybe_stable_expr); + if (type_annotate_only + && TREE_CODE (maybe_stable_expr) == ERROR_MARK) + gnu_expr = NULL_TREE; + else + gnu_expr = build_unary_op (ADDR_EXPR, gnu_type, + maybe_stable_expr); gnu_size = NULL_TREE; used_by_ref = true; |