/*

 * Copyright 2006-2009 Sun Microsystems, Inc.  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 Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,

 * CA 95054 USA or visit www.sun.com if you need additional information or

 * have any questions.

 *

 */

# include "incls/_precompiled.incl"

# include "incls/_vm_version_solaris_sparc.cpp.incl"

# include <sys/auxv.h>

# include <sys/auxv_SPARC.h>

# include <sys/systeminfo.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()) {

#ifndef PRODUCT

    if (PrintMiscellaneous && Verbose)

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

#endif

    // 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 av;

    uint_t avn = os::Solaris::getisax(&av, 1);

    assert(avn == 1, "should only return one av");

    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;

  } else {

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

#ifndef PRODUCT

    if (PrintMiscellaneous && Verbose)

      tty->print_cr("getisax(2) 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);

  return features;

}