Mercurial > vec

annotate utils/gendouble.c @ 41:c6e0df09b86f default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*: performance improvements with old GCC, reimplement altivec
author Paper <paper@tflc.us>
date Mon, 28 Apr 2025 16:31:59 -0400
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
41
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
1 /**
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
2 * vec - a tiny SIMD vector library in C99
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
3 *
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
4 * Copyright (c) 2024-2025 Paper
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
5 *
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
7 * of this software and associated documentation files (the "Software"), to deal
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
8 * in the Software without restriction, including without limitation the rights
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
10 * copies of the Software, and to permit persons to whom the Software is
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
11 * furnished to do so, subject to the following conditions:
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
12 *
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
13 * The above copyright notice and this permission notice shall be included in all
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
14 * copies or substantial portions of the Software.
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
15 *
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
19 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
22 * SOFTWARE.
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
23 **/
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
24
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
25 /* Use this file to generate include/vec/impl/double.h !!
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
26 *
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
27 * `gcc -o gendouble gendouble.c` */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
28
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
29 #include <stdio.h>
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
30 #include <stdlib.h>
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
31 #include <string.h>
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
32 #include <ctype.h>
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
33
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
34 #define ARRAY_SIZE(x) (sizeof(x)/sizeof((x)[0]))
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
35
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
36 /* XXX: would it be faster to unroll literally everything instead of defining everything,
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
37 * and then unpacking it all? */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
38 static const char *header =
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
39 "/**\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
40 " * vec - a tiny SIMD vector library in C99\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
41 " * \n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
42 " * Copyright (c) 2024-2025 Paper\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
43 " * \n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
44 " * Permission is hereby granted, free of charge, to any person obtaining a copy\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
45 " * of this software and associated documentation files (the \"Software\"), to deal\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
46 " * in the Software without restriction, including without limitation the rights\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
47 " * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
48 " * copies of the Software, and to permit persons to whom the Software is\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
49 " * furnished to do so, subject to the following conditions:\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
50 " * \n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
51 " * The above copyright notice and this permission notice shall be included in all\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
52 " * copies or substantial portions of the Software.\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
53 " * \n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
54 " * THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
55 " * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
56 " * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
57 " * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
58 " * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
59 " * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
60 " * SOFTWARE.\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
61 "**/\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
62 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
63 "/* This file is automatically generated! Do not edit it directly!\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
64 " * Edit the code that generates it in utils/gengeneric.c --paper */\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
65 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
66 "#ifndef VEC_IMPL_DOUBLE_H_\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
67 "#define VEC_IMPL_DOUBLE_H_\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
68 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
69 "#define VEC_DOUBLE_SPLAT(sign, bits, size, halfsize) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
70 " VEC_FUNC_IMPL v##sign##int##bits##x##size v##sign##int##bits##x##size##_splat(vec_##sign##int##bits x) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
71 " { \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
72 " v##sign##int##bits##x##size vec; \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
73 " \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
74 " vec.generic[0] = v##sign##int##bits##x##halfsize##_splat(x); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
75 " vec.generic[1] = v##sign##int##bits##x##halfsize##_splat(x); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
76 " \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
77 " return vec; \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
78 " }\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
79 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
80 "#define VEC_DOUBLE_LOAD_EX(name, sign, bits, size, halfsize) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
81 " VEC_FUNC_IMPL v##sign##int##bits##x##size v##sign##int##bits##x##size##_##name(const vec_##sign##int##bits x[size]) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
82 " { \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
83 " v##sign##int##bits##x##size vec; \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
84 " \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
85 " vec.generic[0] = v##sign##int##bits##x##halfsize##_##name(x); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
86 " vec.generic[1] = v##sign##int##bits##x##halfsize##_##name(x + halfsize); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
87 " \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
88 " return vec; \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
89 " }\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
90 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
91 "#define VEC_DOUBLE_LOAD(sign, bits, size, halfsize) VEC_DOUBLE_LOAD_EX(load, sign, bits, size, halfsize)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
92 "#define VEC_DOUBLE_LOAD_ALIGNED(sign, bits, size, halfsize) VEC_DOUBLE_LOAD_EX(load_aligned, sign, bits, size, halfsize)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
93 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
94 "#define VEC_DOUBLE_STORE_EX(name, sign, bits, size, halfsize) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
95 " VEC_FUNC_IMPL void v##sign##int##bits##x##size##_##name(v##sign##int##bits##x##size vec, vec_##sign##int##bits x[size]) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
96 " { \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
97 " v##sign##int##bits##x##halfsize##_##name(vec.generic[0], x); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
98 " v##sign##int##bits##x##halfsize##_##name(vec.generic[1], x + halfsize); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
99 " }\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
100 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
101 "#define VEC_DOUBLE_STORE(sign, bits, size, halfsize) VEC_DOUBLE_STORE_EX(store, sign, bits, size, halfsize)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
102 "#define VEC_DOUBLE_STORE_ALIGNED(sign, bits, size, halfsize) VEC_DOUBLE_STORE_EX(store_aligned, sign, bits, size, halfsize)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
103 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
104 "#define VEC_DOUBLE_OP(name, sign, bits, size, halfsize, secondsign) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
105 " VEC_FUNC_IMPL v##sign##int##bits##x##size v##sign##int##bits##x##size##_##name(v##sign##int##bits##x##size vec1, v##secondsign##int##bits##x##size vec2) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
106 " { \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
107 " vec1.generic[0] = v##sign##int##bits##x##halfsize##_##name(vec1.generic[0], vec2.generic[0]); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
108 " vec1.generic[1] = v##sign##int##bits##x##halfsize##_##name(vec1.generic[1], vec2.generic[1]); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
109 " \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
110 " return vec1; \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
111 " }\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
112 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
113 "#define VEC_DOUBLE_ADD(sign, bits, size, halfsize) VEC_DOUBLE_OP(add, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
114 "#define VEC_DOUBLE_SUB(sign, bits, size, halfsize) VEC_DOUBLE_OP(sub, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
115 "#define VEC_DOUBLE_MUL(sign, bits, size, halfsize) VEC_DOUBLE_OP(mul, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
116 "#define VEC_DOUBLE_DIV(sign, bits, size, halfsize) VEC_DOUBLE_OP(div, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
117 "#define VEC_DOUBLE_MOD(sign, bits, size, halfsize) VEC_DOUBLE_OP(mod, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
118 "#define VEC_DOUBLE_AVG(sign, bits, size, halfsize) VEC_DOUBLE_OP(avg, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
119 "#define VEC_DOUBLE_LSHIFT(sign, bits, size, halfsize) VEC_DOUBLE_OP(lshift, sign, bits, size, halfsize, u)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
120 "#define VEC_DOUBLE_RSHIFT(sign, bits, size, halfsize) VEC_DOUBLE_OP(rshift, sign, bits, size, halfsize, u)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
121 "#define VEC_DOUBLE_LRSHIFT(sign, bits, size, halfsize) VEC_DOUBLE_OP(lrshift, sign, bits, size, halfsize, u)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
122 "#define VEC_DOUBLE_AND(sign, bits, size, halfsize) VEC_DOUBLE_OP(and, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
123 "#define VEC_DOUBLE_OR(sign, bits, size, halfsize) VEC_DOUBLE_OP(or, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
124 "#define VEC_DOUBLE_XOR(sign, bits, size, halfsize) VEC_DOUBLE_OP(xor, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
125 "#define VEC_DOUBLE_MIN(sign, bits, size, halfsize) VEC_DOUBLE_OP(min, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
126 "#define VEC_DOUBLE_MAX(sign, bits, size, halfsize) VEC_DOUBLE_OP(max, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
127 "#define VEC_DOUBLE_CMPLT(sign, bits, size, halfsize) VEC_DOUBLE_OP(cmplt, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
128 "#define VEC_DOUBLE_CMPLE(sign, bits, size, halfsize) VEC_DOUBLE_OP(cmple, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
129 "#define VEC_DOUBLE_CMPEQ(sign, bits, size, halfsize) VEC_DOUBLE_OP(cmpeq, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
130 "#define VEC_DOUBLE_CMPGE(sign, bits, size, halfsize) VEC_DOUBLE_OP(cmpge, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
131 "#define VEC_DOUBLE_CMPGT(sign, bits, size, halfsize) VEC_DOUBLE_OP(cmpgt, sign, bits, size, halfsize, sign)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
132 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
133 "#define VEC_DOUBLE_NOT(sign, bits, size, halfsize) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
134 " VEC_FUNC_IMPL v##sign##int##bits##x##size v##sign##int##bits##x##size##_not(v##sign##int##bits##x##size vec) \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
135 " { \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
136 " vec.generic[0] = v##sign##int##bits##x##halfsize##_not(vec.generic[0]); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
137 " vec.generic[1] = v##sign##int##bits##x##halfsize##_not(vec.generic[1]); \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
138 " \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
139 " return vec; \\\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
140 " }\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
141 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
142 "#endif /* VEC_IMPL_DOUBLE_H_ */ \n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
143 "\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
144 "/* ------------------------------------------------------------------------ */\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
145 "/* PREPROCESSOR HELL INCOMING */\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
146 "";
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
147
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
148 static const char *footer =
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
149 "" /* nothing */;
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
150
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
151 /* ------------------------------------------------------------------------ */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
152
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
153 static void print_generic_dbl_op(const char *op, int is_signed, int bits, int size)
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
154 {
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
155 printf(
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
156 "#if !defined(V%sINT%dx%d_%s_DEFINED) && defined(V%sINT%dx%d_%s_DEFINED)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
157 "VEC_DOUBLE_%s(%s, %d, %d, %d)\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
158 "# define V%sINT%dx%d_%s_DEFINED\n"
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
159 "#endif\n\n",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
160 (is_signed ? "" : "U"), bits, size, op, (is_signed ? "" : "U"), bits, size / 2, op,
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
161 op, (is_signed ? "/* nothing */" : "u"), bits, size, size / 2,
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
162 (is_signed ? "" : "U"), bits, size, op);
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
163 }
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
164
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
165 typedef void (*print_op_spec)(const char *op, int is_signed, int bits, int size);
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
166
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
167 static inline void print_ops(int is_signed, int bits, int size, print_op_spec print_op)
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
168 {
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
169 /* all supported operations here */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
170 static const char *ops[] = {
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
171 "SPLAT",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
172 "LOAD_ALIGNED",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
173 "LOAD",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
174 "STORE_ALIGNED",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
175 "STORE",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
176 "ADD",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
177 "SUB",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
178 "MUL",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
179 "DIV",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
180 "MOD",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
181 "AVG",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
182 "AND",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
183 "OR",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
184 "XOR",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
185 "NOT",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
186 "CMPLT",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
187 "CMPEQ",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
188 "CMPGT",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
189 "CMPLE", /* these two must be after CMPLT and CMPGT respectfully, */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
190 "CMPGE", /* because their definitions call those functions */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
191 "MIN",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
192 "MAX",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
193 "RSHIFT",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
194 "LRSHIFT",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
195 "LSHIFT",
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
196 NULL,
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
197 };
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
198 int i;
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
199
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
200 printf("\n\n/* v%sint%dx%d */\n\n", (is_signed ? "u" : ""), bits, size);
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
201
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
202 for (i = 0; ops[i]; i++)
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
203 print_op(ops[i], is_signed, bits, size);
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
204 }
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
205
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
206 int main(void)
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
207 {
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
208 static struct {
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
209 int bits, size;
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
210 print_op_spec print_op;
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
211 } defs[] = {
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
212 /* -- 8-bit */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
213 {8, 4, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
214 {8, 8, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
215 {8, 16, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
216 {8, 32, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
217 {8, 64, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
218
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
219 /* -- 16-bit */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
220 {16, 4, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
221 {16, 8, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
222 {16, 16, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
223 {16, 32, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
224
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
225 /* -- 32-bit */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
226 {32, 4, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
227 {32, 8, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
228 {32, 16, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
229
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
230 /* -- 64-bit */
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
231 {64, 4, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
232 {64, 8, print_generic_dbl_op},
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
233 };
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
234 int i;
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
235
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
236 puts(header);
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
237
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
238 for (i = 0; i < ARRAY_SIZE(defs); i++) {
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
239 print_ops(1, defs[i].bits, defs[i].size, defs[i].print_op);
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
240 print_ops(0, defs[i].bits, defs[i].size, defs[i].print_op);
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
241 }
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
242
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
243 puts(footer);
c6e0df09b86f *: performance improvements with old GCC, reimplement altivec
Paper <paper@tflc.us>
parents:
diff changeset
244 }