1 /* { dg-additional-options "-fPIC" { target fpic } } */
2
3 typedef unsigned long word32;
4 typedef unsigned char byte;
5 typedef struct cast256_instance { word32 l_key[96];} cast256_key;
6 word32 cast256_sbox[4][256] = {};
7 void
key(cast256_key * key,const word32 * in_key,const int key_len)8 key (cast256_key *key, const word32 *in_key, const int key_len)
9 {
10 word32 i, j, t, u, cm, cr, lk[8], tm[8], tr[8];
11 for (i = 0; i < 96; i += 8)
12 {
13 for (j = 0; j < 8; ++j)
14 {
15 tm[j] = cm;
16 cm += 0x6ed9eba1;
17 tr[j] = cr;
18 cr += 17;
19 }
20 t = (((tm[0] + lk[7]) << ((word32)(tr[0] & 31)))
21 | ((tm[0] + lk[7]) >> (32 - (word32)(tr[0] & 31))));
22 u = cast256_sbox[0][((byte)((t) >> (8 * 3)))];
23 u ^= cast256_sbox[1][((byte)((t) >> (8 * 2)))];
24 lk[7] ^= u;
25 for (j = 0; j < 8; ++j)
26 {
27 cm += 0x6ed9eba1;
28 tr[j] = cr;
29 cr += 17;
30 }
31 t = (((tm[0] + lk[7]) << ((word32)(tr[0] & 31)))
32 | ((tm[0] + lk[7]) >> (32 - (word32)(tr[0] & 31))));
33 u = cast256_sbox[0][((byte)((t) >> (8 * 3)))];
34 u ^= cast256_sbox[1][((byte)((t) >> (8 * 2)))];
35 u -= cast256_sbox[2][((byte)((t) >> (8 * 1)))];
36 lk[2] ^= u;
37 lk[7] ^= u;
38 key->l_key[i + 1] = lk[2];
39 }
40 }
41