/*

 * Copyright (c) 1997, 2015, 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 "classfile/classLoader.hpp"

#include "classfile/javaAssertions.hpp"

#include "classfile/stringTable.hpp"

#include "classfile/symbolTable.hpp"

#include "code/codeCacheExtensions.hpp"

#include "compiler/compilerOracle.hpp"

#include "gc/shared/cardTableRS.hpp"

#include "gc/shared/genCollectedHeap.hpp"

#include "gc/shared/referenceProcessor.hpp"

#include "gc/shared/taskqueue.hpp"

#include "memory/allocation.inline.hpp"

#include "memory/universe.inline.hpp"

#include "oops/oop.inline.hpp"

#include "prims/jvmtiExport.hpp"

#include "runtime/arguments.hpp"

#include "runtime/arguments_ext.hpp"

#include "runtime/commandLineFlagConstraintList.hpp"

#include "runtime/commandLineFlagRangeList.hpp"

#include "runtime/globals.hpp"

#include "runtime/globals_extension.hpp"

#include "runtime/java.hpp"

#include "runtime/os.hpp"

#include "runtime/vm_version.hpp"

#include "services/management.hpp"

#include "services/memTracker.hpp"

#include "utilities/defaultStream.hpp"

#include "utilities/macros.hpp"

#include "utilities/stringUtils.hpp"

#if INCLUDE_ALL_GCS

#include "gc/cms/compactibleFreeListSpace.hpp"

#include "gc/g1/g1CollectedHeap.inline.hpp"

#include "gc/parallel/parallelScavengeHeap.hpp"

#endif // INCLUDE_ALL_GCS

// Note: This is a special bug reporting site for the JVM

#define DEFAULT_VENDOR_URL_BUG "http://bugreport.java.com/bugreport/crash.jsp"

#define DEFAULT_JAVA_LAUNCHER  "generic"

#define UNSUPPORTED_GC_OPTION(gc)                                     \

do {                                                                  \

  if (gc) {                                                           \

    if (FLAG_IS_CMDLINE(gc)) {                                        \

      warning(#gc " is not supported in this VM.  Using Serial GC."); \

    }                                                                 \

    FLAG_SET_DEFAULT(gc, false);                                      \

  }                                                                   \

} while(0)

char** Arguments::_jvm_flags_array              = NULL;

int    Arguments::_num_jvm_flags                = 0;

char** Arguments::_jvm_args_array               = NULL;

int    Arguments::_num_jvm_args                 = 0;

char*  Arguments::_java_command                 = NULL;

SystemProperty* Arguments::_system_properties   = NULL;

const char*  Arguments::_gc_log_filename        = NULL;

bool   Arguments::_has_profile                  = false;

size_t Arguments::_conservative_max_heap_alignment = 0;

size_t Arguments::_min_heap_size                = 0;

Arguments::Mode Arguments::_mode                = _mixed;

bool   Arguments::_java_compiler                = false;

bool   Arguments::_xdebug_mode                  = false;

const char*  Arguments::_java_vendor_url_bug    = DEFAULT_VENDOR_URL_BUG;

const char*  Arguments::_sun_java_launcher      = DEFAULT_JAVA_LAUNCHER;

int    Arguments::_sun_java_launcher_pid        = -1;

bool   Arguments::_sun_java_launcher_is_altjvm  = false;

// These parameters are reset in method parse_vm_init_args()

bool   Arguments::_AlwaysCompileLoopMethods     = AlwaysCompileLoopMethods;

bool   Arguments::_UseOnStackReplacement        = UseOnStackReplacement;

bool   Arguments::_BackgroundCompilation        = BackgroundCompilation;

bool   Arguments::_ClipInlining                 = ClipInlining;

intx   Arguments::_Tier3InvokeNotifyFreqLog     = Tier3InvokeNotifyFreqLog;

intx   Arguments::_Tier4InvocationThreshold     = Tier4InvocationThreshold;

char*  Arguments::SharedArchivePath             = NULL;

AgentLibraryList Arguments::_libraryList;

AgentLibraryList Arguments::_agentList;

abort_hook_t     Arguments::_abort_hook         = NULL;

exit_hook_t      Arguments::_exit_hook          = NULL;

vfprintf_hook_t  Arguments::_vfprintf_hook      = NULL;

SystemProperty *Arguments::_sun_boot_library_path = NULL;

SystemProperty *Arguments::_java_library_path = NULL;

SystemProperty *Arguments::_java_home = NULL;

SystemProperty *Arguments::_java_class_path = NULL;

SystemProperty *Arguments::_sun_boot_class_path = NULL;

char* Arguments::_ext_dirs = NULL;

// Check if head of 'option' matches 'name', and sets 'tail' to the remaining

// part of the option string.

static bool match_option(const JavaVMOption *option, const char* name,

                         const char** tail) {

  int len = (int)strlen(name);

  if (strncmp(option->optionString, name, len) == 0) {

    *tail = option->optionString + len;

    return true;

  } else {

    return false;

  }

}

// Check if 'option' matches 'name'. No "tail" is allowed.

static bool match_option(const JavaVMOption *option, const char* name) {

  const char* tail = NULL;

  bool result = match_option(option, name, &tail);

  if (tail != NULL && *tail == '\0') {

    return result;

  } else {

    return false;

  }

}

// Return true if any of the strings in null-terminated array 'names' matches.

// If tail_allowed is true, then the tail must begin with a colon; otherwise,

// the option must match exactly.

static bool match_option(const JavaVMOption* option, const char** names, const char** tail,

  bool tail_allowed) {

  for (/* empty */; *names != NULL; ++names) {

    if (match_option(option, *names, tail)) {

      if (**tail == '\0' || tail_allowed && **tail == ':') {

        return true;

      }

    }

  }

  return false;

}

