OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

utils2.c (gnat_stabilize_reference): Fix thinko.

Browse Source 
* gcc-interface/utils2.c (gnat_stabilize_reference) <COMPOUND_EXPR>:
	Fix thinko.

From-SVN: r174690
This commit is contained in:
Eric Botcazou 2011-06-06 10:32:11 +00:00 committed by Eric Botcazou
parent e9f57686fc
commit 5c4a1c7b20
4 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
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

4
gcc/ada/gcc-interface/utils2.c
View File

@ -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:

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2011-06-06 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/specs/cond_expr1.ads: New test.
2011-06-06 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/deferred_const4.ad[sb]: New test.

9
gcc/testsuite/gnat.dg/specs/cond_expr1.ads Normal file
View File

@ -0,0 +1,9 @@
-- { dg-do compile }
-- { dg-options "-gnat12 -gnato" }
package Cond_Expr1 is
function Tail (S : String) return String is
(if S'Last <= S'First then "" else S (S'First + 1 .. S'Last));
end Cond_Expr1;