jdk8-mips64-public/hotspot: src/os_cpu/solaris_sparc/vm/vm_version_solaris

src/os_cpu/solaris_sparc/vm/vm_version_solaris_sparc.cpp@d635fd1ac81c (annotated)

src/os_cpu/solaris_sparc/vm/vm_version_solaris_sparc.cpp

Mon, 08 Sep 2014 18:11:37 -0700

author: iveresov
date: Mon, 08 Sep 2014 18:11:37 -0700
changeset 7135: d635fd1ac81c
parent 7027: b20a35eae442
child 7296: c49cd31b6da6
permissions: -rw-r--r--

8056124: Hotspot should use PICL interface to get cacheline size on SPARC
Summary: Using libpicl to get L1 data and L2 cache line sizes
Reviewed-by: kvn, roland, morris

 /*
  * Copyright (c) 2006, 2014, 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.
  *
  */
 #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>
 #include <picl.h>
 extern "C" static int PICL_get_l1_data_cache_line_size_helper(picl_nodehdl_t nodeh, void *result);
 extern "C" static int PICL_get_l2_cache_line_size_helper(picl_nodehdl_t nodeh, void *result);
 class PICL {
   // Get a value of the integer property. The value in the tree can be either 32 or 64 bit
   // depending on the platform. The result is converted to int.
   static int get_int_property(picl_nodehdl_t nodeh, const char* name, int* result) {
     picl_propinfo_t pinfo;
     picl_prophdl_t proph;
     if (picl_get_prop_by_name(nodeh, name, &proph) != PICL_SUCCESS ||
         picl_get_propinfo(proph, &pinfo) != PICL_SUCCESS) {
       return PICL_FAILURE;
     }
     if (pinfo.type != PICL_PTYPE_INT && pinfo.type != PICL_PTYPE_UNSIGNED_INT) {
       assert(false, "Invalid property type");
       return PICL_FAILURE;
     }
     if (pinfo.size == sizeof(int64_t)) {
       int64_t val;
       if (picl_get_propval(proph, &val, sizeof(int64_t)) != PICL_SUCCESS) {
         return PICL_FAILURE;
       }
       *result = static_cast<int>(val);
     } else if (pinfo.size == sizeof(int32_t)) {
       int32_t val;
       if (picl_get_propval(proph, &val, sizeof(int32_t)) != PICL_SUCCESS) {
         return PICL_FAILURE;
       }
       *result = static_cast<int>(val);
     } else {
       assert(false, "Unexpected integer property size");
       return PICL_FAILURE;
     }
     return PICL_SUCCESS;
   }
   // Visitor and a state machine that visits integer properties and verifies that the
   // values are the same. Stores the unique value observed.
   class UniqueValueVisitor {
     enum {
       INITIAL,        // Start state, no assignments happened
       ASSIGNED,       // Assigned a value
       INCONSISTENT    // Inconsistent value seen
     } _state;
     int _value;
   public:
     UniqueValueVisitor() : _state(INITIAL) { }
     int value() {
       assert(_state == ASSIGNED, "Precondition");
       return _value;
     }
     void set_value(int value) {
       assert(_state == INITIAL, "Precondition");
       _value = value;
       _state = ASSIGNED;
     }
     bool is_initial()       { return _state == INITIAL;      }
     bool is_assigned()      { return _state == ASSIGNED;     }
     bool is_inconsistent()  { return _state == INCONSISTENT; }
     void set_inconsistent() { _state = INCONSISTENT;         }
     static int visit(picl_nodehdl_t nodeh, const char* name, void *arg) {
       UniqueValueVisitor *state = static_cast<UniqueValueVisitor*>(arg);
       assert(!state->is_inconsistent(), "Precondition");
       int curr;
       if (PICL::get_int_property(nodeh, name, &curr) == PICL_SUCCESS) {
         if (!state->is_assigned()) { // first iteration
           state->set_value(curr);
         } else if (curr != state->value()) { // following iterations
           state->set_inconsistent();
         }
       }
       if (state->is_inconsistent()) {
         return PICL_WALK_TERMINATE;
       }
       return PICL_WALK_CONTINUE;
     }
   };
   int _L1_data_cache_line_size;
   int _L2_cache_line_size;
 public:
   static int get_l1_data_cache_line_size(picl_nodehdl_t nodeh, void *state) {
     return UniqueValueVisitor::visit(nodeh, "l1-dcache-line-size", state);
   }
   static int get_l2_cache_line_size(picl_nodehdl_t nodeh, void *state) {
     return UniqueValueVisitor::visit(nodeh, "l2-cache-line-size", state);
   }
   PICL() : _L1_data_cache_line_size(0), _L2_cache_line_size(0) {
     if (picl_initialize() == PICL_SUCCESS) {
       picl_nodehdl_t rooth;
       if (picl_get_root(&rooth) == PICL_SUCCESS) {
         UniqueValueVisitor L1_state;
         // Visit all "cpu" class instances
         picl_walk_tree_by_class(rooth, "cpu", &L1_state, PICL_get_l1_data_cache_line_size_helper);
         if (L1_state.is_initial()) { // Still initial, iteration found no values
           // Try walk all "core" class instances, it might be a Fujitsu machine
           picl_walk_tree_by_class(rooth, "core", &L1_state, PICL_get_l1_data_cache_line_size_helper);
         }
         if (L1_state.is_assigned()) { // Is there a value?
           _L1_data_cache_line_size = L1_state.value();
         }
         UniqueValueVisitor L2_state;
         picl_walk_tree_by_class(rooth, "cpu", &L2_state, PICL_get_l2_cache_line_size_helper);
         if (L2_state.is_initial()) {
           picl_walk_tree_by_class(rooth, "core", &L2_state, PICL_get_l2_cache_line_size_helper);
         }
         if (L2_state.is_assigned()) {
           _L2_cache_line_size = L2_state.value();
         }
       }
       picl_shutdown();
     }
   }
   unsigned int L1_data_cache_line_size() const { return _L1_data_cache_line_size; }
   unsigned int L2_cache_line_size() const      { return _L2_cache_line_size;      }
 };
 extern "C" static int PICL_get_l1_data_cache_line_size_helper(picl_nodehdl_t nodeh, void *result) {
   return PICL::get_l1_data_cache_line_size(nodeh, result);
 }
 extern "C" static int PICL_get_l2_cache_line_size_helper(picl_nodehdl_t nodeh, void *result) {
   return PICL::get_l2_cache_line_size(nodeh, result);
 }
 // 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;
 #ifndef AV_SPARC_SHA1
 #define AV_SPARC_SHA1   0x00400000  /* sha1 instruction supported */
 #endif
     if (av & AV_SPARC_SHA1)         features |= sha1_instruction_m;
 #ifndef AV_SPARC_SHA256
 #define AV_SPARC_SHA256 0x00800000  /* sha256 instruction supported */
 #endif
     if (av & AV_SPARC_SHA256)       features |= sha256_instruction_m;
 #ifndef AV_SPARC_SHA512
 #define AV_SPARC_SHA512 0x01000000  /* sha512 instruction supported */
 #endif
     if (av & AV_SPARC_SHA512)       features |= sha512_instruction_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);
   }
   // Figure out cache line sizes using PICL
   PICL picl;
   _L2_cache_line_size      = picl.L2_cache_line_size();
   return features;
 }

Mercurial > jdk8-mips64-public > hotspot / annotate

src/os_cpu/solaris_sparc/vm/vm_version_solaris_sparc.cpp@d635fd1ac81c (annotated)

src/os_cpu/solaris_sparc/vm/vm_version_solaris_sparc.cpp