static void logOption(const char* opt) {

  if (PrintVMOptions) {

    jio_fprintf(defaultStream::output_stream(), "VM option '%s'\n", opt);

  }

}

// Process java launcher properties.

void Arguments::process_sun_java_launcher_properties(JavaVMInitArgs* args) {

  // See if sun.java.launcher, sun.java.launcher.is_altjvm or

  // sun.java.launcher.pid is defined.

  // Must do this before setting up other system properties,

  // as some of them may depend on launcher type.

  for (int index = 0; index < args->nOptions; index++) {

    const JavaVMOption* option = args->options + index;

    const char* tail;

    if (match_option(option, "-Dsun.java.launcher=", &tail)) {

      process_java_launcher_argument(tail, option->extraInfo);

      continue;

    }

    if (match_option(option, "-Dsun.java.launcher.is_altjvm=", &tail)) {

      if (strcmp(tail, "true") == 0) {

        _sun_java_launcher_is_altjvm = true;

      }

      continue;

    }

    if (match_option(option, "-Dsun.java.launcher.pid=", &tail)) {

      _sun_java_launcher_pid = atoi(tail);

      continue;

    }

  }

}

// Initialize system properties key and value.

void Arguments::init_system_properties() {

  PropertyList_add(&_system_properties, new SystemProperty("java.vm.specification.name",

                                                                 "Java Virtual Machine Specification",  false));

  PropertyList_add(&_system_properties, new SystemProperty("java.vm.version", VM_Version::vm_release(),  false));

  PropertyList_add(&_system_properties, new SystemProperty("java.vm.name", VM_Version::vm_name(),  false));

  PropertyList_add(&_system_properties, new SystemProperty("java.vm.info", VM_Version::vm_info_string(),  true));

  // Following are JVMTI agent writable properties.

  // Properties values are set to NULL and they are

  // os specific they are initialized in os::init_system_properties_values().

  _sun_boot_library_path = new SystemProperty("sun.boot.library.path", NULL,  true);

  _java_library_path = new SystemProperty("java.library.path", NULL,  true);

  _java_home =  new SystemProperty("java.home", NULL,  true);

  _sun_boot_class_path = new SystemProperty("sun.boot.class.path", NULL,  true);

  _java_class_path = new SystemProperty("java.class.path", "",  true);

  // Add to System Property list.

  PropertyList_add(&_system_properties, _sun_boot_library_path);

  PropertyList_add(&_system_properties, _java_library_path);

  PropertyList_add(&_system_properties, _java_home);

  PropertyList_add(&_system_properties, _java_class_path);

  PropertyList_add(&_system_properties, _sun_boot_class_path);

  // Set OS specific system properties values

  os::init_system_properties_values();

}

