Imported Upstream version 2.9.0
[debian/cc1111] / support / regression / tests / rotate.c
1 /** Tests covering rotate operations
2     size: 8,16,32
3     msb: 0,1
4 */
5 #include <testfwk.h>
6 #ifdef __sun__
7 #include <inttypes.h>
8 #else
9 #include <stdint.h>
10 #endif
11
12 #define SIZE ({size})
13 #define MSB ({msb})
14
15 #if SIZE == 8
16 #  define TYPE uint8_t
17 #  if MSB
18 #    define TEST_VECT 0xa4
19 #  else
20 #    define TEST_VECT 0x53
21 #  endif
22 #endif
23
24 #if SIZE == 16
25 #  define TYPE uint16_t
26 #  if MSB
27 #    define TEST_VECT 0xa8ce
28 #  else
29 #    define TEST_VECT 0x5357
30 #  endif
31 #endif
32
33 #if SIZE == 32
34 #  define TYPE uint32_t
35 #  if MSB
36 #    define TEST_VECT 0xa8c5a5c6
37 #  else
38 #    define TEST_VECT 0x55357553
39 #  endif
40 #endif
41
42 TYPE rol1(TYPE s){ return (s<<1) | (s>>(SIZE-1)); }
43 TYPE rol2(TYPE s){ return (s<<2) | (s>>(SIZE-2)); }
44 TYPE rol3(TYPE s){ return (s<<3) | (s>>(SIZE-3)); }
45 TYPE rol4(TYPE s){ return (s<<4) | (s>>(SIZE-4)); }
46 TYPE rol5(TYPE s){ return (s<<5) | (s>>(SIZE-5)); }
47 TYPE rol6(TYPE s){ return (s<<6) | (s>>(SIZE-6)); }
48 TYPE rol7(TYPE s){ return (s<<7) | (s>>(SIZE-7)); }
49
50 #if SIZE >=16
51 TYPE rol8 (TYPE s){ return (s<<8 ) | (s>>(SIZE-8 )); }
52 TYPE rol9 (TYPE s){ return (s<<9 ) | (s>>(SIZE-9 )); }
53 TYPE rol10(TYPE s){ return (s<<10) | (s>>(SIZE-10)); }
54 TYPE rol11(TYPE s){ return (s<<11) | (s>>(SIZE-11)); }
55 TYPE rol12(TYPE s){ return (s<<12) | (s>>(SIZE-12)); }
56 TYPE rol13(TYPE s){ return (s<<13) | (s>>(SIZE-13)); }
57 TYPE rol14(TYPE s){ return (s<<14) | (s>>(SIZE-14)); }
58 TYPE rol15(TYPE s){ return (s<<15) | (s>>(SIZE-15)); }
59 #endif
60
61 #if SIZE >=32
62 TYPE rol16(TYPE s){ return (s<<16) | (s>>(SIZE-16)); }
63 TYPE rol17(TYPE s){ return (s<<17) | (s>>(SIZE-17)); }
64
65 TYPE rol23(TYPE s){ return (s<<23) | (s>>(SIZE-23)); }
66 TYPE rol24(TYPE s){ return (s<<24) | (s>>(SIZE-24)); }
67 TYPE rol25(TYPE s){ return (s<<25) | (s>>(SIZE-25)); }
68
69 TYPE rol30(TYPE s){ return (s<<30) | (s>>(SIZE-30)); }
70 TYPE rol31(TYPE s){ return (s<<31) | (s>>(SIZE-31)); }
71 #endif
72
73 static void
74 testRol(void)
75 {
76     volatile TYPE t = TEST_VECT;
77     TYPE u;
78
79     u = t;
80
81     ASSERT( rol1(u) == (TYPE)((TEST_VECT<<1) | (TEST_VECT>>(SIZE-1))) );
82     ASSERT( rol2(u) == (TYPE)((TEST_VECT<<2) | (TEST_VECT>>(SIZE-2))) );
83     ASSERT( rol3(u) == (TYPE)((TEST_VECT<<3) | (TEST_VECT>>(SIZE-3))) );
84     ASSERT( rol4(u) == (TYPE)((TEST_VECT<<4) | (TEST_VECT>>(SIZE-4))) );
85     ASSERT( rol5(u) == (TYPE)((TEST_VECT<<5) | (TEST_VECT>>(SIZE-5))) );
86     ASSERT( rol6(u) == (TYPE)((TEST_VECT<<6) | (TEST_VECT>>(SIZE-6))) );
87     ASSERT( rol7(u) == (TYPE)((TEST_VECT<<7) | (TEST_VECT>>(SIZE-7))) );
88
89 #if SIZE >=16
90     ASSERT( rol8 (u) == (TYPE)((TEST_VECT<<8 ) | (TEST_VECT>>(SIZE-8 ))) );
91     ASSERT( rol9 (u) == (TYPE)((TEST_VECT<<9 ) | (TEST_VECT>>(SIZE-9 ))) );
92     ASSERT( rol10(u) == (TYPE)((TEST_VECT<<10) | (TEST_VECT>>(SIZE-10))) );
93     ASSERT( rol11(u) == (TYPE)((TEST_VECT<<11) | (TEST_VECT>>(SIZE-11))) );
94     ASSERT( rol12(u) == (TYPE)((TEST_VECT<<12) | (TEST_VECT>>(SIZE-12))) );
95     ASSERT( rol13(u) == (TYPE)((TEST_VECT<<13) | (TEST_VECT>>(SIZE-13))) );
96     ASSERT( rol14(u) == (TYPE)((TEST_VECT<<14) | (TEST_VECT>>(SIZE-14))) );
97     ASSERT( rol15(u) == (TYPE)((TEST_VECT<<15) | (TEST_VECT>>(SIZE-15))) );
98 #endif
99
100 #if SIZE >=32
101     ASSERT( rol16(u) == (TYPE)((TEST_VECT<<16) | (TEST_VECT>>(SIZE-16))) );
102     ASSERT( rol17(u) == (TYPE)((TEST_VECT<<17) | (TEST_VECT>>(SIZE-17))) );
103
104     ASSERT( rol23(u) == (TYPE)((TEST_VECT<<23) | (TEST_VECT>>(SIZE-23))) );
105     ASSERT( rol24(u) == (TYPE)((TEST_VECT<<24) | (TEST_VECT>>(SIZE-24))) );
106     ASSERT( rol25(u) == (TYPE)((TEST_VECT<<25) | (TEST_VECT>>(SIZE-25))) );
107
108     ASSERT( rol30(u) == (TYPE)((TEST_VECT<<30) | (TEST_VECT>>(SIZE-30))) );
109     ASSERT( rol31(u) == (TYPE)((TEST_VECT<<31) | (TEST_VECT>>(SIZE-31))) );
110 #endif
111 }