test/compiler/6340864/TestLongVect.java

Mon, 20 Aug 2012 09:07:21 -0700

author
kvn
date
Mon, 20 Aug 2012 09:07:21 -0700
changeset 4001
006050192a5a
child 4204
b2c669fd8114
permissions
-rw-r--r--

6340864: Implement vectorization optimizations in hotspot-server
Summary: Added asm encoding and mach nodes for vector arithmetic instructions on x86.
Reviewed-by: roland

kvn@4001 1 /*
kvn@4001 2 * Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved.
kvn@4001 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
kvn@4001 4 *
kvn@4001 5 * This code is free software; you can redistribute it and/or modify it
kvn@4001 6 * under the terms of the GNU General Public License version 2 only, as
kvn@4001 7 * published by the Free Software Foundation.
kvn@4001 8 *
kvn@4001 9 * This code is distributed in the hope that it will be useful, but WITHOUT
kvn@4001 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
kvn@4001 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
kvn@4001 12 * version 2 for more details (a copy is included in the LICENSE file that
kvn@4001 13 * accompanied this code).
kvn@4001 14 *
kvn@4001 15 * You should have received a copy of the GNU General Public License version
kvn@4001 16 * 2 along with this work; if not, write to the Free Software Foundation,
kvn@4001 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
kvn@4001 18 *
kvn@4001 19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
kvn@4001 20 * or visit www.oracle.com if you need additional information or have any
kvn@4001 21 * questions.
kvn@4001 22 *
kvn@4001 23 */
kvn@4001 24
kvn@4001 25 /**
kvn@4001 26 * @test
kvn@4001 27 * @bug 6340864
kvn@4001 28 * @summary Implement vectorization optimizations in hotspot-server
kvn@4001 29 *
kvn@4001 30 * @run main/othervm/timeout=400 -Xbatch -Xmx64m TestLongVect
kvn@4001 31 */
kvn@4001 32
kvn@4001 33 public class TestLongVect {
kvn@4001 34 private static final int ARRLEN = 997;
kvn@4001 35 private static final int ITERS = 11000;
kvn@4001 36 private static final long ADD_INIT = Long.MAX_VALUE-500;
kvn@4001 37 private static final long BIT_MASK = 0xEC80F731EC80F731L;
kvn@4001 38 private static final int VALUE = 31;
kvn@4001 39 private static final int SHIFT = 64;
kvn@4001 40
kvn@4001 41 public static void main(String args[]) {
kvn@4001 42 System.out.println("Testing Long vectors");
kvn@4001 43 int errn = test();
kvn@4001 44 if (errn > 0) {
kvn@4001 45 System.err.println("FAILED: " + errn + " errors");
kvn@4001 46 System.exit(97);
kvn@4001 47 }
kvn@4001 48 System.out.println("PASSED");
kvn@4001 49 }
kvn@4001 50
kvn@4001 51 static int test() {
kvn@4001 52 long[] a0 = new long[ARRLEN];
kvn@4001 53 long[] a1 = new long[ARRLEN];
kvn@4001 54 long[] a2 = new long[ARRLEN];
kvn@4001 55 long[] a3 = new long[ARRLEN];
kvn@4001 56 long[] a4 = new long[ARRLEN];
kvn@4001 57 // Initialize
kvn@4001 58 long gold_sum = 0;
kvn@4001 59 for (int i=0; i<ARRLEN; i++) {
kvn@4001 60 long val = (long)(ADD_INIT+i);
kvn@4001 61 gold_sum += val;
kvn@4001 62 a1[i] = val;
kvn@4001 63 a2[i] = (long)VALUE;
kvn@4001 64 a3[i] = (long)-VALUE;
kvn@4001 65 a4[i] = (long)BIT_MASK;
kvn@4001 66 }
kvn@4001 67 System.out.println("Warmup");
kvn@4001 68 for (int i=0; i<ITERS; i++) {
kvn@4001 69 test_sum(a1);
kvn@4001 70 test_addc(a0, a1);
kvn@4001 71 test_addv(a0, a1, (long)VALUE);
kvn@4001 72 test_adda(a0, a1, a2);
kvn@4001 73 test_subc(a0, a1);
kvn@4001 74 test_subv(a0, a1, (long)VALUE);
kvn@4001 75 test_suba(a0, a1, a2);
kvn@4001 76 test_mulc(a0, a1);
kvn@4001 77 test_mulv(a0, a1, (long)VALUE);
kvn@4001 78 test_mula(a0, a1, a2);
kvn@4001 79 test_divc(a0, a1);
kvn@4001 80 test_divv(a0, a1, (long)VALUE);
kvn@4001 81 test_diva(a0, a1, a2);
kvn@4001 82 test_mulc_n(a0, a1);
kvn@4001 83 test_mulv(a0, a1, (long)-VALUE);
kvn@4001 84 test_mula(a0, a1, a3);
kvn@4001 85 test_divc_n(a0, a1);
kvn@4001 86 test_divv(a0, a1, (long)-VALUE);
kvn@4001 87 test_diva(a0, a1, a3);
kvn@4001 88 test_andc(a0, a1);
kvn@4001 89 test_andv(a0, a1, (long)BIT_MASK);
kvn@4001 90 test_anda(a0, a1, a4);
kvn@4001 91 test_orc(a0, a1);
kvn@4001 92 test_orv(a0, a1, (long)BIT_MASK);
kvn@4001 93 test_ora(a0, a1, a4);
kvn@4001 94 test_xorc(a0, a1);
kvn@4001 95 test_xorv(a0, a1, (long)BIT_MASK);
kvn@4001 96 test_xora(a0, a1, a4);
kvn@4001 97 test_sllc(a0, a1);
kvn@4001 98 test_sllv(a0, a1, VALUE);
kvn@4001 99 test_srlc(a0, a1);
kvn@4001 100 test_srlv(a0, a1, VALUE);
kvn@4001 101 test_srac(a0, a1);
kvn@4001 102 test_srav(a0, a1, VALUE);
kvn@4001 103 test_sllc_n(a0, a1);
kvn@4001 104 test_sllv(a0, a1, -VALUE);
kvn@4001 105 test_srlc_n(a0, a1);
kvn@4001 106 test_srlv(a0, a1, -VALUE);
kvn@4001 107 test_srac_n(a0, a1);
kvn@4001 108 test_srav(a0, a1, -VALUE);
kvn@4001 109 test_sllc_o(a0, a1);
kvn@4001 110 test_sllv(a0, a1, SHIFT);
kvn@4001 111 test_srlc_o(a0, a1);
kvn@4001 112 test_srlv(a0, a1, SHIFT);
kvn@4001 113 test_srac_o(a0, a1);
kvn@4001 114 test_srav(a0, a1, SHIFT);
kvn@4001 115 test_sllc_on(a0, a1);
kvn@4001 116 test_sllv(a0, a1, -SHIFT);
kvn@4001 117 test_srlc_on(a0, a1);
kvn@4001 118 test_srlv(a0, a1, -SHIFT);
kvn@4001 119 test_srac_on(a0, a1);
kvn@4001 120 test_srav(a0, a1, -SHIFT);
kvn@4001 121 }
kvn@4001 122 // Test and verify results
kvn@4001 123 System.out.println("Verification");
kvn@4001 124 int errn = 0;
kvn@4001 125 {
kvn@4001 126 long sum = test_sum(a1);
kvn@4001 127 if (sum != gold_sum) {
kvn@4001 128 System.err.println("test_sum: " + sum + " != " + gold_sum);
kvn@4001 129 errn++;
kvn@4001 130 }
kvn@4001 131
kvn@4001 132 test_addc(a0, a1);
kvn@4001 133 for (int i=0; i<ARRLEN; i++) {
kvn@4001 134 errn += verify("test_addc: ", i, a0[i], (long)((long)(ADD_INIT+i)+VALUE));
kvn@4001 135 }
kvn@4001 136 test_addv(a0, a1, (long)VALUE);
kvn@4001 137 for (int i=0; i<ARRLEN; i++) {
kvn@4001 138 errn += verify("test_addv: ", i, a0[i], (long)((long)(ADD_INIT+i)+VALUE));
kvn@4001 139 }
kvn@4001 140 test_adda(a0, a1, a2);
kvn@4001 141 for (int i=0; i<ARRLEN; i++) {
kvn@4001 142 errn += verify("test_adda: ", i, a0[i], (long)((long)(ADD_INIT+i)+VALUE));
kvn@4001 143 }
kvn@4001 144
kvn@4001 145 test_subc(a0, a1);
kvn@4001 146 for (int i=0; i<ARRLEN; i++) {
kvn@4001 147 errn += verify("test_subc: ", i, a0[i], (long)((long)(ADD_INIT+i)-VALUE));
kvn@4001 148 }
kvn@4001 149 test_subv(a0, a1, (long)VALUE);
kvn@4001 150 for (int i=0; i<ARRLEN; i++) {
kvn@4001 151 errn += verify("test_subv: ", i, a0[i], (long)((long)(ADD_INIT+i)-VALUE));
kvn@4001 152 }
kvn@4001 153 test_suba(a0, a1, a2);
kvn@4001 154 for (int i=0; i<ARRLEN; i++) {
kvn@4001 155 errn += verify("test_suba: ", i, a0[i], (long)((long)(ADD_INIT+i)-VALUE));
kvn@4001 156 }
kvn@4001 157
kvn@4001 158 test_mulc(a0, a1);
kvn@4001 159 for (int i=0; i<ARRLEN; i++) {
kvn@4001 160 errn += verify("test_mulc: ", i, a0[i], (long)((long)(ADD_INIT+i)*VALUE));
kvn@4001 161 }
kvn@4001 162 test_mulv(a0, a1, (long)VALUE);
kvn@4001 163 for (int i=0; i<ARRLEN; i++) {
kvn@4001 164 errn += verify("test_mulv: ", i, a0[i], (long)((long)(ADD_INIT+i)*VALUE));
kvn@4001 165 }
kvn@4001 166 test_mula(a0, a1, a2);
kvn@4001 167 for (int i=0; i<ARRLEN; i++) {
kvn@4001 168 errn += verify("test_mula: ", i, a0[i], (long)((long)(ADD_INIT+i)*VALUE));
kvn@4001 169 }
kvn@4001 170
kvn@4001 171 test_divc(a0, a1);
kvn@4001 172 for (int i=0; i<ARRLEN; i++) {
kvn@4001 173 errn += verify("test_divc: ", i, a0[i], (long)((long)(ADD_INIT+i)/VALUE));
kvn@4001 174 }
kvn@4001 175 test_divv(a0, a1, (long)VALUE);
kvn@4001 176 for (int i=0; i<ARRLEN; i++) {
kvn@4001 177 errn += verify("test_divv: ", i, a0[i], (long)((long)(ADD_INIT+i)/VALUE));
kvn@4001 178 }
kvn@4001 179 test_diva(a0, a1, a2);
kvn@4001 180 for (int i=0; i<ARRLEN; i++) {
kvn@4001 181 errn += verify("test_diva: ", i, a0[i], (long)((long)(ADD_INIT+i)/VALUE));
kvn@4001 182 }
kvn@4001 183
kvn@4001 184 test_mulc_n(a0, a1);
kvn@4001 185 for (int i=0; i<ARRLEN; i++) {
kvn@4001 186 errn += verify("test_mulc_n: ", i, a0[i], (long)((long)(ADD_INIT+i)*(-VALUE)));
kvn@4001 187 }
kvn@4001 188 test_mulv(a0, a1, (long)-VALUE);
kvn@4001 189 for (int i=0; i<ARRLEN; i++) {
kvn@4001 190 errn += verify("test_mulv_n: ", i, a0[i], (long)((long)(ADD_INIT+i)*(-VALUE)));
kvn@4001 191 }
kvn@4001 192 test_mula(a0, a1, a3);
kvn@4001 193 for (int i=0; i<ARRLEN; i++) {
kvn@4001 194 errn += verify("test_mula_n: ", i, a0[i], (long)((long)(ADD_INIT+i)*(-VALUE)));
kvn@4001 195 }
kvn@4001 196
kvn@4001 197 test_divc_n(a0, a1);
kvn@4001 198 for (int i=0; i<ARRLEN; i++) {
kvn@4001 199 errn += verify("test_divc_n: ", i, a0[i], (long)((long)(ADD_INIT+i)/(-VALUE)));
kvn@4001 200 }
kvn@4001 201 test_divv(a0, a1, (long)-VALUE);
kvn@4001 202 for (int i=0; i<ARRLEN; i++) {
kvn@4001 203 errn += verify("test_divv_n: ", i, a0[i], (long)((long)(ADD_INIT+i)/(-VALUE)));
kvn@4001 204 }
kvn@4001 205 test_diva(a0, a1, a3);
kvn@4001 206 for (int i=0; i<ARRLEN; i++) {
kvn@4001 207 errn += verify("test_diva_n: ", i, a0[i], (long)((long)(ADD_INIT+i)/(-VALUE)));
kvn@4001 208 }
kvn@4001 209
kvn@4001 210 test_andc(a0, a1);
kvn@4001 211 for (int i=0; i<ARRLEN; i++) {
kvn@4001 212 errn += verify("test_andc: ", i, a0[i], (long)((long)(ADD_INIT+i)&BIT_MASK));
kvn@4001 213 }
kvn@4001 214 test_andv(a0, a1, (long)BIT_MASK);
kvn@4001 215 for (int i=0; i<ARRLEN; i++) {
kvn@4001 216 errn += verify("test_andv: ", i, a0[i], (long)((long)(ADD_INIT+i)&BIT_MASK));
kvn@4001 217 }
kvn@4001 218 test_anda(a0, a1, a4);
kvn@4001 219 for (int i=0; i<ARRLEN; i++) {
kvn@4001 220 errn += verify("test_anda: ", i, a0[i], (long)((long)(ADD_INIT+i)&BIT_MASK));
kvn@4001 221 }
kvn@4001 222
kvn@4001 223 test_orc(a0, a1);
kvn@4001 224 for (int i=0; i<ARRLEN; i++) {
kvn@4001 225 errn += verify("test_orc: ", i, a0[i], (long)((long)(ADD_INIT+i)|BIT_MASK));
kvn@4001 226 }
kvn@4001 227 test_orv(a0, a1, (long)BIT_MASK);
kvn@4001 228 for (int i=0; i<ARRLEN; i++) {
kvn@4001 229 errn += verify("test_orv: ", i, a0[i], (long)((long)(ADD_INIT+i)|BIT_MASK));
kvn@4001 230 }
kvn@4001 231 test_ora(a0, a1, a4);
kvn@4001 232 for (int i=0; i<ARRLEN; i++) {
kvn@4001 233 errn += verify("test_ora: ", i, a0[i], (long)((long)(ADD_INIT+i)|BIT_MASK));
kvn@4001 234 }
kvn@4001 235
kvn@4001 236 test_xorc(a0, a1);
kvn@4001 237 for (int i=0; i<ARRLEN; i++) {
kvn@4001 238 errn += verify("test_xorc: ", i, a0[i], (long)((long)(ADD_INIT+i)^BIT_MASK));
kvn@4001 239 }
kvn@4001 240 test_xorv(a0, a1, (long)BIT_MASK);
kvn@4001 241 for (int i=0; i<ARRLEN; i++) {
kvn@4001 242 errn += verify("test_xorv: ", i, a0[i], (long)((long)(ADD_INIT+i)^BIT_MASK));
kvn@4001 243 }
kvn@4001 244 test_xora(a0, a1, a4);
kvn@4001 245 for (int i=0; i<ARRLEN; i++) {
kvn@4001 246 errn += verify("test_xora: ", i, a0[i], (long)((long)(ADD_INIT+i)^BIT_MASK));
kvn@4001 247 }
kvn@4001 248
kvn@4001 249 test_sllc(a0, a1);
kvn@4001 250 for (int i=0; i<ARRLEN; i++) {
kvn@4001 251 errn += verify("test_sllc: ", i, a0[i], (long)((long)(ADD_INIT+i)<<VALUE));
kvn@4001 252 }
kvn@4001 253 test_sllv(a0, a1, VALUE);
kvn@4001 254 for (int i=0; i<ARRLEN; i++) {
kvn@4001 255 errn += verify("test_sllv: ", i, a0[i], (long)((long)(ADD_INIT+i)<<VALUE));
kvn@4001 256 }
kvn@4001 257
kvn@4001 258 test_srlc(a0, a1);
kvn@4001 259 for (int i=0; i<ARRLEN; i++) {
kvn@4001 260 errn += verify("test_srlc: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>VALUE));
kvn@4001 261 }
kvn@4001 262 test_srlv(a0, a1, VALUE);
kvn@4001 263 for (int i=0; i<ARRLEN; i++) {
kvn@4001 264 errn += verify("test_srlv: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>VALUE));
kvn@4001 265 }
kvn@4001 266
kvn@4001 267 test_srac(a0, a1);
kvn@4001 268 for (int i=0; i<ARRLEN; i++) {
kvn@4001 269 errn += verify("test_srac: ", i, a0[i], (long)((long)(ADD_INIT+i)>>VALUE));
kvn@4001 270 }
kvn@4001 271 test_srav(a0, a1, VALUE);
kvn@4001 272 for (int i=0; i<ARRLEN; i++) {
kvn@4001 273 errn += verify("test_srav: ", i, a0[i], (long)((long)(ADD_INIT+i)>>VALUE));
kvn@4001 274 }
kvn@4001 275
kvn@4001 276 test_sllc_n(a0, a1);
kvn@4001 277 for (int i=0; i<ARRLEN; i++) {
kvn@4001 278 errn += verify("test_sllc_n: ", i, a0[i], (long)((long)(ADD_INIT+i)<<(-VALUE)));
kvn@4001 279 }
kvn@4001 280 test_sllv(a0, a1, -VALUE);
kvn@4001 281 for (int i=0; i<ARRLEN; i++) {
kvn@4001 282 errn += verify("test_sllv_n: ", i, a0[i], (long)((long)(ADD_INIT+i)<<(-VALUE)));
kvn@4001 283 }
kvn@4001 284
kvn@4001 285 test_srlc_n(a0, a1);
kvn@4001 286 for (int i=0; i<ARRLEN; i++) {
kvn@4001 287 errn += verify("test_srlc_n: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>(-VALUE)));
kvn@4001 288 }
kvn@4001 289 test_srlv(a0, a1, -VALUE);
kvn@4001 290 for (int i=0; i<ARRLEN; i++) {
kvn@4001 291 errn += verify("test_srlv_n: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>(-VALUE)));
kvn@4001 292 }
kvn@4001 293
kvn@4001 294 test_srac_n(a0, a1);
kvn@4001 295 for (int i=0; i<ARRLEN; i++) {
kvn@4001 296 errn += verify("test_srac_n: ", i, a0[i], (long)((long)(ADD_INIT+i)>>(-VALUE)));
kvn@4001 297 }
kvn@4001 298 test_srav(a0, a1, -VALUE);
kvn@4001 299 for (int i=0; i<ARRLEN; i++) {
kvn@4001 300 errn += verify("test_srav_n: ", i, a0[i], (long)((long)(ADD_INIT+i)>>(-VALUE)));
kvn@4001 301 }
kvn@4001 302
kvn@4001 303 test_sllc_o(a0, a1);
kvn@4001 304 for (int i=0; i<ARRLEN; i++) {
kvn@4001 305 errn += verify("test_sllc_o: ", i, a0[i], (long)((long)(ADD_INIT+i)<<SHIFT));
kvn@4001 306 }
kvn@4001 307 test_sllv(a0, a1, SHIFT);
kvn@4001 308 for (int i=0; i<ARRLEN; i++) {
kvn@4001 309 errn += verify("test_sllv_o: ", i, a0[i], (long)((long)(ADD_INIT+i)<<SHIFT));
kvn@4001 310 }
kvn@4001 311
kvn@4001 312 test_srlc_o(a0, a1);
kvn@4001 313 for (int i=0; i<ARRLEN; i++) {
kvn@4001 314 errn += verify("test_srlc_o: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>SHIFT));
kvn@4001 315 }
kvn@4001 316 test_srlv(a0, a1, SHIFT);
kvn@4001 317 for (int i=0; i<ARRLEN; i++) {
kvn@4001 318 errn += verify("test_srlv_o: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>SHIFT));
kvn@4001 319 }
kvn@4001 320
kvn@4001 321 test_srac_o(a0, a1);
kvn@4001 322 for (int i=0; i<ARRLEN; i++) {
kvn@4001 323 errn += verify("test_srac_o: ", i, a0[i], (long)((long)(ADD_INIT+i)>>SHIFT));
kvn@4001 324 }
kvn@4001 325 test_srav(a0, a1, SHIFT);
kvn@4001 326 for (int i=0; i<ARRLEN; i++) {
kvn@4001 327 errn += verify("test_srav_o: ", i, a0[i], (long)((long)(ADD_INIT+i)>>SHIFT));
kvn@4001 328 }
kvn@4001 329
kvn@4001 330 test_sllc_on(a0, a1);
kvn@4001 331 for (int i=0; i<ARRLEN; i++) {
kvn@4001 332 errn += verify("test_sllc_on: ", i, a0[i], (long)((long)(ADD_INIT+i)<<(-SHIFT)));
kvn@4001 333 }
kvn@4001 334 test_sllv(a0, a1, -SHIFT);
kvn@4001 335 for (int i=0; i<ARRLEN; i++) {
kvn@4001 336 errn += verify("test_sllv_on: ", i, a0[i], (long)((long)(ADD_INIT+i)<<(-SHIFT)));
kvn@4001 337 }
kvn@4001 338
kvn@4001 339 test_srlc_on(a0, a1);
kvn@4001 340 for (int i=0; i<ARRLEN; i++) {
kvn@4001 341 errn += verify("test_srlc_on: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>(-SHIFT)));
kvn@4001 342 }
kvn@4001 343 test_srlv(a0, a1, -SHIFT);
kvn@4001 344 for (int i=0; i<ARRLEN; i++) {
kvn@4001 345 errn += verify("test_srlv_on: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>(-SHIFT)));
kvn@4001 346 }
kvn@4001 347
kvn@4001 348 test_srac_on(a0, a1);
kvn@4001 349 for (int i=0; i<ARRLEN; i++) {
kvn@4001 350 errn += verify("test_srac_on: ", i, a0[i], (long)((long)(ADD_INIT+i)>>(-SHIFT)));
kvn@4001 351 }
kvn@4001 352 test_srav(a0, a1, -SHIFT);
kvn@4001 353 for (int i=0; i<ARRLEN; i++) {
kvn@4001 354 errn += verify("test_srav_on: ", i, a0[i], (long)((long)(ADD_INIT+i)>>(-SHIFT)));
kvn@4001 355 }
kvn@4001 356
kvn@4001 357 }
kvn@4001 358
kvn@4001 359 if (errn > 0)
kvn@4001 360 return errn;
kvn@4001 361
kvn@4001 362 System.out.println("Time");
kvn@4001 363 long start, end;
kvn@4001 364
kvn@4001 365 start = System.currentTimeMillis();
kvn@4001 366 for (int i=0; i<ITERS; i++) {
kvn@4001 367 test_sum(a1);
kvn@4001 368 }
kvn@4001 369 end = System.currentTimeMillis();
kvn@4001 370 System.out.println("test_sum: " + (end - start));
kvn@4001 371
kvn@4001 372 start = System.currentTimeMillis();
kvn@4001 373 for (int i=0; i<ITERS; i++) {
kvn@4001 374 test_addc(a0, a1);
kvn@4001 375 }
kvn@4001 376 end = System.currentTimeMillis();
kvn@4001 377 System.out.println("test_addc: " + (end - start));
kvn@4001 378 start = System.currentTimeMillis();
kvn@4001 379 for (int i=0; i<ITERS; i++) {
kvn@4001 380 test_addv(a0, a1, (long)VALUE);
kvn@4001 381 }
kvn@4001 382 end = System.currentTimeMillis();
kvn@4001 383 System.out.println("test_addv: " + (end - start));
kvn@4001 384 start = System.currentTimeMillis();
kvn@4001 385 for (int i=0; i<ITERS; i++) {
kvn@4001 386 test_adda(a0, a1, a2);
kvn@4001 387 }
kvn@4001 388 end = System.currentTimeMillis();
kvn@4001 389 System.out.println("test_adda: " + (end - start));
kvn@4001 390
kvn@4001 391 start = System.currentTimeMillis();
kvn@4001 392 for (int i=0; i<ITERS; i++) {
kvn@4001 393 test_subc(a0, a1);
kvn@4001 394 }
kvn@4001 395 end = System.currentTimeMillis();
kvn@4001 396 System.out.println("test_subc: " + (end - start));
kvn@4001 397 start = System.currentTimeMillis();
kvn@4001 398 for (int i=0; i<ITERS; i++) {
kvn@4001 399 test_subv(a0, a1, (long)VALUE);
kvn@4001 400 }
kvn@4001 401 end = System.currentTimeMillis();
kvn@4001 402 System.out.println("test_subv: " + (end - start));
kvn@4001 403 start = System.currentTimeMillis();
kvn@4001 404 for (int i=0; i<ITERS; i++) {
kvn@4001 405 test_suba(a0, a1, a2);
kvn@4001 406 }
kvn@4001 407 end = System.currentTimeMillis();
kvn@4001 408 System.out.println("test_suba: " + (end - start));
kvn@4001 409
kvn@4001 410 start = System.currentTimeMillis();
kvn@4001 411 for (int i=0; i<ITERS; i++) {
kvn@4001 412 test_mulc(a0, a1);
kvn@4001 413 }
kvn@4001 414 end = System.currentTimeMillis();
kvn@4001 415 System.out.println("test_mulc: " + (end - start));
kvn@4001 416 start = System.currentTimeMillis();
kvn@4001 417 for (int i=0; i<ITERS; i++) {
kvn@4001 418 test_mulv(a0, a1, (long)VALUE);
kvn@4001 419 }
kvn@4001 420 end = System.currentTimeMillis();
kvn@4001 421 System.out.println("test_mulv: " + (end - start));
kvn@4001 422 start = System.currentTimeMillis();
kvn@4001 423 for (int i=0; i<ITERS; i++) {
kvn@4001 424 test_mula(a0, a1, a2);
kvn@4001 425 }
kvn@4001 426 end = System.currentTimeMillis();
kvn@4001 427 System.out.println("test_mula: " + (end - start));
kvn@4001 428
kvn@4001 429 start = System.currentTimeMillis();
kvn@4001 430 for (int i=0; i<ITERS; i++) {
kvn@4001 431 test_divc(a0, a1);
kvn@4001 432 }
kvn@4001 433 end = System.currentTimeMillis();
kvn@4001 434 System.out.println("test_divc: " + (end - start));
kvn@4001 435 start = System.currentTimeMillis();
kvn@4001 436 for (int i=0; i<ITERS; i++) {
kvn@4001 437 test_divv(a0, a1, (long)VALUE);
kvn@4001 438 }
kvn@4001 439 end = System.currentTimeMillis();
kvn@4001 440 System.out.println("test_divv: " + (end - start));
kvn@4001 441 start = System.currentTimeMillis();
kvn@4001 442 for (int i=0; i<ITERS; i++) {
kvn@4001 443 test_diva(a0, a1, a2);
kvn@4001 444 }
kvn@4001 445 end = System.currentTimeMillis();
kvn@4001 446 System.out.println("test_diva: " + (end - start));
kvn@4001 447
kvn@4001 448 start = System.currentTimeMillis();
kvn@4001 449 for (int i=0; i<ITERS; i++) {
kvn@4001 450 test_mulc_n(a0, a1);
kvn@4001 451 }
kvn@4001 452 end = System.currentTimeMillis();
kvn@4001 453 System.out.println("test_mulc_n: " + (end - start));
kvn@4001 454 start = System.currentTimeMillis();
kvn@4001 455 for (int i=0; i<ITERS; i++) {
kvn@4001 456 test_mulv(a0, a1, (long)-VALUE);
kvn@4001 457 }
kvn@4001 458 end = System.currentTimeMillis();
kvn@4001 459 System.out.println("test_mulv_n: " + (end - start));
kvn@4001 460 start = System.currentTimeMillis();
kvn@4001 461 for (int i=0; i<ITERS; i++) {
kvn@4001 462 test_mula(a0, a1, a3);
kvn@4001 463 }
kvn@4001 464 end = System.currentTimeMillis();
kvn@4001 465 System.out.println("test_mula_n: " + (end - start));
kvn@4001 466
kvn@4001 467 start = System.currentTimeMillis();
kvn@4001 468 for (int i=0; i<ITERS; i++) {
kvn@4001 469 test_divc_n(a0, a1);
kvn@4001 470 }
kvn@4001 471 end = System.currentTimeMillis();
kvn@4001 472 System.out.println("test_divc_n: " + (end - start));
kvn@4001 473 start = System.currentTimeMillis();
kvn@4001 474 for (int i=0; i<ITERS; i++) {
kvn@4001 475 test_divv(a0, a1, (long)-VALUE);
kvn@4001 476 }
kvn@4001 477 end = System.currentTimeMillis();
kvn@4001 478 System.out.println("test_divv_n: " + (end - start));
kvn@4001 479 start = System.currentTimeMillis();
kvn@4001 480 for (int i=0; i<ITERS; i++) {
kvn@4001 481 test_diva(a0, a1, a3);
kvn@4001 482 }
kvn@4001 483 end = System.currentTimeMillis();
kvn@4001 484 System.out.println("test_diva_n: " + (end - start));
kvn@4001 485
kvn@4001 486 start = System.currentTimeMillis();
kvn@4001 487 for (int i=0; i<ITERS; i++) {
kvn@4001 488 test_andc(a0, a1);
kvn@4001 489 }
kvn@4001 490 end = System.currentTimeMillis();
kvn@4001 491 System.out.println("test_andc: " + (end - start));
kvn@4001 492 start = System.currentTimeMillis();
kvn@4001 493 for (int i=0; i<ITERS; i++) {
kvn@4001 494 test_andv(a0, a1, (long)BIT_MASK);
kvn@4001 495 }
kvn@4001 496 end = System.currentTimeMillis();
kvn@4001 497 System.out.println("test_andv: " + (end - start));
kvn@4001 498 start = System.currentTimeMillis();
kvn@4001 499 for (int i=0; i<ITERS; i++) {
kvn@4001 500 test_anda(a0, a1, a4);
kvn@4001 501 }
kvn@4001 502 end = System.currentTimeMillis();
kvn@4001 503 System.out.println("test_anda: " + (end - start));
kvn@4001 504
kvn@4001 505 start = System.currentTimeMillis();
kvn@4001 506 for (int i=0; i<ITERS; i++) {
kvn@4001 507 test_orc(a0, a1);
kvn@4001 508 }
kvn@4001 509 end = System.currentTimeMillis();
kvn@4001 510 System.out.println("test_orc: " + (end - start));
kvn@4001 511 start = System.currentTimeMillis();
kvn@4001 512 for (int i=0; i<ITERS; i++) {
kvn@4001 513 test_orv(a0, a1, (long)BIT_MASK);
kvn@4001 514 }
kvn@4001 515 end = System.currentTimeMillis();
kvn@4001 516 System.out.println("test_orv: " + (end - start));
kvn@4001 517 start = System.currentTimeMillis();
kvn@4001 518 for (int i=0; i<ITERS; i++) {
kvn@4001 519 test_ora(a0, a1, a4);
kvn@4001 520 }
kvn@4001 521 end = System.currentTimeMillis();
kvn@4001 522 System.out.println("test_ora: " + (end - start));
kvn@4001 523
kvn@4001 524 start = System.currentTimeMillis();
kvn@4001 525 for (int i=0; i<ITERS; i++) {
kvn@4001 526 test_xorc(a0, a1);
kvn@4001 527 }
kvn@4001 528 end = System.currentTimeMillis();
kvn@4001 529 System.out.println("test_xorc: " + (end - start));
kvn@4001 530 start = System.currentTimeMillis();
kvn@4001 531 for (int i=0; i<ITERS; i++) {
kvn@4001 532 test_xorv(a0, a1, (long)BIT_MASK);
kvn@4001 533 }
kvn@4001 534 end = System.currentTimeMillis();
kvn@4001 535 System.out.println("test_xorv: " + (end - start));
kvn@4001 536 start = System.currentTimeMillis();
kvn@4001 537 for (int i=0; i<ITERS; i++) {
kvn@4001 538 test_xora(a0, a1, a4);
kvn@4001 539 }
kvn@4001 540 end = System.currentTimeMillis();
kvn@4001 541 System.out.println("test_xora: " + (end - start));
kvn@4001 542
kvn@4001 543 start = System.currentTimeMillis();
kvn@4001 544 for (int i=0; i<ITERS; i++) {
kvn@4001 545 test_sllc(a0, a1);
kvn@4001 546 }
kvn@4001 547 end = System.currentTimeMillis();
kvn@4001 548 System.out.println("test_sllc: " + (end - start));
kvn@4001 549 start = System.currentTimeMillis();
kvn@4001 550 for (int i=0; i<ITERS; i++) {
kvn@4001 551 test_sllv(a0, a1, VALUE);
kvn@4001 552 }
kvn@4001 553 end = System.currentTimeMillis();
kvn@4001 554 System.out.println("test_sllv: " + (end - start));
kvn@4001 555
kvn@4001 556 start = System.currentTimeMillis();
kvn@4001 557 for (int i=0; i<ITERS; i++) {
kvn@4001 558 test_srlc(a0, a1);
kvn@4001 559 }
kvn@4001 560 end = System.currentTimeMillis();
kvn@4001 561 System.out.println("test_srlc: " + (end - start));
kvn@4001 562 start = System.currentTimeMillis();
kvn@4001 563 for (int i=0; i<ITERS; i++) {
kvn@4001 564 test_srlv(a0, a1, VALUE);
kvn@4001 565 }
kvn@4001 566 end = System.currentTimeMillis();
kvn@4001 567 System.out.println("test_srlv: " + (end - start));
kvn@4001 568
kvn@4001 569 start = System.currentTimeMillis();
kvn@4001 570 for (int i=0; i<ITERS; i++) {
kvn@4001 571 test_srac(a0, a1);
kvn@4001 572 }
kvn@4001 573 end = System.currentTimeMillis();
kvn@4001 574 System.out.println("test_srac: " + (end - start));
kvn@4001 575 start = System.currentTimeMillis();
kvn@4001 576 for (int i=0; i<ITERS; i++) {
kvn@4001 577 test_srav(a0, a1, VALUE);
kvn@4001 578 }
kvn@4001 579 end = System.currentTimeMillis();
kvn@4001 580 System.out.println("test_srav: " + (end - start));
kvn@4001 581
kvn@4001 582 start = System.currentTimeMillis();
kvn@4001 583 for (int i=0; i<ITERS; i++) {
kvn@4001 584 test_sllc_n(a0, a1);
kvn@4001 585 }
kvn@4001 586 end = System.currentTimeMillis();
kvn@4001 587 System.out.println("test_sllc_n: " + (end - start));
kvn@4001 588 start = System.currentTimeMillis();
kvn@4001 589 for (int i=0; i<ITERS; i++) {
kvn@4001 590 test_sllv(a0, a1, -VALUE);
kvn@4001 591 }
kvn@4001 592 end = System.currentTimeMillis();
kvn@4001 593 System.out.println("test_sllv_n: " + (end - start));
kvn@4001 594
kvn@4001 595 start = System.currentTimeMillis();
kvn@4001 596 for (int i=0; i<ITERS; i++) {
kvn@4001 597 test_srlc_n(a0, a1);
kvn@4001 598 }
kvn@4001 599 end = System.currentTimeMillis();
kvn@4001 600 System.out.println("test_srlc_n: " + (end - start));
kvn@4001 601 start = System.currentTimeMillis();
kvn@4001 602 for (int i=0; i<ITERS; i++) {
kvn@4001 603 test_srlv(a0, a1, -VALUE);
kvn@4001 604 }
kvn@4001 605 end = System.currentTimeMillis();
kvn@4001 606 System.out.println("test_srlv_n: " + (end - start));
kvn@4001 607
kvn@4001 608 start = System.currentTimeMillis();
kvn@4001 609 for (int i=0; i<ITERS; i++) {
kvn@4001 610 test_srac_n(a0, a1);
kvn@4001 611 }
kvn@4001 612 end = System.currentTimeMillis();
kvn@4001 613 System.out.println("test_srac_n: " + (end - start));
kvn@4001 614 start = System.currentTimeMillis();
kvn@4001 615 for (int i=0; i<ITERS; i++) {
kvn@4001 616 test_srav(a0, a1, -VALUE);
kvn@4001 617 }
kvn@4001 618 end = System.currentTimeMillis();
kvn@4001 619 System.out.println("test_srav_n: " + (end - start));
kvn@4001 620
kvn@4001 621 start = System.currentTimeMillis();
kvn@4001 622 for (int i=0; i<ITERS; i++) {
kvn@4001 623 test_sllc_o(a0, a1);
kvn@4001 624 }
kvn@4001 625 end = System.currentTimeMillis();
kvn@4001 626 System.out.println("test_sllc_o: " + (end - start));
kvn@4001 627 start = System.currentTimeMillis();
kvn@4001 628 for (int i=0; i<ITERS; i++) {
kvn@4001 629 test_sllv(a0, a1, SHIFT);
kvn@4001 630 }
kvn@4001 631 end = System.currentTimeMillis();
kvn@4001 632 System.out.println("test_sllv_o: " + (end - start));
kvn@4001 633
kvn@4001 634 start = System.currentTimeMillis();
kvn@4001 635 for (int i=0; i<ITERS; i++) {
kvn@4001 636 test_srlc_o(a0, a1);
kvn@4001 637 }
kvn@4001 638 end = System.currentTimeMillis();
kvn@4001 639 System.out.println("test_srlc_o: " + (end - start));
kvn@4001 640 start = System.currentTimeMillis();
kvn@4001 641 for (int i=0; i<ITERS; i++) {
kvn@4001 642 test_srlv(a0, a1, SHIFT);
kvn@4001 643 }
kvn@4001 644 end = System.currentTimeMillis();
kvn@4001 645 System.out.println("test_srlv_o: " + (end - start));
kvn@4001 646
kvn@4001 647 start = System.currentTimeMillis();
kvn@4001 648 for (int i=0; i<ITERS; i++) {
kvn@4001 649 test_srac_o(a0, a1);
kvn@4001 650 }
kvn@4001 651 end = System.currentTimeMillis();
kvn@4001 652 System.out.println("test_srac_o: " + (end - start));
kvn@4001 653 start = System.currentTimeMillis();
kvn@4001 654 for (int i=0; i<ITERS; i++) {
kvn@4001 655 test_srav(a0, a1, SHIFT);
kvn@4001 656 }
kvn@4001 657 end = System.currentTimeMillis();
kvn@4001 658 System.out.println("test_srav_o: " + (end - start));
kvn@4001 659
kvn@4001 660 start = System.currentTimeMillis();
kvn@4001 661 for (int i=0; i<ITERS; i++) {
kvn@4001 662 test_sllc_on(a0, a1);
kvn@4001 663 }
kvn@4001 664 end = System.currentTimeMillis();
kvn@4001 665 System.out.println("test_sllc_on: " + (end - start));
kvn@4001 666 start = System.currentTimeMillis();
kvn@4001 667 for (int i=0; i<ITERS; i++) {
kvn@4001 668 test_sllv(a0, a1, -SHIFT);
kvn@4001 669 }
kvn@4001 670 end = System.currentTimeMillis();
kvn@4001 671 System.out.println("test_sllv_on: " + (end - start));
kvn@4001 672
kvn@4001 673 start = System.currentTimeMillis();
kvn@4001 674 for (int i=0; i<ITERS; i++) {
kvn@4001 675 test_srlc_on(a0, a1);
kvn@4001 676 }
kvn@4001 677 end = System.currentTimeMillis();
kvn@4001 678 System.out.println("test_srlc_on: " + (end - start));
kvn@4001 679 start = System.currentTimeMillis();
kvn@4001 680 for (int i=0; i<ITERS; i++) {
kvn@4001 681 test_srlv(a0, a1, -SHIFT);
kvn@4001 682 }
kvn@4001 683 end = System.currentTimeMillis();
kvn@4001 684 System.out.println("test_srlv_on: " + (end - start));
kvn@4001 685
kvn@4001 686 start = System.currentTimeMillis();
kvn@4001 687 for (int i=0; i<ITERS; i++) {
kvn@4001 688 test_srac_on(a0, a1);
kvn@4001 689 }
kvn@4001 690 end = System.currentTimeMillis();
kvn@4001 691 System.out.println("test_srac_on: " + (end - start));
kvn@4001 692 start = System.currentTimeMillis();
kvn@4001 693 for (int i=0; i<ITERS; i++) {
kvn@4001 694 test_srav(a0, a1, -SHIFT);
kvn@4001 695 }
kvn@4001 696 end = System.currentTimeMillis();
kvn@4001 697 System.out.println("test_srav_on: " + (end - start));
kvn@4001 698
kvn@4001 699 return errn;
kvn@4001 700 }
kvn@4001 701
kvn@4001 702 static long test_sum(long[] a1) {
kvn@4001 703 long sum = 0;
kvn@4001 704 for (int i = 0; i < a1.length; i+=1) {
kvn@4001 705 sum += a1[i];
kvn@4001 706 }
kvn@4001 707 return sum;
kvn@4001 708 }
kvn@4001 709
kvn@4001 710 static void test_addc(long[] a0, long[] a1) {
kvn@4001 711 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 712 a0[i] = (long)(a1[i]+VALUE);
kvn@4001 713 }
kvn@4001 714 }
kvn@4001 715 static void test_addv(long[] a0, long[] a1, long b) {
kvn@4001 716 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 717 a0[i] = (long)(a1[i]+b);
kvn@4001 718 }
kvn@4001 719 }
kvn@4001 720 static void test_adda(long[] a0, long[] a1, long[] a2) {
kvn@4001 721 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 722 a0[i] = (long)(a1[i]+a2[i]);
kvn@4001 723 }
kvn@4001 724 }
kvn@4001 725
kvn@4001 726 static void test_subc(long[] a0, long[] a1) {
kvn@4001 727 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 728 a0[i] = (long)(a1[i]-VALUE);
kvn@4001 729 }
kvn@4001 730 }
kvn@4001 731 static void test_subv(long[] a0, long[] a1, long b) {
kvn@4001 732 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 733 a0[i] = (long)(a1[i]-b);
kvn@4001 734 }
kvn@4001 735 }
kvn@4001 736 static void test_suba(long[] a0, long[] a1, long[] a2) {
kvn@4001 737 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 738 a0[i] = (long)(a1[i]-a2[i]);
kvn@4001 739 }
kvn@4001 740 }
kvn@4001 741
kvn@4001 742 static void test_mulc(long[] a0, long[] a1) {
kvn@4001 743 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 744 a0[i] = (long)(a1[i]*VALUE);
kvn@4001 745 }
kvn@4001 746 }
kvn@4001 747 static void test_mulc_n(long[] a0, long[] a1) {
kvn@4001 748 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 749 a0[i] = (long)(a1[i]*(-VALUE));
kvn@4001 750 }
kvn@4001 751 }
kvn@4001 752 static void test_mulv(long[] a0, long[] a1, long b) {
kvn@4001 753 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 754 a0[i] = (long)(a1[i]*b);
kvn@4001 755 }
kvn@4001 756 }
kvn@4001 757 static void test_mula(long[] a0, long[] a1, long[] a2) {
kvn@4001 758 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 759 a0[i] = (long)(a1[i]*a2[i]);
kvn@4001 760 }
kvn@4001 761 }
kvn@4001 762
kvn@4001 763 static void test_divc(long[] a0, long[] a1) {
kvn@4001 764 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 765 a0[i] = (long)(a1[i]/VALUE);
kvn@4001 766 }
kvn@4001 767 }
kvn@4001 768 static void test_divc_n(long[] a0, long[] a1) {
kvn@4001 769 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 770 a0[i] = (long)(a1[i]/(-VALUE));
kvn@4001 771 }
kvn@4001 772 }
kvn@4001 773 static void test_divv(long[] a0, long[] a1, long b) {
kvn@4001 774 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 775 a0[i] = (long)(a1[i]/b);
kvn@4001 776 }
kvn@4001 777 }
kvn@4001 778 static void test_diva(long[] a0, long[] a1, long[] a2) {
kvn@4001 779 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 780 a0[i] = (long)(a1[i]/a2[i]);
kvn@4001 781 }
kvn@4001 782 }
kvn@4001 783
kvn@4001 784 static void test_andc(long[] a0, long[] a1) {
kvn@4001 785 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 786 a0[i] = (long)(a1[i]&BIT_MASK);
kvn@4001 787 }
kvn@4001 788 }
kvn@4001 789 static void test_andv(long[] a0, long[] a1, long b) {
kvn@4001 790 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 791 a0[i] = (long)(a1[i]&b);
kvn@4001 792 }
kvn@4001 793 }
kvn@4001 794 static void test_anda(long[] a0, long[] a1, long[] a2) {
kvn@4001 795 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 796 a0[i] = (long)(a1[i]&a2[i]);
kvn@4001 797 }
kvn@4001 798 }
kvn@4001 799
kvn@4001 800 static void test_orc(long[] a0, long[] a1) {
kvn@4001 801 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 802 a0[i] = (long)(a1[i]|BIT_MASK);
kvn@4001 803 }
kvn@4001 804 }
kvn@4001 805 static void test_orv(long[] a0, long[] a1, long b) {
kvn@4001 806 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 807 a0[i] = (long)(a1[i]|b);
kvn@4001 808 }
kvn@4001 809 }
kvn@4001 810 static void test_ora(long[] a0, long[] a1, long[] a2) {
kvn@4001 811 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 812 a0[i] = (long)(a1[i]|a2[i]);
kvn@4001 813 }
kvn@4001 814 }
kvn@4001 815
kvn@4001 816 static void test_xorc(long[] a0, long[] a1) {
kvn@4001 817 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 818 a0[i] = (long)(a1[i]^BIT_MASK);
kvn@4001 819 }
kvn@4001 820 }
kvn@4001 821 static void test_xorv(long[] a0, long[] a1, long b) {
kvn@4001 822 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 823 a0[i] = (long)(a1[i]^b);
kvn@4001 824 }
kvn@4001 825 }
kvn@4001 826 static void test_xora(long[] a0, long[] a1, long[] a2) {
kvn@4001 827 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 828 a0[i] = (long)(a1[i]^a2[i]);
kvn@4001 829 }
kvn@4001 830 }
kvn@4001 831
kvn@4001 832 static void test_sllc(long[] a0, long[] a1) {
kvn@4001 833 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 834 a0[i] = (long)(a1[i]<<VALUE);
kvn@4001 835 }
kvn@4001 836 }
kvn@4001 837 static void test_sllc_n(long[] a0, long[] a1) {
kvn@4001 838 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 839 a0[i] = (long)(a1[i]<<(-VALUE));
kvn@4001 840 }
kvn@4001 841 }
kvn@4001 842 static void test_sllc_o(long[] a0, long[] a1) {
kvn@4001 843 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 844 a0[i] = (long)(a1[i]<<SHIFT);
kvn@4001 845 }
kvn@4001 846 }
kvn@4001 847 static void test_sllc_on(long[] a0, long[] a1) {
kvn@4001 848 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 849 a0[i] = (long)(a1[i]<<(-SHIFT));
kvn@4001 850 }
kvn@4001 851 }
kvn@4001 852 static void test_sllv(long[] a0, long[] a1, int b) {
kvn@4001 853 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 854 a0[i] = (long)(a1[i]<<b);
kvn@4001 855 }
kvn@4001 856 }
kvn@4001 857
kvn@4001 858 static void test_srlc(long[] a0, long[] a1) {
kvn@4001 859 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 860 a0[i] = (long)(a1[i]>>>VALUE);
kvn@4001 861 }
kvn@4001 862 }
kvn@4001 863 static void test_srlc_n(long[] a0, long[] a1) {
kvn@4001 864 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 865 a0[i] = (long)(a1[i]>>>(-VALUE));
kvn@4001 866 }
kvn@4001 867 }
kvn@4001 868 static void test_srlc_o(long[] a0, long[] a1) {
kvn@4001 869 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 870 a0[i] = (long)(a1[i]>>>SHIFT);
kvn@4001 871 }
kvn@4001 872 }
kvn@4001 873 static void test_srlc_on(long[] a0, long[] a1) {
kvn@4001 874 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 875 a0[i] = (long)(a1[i]>>>(-SHIFT));
kvn@4001 876 }
kvn@4001 877 }
kvn@4001 878 static void test_srlv(long[] a0, long[] a1, int b) {
kvn@4001 879 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 880 a0[i] = (long)(a1[i]>>>b);
kvn@4001 881 }
kvn@4001 882 }
kvn@4001 883
kvn@4001 884 static void test_srac(long[] a0, long[] a1) {
kvn@4001 885 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 886 a0[i] = (long)(a1[i]>>VALUE);
kvn@4001 887 }
kvn@4001 888 }
kvn@4001 889 static void test_srac_n(long[] a0, long[] a1) {
kvn@4001 890 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 891 a0[i] = (long)(a1[i]>>(-VALUE));
kvn@4001 892 }
kvn@4001 893 }
kvn@4001 894 static void test_srac_o(long[] a0, long[] a1) {
kvn@4001 895 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 896 a0[i] = (long)(a1[i]>>SHIFT);
kvn@4001 897 }
kvn@4001 898 }
kvn@4001 899 static void test_srac_on(long[] a0, long[] a1) {
kvn@4001 900 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 901 a0[i] = (long)(a1[i]>>(-SHIFT));
kvn@4001 902 }
kvn@4001 903 }
kvn@4001 904 static void test_srav(long[] a0, long[] a1, int b) {
kvn@4001 905 for (int i = 0; i < a0.length; i+=1) {
kvn@4001 906 a0[i] = (long)(a1[i]>>b);
kvn@4001 907 }
kvn@4001 908 }
kvn@4001 909
kvn@4001 910 static int verify(String text, int i, long elem, long val) {
kvn@4001 911 if (elem != val) {
kvn@4001 912 System.err.println(text + "[" + i + "] = " + elem + " != " + val);
kvn@4001 913 return 1;
kvn@4001 914 }
kvn@4001 915 return 0;
kvn@4001 916 }
kvn@4001 917 }

mercurial