// Update/Initialize System properties after JDK version number is known

void Arguments::init_version_specific_system_properties() {

  enum { bufsz = 16 };

  char buffer[bufsz];

  const char* spec_vendor = "Sun Microsystems Inc.";

  uint32_t spec_version = 0;

  spec_vendor = "Oracle Corporation";

  spec_version = JDK_Version::current().major_version();

  jio_snprintf(buffer, bufsz, "1." UINT32_FORMAT, spec_version);

  PropertyList_add(&_system_properties,

      new SystemProperty("java.vm.specification.vendor",  spec_vendor, false));

  PropertyList_add(&_system_properties,

      new SystemProperty("java.vm.specification.version", buffer, false));

  PropertyList_add(&_system_properties,

      new SystemProperty("java.vm.vendor", VM_Version::vm_vendor(),  false));

}

/**

 * Provide a slightly more user-friendly way of eliminating -XX flags.

 * When a flag is eliminated, it can be added to this list in order to

 * continue accepting this flag on the command-line, while issuing a warning

 * and ignoring the value.  Once the JDK version reaches the 'accept_until'

 * limit, we flatly refuse to admit the existence of the flag.  This allows

 * a flag to die correctly over JDK releases using HSX.

 * But now that HSX is no longer supported only options with a future

 * accept_until value need to be listed, and the list can be pruned

 * on each major release.

 */

typedef struct {

  const char* name;

  JDK_Version obsoleted_in; // when the flag went away

  JDK_Version accept_until; // which version to start denying the existence

} ObsoleteFlag;

