/*

 * 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.

 *

 */

#include "precompiled.hpp"

#include "runtime/os.hpp"

#include "vm_version_sparc.hpp"

# include <sys/auxv.h>

# include <sys/auxv_SPARC.h>

# include <sys/systeminfo.h>

# include <kstat.h>

// We need to keep these here as long as we have to build on Solaris

// versions before 10.

#ifndef SI_ARCHITECTURE_32

#define SI_ARCHITECTURE_32      516     /* basic 32-bit SI_ARCHITECTURE */

#endif

#ifndef SI_ARCHITECTURE_64

#define SI_ARCHITECTURE_64      517     /* basic 64-bit SI_ARCHITECTURE */

#endif

static void do_sysinfo(int si, const char* string, int* features, int mask) {

  char   tmp;

  size_t bufsize = sysinfo(si, &tmp, 1);

  // All SI defines used below must be supported.

  guarantee(bufsize != -1, "must be supported");

  char* buf = (char*) malloc(bufsize);

  if (buf == NULL)

    return;

  if (sysinfo(si, buf, bufsize) == bufsize) {

    // Compare the string.

    if (strcmp(buf, string) == 0) {

      *features |= mask;

    }

  }

  free(buf);

}

int VM_Version::platform_features(int features) {

  // getisax(2), SI_ARCHITECTURE_32, and SI_ARCHITECTURE_64 are

  // supported on Solaris 10 and later.

  if (os::Solaris::supports_getisax()) {

    // Check 32-bit architecture.

    do_sysinfo(SI_ARCHITECTURE_32, "sparc", &features, v8_instructions_m);

    // Check 64-bit architecture.

    do_sysinfo(SI_ARCHITECTURE_64, "sparcv9", &features, generic_v9_m);

    // Extract valid instruction set extensions.

    uint_t avs[2];

    uint_t avn = os::Solaris::getisax(avs, 2);

    assert(avn <= 2, "should return two or less av's");

    uint_t av = avs[0];

#ifndef PRODUCT

    if (PrintMiscellaneous && Verbose) {

      tty->print("getisax(2) returned: " PTR32_FORMAT, av);

      if (avn > 1) {

        tty->print(", " PTR32_FORMAT, avs[1]);

      }

      tty->cr();

    }

#endif

    if (av & AV_SPARC_MUL32)  features |= hardware_mul32_m;

    if (av & AV_SPARC_DIV32)  features |= hardware_div32_m;

    if (av & AV_SPARC_FSMULD) features |= hardware_fsmuld_m;

    if (av & AV_SPARC_V8PLUS) features |= v9_instructions_m;

    if (av & AV_SPARC_POPC)   features |= hardware_popc_m;

    if (av & AV_SPARC_VIS)    features |= vis1_instructions_m;

    if (av & AV_SPARC_VIS2)   features |= vis2_instructions_m;

    if (avn > 1) {

      uint_t av2 = avs[1];

#ifndef AV2_SPARC_SPARC5

#define AV2_SPARC_SPARC5 0x00000008 /* The 29 new fp and sub instructions */

#endif

      if (av2 & AV2_SPARC_SPARC5)       features |= sparc5_instructions_m;

    }

    // Next values are not defined before Solaris 10

    // but Solaris 8 is used for jdk6 update builds.

#ifndef AV_SPARC_ASI_BLK_INIT

#define AV_SPARC_ASI_BLK_INIT 0x0080  /* ASI_BLK_INIT_xxx ASI */

#endif

    if (av & AV_SPARC_ASI_BLK_INIT) features |= blk_init_instructions_m;

#ifndef AV_SPARC_FMAF

#define AV_SPARC_FMAF 0x0100        /* Fused Multiply-Add */

#endif

    if (av & AV_SPARC_FMAF)         features |= fmaf_instructions_m;

#ifndef AV_SPARC_FMAU

#define    AV_SPARC_FMAU    0x0200  /* Unfused Multiply-Add */

#endif

    if (av & AV_SPARC_FMAU)         features |= fmau_instructions_m;

#ifndef AV_SPARC_VIS3

#define    AV_SPARC_VIS3    0x0400  /* VIS3 instruction set extensions */

#endif

    if (av & AV_SPARC_VIS3)         features |= vis3_instructions_m;

#ifndef AV_SPARC_CBCOND

#define AV_SPARC_CBCOND 0x10000000  /* compare and branch instrs supported */

#endif

    if (av & AV_SPARC_CBCOND)       features |= cbcond_instructions_m;

#ifndef AV_SPARC_AES

#define AV_SPARC_AES 0x00020000  /* aes instrs supported */

#endif

    if (av & AV_SPARC_AES)       features |= aes_instructions_m;

  } else {

    // getisax(2) failed, use the old legacy code.

#ifndef PRODUCT

    if (PrintMiscellaneous && Verbose)

      tty->print_cr("getisax(2) is not supported.");

#endif

    char   tmp;

    size_t bufsize = sysinfo(SI_ISALIST, &tmp, 1);

    char*  buf     = (char*) malloc(bufsize);

    if (buf != NULL) {

      if (sysinfo(SI_ISALIST, buf, bufsize) == bufsize) {

        // Figure out what kind of sparc we have

        char *sparc_string = strstr(buf, "sparc");

        if (sparc_string != NULL) {              features |= v8_instructions_m;

          if (sparc_string[5] == 'v') {

            if (sparc_string[6] == '8') {

              if (sparc_string[7] == '-') {      features |= hardware_mul32_m;

                                                 features |= hardware_div32_m;

              } else if (sparc_string[7] == 'p') features |= generic_v9_m;

              else                               features |= generic_v8_m;

            } else if (sparc_string[6] == '9')   features |= generic_v9_m;

          }

        }

        // Check for visualization instructions

        char *vis = strstr(buf, "vis");

        if (vis != NULL) {                       features |= vis1_instructions_m;

          if (vis[3] == '2')                     features |= vis2_instructions_m;

        }

      }

      free(buf);

    }

  }

  // Determine the machine type.

  do_sysinfo(SI_MACHINE, "sun4v", &features, sun4v_m);

  {

    // Using kstat to determine the machine type.

    kstat_ctl_t* kc = kstat_open();

    kstat_t* ksp = kstat_lookup(kc, (char*)"cpu_info", -1, NULL);

    const char* implementation = "UNKNOWN";

    if (ksp != NULL) {

      if (kstat_read(kc, ksp, NULL) != -1 && ksp->ks_data != NULL) {

        kstat_named_t* knm = (kstat_named_t *)ksp->ks_data;

        for (int i = 0; i < ksp->ks_ndata; i++) {

          if (strcmp((const char*)&(knm[i].name),"implementation") == 0) {

#ifndef KSTAT_DATA_STRING

#define KSTAT_DATA_STRING   9

#endif

            if (knm[i].data_type == KSTAT_DATA_CHAR) {

              // VM is running on Solaris 8 which does not have value.str.

              implementation = &(knm[i].value.c[0]);

            } else if (knm[i].data_type == KSTAT_DATA_STRING) {

              // VM is running on Solaris 10.

#ifndef KSTAT_NAMED_STR_PTR

              // Solaris 8 was used to build VM, define the structure it misses.

              struct str_t {

                union {

                  char *ptr;     /* NULL-term string */

                  char __pad[8]; /* 64-bit padding */

                } addr;

                uint32_t len;    /* # bytes for strlen + '\0' */

              };

#define KSTAT_NAMED_STR_PTR(knptr) (( (str_t*)&((knptr)->value) )->addr.ptr)

#endif

              implementation = KSTAT_NAMED_STR_PTR(&knm[i]);

            }

#ifndef PRODUCT

            if (PrintMiscellaneous && Verbose) {

              tty->print_cr("cpu_info.implementation: %s", implementation);

            }

#endif

            // Convert to UPPER case before compare.

            char* impl = strdup(implementation);

            for (int i = 0; impl[i] != 0; i++)

              impl[i] = (char)toupper((uint)impl[i]);

            if (strstr(impl, "SPARC64") != NULL) {

              features |= sparc64_family_m;

            } else if (strstr(impl, "SPARC-M") != NULL) {

              // M-series SPARC is based on T-series.

              features |= (M_family_m | T_family_m);

            } else if (strstr(impl, "SPARC-T") != NULL) {

              features |= T_family_m;

              if (strstr(impl, "SPARC-T1") != NULL) {

                features |= T1_model_m;

              }

            } else {

              if (strstr(impl, "SPARC") == NULL) {

#ifndef PRODUCT

                // kstat on Solaris 8 virtual machines (branded zones)

                // returns "(unsupported)" implementation.

                warning("kstat cpu_info implementation = '%s', should contain SPARC", impl);

#endif

                implementation = "SPARC";

              }

            }

            free((void*)impl);

            break;

          }

        } // for(

      }

    }

    assert(strcmp(implementation, "UNKNOWN") != 0,

           "unknown cpu info (changed kstat interface?)");

    kstat_close(kc);

  }

  return features;

}