Mercurial > jdk8-mips64-public > hotspot / file revision

 /*

  * Copyright (c) 1999, 2013, 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.

  *

  */

 // no precompiled headers

 #include "classfile/classLoader.hpp"

 #include "classfile/systemDictionary.hpp"

 #include "classfile/vmSymbols.hpp"

 #include "code/icBuffer.hpp"

 #include "code/vtableStubs.hpp"

 #include "compiler/compileBroker.hpp"

 #include "compiler/disassembler.hpp"

 #include "interpreter/interpreter.hpp"

 #include "jvm_bsd.h"

 #include "memory/allocation.inline.hpp"

 #include "memory/filemap.hpp"

 #include "mutex_bsd.inline.hpp"

 #include "oops/oop.inline.hpp"

 #include "os_share_bsd.hpp"

 #include "prims/jniFastGetField.hpp"

 #include "prims/jvm.h"

 #include "prims/jvm_misc.hpp"

 #include "runtime/arguments.hpp"

 #include "runtime/extendedPC.hpp"

 #include "runtime/globals.hpp"

 #include "runtime/interfaceSupport.hpp"

 #include "runtime/java.hpp"

 #include "runtime/javaCalls.hpp"

 #include "runtime/mutexLocker.hpp"

 #include "runtime/objectMonitor.hpp"

 #include "runtime/osThread.hpp"

 #include "runtime/perfMemory.hpp"

 #include "runtime/sharedRuntime.hpp"

 #include "runtime/statSampler.hpp"

 #include "runtime/stubRoutines.hpp"

 #include "runtime/thread.inline.hpp"

 #include "runtime/threadCritical.hpp"

 #include "runtime/timer.hpp"

 #include "services/attachListener.hpp"

 #include "services/memTracker.hpp"

 #include "services/runtimeService.hpp"

 #include "utilities/decoder.hpp"

 #include "utilities/defaultStream.hpp"

 #include "utilities/events.hpp"

 #include "utilities/growableArray.hpp"

 #include "utilities/vmError.hpp"

 // put OS-includes here

 # include <sys/types.h>

 # include <sys/mman.h>

 # include <sys/stat.h>

 # include <sys/select.h>

 # include <pthread.h>

 # include <signal.h>

 # include <errno.h>

 # include <dlfcn.h>

 # include <stdio.h>

 # include <unistd.h>

 # include <sys/resource.h>

 # include <pthread.h>

 # include <sys/stat.h>

 # include <sys/time.h>

 # include <sys/times.h>

 # include <sys/utsname.h>

 # include <sys/socket.h>

 # include <sys/wait.h>

 # include <time.h>

 # include <pwd.h>

 # include <poll.h>

 # include <semaphore.h>

 # include <fcntl.h>

 # include <string.h>

 # include <sys/param.h>

 # include <sys/sysctl.h>

 # include <sys/ipc.h>

 # include <sys/shm.h>

 #ifndef __APPLE__

 # include <link.h>

 #endif

 # include <stdint.h>

 # include <inttypes.h>

 # include <sys/ioctl.h>

 #if defined(__FreeBSD__) || defined(__NetBSD__)

 # include <elf.h>

 #endif

 #ifdef __APPLE__

 # include <mach/mach.h> // semaphore_* API

 # include <mach-o/dyld.h>

 # include <sys/proc_info.h>

 # include <objc/objc-auto.h>

 #endif

 #ifndef MAP_ANONYMOUS

 #define MAP_ANONYMOUS MAP_ANON

 #endif

 #define MAX_PATH    (2 * K)

 // for timer info max values which include all bits

 #define ALL_64_BITS CONST64(0xFFFFFFFFFFFFFFFF)

 #define LARGEPAGES_BIT (1 << 6)

 ////////////////////////////////////////////////////////////////////////////////

 // global variables

 julong os::Bsd::_physical_memory = 0;

 int (*os::Bsd::_clock_gettime)(clockid_t, struct timespec *) = NULL;

 pthread_t os::Bsd::_main_thread;

 int os::Bsd::_page_size = -1;

 static jlong initial_time_count=0;

 static int clock_tics_per_sec = 100;

 // For diagnostics to print a message once. see run_periodic_checks

 static sigset_t check_signal_done;

 static bool check_signals = true;

 static pid_t _initial_pid = 0;

 /* Signal number used to suspend/resume a thread */

 /* do not use any signal number less than SIGSEGV, see 4355769 */

 static int SR_signum = SIGUSR2;

 sigset_t SR_sigset;

 ////////////////////////////////////////////////////////////////////////////////

 // utility functions

 static int SR_initialize();

 julong os::available_memory() {

   return Bsd::available_memory();

 }

 julong os::Bsd::available_memory() {

   // XXXBSD: this is just a stopgap implementation

   return physical_memory() >> 2;

 }

 julong os::physical_memory() {

   return Bsd::physical_memory();

 }

 ////////////////////////////////////////////////////////////////////////////////

 // environment support

 bool os::getenv(const char* name, char* buf, int len) {

   const char* val = ::getenv(name);

   if (val != NULL && strlen(val) < (size_t)len) {

     strcpy(buf, val);

     return true;

   }

   if (len > 0) buf[0] = 0;  // return a null string

   return false;

 }

 // Return true if user is running as root.

 bool os::have_special_privileges() {

   static bool init = false;

   static bool privileges = false;

   if (!init) {

     privileges = (getuid() != geteuid()) || (getgid() != getegid());

     init = true;

   }

   return privileges;

 }

 // Cpu architecture string

 #if   defined(ZERO)

 static char cpu_arch[] = ZERO_LIBARCH;

 #elif defined(IA64)

 static char cpu_arch[] = "ia64";

 #elif defined(IA32)

 static char cpu_arch[] = "i386";

 #elif defined(AMD64)

 static char cpu_arch[] = "amd64";

 #elif defined(ARM)

 static char cpu_arch[] = "arm";

 #elif defined(PPC)

 static char cpu_arch[] = "ppc";

 #elif defined(SPARC)

 #  ifdef _LP64

 static char cpu_arch[] = "sparcv9";

 #  else

 static char cpu_arch[] = "sparc";

 #  endif

 #else

 #error Add appropriate cpu_arch setting

 #endif

 // Compiler variant

 #ifdef COMPILER2

 #define COMPILER_VARIANT "server"

 #else

 #define COMPILER_VARIANT "client"

 #endif

 void os::Bsd::initialize_system_info() {

   int mib[2];

   size_t len;

   int cpu_val;

   julong mem_val;

   /* get processors count via hw.ncpus sysctl */

   mib[0] = CTL_HW;

   mib[1] = HW_NCPU;

   len = sizeof(cpu_val);

   if (sysctl(mib, 2, &cpu_val, &len, NULL, 0) != -1 && cpu_val >= 1) {

        assert(len == sizeof(cpu_val), "unexpected data size");

        set_processor_count(cpu_val);

   }

   else {

        set_processor_count(1);   // fallback

   }

   /* get physical memory via hw.memsize sysctl (hw.memsize is used

    * since it returns a 64 bit value)

    */

   mib[0] = CTL_HW;

   mib[1] = HW_MEMSIZE;

   len = sizeof(mem_val);

   if (sysctl(mib, 2, &mem_val, &len, NULL, 0) != -1) {

        assert(len == sizeof(mem_val), "unexpected data size");

        _physical_memory = mem_val;

   } else {

        _physical_memory = 256*1024*1024;       // fallback (XXXBSD?)

   }

 #ifdef __OpenBSD__

   {

        // limit _physical_memory memory view on OpenBSD since

        // datasize rlimit restricts us anyway.

        struct rlimit limits;

        getrlimit(RLIMIT_DATA, &limits);

        _physical_memory = MIN2(_physical_memory, (julong)limits.rlim_cur);

   }

 #endif

 }

 #ifdef __APPLE__

 static const char *get_home() {

   const char *home_dir = ::getenv("HOME");

   if ((home_dir == NULL) || (*home_dir == '\0')) {

     struct passwd *passwd_info = getpwuid(geteuid());

     if (passwd_info != NULL) {

       home_dir = passwd_info->pw_dir;

     }

   }

   return home_dir;

 }

 #endif

 void os::init_system_properties_values() {

 //  char arch[12];

 //  sysinfo(SI_ARCHITECTURE, arch, sizeof(arch));

   // The next steps are taken in the product version:

   //

   // Obtain the JAVA_HOME value from the location of libjvm.so.

   // This library should be located at:

   // <JAVA_HOME>/jre/lib/<arch>/{client|server}/libjvm.so.

   //

   // If "/jre/lib/" appears at the right place in the path, then we

   // assume libjvm.so is installed in a JDK and we use this path.

   //

   // Otherwise exit with message: "Could not create the Java virtual machine."

   //

   // The following extra steps are taken in the debugging version:

   //

   // If "/jre/lib/" does NOT appear at the right place in the path

   // instead of exit check for $JAVA_HOME environment variable.

   //

   // If it is defined and we are able to locate $JAVA_HOME/jre/lib/<arch>,

   // then we append a fake suffix "hotspot/libjvm.so" to this path so

   // it looks like libjvm.so is installed there

   // <JAVA_HOME>/jre/lib/<arch>/hotspot/libjvm.so.

   //

   // Otherwise exit.

   //

   // Important note: if the location of libjvm.so changes this

   // code needs to be changed accordingly.

   // The next few definitions allow the code to be verbatim:

 #define malloc(n) (char*)NEW_C_HEAP_ARRAY(char, (n), mtInternal)

 #define getenv(n) ::getenv(n)

 /*

  * See ld(1):

  *      The linker uses the following search paths to locate required

  *      shared libraries:

  *        1: ...

  *        ...

  *        7: The default directories, normally /lib and /usr/lib.

  */

 #ifndef DEFAULT_LIBPATH

 #define DEFAULT_LIBPATH "/lib:/usr/lib"

 #endif

 #define EXTENSIONS_DIR  "/lib/ext"

 #define ENDORSED_DIR    "/lib/endorsed"

 #define REG_DIR         "/usr/java/packages"

 #ifdef __APPLE__

 #define SYS_EXTENSIONS_DIR   "/Library/Java/Extensions"

 #define SYS_EXTENSIONS_DIRS  SYS_EXTENSIONS_DIR ":/Network" SYS_EXTENSIONS_DIR ":/System" SYS_EXTENSIONS_DIR ":/usr/lib/java"

         const char *user_home_dir = get_home();

         // the null in SYS_EXTENSIONS_DIRS counts for the size of the colon after user_home_dir

         int system_ext_size = strlen(user_home_dir) + sizeof(SYS_EXTENSIONS_DIR) +

             sizeof(SYS_EXTENSIONS_DIRS);

 #endif

   {

     /* sysclasspath, java_home, dll_dir */

     {

         char *home_path;

         char *dll_path;

         char *pslash;

         char buf[MAXPATHLEN];

         os::jvm_path(buf, sizeof(buf));

         // Found the full path to libjvm.so.

         // Now cut the path to <java_home>/jre if we can.

         *(strrchr(buf, '/')) = '\0';  /* get rid of /libjvm.so */

         pslash = strrchr(buf, '/');

         if (pslash != NULL)

             *pslash = '\0';           /* get rid of /{client|server|hotspot} */

         dll_path = malloc(strlen(buf) + 1);

         if (dll_path == NULL)

             return;

         strcpy(dll_path, buf);

         Arguments::set_dll_dir(dll_path);

         if (pslash != NULL) {

             pslash = strrchr(buf, '/');

             if (pslash != NULL) {

                 *pslash = '\0';       /* get rid of /<arch> (/lib on macosx) */

 #ifndef __APPLE__

                 pslash = strrchr(buf, '/');

                 if (pslash != NULL)

                     *pslash = '\0';   /* get rid of /lib */

 #endif

             }

         }

         home_path = malloc(strlen(buf) + 1);

         if (home_path == NULL)

             return;

         strcpy(home_path, buf);

         Arguments::set_java_home(home_path);

         if (!set_boot_path('/', ':'))

             return;

     }

     /*

      * Where to look for native libraries

      *

      * Note: Due to a legacy implementation, most of the library path

      * is set in the launcher.  This was to accomodate linking restrictions

      * on legacy Bsd implementations (which are no longer supported).

      * Eventually, all the library path setting will be done here.

      *

      * However, to prevent the proliferation of improperly built native

      * libraries, the new path component /usr/java/packages is added here.

      * Eventually, all the library path setting will be done here.

      */

     {

         char *ld_library_path;

         /*

          * Construct the invariant part of ld_library_path. Note that the

          * space for the colon and the trailing null are provided by the

          * nulls included by the sizeof operator (so actually we allocate

          * a byte more than necessary).

          */

 #ifdef __APPLE__

         ld_library_path = (char *) malloc(system_ext_size);

         sprintf(ld_library_path, "%s" SYS_EXTENSIONS_DIR ":" SYS_EXTENSIONS_DIRS, user_home_dir);

 #else

         ld_library_path = (char *) malloc(sizeof(REG_DIR) + sizeof("/lib/") +

             strlen(cpu_arch) + sizeof(DEFAULT_LIBPATH));

         sprintf(ld_library_path, REG_DIR "/lib/%s:" DEFAULT_LIBPATH, cpu_arch);

 #endif

         /*

          * Get the user setting of LD_LIBRARY_PATH, and prepended it.  It

          * should always exist (until the legacy problem cited above is

          * addressed).

          */

 #ifdef __APPLE__

         // Prepend the default path with the JAVA_LIBRARY_PATH so that the app launcher code can specify a directory inside an app wrapper

         char *l = getenv("JAVA_LIBRARY_PATH");

         if (l != NULL) {

             char *t = ld_library_path;

             /* That's +1 for the colon and +1 for the trailing '\0' */

             ld_library_path = (char *) malloc(strlen(l) + 1 + strlen(t) + 1);

             sprintf(ld_library_path, "%s:%s", l, t);

             free(t);

         }

         char *v = getenv("DYLD_LIBRARY_PATH");

 #else

         char *v = getenv("LD_LIBRARY_PATH");

 #endif

         if (v != NULL) {

             char *t = ld_library_path;

             /* That's +1 for the colon and +1 for the trailing '\0' */

             ld_library_path = (char *) malloc(strlen(v) + 1 + strlen(t) + 1);

             sprintf(ld_library_path, "%s:%s", v, t);

             free(t);

         }

 #ifdef __APPLE__

         // Apple's Java6 has "." at the beginning of java.library.path.

         // OpenJDK on Windows has "." at the end of java.library.path.

         // OpenJDK on Linux and Solaris don't have "." in java.library.path

         // at all. To ease the transition from Apple's Java6 to OpenJDK7,

         // "." is appended to the end of java.library.path. Yes, this

         // could cause a change in behavior, but Apple's Java6 behavior

         // can be achieved by putting "." at the beginning of the

         // JAVA_LIBRARY_PATH environment variable.

         {

             char *t = ld_library_path;

             // that's +3 for appending ":." and the trailing '\0'

             ld_library_path = (char *) malloc(strlen(t) + 3);

             sprintf(ld_library_path, "%s:%s", t, ".");

             free(t);

         }

 #endif

         Arguments::set_library_path(ld_library_path);

     }

     /*

      * Extensions directories.

      *

      * Note that the space for the colon and the trailing null are provided

      * by the nulls included by the sizeof operator (so actually one byte more

      * than necessary is allocated).

      */

     {

 #ifdef __APPLE__

         char *buf = malloc(strlen(Arguments::get_java_home()) +

             sizeof(EXTENSIONS_DIR) + system_ext_size);

         sprintf(buf, "%s" SYS_EXTENSIONS_DIR ":%s" EXTENSIONS_DIR ":"

             SYS_EXTENSIONS_DIRS, user_home_dir, Arguments::get_java_home());

 #else

         char *buf = malloc(strlen(Arguments::get_java_home()) +

             sizeof(EXTENSIONS_DIR) + sizeof(REG_DIR) + sizeof(EXTENSIONS_DIR));

         sprintf(buf, "%s" EXTENSIONS_DIR ":" REG_DIR EXTENSIONS_DIR,

             Arguments::get_java_home());

 #endif

         Arguments::set_ext_dirs(buf);

     }

     /* Endorsed standards default directory. */

     {

         char * buf;

         buf = malloc(strlen(Arguments::get_java_home()) + sizeof(ENDORSED_DIR));

         sprintf(buf, "%s" ENDORSED_DIR, Arguments::get_java_home());

         Arguments::set_endorsed_dirs(buf);

     }

   }

 #ifdef __APPLE__

 #undef SYS_EXTENSIONS_DIR

 #endif

 #undef malloc

 #undef getenv

 #undef EXTENSIONS_DIR

 #undef ENDORSED_DIR

   // Done

   return;

 }

 ////////////////////////////////////////////////////////////////////////////////

 // breakpoint support

 void os::breakpoint() {

   BREAKPOINT;

 }

 extern "C" void breakpoint() {

   // use debugger to set breakpoint here

 }

 ////////////////////////////////////////////////////////////////////////////////

 // signal support

 debug_only(static bool signal_sets_initialized = false);

 static sigset_t unblocked_sigs, vm_sigs, allowdebug_blocked_sigs;

 bool os::Bsd::is_sig_ignored(int sig) {

       struct sigaction oact;

       sigaction(sig, (struct sigaction*)NULL, &oact);

       void* ohlr = oact.sa_sigaction ? CAST_FROM_FN_PTR(void*,  oact.sa_sigaction)

                                      : CAST_FROM_FN_PTR(void*,  oact.sa_handler);

       if (ohlr == CAST_FROM_FN_PTR(void*, SIG_IGN))

            return true;

       else

            return false;

 }

 void os::Bsd::signal_sets_init() {

   // Should also have an assertion stating we are still single-threaded.

   assert(!signal_sets_initialized, "Already initialized");

   // Fill in signals that are necessarily unblocked for all threads in

   // the VM. Currently, we unblock the following signals:

   // SHUTDOWN{1,2,3}_SIGNAL: for shutdown hooks support (unless over-ridden

   //                         by -Xrs (=ReduceSignalUsage));

   // BREAK_SIGNAL which is unblocked only by the VM thread and blocked by all

   // other threads. The "ReduceSignalUsage" boolean tells us not to alter

   // the dispositions or masks wrt these signals.

   // Programs embedding the VM that want to use the above signals for their

   // own purposes must, at this time, use the "-Xrs" option to prevent

   // interference with shutdown hooks and BREAK_SIGNAL thread dumping.

   // (See bug 4345157, and other related bugs).

   // In reality, though, unblocking these signals is really a nop, since

   // these signals are not blocked by default.

   sigemptyset(&unblocked_sigs);

   sigemptyset(&allowdebug_blocked_sigs);

   sigaddset(&unblocked_sigs, SIGILL);

   sigaddset(&unblocked_sigs, SIGSEGV);

   sigaddset(&unblocked_sigs, SIGBUS);

   sigaddset(&unblocked_sigs, SIGFPE);

   sigaddset(&unblocked_sigs, SR_signum);

   if (!ReduceSignalUsage) {

    if (!os::Bsd::is_sig_ignored(SHUTDOWN1_SIGNAL)) {

       sigaddset(&unblocked_sigs, SHUTDOWN1_SIGNAL);

       sigaddset(&allowdebug_blocked_sigs, SHUTDOWN1_SIGNAL);

    }

    if (!os::Bsd::is_sig_ignored(SHUTDOWN2_SIGNAL)) {

       sigaddset(&unblocked_sigs, SHUTDOWN2_SIGNAL);

       sigaddset(&allowdebug_blocked_sigs, SHUTDOWN2_SIGNAL);

    }

    if (!os::Bsd::is_sig_ignored(SHUTDOWN3_SIGNAL)) {

       sigaddset(&unblocked_sigs, SHUTDOWN3_SIGNAL);

       sigaddset(&allowdebug_blocked_sigs, SHUTDOWN3_SIGNAL);

    }

   }

   // Fill in signals that are blocked by all but the VM thread.

   sigemptyset(&vm_sigs);

   if (!ReduceSignalUsage)

     sigaddset(&vm_sigs, BREAK_SIGNAL);

   debug_only(signal_sets_initialized = true);

 }

 // These are signals that are unblocked while a thread is running Java.

 // (For some reason, they get blocked by default.)

 sigset_t* os::Bsd::unblocked_signals() {

   assert(signal_sets_initialized, "Not initialized");

   return &unblocked_sigs;

 }

 // These are the signals that are blocked while a (non-VM) thread is

 // running Java. Only the VM thread handles these signals.

 sigset_t* os::Bsd::vm_signals() {

   assert(signal_sets_initialized, "Not initialized");

   return &vm_sigs;

 }

 // These are signals that are blocked during cond_wait to allow debugger in

 sigset_t* os::Bsd::allowdebug_blocked_signals() {

   assert(signal_sets_initialized, "Not initialized");

   return &allowdebug_blocked_sigs;

 }

 void os::Bsd::hotspot_sigmask(Thread* thread) {

   //Save caller's signal mask before setting VM signal mask

   sigset_t caller_sigmask;

   pthread_sigmask(SIG_BLOCK, NULL, &caller_sigmask);

   OSThread* osthread = thread->osthread();

   osthread->set_caller_sigmask(caller_sigmask);

   pthread_sigmask(SIG_UNBLOCK, os::Bsd::unblocked_signals(), NULL);

   if (!ReduceSignalUsage) {

     if (thread->is_VM_thread()) {

       // Only the VM thread handles BREAK_SIGNAL ...

       pthread_sigmask(SIG_UNBLOCK, vm_signals(), NULL);

     } else {

       // ... all other threads block BREAK_SIGNAL

       pthread_sigmask(SIG_BLOCK, vm_signals(), NULL);

     }

   }

 }

 //////////////////////////////////////////////////////////////////////////////

 // create new thread

 static address highest_vm_reserved_address();

 // check if it's safe to start a new thread

 static bool _thread_safety_check(Thread* thread) {

   return true;

 }

 #ifdef __APPLE__

 // library handle for calling objc_registerThreadWithCollector()

 // without static linking to the libobjc library

 #define OBJC_LIB "/usr/lib/libobjc.dylib"

 #define OBJC_GCREGISTER "objc_registerThreadWithCollector"

 typedef void (*objc_registerThreadWithCollector_t)();

 extern "C" objc_registerThreadWithCollector_t objc_registerThreadWithCollectorFunction;

 objc_registerThreadWithCollector_t objc_registerThreadWithCollectorFunction = NULL;

 #endif

 #ifdef __APPLE__

 static uint64_t locate_unique_thread_id() {

   // Additional thread_id used to correlate threads in SA

   thread_identifier_info_data_t     m_ident_info;

   mach_msg_type_number_t            count = THREAD_IDENTIFIER_INFO_COUNT;

   thread_info(::mach_thread_self(), THREAD_IDENTIFIER_INFO,

               (thread_info_t) &m_ident_info, &count);

   return m_ident_info.thread_id;

 }

 #endif

 // Thread start routine for all newly created threads

 static void *java_start(Thread *thread) {

   // Try to randomize the cache line index of hot stack frames.

   // This helps when threads of the same stack traces evict each other's

   // cache lines. The threads can be either from the same JVM instance, or

   // from different JVM instances. The benefit is especially true for

   // processors with hyperthreading technology.

   static int counter = 0;

   int pid = os::current_process_id();

   alloca(((pid ^ counter++) & 7) * 128);

   ThreadLocalStorage::set_thread(thread);

   OSThread* osthread = thread->osthread();

   Monitor* sync = osthread->startThread_lock();

   // non floating stack BsdThreads needs extra check, see above

   if (!_thread_safety_check(thread)) {

     // notify parent thread

     MutexLockerEx ml(sync, Mutex::_no_safepoint_check_flag);

     osthread->set_state(ZOMBIE);

     sync->notify_all();

     return NULL;

   }

 #ifdef __APPLE__

   // thread_id is mach thread on macos

   osthread->set_thread_id(::mach_thread_self());

   osthread->set_unique_thread_id(locate_unique_thread_id());

 #else

   // thread_id is pthread_id on BSD

   osthread->set_thread_id(::pthread_self());

 #endif

   // initialize signal mask for this thread

   os::Bsd::hotspot_sigmask(thread);

   // initialize floating point control register

   os::Bsd::init_thread_fpu_state();

 #ifdef __APPLE__

   // register thread with objc gc

   if (objc_registerThreadWithCollectorFunction != NULL) {

     objc_registerThreadWithCollectorFunction();

   }

 #endif

   // handshaking with parent thread

   {

     MutexLockerEx ml(sync, Mutex::_no_safepoint_check_flag);

     // notify parent thread

     osthread->set_state(INITIALIZED);

     sync->notify_all();

     // wait until os::start_thread()

     while (osthread->get_state() == INITIALIZED) {

       sync->wait(Mutex::_no_safepoint_check_flag);

     }

   }

   // call one more level start routine

   thread->run();

   return 0;

 }

 bool os::create_thread(Thread* thread, ThreadType thr_type, size_t stack_size) {

   assert(thread->osthread() == NULL, "caller responsible");

   // Allocate the OSThread object

   OSThread* osthread = new OSThread(NULL, NULL);

   if (osthread == NULL) {

     return false;

   }

   // set the correct thread state

   osthread->set_thread_type(thr_type);

   // Initial state is ALLOCATED but not INITIALIZED

   osthread->set_state(ALLOCATED);

   thread->set_osthread(osthread);

   // init thread attributes

   pthread_attr_t attr;

   pthread_attr_init(&attr);

   pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED);

   // stack size

   if (os::Bsd::supports_variable_stack_size()) {

     // calculate stack size if it's not specified by caller

     if (stack_size == 0) {

       stack_size = os::Bsd::default_stack_size(thr_type);

       switch (thr_type) {

       case os::java_thread:

         // Java threads use ThreadStackSize which default value can be

         // changed with the flag -Xss

         assert (JavaThread::stack_size_at_create() > 0, "this should be set");

         stack_size = JavaThread::stack_size_at_create();

         break;

       case os::compiler_thread:

         if (CompilerThreadStackSize > 0) {

           stack_size = (size_t)(CompilerThreadStackSize * K);

           break;

         } // else fall through:

           // use VMThreadStackSize if CompilerThreadStackSize is not defined

       case os::vm_thread:

       case os::pgc_thread:

       case os::cgc_thread:

       case os::watcher_thread:

         if (VMThreadStackSize > 0) stack_size = (size_t)(VMThreadStackSize * K);

         break;

       }

     }

     stack_size = MAX2(stack_size, os::Bsd::min_stack_allowed);

     pthread_attr_setstacksize(&attr, stack_size);

   } else {

     // let pthread_create() pick the default value.

   }

   ThreadState state;

   {

     pthread_t tid;

     int ret = pthread_create(&tid, &attr, (void* (*)(void*)) java_start, thread);

     pthread_attr_destroy(&attr);

     if (ret != 0) {

       if (PrintMiscellaneous && (Verbose || WizardMode)) {

         perror("pthread_create()");

       }

       // Need to clean up stuff we've allocated so far

       thread->set_osthread(NULL);

       delete osthread;

       return false;

     }

     // Store pthread info into the OSThread

     osthread->set_pthread_id(tid);

     // Wait until child thread is either initialized or aborted

     {

       Monitor* sync_with_child = osthread->startThread_lock();

       MutexLockerEx ml(sync_with_child, Mutex::_no_safepoint_check_flag);

       while ((state = osthread->get_state()) == ALLOCATED) {

         sync_with_child->wait(Mutex::_no_safepoint_check_flag);

       }

     }

   }

   // Aborted due to thread limit being reached

   if (state == ZOMBIE) {

       thread->set_osthread(NULL);

       delete osthread;

       return false;

   }

   // The thread is returned suspended (in state INITIALIZED),

   // and is started higher up in the call chain

   assert(state == INITIALIZED, "race condition");

   return true;

 }

 /////////////////////////////////////////////////////////////////////////////

 // attach existing thread

 // bootstrap the main thread

 bool os::create_main_thread(JavaThread* thread) {

   assert(os::Bsd::_main_thread == pthread_self(), "should be called inside main thread");

   return create_attached_thread(thread);

 }

 bool os::create_attached_thread(JavaThread* thread) {

 #ifdef ASSERT

     thread->verify_not_published();

 #endif

   // Allocate the OSThread object

   OSThread* osthread = new OSThread(NULL, NULL);

   if (osthread == NULL) {

     return false;

   }

   // Store pthread info into the OSThread

 #ifdef __APPLE__

   osthread->set_thread_id(::mach_thread_self());

   osthread->set_unique_thread_id(locate_unique_thread_id());

 #else

   osthread->set_thread_id(::pthread_self());

 #endif

   osthread->set_pthread_id(::pthread_self());

   // initialize floating point control register

   os::Bsd::init_thread_fpu_state();

   // Initial thread state is RUNNABLE

   osthread->set_state(RUNNABLE);

   thread->set_osthread(osthread);

   // initialize signal mask for this thread

   // and save the caller's signal mask

   os::Bsd::hotspot_sigmask(thread);

   return true;

 }

 void os::pd_start_thread(Thread* thread) {

   OSThread * osthread = thread->osthread();

   assert(osthread->get_state() != INITIALIZED, "just checking");

   Monitor* sync_with_child = osthread->startThread_lock();

   MutexLockerEx ml(sync_with_child, Mutex::_no_safepoint_check_flag);

   sync_with_child->notify();

 }

 // Free Bsd resources related to the OSThread

 void os::free_thread(OSThread* osthread) {

   assert(osthread != NULL, "osthread not set");

   if (Thread::current()->osthread() == osthread) {

     // Restore caller's signal mask

     sigset_t sigmask = osthread->caller_sigmask();

     pthread_sigmask(SIG_SETMASK, &sigmask, NULL);

    }

   delete osthread;

 }

 //////////////////////////////////////////////////////////////////////////////

 // thread local storage

 int os::allocate_thread_local_storage() {

   pthread_key_t key;

   int rslt = pthread_key_create(&key, NULL);

   assert(rslt == 0, "cannot allocate thread local storage");

   return (int)key;

 }

 // Note: This is currently not used by VM, as we don't destroy TLS key

 // on VM exit.

 void os::free_thread_local_storage(int index) {

   int rslt = pthread_key_delete((pthread_key_t)index);

   assert(rslt == 0, "invalid index");

 }

 void os::thread_local_storage_at_put(int index, void* value) {

   int rslt = pthread_setspecific((pthread_key_t)index, value);

   assert(rslt == 0, "pthread_setspecific failed");

 }

 extern "C" Thread* get_thread() {

   return ThreadLocalStorage::thread();

 }

 ////////////////////////////////////////////////////////////////////////////////

 // time support

 // Time since start-up in seconds to a fine granularity.

 // Used by VMSelfDestructTimer and the MemProfiler.

 double os::elapsedTime() {

   return (double)(os::elapsed_counter()) * 0.000001;

 }

 jlong os::elapsed_counter() {

   timeval time;

   int status = gettimeofday(&time, NULL);

   return jlong(time.tv_sec) * 1000 * 1000 + jlong(time.tv_usec) - initial_time_count;

 }

 jlong os::elapsed_frequency() {

   return (1000 * 1000);

 }

 // XXX: For now, code this as if BSD does not support vtime.

 bool os::supports_vtime() { return false; }

 bool os::enable_vtime()   { return false; }

 bool os::vtime_enabled()  { return false; }

 double os::elapsedVTime() {

   // better than nothing, but not much

   return elapsedTime();

 }

 jlong os::javaTimeMillis() {

   timeval time;

   int status = gettimeofday(&time, NULL);

   assert(status != -1, "bsd error");

   return jlong(time.tv_sec) * 1000  +  jlong(time.tv_usec / 1000);

 }

 #ifndef CLOCK_MONOTONIC

 #define CLOCK_MONOTONIC (1)

 #endif

 #ifdef __APPLE__

 void os::Bsd::clock_init() {

         // XXXDARWIN: Investigate replacement monotonic clock

 }

 #else

 void os::Bsd::clock_init() {

   struct timespec res;

   struct timespec tp;

   if (::clock_getres(CLOCK_MONOTONIC, &res) == 0 &&

       ::clock_gettime(CLOCK_MONOTONIC, &tp)  == 0) {

     // yes, monotonic clock is supported

     _clock_gettime = ::clock_gettime;

   }

 }

 #endif

 jlong os::javaTimeNanos() {

   if (Bsd::supports_monotonic_clock()) {

     struct timespec tp;

     int status = Bsd::clock_gettime(CLOCK_MONOTONIC, &tp);

     assert(status == 0, "gettime error");

     jlong result = jlong(tp.tv_sec) * (1000 * 1000 * 1000) + jlong(tp.tv_nsec);

     return result;

   } else {

     timeval time;

     int status = gettimeofday(&time, NULL);

     assert(status != -1, "bsd error");

     jlong usecs = jlong(time.tv_sec) * (1000 * 1000) + jlong(time.tv_usec);

     return 1000 * usecs;

   }

 }

 void os::javaTimeNanos_info(jvmtiTimerInfo *info_ptr) {

   if (Bsd::supports_monotonic_clock()) {

     info_ptr->max_value = ALL_64_BITS;

     // CLOCK_MONOTONIC - amount of time since some arbitrary point in the past

     info_ptr->may_skip_backward = false;      // not subject to resetting or drifting

     info_ptr->may_skip_forward = false;       // not subject to resetting or drifting

   } else {

     // gettimeofday - based on time in seconds since the Epoch thus does not wrap

     info_ptr->max_value = ALL_64_BITS;

     // gettimeofday is a real time clock so it skips

     info_ptr->may_skip_backward = true;

     info_ptr->may_skip_forward = true;

   }

   info_ptr->kind = JVMTI_TIMER_ELAPSED;                // elapsed not CPU time

 }

 // Return the real, user, and system times in seconds from an

 // arbitrary fixed point in the past.

 bool os::getTimesSecs(double* process_real_time,

                       double* process_user_time,

                       double* process_system_time) {

   struct tms ticks;

   clock_t real_ticks = times(&ticks);

   if (real_ticks == (clock_t) (-1)) {

     return false;

   } else {

     double ticks_per_second = (double) clock_tics_per_sec;

     *process_user_time = ((double) ticks.tms_utime) / ticks_per_second;

     *process_system_time = ((double) ticks.tms_stime) / ticks_per_second;

     *process_real_time = ((double) real_ticks) / ticks_per_second;

     return true;

   }

 }

 char * os::local_time_string(char *buf, size_t buflen) {

   struct tm t;

   time_t long_time;

   time(&long_time);

   localtime_r(&long_time, &t);

   jio_snprintf(buf, buflen, "%d-%02d-%02d %02d:%02d:%02d",

                t.tm_year + 1900, t.tm_mon + 1, t.tm_mday,

                t.tm_hour, t.tm_min, t.tm_sec);

   return buf;

 }

 struct tm* os::localtime_pd(const time_t* clock, struct tm*  res) {

   return localtime_r(clock, res);

 }

 ////////////////////////////////////////////////////////////////////////////////

 // runtime exit support

 // Note: os::shutdown() might be called very early during initialization, or

 // called from signal handler. Before adding something to os::shutdown(), make

 // sure it is async-safe and can handle partially initialized VM.

 void os::shutdown() {

   // allow PerfMemory to attempt cleanup of any persistent resources

   perfMemory_exit();

   // needs to remove object in file system

   AttachListener::abort();

   // flush buffered output, finish log files

   ostream_abort();

   // Check for abort hook

   abort_hook_t abort_hook = Arguments::abort_hook();

   if (abort_hook != NULL) {

     abort_hook();

   }

 }

 // Note: os::abort() might be called very early during initialization, or

 // called from signal handler. Before adding something to os::abort(), make

 // sure it is async-safe and can handle partially initialized VM.

 void os::abort(bool dump_core) {

   os::shutdown();

   if (dump_core) {

 #ifndef PRODUCT

     fdStream out(defaultStream::output_fd());

     out.print_raw("Current thread is ");

     char buf[16];

     jio_snprintf(buf, sizeof(buf), UINTX_FORMAT, os::current_thread_id());

     out.print_raw_cr(buf);

     out.print_raw_cr("Dumping core ...");

 #endif

     ::abort(); // dump core

   }

   ::exit(1);

 }

 // Die immediately, no exit hook, no abort hook, no cleanup.

 void os::die() {

   // _exit() on BsdThreads only kills current thread

   ::abort();

 }

 // unused on bsd for now.

 void os::set_error_file(const char *logfile) {}

 // This method is a copy of JDK's sysGetLastErrorString

 // from src/solaris/hpi/src/system_md.c

 size_t os::lasterror(char *buf, size_t len) {

   if (errno == 0)  return 0;

   const char *s = ::strerror(errno);

   size_t n = ::strlen(s);

   if (n >= len) {

     n = len - 1;

   }

   ::strncpy(buf, s, n);

   buf[n] = '\0';

   return n;

 }

 intx os::current_thread_id() {

 #ifdef __APPLE__

   return (intx)::mach_thread_self();

 #else

   return (intx)::pthread_self();

 #endif

 }

 int os::current_process_id() {

   // Under the old bsd thread library, bsd gives each thread

   // its own process id. Because of this each thread will return

   // a different pid if this method were to return the result

   // of getpid(2). Bsd provides no api that returns the pid

   // of the launcher thread for the vm. This implementation

   // returns a unique pid, the pid of the launcher thread

   // that starts the vm 'process'.

   // Under the NPTL, getpid() returns the same pid as the

   // launcher thread rather than a unique pid per thread.

   // Use gettid() if you want the old pre NPTL behaviour.

   // if you are looking for the result of a call to getpid() that

   // returns a unique pid for the calling thread, then look at the

   // OSThread::thread_id() method in osThread_bsd.hpp file

   return (int)(_initial_pid ? _initial_pid : getpid());

 }

 // DLL functions

 #define JNI_LIB_PREFIX "lib"

 #ifdef __APPLE__

 #define JNI_LIB_SUFFIX ".dylib"

 #else

 #define JNI_LIB_SUFFIX ".so"

 #endif

 const char* os::dll_file_extension() { return JNI_LIB_SUFFIX; }

 // This must be hard coded because it's the system's temporary

 // directory not the java application's temp directory, ala java.io.tmpdir.

 #ifdef __APPLE__

 // macosx has a secure per-user temporary directory

 char temp_path_storage[PATH_MAX];

 const char* os::get_temp_directory() {

   static char *temp_path = NULL;

   if (temp_path == NULL) {

     int pathSize = confstr(_CS_DARWIN_USER_TEMP_DIR, temp_path_storage, PATH_MAX);

     if (pathSize == 0 || pathSize > PATH_MAX) {

       strlcpy(temp_path_storage, "/tmp/", sizeof(temp_path_storage));

     }

     temp_path = temp_path_storage;

   }

   return temp_path;

 }

 #else /* __APPLE__ */

 const char* os::get_temp_directory() { return "/tmp"; }

 #endif /* __APPLE__ */

 static bool file_exists(const char* filename) {

   struct stat statbuf;

   if (filename == NULL || strlen(filename) == 0) {

     return false;

   }

   return os::stat(filename, &statbuf) == 0;

 }

 bool os::dll_build_name(char* buffer, size_t buflen,

                         const char* pname, const char* fname) {

   bool retval = false;

   // Copied from libhpi

   const size_t pnamelen = pname ? strlen(pname) : 0;

   // Return error on buffer overflow.

   if (pnamelen + strlen(fname) + strlen(JNI_LIB_PREFIX) + strlen(JNI_LIB_SUFFIX) + 2 > buflen) {

     return retval;

   }

   if (pnamelen == 0) {

     snprintf(buffer, buflen, JNI_LIB_PREFIX "%s" JNI_LIB_SUFFIX, fname);

     retval = true;

   } else if (strchr(pname, *os::path_separator()) != NULL) {

     int n;

     char** pelements = split_path(pname, &n);

     if (pelements == NULL) {

       return false;

     }

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

       // Really shouldn't be NULL, but check can't hurt

       if (pelements[i] == NULL || strlen(pelements[i]) == 0) {

         continue; // skip the empty path values

       }

       snprintf(buffer, buflen, "%s/" JNI_LIB_PREFIX "%s" JNI_LIB_SUFFIX,

           pelements[i], fname);

       if (file_exists(buffer)) {

         retval = true;

         break;

       }

     }

     // release the storage

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

       if (pelements[i] != NULL) {

         FREE_C_HEAP_ARRAY(char, pelements[i], mtInternal);

       }

     }

     if (pelements != NULL) {

       FREE_C_HEAP_ARRAY(char*, pelements, mtInternal);

     }

   } else {

     snprintf(buffer, buflen, "%s/" JNI_LIB_PREFIX "%s" JNI_LIB_SUFFIX, pname, fname);

     retval = true;

   }

   return retval;

 }

 const char* os::get_current_directory(char *buf, int buflen) {

   return getcwd(buf, buflen);

 }

 // check if addr is inside libjvm.so

 bool os::address_is_in_vm(address addr) {

   static address libjvm_base_addr;

   Dl_info dlinfo;

   if (libjvm_base_addr == NULL) {

     dladdr(CAST_FROM_FN_PTR(void *, os::address_is_in_vm), &dlinfo);

     libjvm_base_addr = (address)dlinfo.dli_fbase;

     assert(libjvm_base_addr !=NULL, "Cannot obtain base address for libjvm");

   }

   if (dladdr((void *)addr, &dlinfo)) {

     if (libjvm_base_addr == (address)dlinfo.dli_fbase) return true;

   }

   return false;

 }

 #define MACH_MAXSYMLEN 256

 bool os::dll_address_to_function_name(address addr, char *buf,

                                       int buflen, int *offset) {

   Dl_info dlinfo;

   char localbuf[MACH_MAXSYMLEN];

   // dladdr will find names of dynamic functions only, but does

   // it set dli_fbase with mach_header address when it "fails" ?

   if (dladdr((void*)addr, &dlinfo) && dlinfo.dli_sname != NULL) {

     if (buf != NULL) {

       if(!Decoder::demangle(dlinfo.dli_sname, buf, buflen)) {

         jio_snprintf(buf, buflen, "%s", dlinfo.dli_sname);

       }

     }

     if (offset != NULL) *offset = addr - (address)dlinfo.dli_saddr;

     return true;

   } else if (dlinfo.dli_fname != NULL && dlinfo.dli_fbase != 0) {

     if (Decoder::decode((address)(addr - (address)dlinfo.dli_fbase),

        buf, buflen, offset, dlinfo.dli_fname)) {

        return true;

     }

   }

   // Handle non-dymanic manually:

   if (dlinfo.dli_fbase != NULL &&

       Decoder::decode(addr, localbuf, MACH_MAXSYMLEN, offset, dlinfo.dli_fbase)) {

     if(!Decoder::demangle(localbuf, buf, buflen)) {

       jio_snprintf(buf, buflen, "%s", localbuf);

     }

     return true;

   }

   if (buf != NULL) buf[0] = '\0';

   if (offset != NULL) *offset = -1;

   return false;

 }

 // ported from solaris version

 bool os::dll_address_to_library_name(address addr, char* buf,

                                      int buflen, int* offset) {

   Dl_info dlinfo;

   if (dladdr((void*)addr, &dlinfo)){

      if (buf) jio_snprintf(buf, buflen, "%s", dlinfo.dli_fname);

      if (offset) *offset = addr - (address)dlinfo.dli_fbase;

      return true;

   } else {

      if (buf) buf[0] = '\0';

      if (offset) *offset = -1;

      return false;

   }

 }

 // Loads .dll/.so and

 // in case of error it checks if .dll/.so was built for the

 // same architecture as Hotspot is running on

 #ifdef __APPLE__

 void * os::dll_load(const char *filename, char *ebuf, int ebuflen) {

   void * result= ::dlopen(filename, RTLD_LAZY);

   if (result != NULL) {

     // Successful loading

     return result;

   }

   // Read system error message into ebuf

   ::strncpy(ebuf, ::dlerror(), ebuflen-1);

   ebuf[ebuflen-1]='\0';

   return NULL;

 }

 #else

 void * os::dll_load(const char *filename, char *ebuf, int ebuflen)

 {

   void * result= ::dlopen(filename, RTLD_LAZY);

   if (result != NULL) {

     // Successful loading

     return result;

   }

   Elf32_Ehdr elf_head;

   // Read system error message into ebuf

   // It may or may not be overwritten below

   ::strncpy(ebuf, ::dlerror(), ebuflen-1);

   ebuf[ebuflen-1]='\0';

   int diag_msg_max_length=ebuflen-strlen(ebuf);

   char* diag_msg_buf=ebuf+strlen(ebuf);

   if (diag_msg_max_length==0) {

     // No more space in ebuf for additional diagnostics message

     return NULL;

   }

   int file_descriptor= ::open(filename, O_RDONLY | O_NONBLOCK);

   if (file_descriptor < 0) {

     // Can't open library, report dlerror() message

     return NULL;

   }

   bool failed_to_read_elf_head=

     (sizeof(elf_head)!=

         (::read(file_descriptor, &elf_head,sizeof(elf_head)))) ;

   ::close(file_descriptor);

   if (failed_to_read_elf_head) {

     // file i/o error - report dlerror() msg

     return NULL;

   }

   typedef struct {

     Elf32_Half  code;         // Actual value as defined in elf.h

     Elf32_Half  compat_class; // Compatibility of archs at VM's sense

     char        elf_class;    // 32 or 64 bit

     char        endianess;    // MSB or LSB

     char*       name;         // String representation

   } arch_t;

   #ifndef EM_486

   #define EM_486          6               /* Intel 80486 */

   #endif

   #ifndef EM_MIPS_RS3_LE

   #define EM_MIPS_RS3_LE  10              /* MIPS */

   #endif

   #ifndef EM_PPC64

   #define EM_PPC64        21              /* PowerPC64 */

   #endif

   #ifndef EM_S390

   #define EM_S390         22              /* IBM System/390 */

   #endif

   #ifndef EM_IA_64

   #define EM_IA_64        50              /* HP/Intel IA-64 */

   #endif

   #ifndef EM_X86_64

   #define EM_X86_64       62              /* AMD x86-64 */

   #endif

   static const arch_t arch_array[]={

     {EM_386,         EM_386,     ELFCLASS32, ELFDATA2LSB, (char*)"IA 32"},

     {EM_486,         EM_386,     ELFCLASS32, ELFDATA2LSB, (char*)"IA 32"},

     {EM_IA_64,       EM_IA_64,   ELFCLASS64, ELFDATA2LSB, (char*)"IA 64"},

     {EM_X86_64,      EM_X86_64,  ELFCLASS64, ELFDATA2LSB, (char*)"AMD 64"},

     {EM_SPARC,       EM_SPARC,   ELFCLASS32, ELFDATA2MSB, (char*)"Sparc 32"},

     {EM_SPARC32PLUS, EM_SPARC,   ELFCLASS32, ELFDATA2MSB, (char*)"Sparc 32"},

     {EM_SPARCV9,     EM_SPARCV9, ELFCLASS64, ELFDATA2MSB, (char*)"Sparc v9 64"},

     {EM_PPC,         EM_PPC,     ELFCLASS32, ELFDATA2MSB, (char*)"Power PC 32"},

     {EM_PPC64,       EM_PPC64,   ELFCLASS64, ELFDATA2MSB, (char*)"Power PC 64"},

     {EM_ARM,         EM_ARM,     ELFCLASS32,   ELFDATA2LSB, (char*)"ARM"},

     {EM_S390,        EM_S390,    ELFCLASSNONE, ELFDATA2MSB, (char*)"IBM System/390"},

     {EM_ALPHA,       EM_ALPHA,   ELFCLASS64, ELFDATA2LSB, (char*)"Alpha"},

     {EM_MIPS_RS3_LE, EM_MIPS_RS3_LE, ELFCLASS32, ELFDATA2LSB, (char*)"MIPSel"},

     {EM_MIPS,        EM_MIPS,    ELFCLASS32, ELFDATA2MSB, (char*)"MIPS"},

     {EM_PARISC,      EM_PARISC,  ELFCLASS32, ELFDATA2MSB, (char*)"PARISC"},

     {EM_68K,         EM_68K,     ELFCLASS32, ELFDATA2MSB, (char*)"M68k"}

   };

   #if  (defined IA32)

     static  Elf32_Half running_arch_code=EM_386;

   #elif   (defined AMD64)

     static  Elf32_Half running_arch_code=EM_X86_64;

   #elif  (defined IA64)

     static  Elf32_Half running_arch_code=EM_IA_64;

   #elif  (defined __sparc) && (defined _LP64)

     static  Elf32_Half running_arch_code=EM_SPARCV9;

   #elif  (defined __sparc) && (!defined _LP64)

     static  Elf32_Half running_arch_code=EM_SPARC;

   #elif  (defined __powerpc64__)

     static  Elf32_Half running_arch_code=EM_PPC64;

   #elif  (defined __powerpc__)

     static  Elf32_Half running_arch_code=EM_PPC;

   #elif  (defined ARM)

     static  Elf32_Half running_arch_code=EM_ARM;

   #elif  (defined S390)

     static  Elf32_Half running_arch_code=EM_S390;

   #elif  (defined ALPHA)

     static  Elf32_Half running_arch_code=EM_ALPHA;

   #elif  (defined MIPSEL)

     static  Elf32_Half running_arch_code=EM_MIPS_RS3_LE;

   #elif  (defined PARISC)

     static  Elf32_Half running_arch_code=EM_PARISC;

   #elif  (defined MIPS)

     static  Elf32_Half running_arch_code=EM_MIPS;

   #elif  (defined M68K)

     static  Elf32_Half running_arch_code=EM_68K;

   #else

     #error Method os::dll_load requires that one of following is defined:\

          IA32, AMD64, IA64, __sparc, __powerpc__, ARM, S390, ALPHA, MIPS, MIPSEL, PARISC, M68K

   #endif

   // Identify compatability class for VM's architecture and library's architecture

   // Obtain string descriptions for architectures

   arch_t lib_arch={elf_head.e_machine,0,elf_head.e_ident[EI_CLASS], elf_head.e_ident[EI_DATA], NULL};

   int running_arch_index=-1;

   for (unsigned int i=0 ; i < ARRAY_SIZE(arch_array) ; i++ ) {

     if (running_arch_code == arch_array[i].code) {

       running_arch_index    = i;

     }

     if (lib_arch.code == arch_array[i].code) {

       lib_arch.compat_class = arch_array[i].compat_class;

       lib_arch.name         = arch_array[i].name;

     }

   }

   assert(running_arch_index != -1,

     "Didn't find running architecture code (running_arch_code) in arch_array");

   if (running_arch_index == -1) {

     // Even though running architecture detection failed

     // we may still continue with reporting dlerror() message

     return NULL;

   }

   if (lib_arch.endianess != arch_array[running_arch_index].endianess) {

     ::snprintf(diag_msg_buf, diag_msg_max_length-1," (Possible cause: endianness mismatch)");

     return NULL;

   }

 #ifndef S390

   if (lib_arch.elf_class != arch_array[running_arch_index].elf_class) {

     ::snprintf(diag_msg_buf, diag_msg_max_length-1," (Possible cause: architecture word width mismatch)");

     return NULL;

   }

 #endif // !S390

   if (lib_arch.compat_class != arch_array[running_arch_index].compat_class) {

     if ( lib_arch.name!=NULL ) {

       ::snprintf(diag_msg_buf, diag_msg_max_length-1,

         " (Possible cause: can't load %s-bit .so on a %s-bit platform)",

         lib_arch.name, arch_array[running_arch_index].name);

     } else {

       ::snprintf(diag_msg_buf, diag_msg_max_length-1,

       " (Possible cause: can't load this .so (machine code=0x%x) on a %s-bit platform)",

         lib_arch.code,

         arch_array[running_arch_index].name);

     }

   }

   return NULL;

 }

 #endif /* !__APPLE__ */

 // XXX: Do we need a lock around this as per Linux?

 void* os::dll_lookup(void* handle, const char* name) {

   return dlsym(handle, name);

 }

 static bool _print_ascii_file(const char* filename, outputStream* st) {

   int fd = ::open(filename, O_RDONLY);

   if (fd == -1) {

      return false;

   }

   char buf[32];

   int bytes;

   while ((bytes = ::read(fd, buf, sizeof(buf))) > 0) {

     st->print_raw(buf, bytes);

   }

   ::close(fd);

   return true;

 }

 void os::print_dll_info(outputStream *st) {

    st->print_cr("Dynamic libraries:");

 #ifdef RTLD_DI_LINKMAP

     Dl_info dli;

     void *handle;

     Link_map *map;

     Link_map *p;

     if (!dladdr(CAST_FROM_FN_PTR(void *, os::print_dll_info), &dli)) {

         st->print_cr("Error: Cannot print dynamic libraries.");

         return;

     }

     handle = dlopen(dli.dli_fname, RTLD_LAZY);

     if (handle == NULL) {

         st->print_cr("Error: Cannot print dynamic libraries.");

         return;

     }

     dlinfo(handle, RTLD_DI_LINKMAP, &map);

     if (map == NULL) {

         st->print_cr("Error: Cannot print dynamic libraries.");

         return;

     }

     while (map->l_prev != NULL)

         map = map->l_prev;

     while (map != NULL) {

         st->print_cr(PTR_FORMAT " \t%s", map->l_addr, map->l_name);

         map = map->l_next;

     }

     dlclose(handle);

 #elif defined(__APPLE__)

     uint32_t count;

     uint32_t i;

     count = _dyld_image_count();

     for (i = 1; i < count; i++) {

         const char *name = _dyld_get_image_name(i);

         intptr_t slide = _dyld_get_image_vmaddr_slide(i);

         st->print_cr(PTR_FORMAT " \t%s", slide, name);

     }

 #else

    st->print_cr("Error: Cannot print dynamic libraries.");

 #endif

 }

 void os::print_os_info_brief(outputStream* st) {

   st->print("Bsd");

   os::Posix::print_uname_info(st);

 }

 void os::print_os_info(outputStream* st) {

   st->print("OS:");

   st->print("Bsd");

   os::Posix::print_uname_info(st);

   os::Posix::print_rlimit_info(st);

   os::Posix::print_load_average(st);

 }

 void os::pd_print_cpu_info(outputStream* st) {

   // Nothing to do for now.

 }

 void os::print_memory_info(outputStream* st) {

   st->print("Memory:");

   st->print(" %dk page", os::vm_page_size()>>10);

   st->print(", physical " UINT64_FORMAT "k",

             os::physical_memory() >> 10);

   st->print("(" UINT64_FORMAT "k free)",

             os::available_memory() >> 10);

   st->cr();

   // meminfo

   st->print("\n/proc/meminfo:\n");

   _print_ascii_file("/proc/meminfo", st);

   st->cr();

 }

 // Taken from /usr/include/bits/siginfo.h  Supposed to be architecture specific

 // but they're the same for all the bsd arch that we support

 // and they're the same for solaris but there's no common place to put this.

 const char *ill_names[] = { "ILL0", "ILL_ILLOPC", "ILL_ILLOPN", "ILL_ILLADR",

                           "ILL_ILLTRP", "ILL_PRVOPC", "ILL_PRVREG",

                           "ILL_COPROC", "ILL_BADSTK" };

 const char *fpe_names[] = { "FPE0", "FPE_INTDIV", "FPE_INTOVF", "FPE_FLTDIV",

                           "FPE_FLTOVF", "FPE_FLTUND", "FPE_FLTRES",

                           "FPE_FLTINV", "FPE_FLTSUB", "FPE_FLTDEN" };

 const char *segv_names[] = { "SEGV0", "SEGV_MAPERR", "SEGV_ACCERR" };

 const char *bus_names[] = { "BUS0", "BUS_ADRALN", "BUS_ADRERR", "BUS_OBJERR" };

 void os::print_siginfo(outputStream* st, void* siginfo) {

   st->print("siginfo:");

   const int buflen = 100;

   char buf[buflen];

   siginfo_t *si = (siginfo_t*)siginfo;

   st->print("si_signo=%s: ", os::exception_name(si->si_signo, buf, buflen));

   if (si->si_errno != 0 && strerror_r(si->si_errno, buf, buflen) == 0) {

     st->print("si_errno=%s", buf);

   } else {

     st->print("si_errno=%d", si->si_errno);

   }

   const int c = si->si_code;

   assert(c > 0, "unexpected si_code");

   switch (si->si_signo) {

   case SIGILL:

     st->print(", si_code=%d (%s)", c, c > 8 ? "" : ill_names[c]);

     st->print(", si_addr=" PTR_FORMAT, si->si_addr);

     break;

   case SIGFPE:

     st->print(", si_code=%d (%s)", c, c > 9 ? "" : fpe_names[c]);

     st->print(", si_addr=" PTR_FORMAT, si->si_addr);

     break;

   case SIGSEGV:

     st->print(", si_code=%d (%s)", c, c > 2 ? "" : segv_names[c]);

     st->print(", si_addr=" PTR_FORMAT, si->si_addr);

     break;

   case SIGBUS:

     st->print(", si_code=%d (%s)", c, c > 3 ? "" : bus_names[c]);

     st->print(", si_addr=" PTR_FORMAT, si->si_addr);

     break;

   default:

     st->print(", si_code=%d", si->si_code);

     // no si_addr

   }

   if ((si->si_signo == SIGBUS || si->si_signo == SIGSEGV) &&

       UseSharedSpaces) {

     FileMapInfo* mapinfo = FileMapInfo::current_info();

     if (mapinfo->is_in_shared_space(si->si_addr)) {

       st->print("\n\nError accessing class data sharing archive."   \

                 " Mapped file inaccessible during execution, "      \

                 " possible disk/network problem.");

     }

   }

   st->cr();

 }

 static void print_signal_handler(outputStream* st, int sig,

                                  char* buf, size_t buflen);

 void os::print_signal_handlers(outputStream* st, char* buf, size_t buflen) {

   st->print_cr("Signal Handlers:");

   print_signal_handler(st, SIGSEGV, buf, buflen);

   print_signal_handler(st, SIGBUS , buf, buflen);

   print_signal_handler(st, SIGFPE , buf, buflen);

   print_signal_handler(st, SIGPIPE, buf, buflen);

   print_signal_handler(st, SIGXFSZ, buf, buflen);

   print_signal_handler(st, SIGILL , buf, buflen);

   print_signal_handler(st, INTERRUPT_SIGNAL, buf, buflen);

   print_signal_handler(st, SR_signum, buf, buflen);

   print_signal_handler(st, SHUTDOWN1_SIGNAL, buf, buflen);

   print_signal_handler(st, SHUTDOWN2_SIGNAL , buf, buflen);

   print_signal_handler(st, SHUTDOWN3_SIGNAL , buf, buflen);

   print_signal_handler(st, BREAK_SIGNAL, buf, buflen);

 }

 static char saved_jvm_path[MAXPATHLEN] = {0};

 // Find the full path to the current module, libjvm

 void os::jvm_path(char *buf, jint buflen) {

   // Error checking.

   if (buflen < MAXPATHLEN) {

     assert(false, "must use a large-enough buffer");

     buf[0] = '\0';

     return;

   }

   // Lazy resolve the path to current module.

   if (saved_jvm_path[0] != 0) {

     strcpy(buf, saved_jvm_path);

     return;

   }

   char dli_fname[MAXPATHLEN];

   bool ret = dll_address_to_library_name(

                 CAST_FROM_FN_PTR(address, os::jvm_path),

                 dli_fname, sizeof(dli_fname), NULL);

   assert(ret != 0, "cannot locate libjvm");

   char *rp = realpath(dli_fname, buf);

   if (rp == NULL)

     return;

   if (Arguments::created_by_gamma_launcher()) {

     // Support for the gamma launcher.  Typical value for buf is

     // "<JAVA_HOME>/jre/lib/<arch>/<vmtype>/libjvm".  If "/jre/lib/" appears at

     // the right place in the string, then assume we are installed in a JDK and

     // we're done.  Otherwise, check for a JAVA_HOME environment variable and

     // construct a path to the JVM being overridden.

     const char *p = buf + strlen(buf) - 1;

     for (int count = 0; p > buf && count < 5; ++count) {

       for (--p; p > buf && *p != '/'; --p)

         /* empty */ ;

     }

     if (strncmp(p, "/jre/lib/", 9) != 0) {

       // Look for JAVA_HOME in the environment.

       char* java_home_var = ::getenv("JAVA_HOME");

       if (java_home_var != NULL && java_home_var[0] != 0) {

         char* jrelib_p;

         int len;

         // Check the current module name "libjvm"

         p = strrchr(buf, '/');

         assert(strstr(p, "/libjvm") == p, "invalid library name");

         rp = realpath(java_home_var, buf);

         if (rp == NULL)

           return;

         // determine if this is a legacy image or modules image

         // modules image doesn't have "jre" subdirectory

         len = strlen(buf);

         jrelib_p = buf + len;

         // Add the appropriate library subdir

         snprintf(jrelib_p, buflen-len, "/jre/lib");

         if (0 != access(buf, F_OK)) {

           snprintf(jrelib_p, buflen-len, "/lib");

         }

         // Add the appropriate client or server subdir

         len = strlen(buf);

         jrelib_p = buf + len;

         snprintf(jrelib_p, buflen-len, "/%s", COMPILER_VARIANT);

         if (0 != access(buf, F_OK)) {

           snprintf(jrelib_p, buflen-len, "");

         }

         // If the path exists within JAVA_HOME, add the JVM library name

         // to complete the path to JVM being overridden.  Otherwise fallback

         // to the path to the current library.

         if (0 == access(buf, F_OK)) {

           // Use current module name "libjvm"

           len = strlen(buf);

           snprintf(buf + len, buflen-len, "/libjvm%s", JNI_LIB_SUFFIX);

         } else {

           // Fall back to path of current library

           rp = realpath(dli_fname, buf);

           if (rp == NULL)

             return;

         }

       }

     }

   }

   strcpy(saved_jvm_path, buf);

 }

 void os::print_jni_name_prefix_on(outputStream* st, int args_size) {

   // no prefix required, not even "_"

 }

 void os::print_jni_name_suffix_on(outputStream* st, int args_size) {

   // no suffix required

 }

 ////////////////////////////////////////////////////////////////////////////////

 // sun.misc.Signal support

 static volatile jint sigint_count = 0;

 static void

 UserHandler(int sig, void *siginfo, void *context) {

   // 4511530 - sem_post is serialized and handled by the manager thread. When

   // the program is interrupted by Ctrl-C, SIGINT is sent to every thread. We

   // don't want to flood the manager thread with sem_post requests.

   if (sig == SIGINT && Atomic::add(1, &sigint_count) > 1)

       return;

   // Ctrl-C is pressed during error reporting, likely because the error

   // handler fails to abort. Let VM die immediately.

   if (sig == SIGINT && is_error_reported()) {

      os::die();

   }

   os::signal_notify(sig);

 }

 void* os::user_handler() {

   return CAST_FROM_FN_PTR(void*, UserHandler);

 }

 extern "C" {

   typedef void (*sa_handler_t)(int);

   typedef void (*sa_sigaction_t)(int, siginfo_t *, void *);

 }

 void* os::signal(int signal_number, void* handler) {

   struct sigaction sigAct, oldSigAct;

   sigfillset(&(sigAct.sa_mask));

   sigAct.sa_flags   = SA_RESTART|SA_SIGINFO;

   sigAct.sa_handler = CAST_TO_FN_PTR(sa_handler_t, handler);

   if (sigaction(signal_number, &sigAct, &oldSigAct)) {

     // -1 means registration failed

     return (void *)-1;

   }

   return CAST_FROM_FN_PTR(void*, oldSigAct.sa_handler);

 }

 void os::signal_raise(int signal_number) {

   ::raise(signal_number);

 }

 /*

  * The following code is moved from os.cpp for making this

  * code platform specific, which it is by its very nature.

  */

 // Will be modified when max signal is changed to be dynamic

 int os::sigexitnum_pd() {

   return NSIG;

 }

 // a counter for each possible signal value

 static volatile jint pending_signals[NSIG+1] = { 0 };

 // Bsd(POSIX) specific hand shaking semaphore.

 #ifdef __APPLE__

 static semaphore_t sig_sem;

 #define SEM_INIT(sem, value)    semaphore_create(mach_task_self(), &sem, SYNC_POLICY_FIFO, value)

 #define SEM_WAIT(sem)           semaphore_wait(sem);

 #define SEM_POST(sem)           semaphore_signal(sem);

 #else

 static sem_t sig_sem;

 #define SEM_INIT(sem, value)    sem_init(&sem, 0, value)

 #define SEM_WAIT(sem)           sem_wait(&sem);

 #define SEM_POST(sem)           sem_post(&sem);

 #endif

 void os::signal_init_pd() {

   // Initialize signal structures

   ::memset((void*)pending_signals, 0, sizeof(pending_signals));

   // Initialize signal semaphore

   ::SEM_INIT(sig_sem, 0);

 }

 void os::signal_notify(int sig) {

   Atomic::inc(&pending_signals[sig]);

   ::SEM_POST(sig_sem);

 }

 static int check_pending_signals(bool wait) {

   Atomic::store(0, &sigint_count);

   for (;;) {

     for (int i = 0; i < NSIG + 1; i++) {

       jint n = pending_signals[i];

       if (n > 0 && n == Atomic::cmpxchg(n - 1, &pending_signals[i], n)) {

         return i;

       }

     }

     if (!wait) {

       return -1;

     }

     JavaThread *thread = JavaThread::current();

     ThreadBlockInVM tbivm(thread);

     bool threadIsSuspended;

     do {

       thread->set_suspend_equivalent();

       // cleared by handle_special_suspend_equivalent_condition() or java_suspend_self()

       ::SEM_WAIT(sig_sem);

       // were we externally suspended while we were waiting?

       threadIsSuspended = thread->handle_special_suspend_equivalent_condition();

       if (threadIsSuspended) {

         //

         // The semaphore has been incremented, but while we were waiting

         // another thread suspended us. We don't want to continue running

         // while suspended because that would surprise the thread that

         // suspended us.

         //

         ::SEM_POST(sig_sem);

         thread->java_suspend_self();

       }

     } while (threadIsSuspended);

   }

 }

 int os::signal_lookup() {

   return check_pending_signals(false);

 }

 int os::signal_wait() {

   return check_pending_signals(true);

 }

 ////////////////////////////////////////////////////////////////////////////////

 // Virtual Memory

 int os::vm_page_size() {

   // Seems redundant as all get out

   assert(os::Bsd::page_size() != -1, "must call os::init");

   return os::Bsd::page_size();

 }

 // Solaris allocates memory by pages.

 int os::vm_allocation_granularity() {

   assert(os::Bsd::page_size() != -1, "must call os::init");

   return os::Bsd::page_size();

 }

 // Rationale behind this function:

 //  current (Mon Apr 25 20:12:18 MSD 2005) oprofile drops samples without executable

 //  mapping for address (see lookup_dcookie() in the kernel module), thus we cannot get

 //  samples for JITted code. Here we create private executable mapping over the code cache

 //  and then we can use standard (well, almost, as mapping can change) way to provide

 //  info for the reporting script by storing timestamp and location of symbol

 void bsd_wrap_code(char* base, size_t size) {

   static volatile jint cnt = 0;

   if (!UseOprofile) {

     return;

   }

   char buf[PATH_MAX + 1];

   int num = Atomic::add(1, &cnt);

   snprintf(buf, PATH_MAX + 1, "%s/hs-vm-%d-%d",

            os::get_temp_directory(), os::current_process_id(), num);

   unlink(buf);

   int fd = ::open(buf, O_CREAT | O_RDWR, S_IRWXU);

   if (fd != -1) {

     off_t rv = ::lseek(fd, size-2, SEEK_SET);

     if (rv != (off_t)-1) {

       if (::write(fd, "", 1) == 1) {

         mmap(base, size,

              PROT_READ|PROT_WRITE|PROT_EXEC,

              MAP_PRIVATE|MAP_FIXED|MAP_NORESERVE, fd, 0);

       }

     }

     ::close(fd);

     unlink(buf);

   }

 }

 // NOTE: Bsd kernel does not really reserve the pages for us.

 //       All it does is to check if there are enough free pages

 //       left at the time of mmap(). This could be a potential

 //       problem.

 bool os::pd_commit_memory(char* addr, size_t size, bool exec) {

   int prot = exec ? PROT_READ|PROT_WRITE|PROT_EXEC : PROT_READ|PROT_WRITE;

 #ifdef __OpenBSD__

   // XXX: Work-around mmap/MAP_FIXED bug temporarily on OpenBSD

   return ::mprotect(addr, size, prot) == 0;

 #else

   uintptr_t res = (uintptr_t) ::mmap(addr, size, prot,

                                    MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0);

   return res != (uintptr_t) MAP_FAILED;

 #endif

 }

 bool os::pd_commit_memory(char* addr, size_t size, size_t alignment_hint,

                        bool exec) {

   return commit_memory(addr, size, exec);

 }

 void os::pd_realign_memory(char *addr, size_t bytes, size_t alignment_hint) {

 }

 void os::pd_free_memory(char *addr, size_t bytes, size_t alignment_hint) {

   ::madvise(addr, bytes, MADV_DONTNEED);

 }

 void os::numa_make_global(char *addr, size_t bytes) {

 }

 void os::numa_make_local(char *addr, size_t bytes, int lgrp_hint) {

 }

 bool os::numa_topology_changed()   { return false; }

 size_t os::numa_get_groups_num() {

   return 1;

 }

 int os::numa_get_group_id() {

   return 0;

 }

 size_t os::numa_get_leaf_groups(int *ids, size_t size) {

   if (size > 0) {

     ids[0] = 0;

     return 1;

   }

   return 0;

 }

 bool os::get_page_info(char *start, page_info* info) {

   return false;

 }

 char *os::scan_pages(char *start, char* end, page_info* page_expected, page_info* page_found) {

   return end;

 }

 bool os::pd_uncommit_memory(char* addr, size_t size) {

 #ifdef __OpenBSD__

   // XXX: Work-around mmap/MAP_FIXED bug temporarily on OpenBSD

   return ::mprotect(addr, size, PROT_NONE) == 0;

 #else

   uintptr_t res = (uintptr_t) ::mmap(addr, size, PROT_NONE,

                 MAP_PRIVATE|MAP_FIXED|MAP_NORESERVE|MAP_ANONYMOUS, -1, 0);

   return res  != (uintptr_t) MAP_FAILED;

 #endif

 }

 bool os::pd_create_stack_guard_pages(char* addr, size_t size) {

   return os::commit_memory(addr, size);

 }

 // If this is a growable mapping, remove the guard pages entirely by

 // munmap()ping them.  If not, just call uncommit_memory().

 bool os::remove_stack_guard_pages(char* addr, size_t size) {

   return os::uncommit_memory(addr, size);

 }

 static address _highest_vm_reserved_address = NULL;

 // If 'fixed' is true, anon_mmap() will attempt to reserve anonymous memory

 // at 'requested_addr'. If there are existing memory mappings at the same

 // location, however, they will be overwritten. If 'fixed' is false,

 // 'requested_addr' is only treated as a hint, the return value may or

 // may not start from the requested address. Unlike Bsd mmap(), this

 // function returns NULL to indicate failure.

 static char* anon_mmap(char* requested_addr, size_t bytes, bool fixed) {

   char * addr;

   int flags;

   flags = MAP_PRIVATE | MAP_NORESERVE | MAP_ANONYMOUS;

   if (fixed) {

     assert((uintptr_t)requested_addr % os::Bsd::page_size() == 0, "unaligned address");

     flags |= MAP_FIXED;

   }

   // Map uncommitted pages PROT_READ and PROT_WRITE, change access

   // to PROT_EXEC if executable when we commit the page.

   addr = (char*)::mmap(requested_addr, bytes, PROT_READ|PROT_WRITE,

                        flags, -1, 0);

   if (addr != MAP_FAILED) {

     // anon_mmap() should only get called during VM initialization,

     // don't need lock (actually we can skip locking even it can be called

     // from multiple threads, because _highest_vm_reserved_address is just a

     // hint about the upper limit of non-stack memory regions.)

     if ((address)addr + bytes > _highest_vm_reserved_address) {

       _highest_vm_reserved_address = (address)addr + bytes;

     }

   }

   return addr == MAP_FAILED ? NULL : addr;

 }

 // Don't update _highest_vm_reserved_address, because there might be memory

 // regions above addr + size. If so, releasing a memory region only creates

 // a hole in the address space, it doesn't help prevent heap-stack collision.

 //

 static int anon_munmap(char * addr, size_t size) {

   return ::munmap(addr, size) == 0;

 }

 char* os::pd_reserve_memory(size_t bytes, char* requested_addr,

                          size_t alignment_hint) {

   return anon_mmap(requested_addr, bytes, (requested_addr != NULL));

 }

 bool os::pd_release_memory(char* addr, size_t size) {

   return anon_munmap(addr, size);

 }

 static address highest_vm_reserved_address() {

   return _highest_vm_reserved_address;

 }

 static bool bsd_mprotect(char* addr, size_t size, int prot) {

   // Bsd wants the mprotect address argument to be page aligned.

   char* bottom = (char*)align_size_down((intptr_t)addr, os::Bsd::page_size());

   // According to SUSv3, mprotect() should only be used with mappings

   // established by mmap(), and mmap() always maps whole pages. Unaligned

   // 'addr' likely indicates problem in the VM (e.g. trying to change

   // protection of malloc'ed or statically allocated memory). Check the

   // caller if you hit this assert.

   assert(addr == bottom, "sanity check");

   size = align_size_up(pointer_delta(addr, bottom, 1) + size, os::Bsd::page_size());

   return ::mprotect(bottom, size, prot) == 0;

 }

 // Set protections specified

 bool os::protect_memory(char* addr, size_t bytes, ProtType prot,

                         bool is_committed) {

   unsigned int p = 0;

   switch (prot) {

   case MEM_PROT_NONE: p = PROT_NONE; break;

   case MEM_PROT_READ: p = PROT_READ; break;

   case MEM_PROT_RW:   p = PROT_READ|PROT_WRITE; break;

   case MEM_PROT_RWX:  p = PROT_READ|PROT_WRITE|PROT_EXEC; break;

   default:

     ShouldNotReachHere();

   }

   // is_committed is unused.

   return bsd_mprotect(addr, bytes, p);

 }

 bool os::guard_memory(char* addr, size_t size) {

   return bsd_mprotect(addr, size, PROT_NONE);

 }

 bool os::unguard_memory(char* addr, size_t size) {

   return bsd_mprotect(addr, size, PROT_READ|PROT_WRITE);

 }

 bool os::Bsd::hugetlbfs_sanity_check(bool warn, size_t page_size) {

   return false;

 }

 /*

 * Set the coredump_filter bits to include largepages in core dump (bit 6)

 *

 * From the coredump_filter documentation:

 *

 * - (bit 0) anonymous private memory

 * - (bit 1) anonymous shared memory

 * - (bit 2) file-backed private memory

 * - (bit 3) file-backed shared memory

 * - (bit 4) ELF header pages in file-backed private memory areas (it is

 *           effective only if the bit 2 is cleared)

 * - (bit 5) hugetlb private memory

 * - (bit 6) hugetlb shared memory

 */

 static void set_coredump_filter(void) {

   FILE *f;

   long cdm;

   if ((f = fopen("/proc/self/coredump_filter", "r+")) == NULL) {

     return;

   }

   if (fscanf(f, "%lx", &cdm) != 1) {

     fclose(f);

     return;

   }

   rewind(f);

   if ((cdm & LARGEPAGES_BIT) == 0) {

     cdm |= LARGEPAGES_BIT;

     fprintf(f, "%#lx", cdm);

   }

   fclose(f);

 }

 // Large page support

 static size_t _large_page_size = 0;

 void os::large_page_init() {

 }

 char* os::reserve_memory_special(size_t bytes, char* req_addr, bool exec) {

   // "exec" is passed in but not used.  Creating the shared image for

   // the code cache doesn't have an SHM_X executable permission to check.

   assert(UseLargePages && UseSHM, "only for SHM large pages");

   key_t key = IPC_PRIVATE;

   char *addr;

   bool warn_on_failure = UseLargePages &&

                         (!FLAG_IS_DEFAULT(UseLargePages) ||

                          !FLAG_IS_DEFAULT(LargePageSizeInBytes)

                         );

   char msg[128];

   // Create a large shared memory region to attach to based on size.

   // Currently, size is the total size of the heap

   int shmid = shmget(key, bytes, IPC_CREAT|SHM_R|SHM_W);

   if (shmid == -1) {

      // Possible reasons for shmget failure:

      // 1. shmmax is too small for Java heap.

      //    > check shmmax value: cat /proc/sys/kernel/shmmax

      //    > increase shmmax value: echo "0xffffffff" > /proc/sys/kernel/shmmax

      // 2. not enough large page memory.

      //    > check available large pages: cat /proc/meminfo

      //    > increase amount of large pages:

      //          echo new_value > /proc/sys/vm/nr_hugepages

      //      Note 1: different Bsd may use different name for this property,

      //            e.g. on Redhat AS-3 it is "hugetlb_pool".

      //      Note 2: it's possible there's enough physical memory available but

      //            they are so fragmented after a long run that they can't

      //            coalesce into large pages. Try to reserve large pages when

      //            the system is still "fresh".

      if (warn_on_failure) {

        jio_snprintf(msg, sizeof(msg), "Failed to reserve shared memory (errno = %d).", errno);

        warning(msg);

      }

      return NULL;

   }

   // attach to the region

   addr = (char*)shmat(shmid, req_addr, 0);

   int err = errno;

   // Remove shmid. If shmat() is successful, the actual shared memory segment

   // will be deleted when it's detached by shmdt() or when the process

   // terminates. If shmat() is not successful this will remove the shared

   // segment immediately.

   shmctl(shmid, IPC_RMID, NULL);

   if ((intptr_t)addr == -1) {

      if (warn_on_failure) {

        jio_snprintf(msg, sizeof(msg), "Failed to attach shared memory (errno = %d).", err);

        warning(msg);

      }

      return NULL;

   }

   // The memory is committed

   address pc = CALLER_PC;

   MemTracker::record_virtual_memory_reserve((address)addr, bytes, pc);

   MemTracker::record_virtual_memory_commit((address)addr, bytes, pc);

   return addr;

 }

 bool os::release_memory_special(char* base, size_t bytes) {

   // detaching the SHM segment will also delete it, see reserve_memory_special()

   int rslt = shmdt(base);

   if (rslt == 0) {

     MemTracker::record_virtual_memory_uncommit((address)base, bytes);

     MemTracker::record_virtual_memory_release((address)base, bytes);

     return true;

   } else {

     return false;

   }

 }

 size_t os::large_page_size() {

   return _large_page_size;

 }

 // HugeTLBFS allows application to commit large page memory on demand;

 // with SysV SHM the entire memory region must be allocated as shared

 // memory.

 bool os::can_commit_large_page_memory() {

   return UseHugeTLBFS;

 }

 bool os::can_execute_large_page_memory() {

   return UseHugeTLBFS;

 }

 // Reserve memory at an arbitrary address, only if that area is

 // available (and not reserved for something else).

 char* os::pd_attempt_reserve_memory_at(size_t bytes, char* requested_addr) {

   const int max_tries = 10;

   char* base[max_tries];

   size_t size[max_tries];

   const size_t gap = 0x000000;

   // Assert only that the size is a multiple of the page size, since

   // that's all that mmap requires, and since that's all we really know

   // about at this low abstraction level.  If we need higher alignment,

   // we can either pass an alignment to this method or verify alignment

   // in one of the methods further up the call chain.  See bug 5044738.

   assert(bytes % os::vm_page_size() == 0, "reserving unexpected size block");

   // Repeatedly allocate blocks until the block is allocated at the

   // right spot. Give up after max_tries. Note that reserve_memory() will

   // automatically update _highest_vm_reserved_address if the call is

   // successful. The variable tracks the highest memory address every reserved

   // by JVM. It is used to detect heap-stack collision if running with

   // fixed-stack BsdThreads. Because here we may attempt to reserve more

   // space than needed, it could confuse the collision detecting code. To

   // solve the problem, save current _highest_vm_reserved_address and

   // calculate the correct value before return.

   address old_highest = _highest_vm_reserved_address;

   // Bsd mmap allows caller to pass an address as hint; give it a try first,

   // if kernel honors the hint then we can return immediately.

   char * addr = anon_mmap(requested_addr, bytes, false);

   if (addr == requested_addr) {

      return requested_addr;

   }

   if (addr != NULL) {

      // mmap() is successful but it fails to reserve at the requested address

      anon_munmap(addr, bytes);

   }

   int i;

   for (i = 0; i < max_tries; ++i) {

     base[i] = reserve_memory(bytes);

     if (base[i] != NULL) {

       // Is this the block we wanted?

       if (base[i] == requested_addr) {

         size[i] = bytes;

         break;

       }

       // Does this overlap the block we wanted? Give back the overlapped

       // parts and try again.

       size_t top_overlap = requested_addr + (bytes + gap) - base[i];

       if (top_overlap >= 0 && top_overlap < bytes) {

         unmap_memory(base[i], top_overlap);

         base[i] += top_overlap;

         size[i] = bytes - top_overlap;

       } else {

         size_t bottom_overlap = base[i] + bytes - requested_addr;

         if (bottom_overlap >= 0 && bottom_overlap < bytes) {

           unmap_memory(requested_addr, bottom_overlap);

           size[i] = bytes - bottom_overlap;

         } else {

           size[i] = bytes;

         }

       }

     }

   }

   // Give back the unused reserved pieces.

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

     if (base[j] != NULL) {

       unmap_memory(base[j], size[j]);

     }

   }

   if (i < max_tries) {

     _highest_vm_reserved_address = MAX2(old_highest, (address)requested_addr + bytes);

     return requested_addr;

   } else {

     _highest_vm_reserved_address = old_highest;

     return NULL;

   }

 }

 size_t os::read(int fd, void *buf, unsigned int nBytes) {

   RESTARTABLE_RETURN_INT(::read(fd, buf, nBytes));

 }

 // TODO-FIXME: reconcile Solaris' os::sleep with the bsd variation.

 // Solaris uses poll(), bsd uses park().

 // Poll() is likely a better choice, assuming that Thread.interrupt()

 // generates a SIGUSRx signal. Note that SIGUSR1 can interfere with

 // SIGSEGV, see 4355769.

 int os::sleep(Thread* thread, jlong millis, bool interruptible) {

   assert(thread == Thread::current(),  "thread consistency check");

   ParkEvent * const slp = thread->_SleepEvent ;

   slp->reset() ;

   OrderAccess::fence() ;

   if (interruptible) {

     jlong prevtime = javaTimeNanos();

     for (;;) {

       if (os::is_interrupted(thread, true)) {

         return OS_INTRPT;

       }

       jlong newtime = javaTimeNanos();

       if (newtime - prevtime < 0) {

         // time moving backwards, should only happen if no monotonic clock

         // not a guarantee() because JVM should not abort on kernel/glibc bugs

         assert(!Bsd::supports_monotonic_clock(), "time moving backwards");

       } else {

         millis -= (newtime - prevtime) / NANOSECS_PER_MILLISEC;

       }

       if(millis <= 0) {

         return OS_OK;

       }

       prevtime = newtime;

       {

         assert(thread->is_Java_thread(), "sanity check");

         JavaThread *jt = (JavaThread *) thread;

         ThreadBlockInVM tbivm(jt);

         OSThreadWaitState osts(jt->osthread(), false /* not Object.wait() */);

         jt->set_suspend_equivalent();

         // cleared by handle_special_suspend_equivalent_condition() or

         // java_suspend_self() via check_and_wait_while_suspended()

         slp->park(millis);

         // were we externally suspended while we were waiting?

         jt->check_and_wait_while_suspended();

       }

     }

   } else {

     OSThreadWaitState osts(thread->osthread(), false /* not Object.wait() */);

     jlong prevtime = javaTimeNanos();

     for (;;) {

       // It'd be nice to avoid the back-to-back javaTimeNanos() calls on

       // the 1st iteration ...

       jlong newtime = javaTimeNanos();

       if (newtime - prevtime < 0) {

         // time moving backwards, should only happen if no monotonic clock

         // not a guarantee() because JVM should not abort on kernel/glibc bugs

         assert(!Bsd::supports_monotonic_clock(), "time moving backwards");

       } else {

         millis -= (newtime - prevtime) / NANOSECS_PER_MILLISEC;

       }

       if(millis <= 0) break ;

       prevtime = newtime;

       slp->park(millis);

     }

     return OS_OK ;

   }

 }

 int os::naked_sleep() {

   // %% make the sleep time an integer flag. for now use 1 millisec.

   return os::sleep(Thread::current(), 1, false);

 }

 // Sleep forever; naked call to OS-specific sleep; use with CAUTION

 void os::infinite_sleep() {

   while (true) {    // sleep forever ...

     ::sleep(100);   // ... 100 seconds at a time

   }

 }

 // Used to convert frequent JVM_Yield() to nops

 bool os::dont_yield() {

   return DontYieldALot;

 }

 void os::yield() {

   sched_yield();

 }

 os::YieldResult os::NakedYield() { sched_yield(); return os::YIELD_UNKNOWN ;}

 void os::yield_all(int attempts) {

   // Yields to all threads, including threads with lower priorities

   // Threads on Bsd are all with same priority. The Solaris style

   // os::yield_all() with nanosleep(1ms) is not necessary.

   sched_yield();

 }

 // Called from the tight loops to possibly influence time-sharing heuristics

 void os::loop_breaker(int attempts) {

   os::yield_all(attempts);

 }

 ////////////////////////////////////////////////////////////////////////////////

 // thread priority support

 // Note: Normal Bsd applications are run with SCHED_OTHER policy. SCHED_OTHER

 // only supports dynamic priority, static priority must be zero. For real-time

 // applications, Bsd supports SCHED_RR which allows static priority (1-99).

 // However, for large multi-threaded applications, SCHED_RR is not only slower

 // than SCHED_OTHER, but also very unstable (my volano tests hang hard 4 out

 // of 5 runs - Sep 2005).

 //

 // The following code actually changes the niceness of kernel-thread/LWP. It

 // has an assumption that setpriority() only modifies one kernel-thread/LWP,

 // not the entire user process, and user level threads are 1:1 mapped to kernel

 // threads. It has always been the case, but could change in the future. For

 // this reason, the code should not be used as default (ThreadPriorityPolicy=0).

 // It is only used when ThreadPriorityPolicy=1 and requires root privilege.

 #if !defined(__APPLE__)

 int os::java_to_os_priority[CriticalPriority + 1] = {

   19,              // 0 Entry should never be used

    0,              // 1 MinPriority

    3,              // 2

    6,              // 3

   10,              // 4

   15,              // 5 NormPriority

   18,              // 6

   21,              // 7

   25,              // 8

   28,              // 9 NearMaxPriority

   31,              // 10 MaxPriority

   31               // 11 CriticalPriority

 };

 #else

 /* Using Mach high-level priority assignments */

 int os::java_to_os_priority[CriticalPriority + 1] = {

    0,              // 0 Entry should never be used (MINPRI_USER)

   27,              // 1 MinPriority

   28,              // 2

   29,              // 3

   30,              // 4

   31,              // 5 NormPriority (BASEPRI_DEFAULT)

   32,              // 6

   33,              // 7

   34,              // 8

   35,              // 9 NearMaxPriority

   36,              // 10 MaxPriority

   36               // 11 CriticalPriority

 };

 #endif

 static int prio_init() {

   if (ThreadPriorityPolicy == 1) {

     // Only root can raise thread priority. Don't allow ThreadPriorityPolicy=1

     // if effective uid is not root. Perhaps, a more elegant way of doing

     // this is to test CAP_SYS_NICE capability, but that will require libcap.so

     if (geteuid() != 0) {

       if (!FLAG_IS_DEFAULT(ThreadPriorityPolicy)) {

         warning("-XX:ThreadPriorityPolicy requires root privilege on Bsd");

       }

       ThreadPriorityPolicy = 0;

     }

   }

   if (UseCriticalJavaThreadPriority) {

     os::java_to_os_priority[MaxPriority] = os::java_to_os_priority[CriticalPriority];

   }

   return 0;

 }

 OSReturn os::set_native_priority(Thread* thread, int newpri) {

   if ( !UseThreadPriorities || ThreadPriorityPolicy == 0 ) return OS_OK;

 #ifdef __OpenBSD__

   // OpenBSD pthread_setprio starves low priority threads

   return OS_OK;

 #elif defined(__FreeBSD__)

   int ret = pthread_setprio(thread->osthread()->pthread_id(), newpri);

 #elif defined(__APPLE__) || defined(__NetBSD__)

   struct sched_param sp;

   int policy;

   pthread_t self = pthread_self();

   if (pthread_getschedparam(self, &policy, &sp) != 0)

     return OS_ERR;

   sp.sched_priority = newpri;

   if (pthread_setschedparam(self, policy, &sp) != 0)

     return OS_ERR;

   return OS_OK;

 #else

   int ret = setpriority(PRIO_PROCESS, thread->osthread()->thread_id(), newpri);

   return (ret == 0) ? OS_OK : OS_ERR;

 #endif

 }

 OSReturn os::get_native_priority(const Thread* const thread, int *priority_ptr) {

   if ( !UseThreadPriorities || ThreadPriorityPolicy == 0 ) {

     *priority_ptr = java_to_os_priority[NormPriority];

     return OS_OK;

   }

   errno = 0;

 #if defined(__OpenBSD__) || defined(__FreeBSD__)

   *priority_ptr = pthread_getprio(thread->osthread()->pthread_id());

 #elif defined(__APPLE__) || defined(__NetBSD__)

   int policy;

   struct sched_param sp;

   pthread_getschedparam(pthread_self(), &policy, &sp);

   *priority_ptr = sp.sched_priority;

 #else

   *priority_ptr = getpriority(PRIO_PROCESS, thread->osthread()->thread_id());

 #endif

   return (*priority_ptr != -1 || errno == 0 ? OS_OK : OS_ERR);

 }

 // Hint to the underlying OS that a task switch would not be good.

 // Void return because it's a hint and can fail.

 void os::hint_no_preempt() {}

 ////////////////////////////////////////////////////////////////////////////////

 // suspend/resume support

 //  the low-level signal-based suspend/resume support is a remnant from the

 //  old VM-suspension that used to be for java-suspension, safepoints etc,

 //  within hotspot. Now there is a single use-case for this: