diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-06-06 10:32:11 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-06-06 10:32:11 +0000 |
| commit | 5c4a1c7b20dfd908f43951e16ff2679a4b184d1a (patch) | |
| tree | 29d531f11d570bb390201a3233ee61d76d77c27e /gcc/ada | |
| parent | e9f57686fcfaf04788a27d6433e7bf727d08001c (diff) | |
| download | gcc-5c4a1c7b20dfd908f43951e16ff2679a4b184d1a.zip gcc-5c4a1c7b20dfd908f43951e16ff2679a4b184d1a.tar.gz gcc-5c4a1c7b20dfd908f43951e16ff2679a4b184d1a.tar.bz2 | |
utils2.c (gnat_stabilize_reference): Fix thinko.
* gcc-interface/utils2.c (gnat_stabilize_reference) <COMPOUND_EXPR>:
Fix thinko.
From-SVN: r174690
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6587ffd..ac77086 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2011-06-06 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/utils2.c (gnat_stabilize_reference) <COMPOUND_EXPR>: + Fix thinko. + +2011-06-06 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/trans.c (Identifier_to_gnu): Also handle deferred constants whose full view has discriminants specially. diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index db19032..2a455d1 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -2518,8 +2518,8 @@ gnat_stabilize_reference (tree ref, bool force, bool *success) result = build2 (COMPOUND_EXPR, type, gnat_stabilize_reference (TREE_OPERAND (ref, 0), force, success), - gnat_stabilize_reference_1 (TREE_OPERAND (ref, 1), - force)); + gnat_stabilize_reference (TREE_OPERAND (ref, 1), force, + success)); break; case CONSTRUCTOR: |