/*

 * Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 *

 */

/**

 * @test

 * @bug 6340864

 * @summary Implement vectorization optimizations in hotspot-server

 *

 * @run main/othervm/timeout=400 -Xbatch -Xmx64m TestLongVect

 */

public class TestLongVect {

  private static final int ARRLEN = 997;

  private static final int ITERS  = 11000;

  private static final long ADD_INIT = Long.MAX_VALUE-500;

  private static final long BIT_MASK = 0xEC80F731EC80F731L;

  private static final int VALUE = 31;

  private static final int SHIFT = 64;

  public static void main(String args[]) {

    System.out.println("Testing Long vectors");

    int errn = test();

    if (errn > 0) {

      System.err.println("FAILED: " + errn + " errors");

      System.exit(97);

    }

    System.out.println("PASSED");

  }

  static int test() {

    long[] a0 = new long[ARRLEN];

    long[] a1 = new long[ARRLEN];

    long[] a2 = new long[ARRLEN];

    long[] a3 = new long[ARRLEN];

    long[] a4 = new long[ARRLEN];

    // Initialize

    long gold_sum = 0;

    for (int i=0; i<ARRLEN; i++) {

      long val = (long)(ADD_INIT+i);

      gold_sum += val;

      a1[i] = val;

      a2[i] = (long)VALUE;

      a3[i] = (long)-VALUE;

      a4[i] = (long)BIT_MASK;

    }

    System.out.println("Warmup");

    for (int i=0; i<ITERS; i++) {

      test_sum(a1);

      test_addc(a0, a1);

      test_addv(a0, a1, (long)VALUE);

      test_adda(a0, a1, a2);

      test_subc(a0, a1);

      test_subv(a0, a1, (long)VALUE);

      test_suba(a0, a1, a2);

      test_mulc(a0, a1);

      test_mulv(a0, a1, (long)VALUE);

      test_mula(a0, a1, a2);

      test_divc(a0, a1);

      test_divv(a0, a1, (long)VALUE);

      test_diva(a0, a1, a2);

      test_mulc_n(a0, a1);

      test_mulv(a0, a1, (long)-VALUE);

      test_mula(a0, a1, a3);

      test_divc_n(a0, a1);

      test_divv(a0, a1, (long)-VALUE);

      test_diva(a0, a1, a3);

      test_andc(a0, a1);

      test_andv(a0, a1, (long)BIT_MASK);

      test_anda(a0, a1, a4);

      test_orc(a0, a1);

      test_orv(a0, a1, (long)BIT_MASK);

      test_ora(a0, a1, a4);

      test_xorc(a0, a1);

      test_xorv(a0, a1, (long)BIT_MASK);

      test_xora(a0, a1, a4);

      test_sllc(a0, a1);

      test_sllv(a0, a1, VALUE);

      test_srlc(a0, a1);

      test_srlv(a0, a1, VALUE);

      test_srac(a0, a1);

      test_srav(a0, a1, VALUE);

      test_sllc_n(a0, a1);

      test_sllv(a0, a1, -VALUE);

      test_srlc_n(a0, a1);

      test_srlv(a0, a1, -VALUE);

      test_srac_n(a0, a1);

      test_srav(a0, a1, -VALUE);

      test_sllc_o(a0, a1);

      test_sllv(a0, a1, SHIFT);

      test_srlc_o(a0, a1);

      test_srlv(a0, a1, SHIFT);

      test_srac_o(a0, a1);

      test_srav(a0, a1, SHIFT);

      test_sllc_on(a0, a1);

      test_sllv(a0, a1, -SHIFT);

      test_srlc_on(a0, a1);

      test_srlv(a0, a1, -SHIFT);

      test_srac_on(a0, a1);

      test_srav(a0, a1, -SHIFT);

    }

    // Test and verify results

    System.out.println("Verification");

    int errn = 0;

    {

      long sum = test_sum(a1);

      if (sum != gold_sum) {

        System.err.println("test_sum:  " + sum + " != " + gold_sum);

        errn++;

      }

      test_addc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_addc: ", i, a0[i], (long)((long)(ADD_INIT+i)+VALUE));

      }

      test_addv(a0, a1, (long)VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_addv: ", i, a0[i], (long)((long)(ADD_INIT+i)+VALUE));

      }

      test_adda(a0, a1, a2);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_adda: ", i, a0[i], (long)((long)(ADD_INIT+i)+VALUE));

      }

