git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* gimple.c (recalculate_side_effects) <tcc_constant>: New case. 

From-SVN: r142541
This commit is contained in:
Eric Botcazou 2008-12-07 23:27:14 +00:00 committed by Eric Botcazou
parent e61451e843
commit 13f95bdb92
4 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ChangeLog
View File

@ -1,3 +1,7 @@
2008-12-07 Eric Botcazou <ebotcazou@adacore.com>
* gimple.c (recalculate_side_effects) <tcc_constant>: New case.
2008-12-07 Richard Guenther <rguenther@suse.de> 2008-12-07 Richard Guenther <rguenther@suse.de>
PR tree-optimization/38405 PR tree-optimization/38405

5
gcc/gimple.c
View File

@ -3108,8 +3108,11 @@ recalculate_side_effects (tree t)
} }
break; break;
case tcc_constant:
/* No side-effects. */
return;
default: default:
/* Can never be used with non-expressions. */
gcc_unreachable (); gcc_unreachable ();
} }
} }

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2008-12-07 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/string_comparison.adb: New test.
2008-12-07 H.J. Lu <hongjiu.lu@intel.com> 2008-12-07 H.J. Lu <hongjiu.lu@intel.com>
PR tree-optimization/38405 PR tree-optimization/38405

10
gcc/testsuite/gnat.dg/string_comparison.adb Normal file
View File

@ -0,0 +1,10 @@
-- { dg-do compile }
with Ada.Text_IO; use Ada.Text_IO;
procedure String_Comparison is
package Bool_IO is new Enumeration_IO (Boolean);
use Bool_IO;
begin
Put (Boolean'Image (True) = "True");
end;