diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-06-29 07:37:31 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2019-06-29 07:37:31 +0000 |
| commit | 4ed9ab2de7fd409e385524ab9ca2e62a3097691e (patch) | |
| tree | 7a6af0139a305970761e60c267d280f83932e757 /gcc/ada/gcc-interface/trans.c | |
| parent | d9888378d38544bc1261d533d250096144931fd9 (diff) | |
| download | gcc-4ed9ab2de7fd409e385524ab9ca2e62a3097691e.zip gcc-4ed9ab2de7fd409e385524ab9ca2e62a3097691e.tar.gz gcc-4ed9ab2de7fd409e385524ab9ca2e62a3097691e.tar.bz2 | |
trans.c (mark_visited_r): Set TYPE_SIZES_GIMPLIFIED on the main variant of a type, if any.
* gcc-interface/trans.c (mark_visited_r): Set TYPE_SIZES_GIMPLIFIED on
the main variant of a type, if any.
From-SVN: r272815
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 e2d2dda..32dd132 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -9042,8 +9042,9 @@ mark_visited_r (tree *tp, int *walk_subtrees, void *data ATTRIBUTE_UNUSED) else if (!TYPE_IS_DUMMY_P (t)) TREE_VISITED (t) = 1; + /* The test in gimplify_type_sizes is on the main variant. */ if (TYPE_P (t)) - TYPE_SIZES_GIMPLIFIED (t) = 1; + TYPE_SIZES_GIMPLIFIED (TYPE_MAIN_VARIANT (t)) = 1; return NULL_TREE; } |