static ObsoleteFlag obsolete_jvm_flags[] = {

  { "UseOldInlining",                JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "SafepointPollOffset",           JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "UseBoundThreads",               JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "DefaultThreadPriority",         JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "NoYieldsInMicrolock",           JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "BackEdgeThreshold",             JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "UseNewReflection",              JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "ReflectionWrapResolutionErrors",JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "VerifyReflectionBytecodes",     JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "AutoShutdownNMT",               JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "NmethodSweepFraction",          JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "NmethodSweepCheckInterval",     JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "CodeCacheMinimumFreeSpace",     JDK_Version::jdk(9), JDK_Version::jdk(10) },

#ifndef ZERO

  { "UseFastAccessorMethods",        JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "UseFastEmptyMethods",           JDK_Version::jdk(9), JDK_Version::jdk(10) },

#endif // ZERO

  { "UseCompilerSafepoints",         JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "AdaptiveSizePausePolicy",       JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "ParallelGCRetainPLAB",          JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "ThreadSafetyMargin",            JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "LazyBootClassLoader",           JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "StarvationMonitorInterval",     JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { "PreInflateSpin",                JDK_Version::jdk(9), JDK_Version::jdk(10) },

  { NULL, JDK_Version(0), JDK_Version(0) }

};

// Returns true if the flag is obsolete and fits into the range specified

// for being ignored.  In the case that the flag is ignored, the 'version'

// value is filled in with the version number when the flag became

// obsolete so that that value can be displayed to the user.

bool Arguments::is_newly_obsolete(const char *s, JDK_Version* version) {

  int i = 0;

  assert(version != NULL, "Must provide a version buffer");

  while (obsolete_jvm_flags[i].name != NULL) {

    const ObsoleteFlag& flag_status = obsolete_jvm_flags[i];

    // <flag>=xxx form

    // [-|+]<flag> form

    size_t len = strlen(flag_status.name);

    if ((strncmp(flag_status.name, s, len) == 0) &&

        (strlen(s) == len)){

      if (JDK_Version::current().compare(flag_status.accept_until) == -1) {

          *version = flag_status.obsoleted_in;

          return true;

      }

    }

    i++;

  }

  return false;

}

// Constructs the system class path (aka boot class path) from the following

// components, in order:

//

//     prefix           // from -Xbootclasspath/p:...

//     base             // from os::get_system_properties() or -Xbootclasspath=

//     suffix           // from -Xbootclasspath/a:...

//

// This could be AllStatic, but it isn't needed after argument processing is

// complete.

class SysClassPath: public StackObj {

public:

  SysClassPath(const char* base);

  ~SysClassPath();

  inline void set_base(const char* base);

  inline void add_prefix(const char* prefix);

  inline void add_suffix_to_prefix(const char* suffix);

  inline void add_suffix(const char* suffix);

  inline void reset_path(const char* base);

  inline const char* get_base()     const { return _items[_scp_base]; }

  inline const char* get_prefix()   const { return _items[_scp_prefix]; }

  inline const char* get_suffix()   const { return _items[_scp_suffix]; }

  // Combine all the components into a single c-heap-allocated string; caller

  // must free the string if/when no longer needed.

  char* combined_path();

private:

  // Utility routines.

  static char* add_to_path(const char* path, const char* str, bool prepend);

  static char* add_jars_to_path(char* path, const char* directory);

  inline void reset_item_at(int index);

  // Array indices for the items that make up the sysclasspath.  All except the

  // base are allocated in the C heap and freed by this class.

  enum {

    _scp_prefix,        // from -Xbootclasspath/p:...

    _scp_base,          // the default sysclasspath

    _scp_suffix,        // from -Xbootclasspath/a:...

    _scp_nitems         // the number of items, must be last.

  };

  const char* _items[_scp_nitems];

};

SysClassPath::SysClassPath(const char* base) {

  memset(_items, 0, sizeof(_items));

  _items[_scp_base] = base;

}

SysClassPath::~SysClassPath() {

  // Free everything except the base.

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

    if (i != _scp_base) reset_item_at(i);

  }

}

inline void SysClassPath::set_base(const char* base) {

  _items[_scp_base] = base;

}

inline void SysClassPath::add_prefix(const char* prefix) {

  _items[_scp_prefix] = add_to_path(_items[_scp_prefix], prefix, true);

}

inline void SysClassPath::add_suffix_to_prefix(const char* suffix) {

  _items[_scp_prefix] = add_to_path(_items[_scp_prefix], suffix, false);

}

inline void SysClassPath::add_suffix(const char* suffix) {

  _items[_scp_suffix] = add_to_path(_items[_scp_suffix], suffix, false);

}

inline void SysClassPath::reset_item_at(int index) {

  assert(index < _scp_nitems && index != _scp_base, "just checking");

  if (_items[index] != NULL) {

    FREE_C_HEAP_ARRAY(char, _items[index]);

    _items[index] = NULL;

  }

}

inline void SysClassPath::reset_path(const char* base) {

  // Clear the prefix and suffix.

  reset_item_at(_scp_prefix);

  reset_item_at(_scp_suffix);

  set_base(base);

}

//------------------------------------------------------------------------------

// Combine the bootclasspath elements, some of which may be null, into a single

// c-heap-allocated string.

