GNU Linux-libre 4.4.284-gnu1
[releases.git] / lib / raid6 / int.uc
1 /* -*- linux-c -*- ------------------------------------------------------- *
2  *
3  *   Copyright 2002-2004 H. Peter Anvin - All Rights Reserved
4  *
5  *   This program is free software; you can redistribute it and/or modify
6  *   it under the terms of the GNU General Public License as published by
7  *   the Free Software Foundation, Inc., 53 Temple Place Ste 330,
8  *   Boston MA 02111-1307, USA; either version 2 of the License, or
9  *   (at your option) any later version; incorporated herein by reference.
10  *
11  * ----------------------------------------------------------------------- */
12
13 /*
14  * int$#.c
15  *
16  * $#-way unrolled portable integer math RAID-6 instruction set
17  *
18  * This file is postprocessed using unroll.awk
19  */
20
21 #include <linux/raid/pq.h>
22
23 /*
24  * This is the C data type to use
25  */
26
27 /* Change this from BITS_PER_LONG if there is something better... */
28 #if BITS_PER_LONG == 64
29 # define NBYTES(x) ((x) * 0x0101010101010101UL)
30 # define NSIZE  8
31 # define NSHIFT 3
32 # define NSTRING "64"
33 typedef u64 unative_t;
34 #else
35 # define NBYTES(x) ((x) * 0x01010101U)
36 # define NSIZE  4
37 # define NSHIFT 2
38 # define NSTRING "32"
39 typedef u32 unative_t;
40 #endif
41
42
43
44 /*
45  * IA-64 wants insane amounts of unrolling.  On other architectures that
46  * is just a waste of space.
47  */
48 #if ($# <= 8) || defined(__ia64__)
49
50
51 /*
52  * These sub-operations are separate inlines since they can sometimes be
53  * specially optimized using architecture-specific hacks.
54  */
55
56 /*
57  * The SHLBYTE() operation shifts each byte left by 1, *not*
58  * rolling over into the next byte
59  */
60 static inline __attribute_const__ unative_t SHLBYTE(unative_t v)
61 {
62         unative_t vv;
63
64         vv = (v << 1) & NBYTES(0xfe);
65         return vv;
66 }
67
68 /*
69  * The MASK() operation returns 0xFF in any byte for which the high
70  * bit is 1, 0x00 for any byte for which the high bit is 0.
71  */
72 static inline __attribute_const__ unative_t MASK(unative_t v)
73 {
74         unative_t vv;
75
76         vv = v & NBYTES(0x80);
77         vv = (vv << 1) - (vv >> 7); /* Overflow on the top bit is OK */
78         return vv;
79 }
80
81
82 static void raid6_int$#_gen_syndrome(int disks, size_t bytes, void **ptrs)
83 {
84         u8 **dptr = (u8 **)ptrs;
85         u8 *p, *q;
86         int d, z, z0;
87
88         unative_t wd$$, wq$$, wp$$, w1$$, w2$$;
89
90         z0 = disks - 3;         /* Highest data disk */
91         p = dptr[z0+1];         /* XOR parity */
92         q = dptr[z0+2];         /* RS syndrome */
93
94         for ( d = 0 ; d < bytes ; d += NSIZE*$# ) {
95                 wq$$ = wp$$ = *(unative_t *)&dptr[z0][d+$$*NSIZE];
96                 for ( z = z0-1 ; z >= 0 ; z-- ) {
97                         wd$$ = *(unative_t *)&dptr[z][d+$$*NSIZE];
98                         wp$$ ^= wd$$;
99                         w2$$ = MASK(wq$$);
100                         w1$$ = SHLBYTE(wq$$);
101                         w2$$ &= NBYTES(0x1d);
102                         w1$$ ^= w2$$;
103                         wq$$ = w1$$ ^ wd$$;
104                 }
105                 *(unative_t *)&p[d+NSIZE*$$] = wp$$;
106                 *(unative_t *)&q[d+NSIZE*$$] = wq$$;
107         }
108 }
109
110 static void raid6_int$#_xor_syndrome(int disks, int start, int stop,
111                                      size_t bytes, void **ptrs)
112 {
113         u8 **dptr = (u8 **)ptrs;
114         u8 *p, *q;
115         int d, z, z0;
116
117         unative_t wd$$, wq$$, wp$$, w1$$, w2$$;
118
119         z0 = stop;              /* P/Q right side optimization */
120         p = dptr[disks-2];      /* XOR parity */
121         q = dptr[disks-1];      /* RS syndrome */
122
123         for ( d = 0 ; d < bytes ; d += NSIZE*$# ) {
124                 /* P/Q data pages */
125                 wq$$ = wp$$ = *(unative_t *)&dptr[z0][d+$$*NSIZE];
126                 for ( z = z0-1 ; z >= start ; z-- ) {
127                         wd$$ = *(unative_t *)&dptr[z][d+$$*NSIZE];
128                         wp$$ ^= wd$$;
129                         w2$$ = MASK(wq$$);
130                         w1$$ = SHLBYTE(wq$$);
131                         w2$$ &= NBYTES(0x1d);
132                         w1$$ ^= w2$$;
133                         wq$$ = w1$$ ^ wd$$;
134                 }
135                 /* P/Q left side optimization */
136                 for ( z = start-1 ; z >= 0 ; z-- ) {
137                         w2$$ = MASK(wq$$);
138                         w1$$ = SHLBYTE(wq$$);
139                         w2$$ &= NBYTES(0x1d);
140                         wq$$ = w1$$ ^ w2$$;
141                 }
142                 *(unative_t *)&p[d+NSIZE*$$] ^= wp$$;
143                 *(unative_t *)&q[d+NSIZE*$$] ^= wq$$;
144         }
145
146 }
147
148 const struct raid6_calls raid6_intx$# = {
149         raid6_int$#_gen_syndrome,
150         raid6_int$#_xor_syndrome,
151         NULL,                   /* always valid */
152         "int" NSTRING "x$#",
153         0
154 };
155
156 #endif