      test_subc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_subc: ", i, a0[i], (long)((long)(ADD_INIT+i)-VALUE));

      }

      test_subv(a0, a1, (long)VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_subv: ", i, a0[i], (long)((long)(ADD_INIT+i)-VALUE));

      }

      test_suba(a0, a1, a2);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_suba: ", i, a0[i], (long)((long)(ADD_INIT+i)-VALUE));

      }

      test_mulc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_mulc: ", i, a0[i], (long)((long)(ADD_INIT+i)*VALUE));

      }

      test_mulv(a0, a1, (long)VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_mulv: ", i, a0[i], (long)((long)(ADD_INIT+i)*VALUE));

      }

      test_mula(a0, a1, a2);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_mula: ", i, a0[i], (long)((long)(ADD_INIT+i)*VALUE));

      }

      test_divc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_divc: ", i, a0[i], (long)((long)(ADD_INIT+i)/VALUE));

      }

      test_divv(a0, a1, (long)VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_divv: ", i, a0[i], (long)((long)(ADD_INIT+i)/VALUE));

      }

      test_diva(a0, a1, a2);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_diva: ", i, a0[i], (long)((long)(ADD_INIT+i)/VALUE));

      }

      test_mulc_n(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_mulc_n: ", i, a0[i], (long)((long)(ADD_INIT+i)*(-VALUE)));

      }

      test_mulv(a0, a1, (long)-VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_mulv_n: ", i, a0[i], (long)((long)(ADD_INIT+i)*(-VALUE)));

      }

      test_mula(a0, a1, a3);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_mula_n: ", i, a0[i], (long)((long)(ADD_INIT+i)*(-VALUE)));

      }

      test_divc_n(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_divc_n: ", i, a0[i], (long)((long)(ADD_INIT+i)/(-VALUE)));

      }

      test_divv(a0, a1, (long)-VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_divv_n: ", i, a0[i], (long)((long)(ADD_INIT+i)/(-VALUE)));

      }

      test_diva(a0, a1, a3);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_diva_n: ", i, a0[i], (long)((long)(ADD_INIT+i)/(-VALUE)));

      }

      test_andc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_andc: ", i, a0[i], (long)((long)(ADD_INIT+i)&BIT_MASK));

      }

      test_andv(a0, a1, (long)BIT_MASK);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_andv: ", i, a0[i], (long)((long)(ADD_INIT+i)&BIT_MASK));

      }

      test_anda(a0, a1, a4);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_anda: ", i, a0[i], (long)((long)(ADD_INIT+i)&BIT_MASK));

      }

      test_orc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_orc: ", i, a0[i], (long)((long)(ADD_INIT+i)|BIT_MASK));

      }

      test_orv(a0, a1, (long)BIT_MASK);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_orv: ", i, a0[i], (long)((long)(ADD_INIT+i)|BIT_MASK));

      }

      test_ora(a0, a1, a4);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_ora: ", i, a0[i], (long)((long)(ADD_INIT+i)|BIT_MASK));

      }

      test_xorc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_xorc: ", i, a0[i], (long)((long)(ADD_INIT+i)^BIT_MASK));

      }

      test_xorv(a0, a1, (long)BIT_MASK);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_xorv: ", i, a0[i], (long)((long)(ADD_INIT+i)^BIT_MASK));

      }

      test_xora(a0, a1, a4);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_xora: ", i, a0[i], (long)((long)(ADD_INIT+i)^BIT_MASK));

      }

      test_sllc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_sllc: ", i, a0[i], (long)((long)(ADD_INIT+i)<<VALUE));

      }

      test_sllv(a0, a1, VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_sllv: ", i, a0[i], (long)((long)(ADD_INIT+i)<<VALUE));

      }

      test_srlc(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srlc: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>VALUE));

      }

      test_srlv(a0, a1, VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srlv: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>VALUE));

      }

      test_srac(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srac: ", i, a0[i], (long)((long)(ADD_INIT+i)>>VALUE));

      }

      test_srav(a0, a1, VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srav: ", i, a0[i], (long)((long)(ADD_INIT+i)>>VALUE));

      }

      test_sllc_n(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_sllc_n: ", i, a0[i], (long)((long)(ADD_INIT+i)<<(-VALUE)));

      }

      test_sllv(a0, a1, -VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_sllv_n: ", i, a0[i], (long)((long)(ADD_INIT+i)<<(-VALUE)));

      }

      test_srlc_n(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srlc_n: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>(-VALUE)));

      }

      test_srlv(a0, a1, -VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srlv_n: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>(-VALUE)));

      }

      test_srac_n(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srac_n: ", i, a0[i], (long)((long)(ADD_INIT+i)>>(-VALUE)));

      }

      test_srav(a0, a1, -VALUE);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srav_n: ", i, a0[i], (long)((long)(ADD_INIT+i)>>(-VALUE)));

      }

      test_sllc_o(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_sllc_o: ", i, a0[i], (long)((long)(ADD_INIT+i)<<SHIFT));

      }

      test_sllv(a0, a1, SHIFT);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_sllv_o: ", i, a0[i], (long)((long)(ADD_INIT+i)<<SHIFT));

      }

      test_srlc_o(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srlc_o: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>SHIFT));

      }

      test_srlv(a0, a1, SHIFT);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srlv_o: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>SHIFT));

      }

      test_srac_o(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srac_o: ", i, a0[i], (long)((long)(ADD_INIT+i)>>SHIFT));

      }

      test_srav(a0, a1, SHIFT);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srav_o: ", i, a0[i], (long)((long)(ADD_INIT+i)>>SHIFT));

      }

      test_sllc_on(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_sllc_on: ", i, a0[i], (long)((long)(ADD_INIT+i)<<(-SHIFT)));

      }

      test_sllv(a0, a1, -SHIFT);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_sllv_on: ", i, a0[i], (long)((long)(ADD_INIT+i)<<(-SHIFT)));

      }

      test_srlc_on(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srlc_on: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>(-SHIFT)));

      }

      test_srlv(a0, a1, -SHIFT);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srlv_on: ", i, a0[i], (long)((long)(ADD_INIT+i)>>>(-SHIFT)));

      }

      test_srac_on(a0, a1);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srac_on: ", i, a0[i], (long)((long)(ADD_INIT+i)>>(-SHIFT)));

      }

      test_srav(a0, a1, -SHIFT);

      for (int i=0; i<ARRLEN; i++) {

        errn += verify("test_srav_on: ", i, a0[i], (long)((long)(ADD_INIT+i)>>(-SHIFT)));

      }

    }

    if (errn > 0)

      return errn;

    System.out.println("Time");

    long start, end;

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_sum(a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_sum: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_addc(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_addc: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_addv(a0, a1, (long)VALUE);

    }

    end = System.currentTimeMillis();

    System.out.println("test_addv: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_adda(a0, a1, a2);

    }

    end = System.currentTimeMillis();

    System.out.println("test_adda: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_subc(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_subc: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_subv(a0, a1, (long)VALUE);

    }

    end = System.currentTimeMillis();

    System.out.println("test_subv: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_suba(a0, a1, a2);

    }

    end = System.currentTimeMillis();

    System.out.println("test_suba: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_mulc(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_mulc: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_mulv(a0, a1, (long)VALUE);

    }

    end = System.currentTimeMillis();

    System.out.println("test_mulv: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_mula(a0, a1, a2);

    }

    end = System.currentTimeMillis();

    System.out.println("test_mula: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_divc(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_divc: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_divv(a0, a1, (long)VALUE);

    }

    end = System.currentTimeMillis();

    System.out.println("test_divv: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_diva(a0, a1, a2);

    }

    end = System.currentTimeMillis();

    System.out.println("test_diva: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_mulc_n(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_mulc_n: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_mulv(a0, a1, (long)-VALUE);

    }

    end = System.currentTimeMillis();

    System.out.println("test_mulv_n: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_mula(a0, a1, a3);

    }

    end = System.currentTimeMillis();

    System.out.println("test_mula_n: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_divc_n(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_divc_n: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_divv(a0, a1, (long)-VALUE);

    }

    end = System.currentTimeMillis();

    System.out.println("test_divv_n: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_diva(a0, a1, a3);

    }

    end = System.currentTimeMillis();

    System.out.println("test_diva_n: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_andc(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_andc: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_andv(a0, a1, (long)BIT_MASK);

    }

    end = System.currentTimeMillis();

    System.out.println("test_andv: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_anda(a0, a1, a4);

    }

    end = System.currentTimeMillis();

    System.out.println("test_anda: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_orc(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_orc: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_orv(a0, a1, (long)BIT_MASK);

    }

    end = System.currentTimeMillis();

    System.out.println("test_orv: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_ora(a0, a1, a4);

    }

    end = System.currentTimeMillis();

    System.out.println("test_ora: " + (end - start));

    start = System.currentTimeMillis();

    for (int i=0; i<ITERS; i++) {

      test_xorc(a0, a1);

    }

    end = System.currentTimeMillis();

    System.out.println("test_xorc: " + (end - start));