char* SysClassPath::combined_path() {

  assert(_items[_scp_base] != NULL, "empty default sysclasspath");

  size_t lengths[_scp_nitems];

  size_t total_len = 0;

  const char separator = *os::path_separator();

  // Get the lengths.

  int i;

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

    if (_items[i] != NULL) {

      lengths[i] = strlen(_items[i]);

      // Include space for the separator char (or a NULL for the last item).

      total_len += lengths[i] + 1;

    }

  }

  assert(total_len > 0, "empty sysclasspath not allowed");

  // Copy the _items to a single string.

  char* cp = NEW_C_HEAP_ARRAY(char, total_len, mtInternal);

  char* cp_tmp = cp;

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

    if (_items[i] != NULL) {

      memcpy(cp_tmp, _items[i], lengths[i]);

      cp_tmp += lengths[i];

      *cp_tmp++ = separator;

    }

  }

  *--cp_tmp = '\0';     // Replace the extra separator.

  return cp;

}

// Note:  path must be c-heap-allocated (or NULL); it is freed if non-null.

char*

SysClassPath::add_to_path(const char* path, const char* str, bool prepend) {

  char *cp;

  assert(str != NULL, "just checking");

  if (path == NULL) {

    size_t len = strlen(str) + 1;

    cp = NEW_C_HEAP_ARRAY(char, len, mtInternal);

    memcpy(cp, str, len);                       // copy the trailing null

  } else {

    const char separator = *os::path_separator();

    size_t old_len = strlen(path);

    size_t str_len = strlen(str);

    size_t len = old_len + str_len + 2;

    if (prepend) {

      cp = NEW_C_HEAP_ARRAY(char, len, mtInternal);

      char* cp_tmp = cp;

      memcpy(cp_tmp, str, str_len);

      cp_tmp += str_len;

      *cp_tmp = separator;

      memcpy(++cp_tmp, path, old_len + 1);      // copy the trailing null

      FREE_C_HEAP_ARRAY(char, path);

    } else {

      cp = REALLOC_C_HEAP_ARRAY(char, path, len, mtInternal);

      char* cp_tmp = cp + old_len;

      *cp_tmp = separator;

      memcpy(++cp_tmp, str, str_len + 1);       // copy the trailing null

    }

  }

  return cp;

}

// Scan the directory and append any jar or zip files found to path.

// Note:  path must be c-heap-allocated (or NULL); it is freed if non-null.

char* SysClassPath::add_jars_to_path(char* path, const char* directory) {

  DIR* dir = os::opendir(directory);

  if (dir == NULL) return path;

  char dir_sep[2] = { '\0', '\0' };

  size_t directory_len = strlen(directory);

  const char fileSep = *os::file_separator();

  if (directory[directory_len - 1] != fileSep) dir_sep[0] = fileSep;

  /* Scan the directory for jars/zips, appending them to path. */

  struct dirent *entry;

  char *dbuf = NEW_C_HEAP_ARRAY(char, os::readdir_buf_size(directory), mtInternal);

  while ((entry = os::readdir(dir, (dirent *) dbuf)) != NULL) {

    const char* name = entry->d_name;

    const char* ext = name + strlen(name) - 4;

    bool isJarOrZip = ext > name &&

      (os::file_name_strcmp(ext, ".jar") == 0 ||

       os::file_name_strcmp(ext, ".zip") == 0);

    if (isJarOrZip) {

      char* jarpath = NEW_C_HEAP_ARRAY(char, directory_len + 2 + strlen(name), mtInternal);

      sprintf(jarpath, "%s%s%s", directory, dir_sep, name);

      path = add_to_path(path, jarpath, false);

      FREE_C_HEAP_ARRAY(char, jarpath);

    }

  }

  FREE_C_HEAP_ARRAY(char, dbuf);

  os::closedir(dir);

  return path;

}

// Parses a memory size specification string.

static bool atomull(const char *s, julong* result) {

  julong n = 0;

  int args_read = 0;

  bool is_hex = false;

  // Skip leading 0[xX] for hexadecimal

  if (*s =='0' && (*(s+1) == 'x' || *(s+1) == 'X')) {

    s += 2;