1 /* { dg-require-effective-target stdint_types } */
2 /* { dg-options "-O2 -mdejagnu-cpu=power5" } */
3 
4 #include <stdint.h>
5 
6 /* This is a clone of gcc-dg/optimize-bswapsi-1.c, redone to use load and stores
7    to test whether lwbrx/stwbrx is generated for normal power systems.  */
8 
9 #define __const_swab32(x) ((uint32_t)(				      \
10         (((uint32_t)(x) & (uint32_t)0x000000ffUL) << 24) |            \
11         (((uint32_t)(x) & (uint32_t)0x0000ff00UL) <<  8) |            \
12         (((uint32_t)(x) & (uint32_t)0x00ff0000UL) >>  8) |            \
13         (((uint32_t)(x) & (uint32_t)0xff000000UL) >> 24)))
14 
15 /* This byte swap implementation is used by the Linux kernel and the
16    GNU C library.  */
17 
18 uint32_t
swap32_a_load(uint32_t * in)19 swap32_a_load (uint32_t *in)
20 {
21   return __const_swab32 (*in);
22 }
23 
24 /* The OpenSSH byte swap implementation.  */
25 uint32_t
swap32_b_load(uint32_t * in)26 swap32_b_load (uint32_t *in)
27 {
28   uint32_t a;
29 
30   a = (*in << 16) | (*in >> 16);
31   a = ((a & 0x00ff00ff) << 8) | ((a & 0xff00ff00) >> 8);
32 
33   return a;
34 }
35 
36 void
swap32_a_store(uint32_t * out,uint32_t in)37 swap32_a_store (uint32_t *out, uint32_t in)
38 {
39   *out = __const_swab32 (in);
40 }
41 
42 /* The OpenSSH byte swap implementation.  */
43 void
swap32_b_store(uint32_t * out,uint32_t in)44 swap32_b_store (uint32_t *out, uint32_t in)
45 {
46   uint32_t a;
47 
48   a = (in << 16) | (in >> 16);
49   a = ((a & 0x00ff00ff) << 8) | ((a & 0xff00ff00) >> 8);
50 
51   *out = a;
52 }
53 
54 /* { dg-final { scan-assembler-times "lwbrx" 2 } } */
55 /* { dg-final { scan-assembler-times "stwbrx" 2 } } */
56