FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

htm.md (ttest): Use correct shift value to get CR0.

Browse source 
gcc/
	* config/rs6000/htm.md (ttest): Use correct shift value to get CR0.

gcc/testsuite/
	* gcc.target/powerpc/htm-ttest.c: New test.

From-SVN: r210815
This commit is contained in:
Peter Bergner 2014-05-22 10:55:48 -05:00 • committed by Peter Bergner
parent 37f2edf5c6
commit c9aee4508b
4 changed files with 23 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 @@
2014-05-22 Peter Bergner <bergner@vnet.ibm.com>
* config/rs6000/htm.md (ttest): Use correct shift value to get CR0.
2014-05-22 Richard Earnshaw <rearnsha@arm.com>
PR target/61208

2
gcc/config/rs6000/htm.md
View file

@ -179,7 +179,7 @@
(const_int 0)]
UNSPECV_HTM_TABORTWCI))
(set (subreg:CC (match_dup 2) 0) (match_dup 1))
(set (match_dup 3) (lshiftrt:SI (match_dup 2) (const_int 24)))
(set (match_dup 3) (lshiftrt:SI (match_dup 2) (const_int 28)))
(parallel [(set (match_operand:SI 0 "int_reg_operand" "")
(and:SI (match_dup 3) (const_int 15)))
(clobber (scratch:CC))])]

4
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,7 @@
2014-05-22 Peter Bergner <bergner@vnet.ibm.com>
* gcc.target/powerpc/htm-ttest.c: New test.
2014-05-22 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/opt37.ad[sb]: New test.

14
gcc/testsuite/gcc.target/powerpc/htm-ttest.c Normal file
View file

@ -0,0 +1,14 @@
/* { dg-do compile { target { powerpc*-*-* } } } */
/* { dg-skip-if "" { powerpc*-*-darwin* } { "*" } { "" } } */
/* { dg-require-effective-target powerpc_htm_ok } */
/* { dg-options "-O2 -mhtm" } */
/* { dg-final { scan-assembler "rlwinm r?\[0-9\]+,r?\[0-9\]+,3,30,31" { target { ilp32 } } } } */
/* { dg-final { scan-assembler "rldicl r?\[0-9\]+,r?\[0-9\]+,35,62" { target { lp64 } } } } */
#include <htmintrin.h>
long
ttest (void)
{
return _HTM_STATE(__builtin_ttest());
}