hotspot/src/share/vm/runtime/globals.cpp
author ikrylov
Tue, 31 Aug 2010 03:14:00 -0700
changeset 6438 ace4f8100e90
parent 6187 4fa7845f7c14
child 7397 5b173b4ca846
permissions -rw-r--r--
6979444: add command line option to print command line flags descriptions Summary: Implementation of a nonproduct boolean flag XX:PrintFlagsWithComments Reviewed-by: kamg, dholmes, dsamersoff
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
     1
/*
6187
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
     2
 * Copyright (c) 1997, 2010, Oracle and/or its affiliates. All rights reserved.
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
     3
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
489c9b5090e2 Initial load
duke
parents:
diff changeset
     4
 *
489c9b5090e2 Initial load
duke
parents:
diff changeset
     5
 * This code is free software; you can redistribute it and/or modify it
489c9b5090e2 Initial load
duke
parents:
diff changeset
     6
 * under the terms of the GNU General Public License version 2 only, as
489c9b5090e2 Initial load
duke
parents:
diff changeset
     7
 * published by the Free Software Foundation.
489c9b5090e2 Initial load
duke
parents:
diff changeset
     8
 *
489c9b5090e2 Initial load
duke
parents:
diff changeset
     9
 * This code is distributed in the hope that it will be useful, but WITHOUT
489c9b5090e2 Initial load
duke
parents:
diff changeset
    10
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
489c9b5090e2 Initial load
duke
parents:
diff changeset
    11
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
489c9b5090e2 Initial load
duke
parents:
diff changeset
    12
 * version 2 for more details (a copy is included in the LICENSE file that
489c9b5090e2 Initial load
duke
parents:
diff changeset
    13
 * accompanied this code).
489c9b5090e2 Initial load
duke
parents:
diff changeset
    14
 *
489c9b5090e2 Initial load
duke
parents:
diff changeset
    15
 * You should have received a copy of the GNU General Public License version
489c9b5090e2 Initial load
duke
parents:
diff changeset
    16
 * 2 along with this work; if not, write to the Free Software Foundation,
489c9b5090e2 Initial load
duke
parents:
diff changeset
    17
 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
489c9b5090e2 Initial load
duke
parents:
diff changeset
    18
 *
5547
f4b087cbb361 6941466: Oracle rebranding changes for Hotspot repositories
trims
parents: 4579
diff changeset
    19
 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
f4b087cbb361 6941466: Oracle rebranding changes for Hotspot repositories
trims
parents: 4579
diff changeset
    20
 * or visit www.oracle.com if you need additional information or have any
f4b087cbb361 6941466: Oracle rebranding changes for Hotspot repositories
trims
parents: 4579
diff changeset
    21
 * questions.
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
    22
 *
489c9b5090e2 Initial load
duke
parents:
diff changeset
    23
 */
489c9b5090e2 Initial load
duke
parents:
diff changeset
    24
489c9b5090e2 Initial load
duke
parents:
diff changeset
    25
# include "incls/_precompiled.incl"
489c9b5090e2 Initial load
duke
parents:
diff changeset
    26
# include "incls/_globals.cpp.incl"
489c9b5090e2 Initial load
duke
parents:
diff changeset
    27
489c9b5090e2 Initial load
duke
parents:
diff changeset
    28
489c9b5090e2 Initial load
duke
parents:
diff changeset
    29
RUNTIME_FLAGS(MATERIALIZE_DEVELOPER_FLAG, MATERIALIZE_PD_DEVELOPER_FLAG, \
489c9b5090e2 Initial load
duke
parents:
diff changeset
    30
              MATERIALIZE_PRODUCT_FLAG, MATERIALIZE_PD_PRODUCT_FLAG, \
1382
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
    31
              MATERIALIZE_DIAGNOSTIC_FLAG, MATERIALIZE_EXPERIMENTAL_FLAG, \
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
    32
              MATERIALIZE_NOTPRODUCT_FLAG, \
360
21d113ecbf6a 6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents: 350
diff changeset
    33
              MATERIALIZE_MANAGEABLE_FLAG, MATERIALIZE_PRODUCT_RW_FLAG, \
21d113ecbf6a 6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents: 350
diff changeset
    34
              MATERIALIZE_LP64_PRODUCT_FLAG)
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
    35
489c9b5090e2 Initial load
duke
parents:
diff changeset
    36
RUNTIME_OS_FLAGS(MATERIALIZE_DEVELOPER_FLAG, MATERIALIZE_PD_DEVELOPER_FLAG, \
489c9b5090e2 Initial load
duke
parents:
diff changeset
    37
                 MATERIALIZE_PRODUCT_FLAG, MATERIALIZE_PD_PRODUCT_FLAG, \
489c9b5090e2 Initial load
duke
parents:
diff changeset
    38
                 MATERIALIZE_DIAGNOSTIC_FLAG, MATERIALIZE_NOTPRODUCT_FLAG)
489c9b5090e2 Initial load
duke
parents:
diff changeset
    39
489c9b5090e2 Initial load
duke
parents:
diff changeset
    40
bool Flag::is_unlocker() const {
1382
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
    41
  return strcmp(name, "UnlockDiagnosticVMOptions") == 0     ||
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
    42
         strcmp(name, "UnlockExperimentalVMOptions") == 0;
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
    43
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
    44
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
    45
489c9b5090e2 Initial load
duke
parents:
diff changeset
    46
bool Flag::is_unlocked() const {
489c9b5090e2 Initial load
duke
parents:
diff changeset
    47
  if (strcmp(kind, "{diagnostic}") == 0) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
    48
    return UnlockDiagnosticVMOptions;
4450
6d700b859b3e 6892658: C2 should optimize some stringbuilder patterns
never
parents: 4437
diff changeset
    49
  } else if (strcmp(kind, "{experimental}") == 0 ||
6d700b859b3e 6892658: C2 should optimize some stringbuilder patterns
never
parents: 4437
diff changeset
    50
             strcmp(kind, "{C2 experimental}") == 0) {
1382
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
    51
    return UnlockExperimentalVMOptions;
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
    52
  } else {
489c9b5090e2 Initial load
duke
parents:
diff changeset
    53
    return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
    54
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
    55
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
    56
489c9b5090e2 Initial load
duke
parents:
diff changeset
    57
bool Flag::is_writeable() const {
489c9b5090e2 Initial load
duke
parents:
diff changeset
    58
  return (strcmp(kind, "{manageable}") == 0 || strcmp(kind, "{product rw}") == 0);
489c9b5090e2 Initial load
duke
parents:
diff changeset
    59
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
    60
489c9b5090e2 Initial load
duke
parents:
diff changeset
    61
// All flags except "manageable" are assumed internal flags.
489c9b5090e2 Initial load
duke
parents:
diff changeset
    62
// Long term, we need to define a mechanism to specify which flags
489c9b5090e2 Initial load
duke
parents:
diff changeset
    63
// are external/stable and change this function accordingly.
489c9b5090e2 Initial load
duke
parents:
diff changeset
    64
bool Flag::is_external() const {
489c9b5090e2 Initial load
duke
parents:
diff changeset
    65
  return (strcmp(kind, "{manageable}") == 0);
489c9b5090e2 Initial load
duke
parents:
diff changeset
    66
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
    67
489c9b5090e2 Initial load
duke
parents:
diff changeset
    68
// Length of format string (e.g. "%.1234s") for printing ccstr below
489c9b5090e2 Initial load
duke
parents:
diff changeset
    69
#define FORMAT_BUFFER_LEN 16
489c9b5090e2 Initial load
duke
parents:
diff changeset
    70
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    71
void Flag::print_on(outputStream* st, bool withComments) {
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    72
  st->print("%9s %-40s %c= ", type, name, (origin != DEFAULT ? ':' : ' '));
4437
d1abc17afffb 6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents: 4434
diff changeset
    73
  if (is_bool())     st->print("%-16s", get_bool() ? "true" : "false");
d1abc17afffb 6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents: 4434
diff changeset
    74
  if (is_intx())     st->print("%-16ld", get_intx());
d1abc17afffb 6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents: 4434
diff changeset
    75
  if (is_uintx())    st->print("%-16lu", get_uintx());
d1abc17afffb 6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents: 4434
diff changeset
    76
  if (is_uint64_t()) st->print("%-16lu", get_uint64_t());
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    77
  if (is_double())   st->print("%-16f", get_double());
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    78
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
    79
  if (is_ccstr()) {
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    80
     const char* cp = get_ccstr();
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    81
     if (cp != NULL) {
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    82
       const char* eol;
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    83
       while ((eol = strchr(cp, '\n')) != NULL) {
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    84
         char format_buffer[FORMAT_BUFFER_LEN];
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    85
         size_t llen = pointer_delta(eol, cp, sizeof(char));
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    86
         jio_snprintf(format_buffer, FORMAT_BUFFER_LEN,
350
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
    87
                     "%%." SIZE_FORMAT "s", llen);
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    88
         st->print(format_buffer, cp);
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    89
         st->cr();
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    90
         cp = eol+1;
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    91
         st->print("%5s %-35s += ", "", name);
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    92
       }
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    93
       st->print("%-16s", cp);
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    94
     }
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    95
     else st->print("%-16s", "");
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
    96
  }
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    97
  st->print("%-20s", kind);
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    98
  if (withComments) {
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
    99
#ifndef PRODUCT
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   100
    st->print("%s", doc );
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   101
#endif
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   102
  }
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   103
  st->cr();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   104
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   105
489c9b5090e2 Initial load
duke
parents:
diff changeset
   106
void Flag::print_as_flag(outputStream* st) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   107
  if (is_bool()) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   108
    st->print("-XX:%s%s", get_bool() ? "+" : "-", name);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   109
  } else if (is_intx()) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   110
    st->print("-XX:%s=" INTX_FORMAT, name, get_intx());
489c9b5090e2 Initial load
duke
parents:
diff changeset
   111
  } else if (is_uintx()) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   112
    st->print("-XX:%s=" UINTX_FORMAT, name, get_uintx());
4437
d1abc17afffb 6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents: 4434
diff changeset
   113
  } else if (is_uint64_t()) {
d1abc17afffb 6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents: 4434
diff changeset
   114
    st->print("-XX:%s=" UINT64_FORMAT, name, get_uint64_t());
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   115
  } else if (is_ccstr()) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   116
    st->print("-XX:%s=", name);
350
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   117
    const char* cp = get_ccstr();
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   118
    if (cp != NULL) {
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   119
      // Need to turn embedded '\n's back into separate arguments
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   120
      // Not so efficient to print one character at a time,
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   121
      // but the choice is to do the transformation to a buffer
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   122
      // and print that.  And this need not be efficient.
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   123
      for (; *cp != '\0'; cp += 1) {
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   124
        switch (*cp) {
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   125
          default:
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   126
            st->print("%c", *cp);
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   127
            break;
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   128
          case '\n':
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   129
            st->print(" -XX:%s=", name);
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   130
            break;
d6d713dd712a 6619271: The -Xprintflags causes the VM to segv
never
parents: 186
diff changeset
   131
        }
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   132
      }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   133
    }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   134
  } else {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   135
    ShouldNotReachHere();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   136
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   137
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   138
489c9b5090e2 Initial load
duke
parents:
diff changeset
   139
// 4991491 do not "optimize out" the was_set false values: omitting them
489c9b5090e2 Initial load
duke
parents:
diff changeset
   140
// tickles a Microsoft compiler bug causing flagTable to be malformed
489c9b5090e2 Initial load
duke
parents:
diff changeset
   141
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   142
#define RUNTIME_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{product}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   143
#define RUNTIME_PD_PRODUCT_FLAG_STRUCT(type, name, doc)     { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{pd product}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   144
#define RUNTIME_DIAGNOSTIC_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{diagnostic}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   145
#define RUNTIME_EXPERIMENTAL_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{experimental}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   146
#define RUNTIME_MANAGEABLE_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{manageable}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   147
#define RUNTIME_PRODUCT_RW_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{product rw}", DEFAULT },
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   148
489c9b5090e2 Initial load
duke
parents:
diff changeset
   149
#ifdef PRODUCT
489c9b5090e2 Initial load
duke
parents:
diff changeset
   150
  #define RUNTIME_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */
489c9b5090e2 Initial load
duke
parents:
diff changeset
   151
  #define RUNTIME_PD_DEVELOP_FLAG_STRUCT(type, name, doc)     /* flag is constant */
489c9b5090e2 Initial load
duke
parents:
diff changeset
   152
  #define RUNTIME_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc)
489c9b5090e2 Initial load
duke
parents:
diff changeset
   153
#else
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   154
  #define RUNTIME_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   155
  #define RUNTIME_PD_DEVELOP_FLAG_STRUCT(type, name, doc)     { #type, XSTR(name), &name, doc, "{pd}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   156
  #define RUNTIME_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{notproduct}", DEFAULT },
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   157
#endif
489c9b5090e2 Initial load
duke
parents:
diff changeset
   158
360
21d113ecbf6a 6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents: 350
diff changeset
   159
#ifdef _LP64
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   160
  #define RUNTIME_LP64_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{lp64_product}", DEFAULT },
360
21d113ecbf6a 6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents: 350
diff changeset
   161
#else
21d113ecbf6a 6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents: 350
diff changeset
   162
  #define RUNTIME_LP64_PRODUCT_FLAG_STRUCT(type, name, value, doc) /* flag is constant */
21d113ecbf6a 6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents: 350
diff changeset
   163
#endif // _LP64
21d113ecbf6a 6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents: 350
diff changeset
   164
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   165
#define C1_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C1 product}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   166
#define C1_PD_PRODUCT_FLAG_STRUCT(type, name, doc)     { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C1 pd product}", DEFAULT },
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   167
#ifdef PRODUCT
489c9b5090e2 Initial load
duke
parents:
diff changeset
   168
  #define C1_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */
489c9b5090e2 Initial load
duke
parents:
diff changeset
   169
  #define C1_PD_DEVELOP_FLAG_STRUCT(type, name, doc)     /* flag is constant */
489c9b5090e2 Initial load
duke
parents:
diff changeset
   170
  #define C1_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc)
489c9b5090e2 Initial load
duke
parents:
diff changeset
   171
#else
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   172
  #define C1_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{C1}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   173
  #define C1_PD_DEVELOP_FLAG_STRUCT(type, name, doc)     { #type, XSTR(name), &name, doc, "{C1 pd}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   174
  #define C1_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{C1 notproduct}", DEFAULT },
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   175
#endif
489c9b5090e2 Initial load
duke
parents:
diff changeset
   176
489c9b5090e2 Initial load
duke
parents:
diff changeset
   177
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   178
#define C2_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C2 product}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   179
#define C2_PD_PRODUCT_FLAG_STRUCT(type, name, doc)     { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C2 pd product}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   180
#define C2_DIAGNOSTIC_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C2 diagnostic}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   181
#define C2_EXPERIMENTAL_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C2 experimental}", DEFAULT },
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   182
#ifdef PRODUCT
489c9b5090e2 Initial load
duke
parents:
diff changeset
   183
  #define C2_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */
489c9b5090e2 Initial load
duke
parents:
diff changeset
   184
  #define C2_PD_DEVELOP_FLAG_STRUCT(type, name, doc)     /* flag is constant */
489c9b5090e2 Initial load
duke
parents:
diff changeset
   185
  #define C2_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc)
489c9b5090e2 Initial load
duke
parents:
diff changeset
   186
#else
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   187
  #define C2_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{C2}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   188
  #define C2_PD_DEVELOP_FLAG_STRUCT(type, name, doc)     { #type, XSTR(name), &name, doc, "{C2 pd}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   189
  #define C2_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{C2 notproduct}", DEFAULT },
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   190
#endif
489c9b5090e2 Initial load
duke
parents:
diff changeset
   191
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   192
#define SHARK_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{Shark product}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   193
#define SHARK_PD_PRODUCT_FLAG_STRUCT(type, name, doc)     { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{Shark pd product}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   194
#define SHARK_DIAGNOSTIC_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{Shark diagnostic}", DEFAULT },
6187
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   195
#ifdef PRODUCT
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   196
  #define SHARK_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   197
  #define SHARK_PD_DEVELOP_FLAG_STRUCT(type, name, doc)     /* flag is constant */
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   198
  #define SHARK_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc)
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   199
#else
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   200
  #define SHARK_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{Shark}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   201
  #define SHARK_PD_DEVELOP_FLAG_STRUCT(type, name, doc)     { #type, XSTR(name), &name, doc, "{Shark pd}", DEFAULT },
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   202
  #define SHARK_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{Shark notproduct}", DEFAULT },
6187
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   203
#endif
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   204
489c9b5090e2 Initial load
duke
parents:
diff changeset
   205
static Flag flagTable[] = {
1382
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
   206
 RUNTIME_FLAGS(RUNTIME_DEVELOP_FLAG_STRUCT, RUNTIME_PD_DEVELOP_FLAG_STRUCT, RUNTIME_PRODUCT_FLAG_STRUCT, RUNTIME_PD_PRODUCT_FLAG_STRUCT, RUNTIME_DIAGNOSTIC_FLAG_STRUCT, RUNTIME_EXPERIMENTAL_FLAG_STRUCT, RUNTIME_NOTPRODUCT_FLAG_STRUCT, RUNTIME_MANAGEABLE_FLAG_STRUCT, RUNTIME_PRODUCT_RW_FLAG_STRUCT, RUNTIME_LP64_PRODUCT_FLAG_STRUCT)
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   207
 RUNTIME_OS_FLAGS(RUNTIME_DEVELOP_FLAG_STRUCT, RUNTIME_PD_DEVELOP_FLAG_STRUCT, RUNTIME_PRODUCT_FLAG_STRUCT, RUNTIME_PD_PRODUCT_FLAG_STRUCT, RUNTIME_DIAGNOSTIC_FLAG_STRUCT, RUNTIME_NOTPRODUCT_FLAG_STRUCT)
1374
4c24294029a9 6711316: Open source the Garbage-First garbage collector
ysr
parents: 360
diff changeset
   208
#ifndef SERIALGC
1382
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
   209
 G1_FLAGS(RUNTIME_DEVELOP_FLAG_STRUCT, RUNTIME_PD_DEVELOP_FLAG_STRUCT, RUNTIME_PRODUCT_FLAG_STRUCT, RUNTIME_PD_PRODUCT_FLAG_STRUCT, RUNTIME_DIAGNOSTIC_FLAG_STRUCT, RUNTIME_EXPERIMENTAL_FLAG_STRUCT, RUNTIME_NOTPRODUCT_FLAG_STRUCT, RUNTIME_MANAGEABLE_FLAG_STRUCT, RUNTIME_PRODUCT_RW_FLAG_STRUCT)
1374
4c24294029a9 6711316: Open source the Garbage-First garbage collector
ysr
parents: 360
diff changeset
   210
#endif // SERIALGC
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   211
#ifdef COMPILER1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   212
 C1_FLAGS(C1_DEVELOP_FLAG_STRUCT, C1_PD_DEVELOP_FLAG_STRUCT, C1_PRODUCT_FLAG_STRUCT, C1_PD_PRODUCT_FLAG_STRUCT, C1_NOTPRODUCT_FLAG_STRUCT)
489c9b5090e2 Initial load
duke
parents:
diff changeset
   213
#endif
489c9b5090e2 Initial load
duke
parents:
diff changeset
   214
#ifdef COMPILER2
4450
6d700b859b3e 6892658: C2 should optimize some stringbuilder patterns
never
parents: 4437
diff changeset
   215
 C2_FLAGS(C2_DEVELOP_FLAG_STRUCT, C2_PD_DEVELOP_FLAG_STRUCT, C2_PRODUCT_FLAG_STRUCT, C2_PD_PRODUCT_FLAG_STRUCT, C2_DIAGNOSTIC_FLAG_STRUCT, C2_EXPERIMENTAL_FLAG_STRUCT, C2_NOTPRODUCT_FLAG_STRUCT)
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   216
#endif
6187
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   217
#ifdef SHARK
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   218
 SHARK_FLAGS(SHARK_DEVELOP_FLAG_STRUCT, SHARK_PD_DEVELOP_FLAG_STRUCT, SHARK_PRODUCT_FLAG_STRUCT, SHARK_PD_PRODUCT_FLAG_STRUCT, SHARK_DIAGNOSTIC_FLAG_STRUCT, SHARK_NOTPRODUCT_FLAG_STRUCT)
4fa7845f7c14 6976186: integrate Shark HotSpot changes
twisti
parents: 5547
diff changeset
   219
#endif
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   220
 {0, NULL, NULL}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   221
};
489c9b5090e2 Initial load
duke
parents:
diff changeset
   222
489c9b5090e2 Initial load
duke
parents:
diff changeset
   223
Flag* Flag::flags = flagTable;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   224
size_t Flag::numFlags = (sizeof(flagTable) / sizeof(Flag));
489c9b5090e2 Initial load
duke
parents:
diff changeset
   225
489c9b5090e2 Initial load
duke
parents:
diff changeset
   226
inline bool str_equal(const char* s, char* q, size_t len) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   227
  // s is null terminated, q is not!
489c9b5090e2 Initial load
duke
parents:
diff changeset
   228
  if (strlen(s) != (unsigned int) len) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   229
  return strncmp(s, q, len) == 0;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   230
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   231
489c9b5090e2 Initial load
duke
parents:
diff changeset
   232
Flag* Flag::find_flag(char* name, size_t length) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   233
  for (Flag* current = &flagTable[0]; current->name; current++) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   234
    if (str_equal(current->name, name, length)) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   235
      if (!(current->is_unlocked() || current->is_unlocker())) {
1382
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
   236
        // disable use of diagnostic or experimental flags until they
fa3de4068282 6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents: 1374
diff changeset
   237
        // are explicitly unlocked
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   238
        return NULL;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   239
      }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   240
      return current;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   241
    }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   242
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   243
  return NULL;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   244
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   245
489c9b5090e2 Initial load
duke
parents:
diff changeset
   246
// Returns the address of the index'th element
489c9b5090e2 Initial load
duke
parents:
diff changeset
   247
static Flag* address_of_flag(CommandLineFlagWithType flag) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   248
  assert((size_t)flag < Flag::numFlags, "bad command line flag index");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   249
  return &Flag::flags[flag];
489c9b5090e2 Initial load
duke
parents:
diff changeset
   250
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   251
489c9b5090e2 Initial load
duke
parents:
diff changeset
   252
bool CommandLineFlagsEx::is_default(CommandLineFlag flag) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   253
  assert((size_t)flag < Flag::numFlags, "bad command line flag index");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   254
  Flag* f = &Flag::flags[flag];
489c9b5090e2 Initial load
duke
parents:
diff changeset
   255
  return (f->origin == DEFAULT);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   256
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   257
186
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   258
bool CommandLineFlagsEx::is_ergo(CommandLineFlag flag) {
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   259
  assert((size_t)flag < Flag::numFlags, "bad command line flag index");
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   260
  Flag* f = &Flag::flags[flag];
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   261
  return (f->origin == ERGONOMIC);
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   262
}
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   263
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   264
bool CommandLineFlagsEx::is_cmdline(CommandLineFlag flag) {
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   265
  assert((size_t)flag < Flag::numFlags, "bad command line flag index");
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   266
  Flag* f = &Flag::flags[flag];
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   267
  return (f->origin == COMMAND_LINE);
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   268
}
32e6c95f8d9b 6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents: 1
diff changeset
   269
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   270
bool CommandLineFlags::wasSetOnCmdline(const char* name, bool* value) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   271
  Flag* result = Flag::find_flag((char*)name, strlen(name));
489c9b5090e2 Initial load
duke
parents:
diff changeset
   272
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   273
  *value = (result->origin == COMMAND_LINE);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   274
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   275
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   276
489c9b5090e2 Initial load
duke
parents:
diff changeset
   277
bool CommandLineFlags::boolAt(char* name, size_t len, bool* value) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   278
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   279
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   280
  if (!result->is_bool()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   281
  *value = result->get_bool();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   282
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   283
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   284
489c9b5090e2 Initial load
duke
parents:
diff changeset
   285
bool CommandLineFlags::boolAtPut(char* name, size_t len, bool* value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   286
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   287
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   288
  if (!result->is_bool()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   289
  bool old_value = result->get_bool();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   290
  result->set_bool(*value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   291
  *value = old_value;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   292
  result->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   293
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   294
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   295
489c9b5090e2 Initial load
duke
parents:
diff changeset
   296
void CommandLineFlagsEx::boolAtPut(CommandLineFlagWithType flag, bool value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   297
  Flag* faddr = address_of_flag(flag);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   298
  guarantee(faddr != NULL && faddr->is_bool(), "wrong flag type");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   299
  faddr->set_bool(value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   300
  faddr->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   301
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   302
489c9b5090e2 Initial load
duke
parents:
diff changeset
   303
bool CommandLineFlags::intxAt(char* name, size_t len, intx* value) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   304
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   305
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   306
  if (!result->is_intx()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   307
  *value = result->get_intx();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   308
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   309
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   310
489c9b5090e2 Initial load
duke
parents:
diff changeset
   311
bool CommandLineFlags::intxAtPut(char* name, size_t len, intx* value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   312
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   313
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   314
  if (!result->is_intx()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   315
  intx old_value = result->get_intx();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   316
  result->set_intx(*value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   317
  *value = old_value;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   318
  result->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   319
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   320
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   321
489c9b5090e2 Initial load
duke
parents:
diff changeset
   322
void CommandLineFlagsEx::intxAtPut(CommandLineFlagWithType flag, intx value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   323
  Flag* faddr = address_of_flag(flag);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   324
  guarantee(faddr != NULL && faddr->is_intx(), "wrong flag type");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   325
  faddr->set_intx(value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   326
  faddr->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   327
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   328
489c9b5090e2 Initial load
duke
parents:
diff changeset
   329
bool CommandLineFlags::uintxAt(char* name, size_t len, uintx* value) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   330
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   331
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   332
  if (!result->is_uintx()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   333
  *value = result->get_uintx();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   334
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   335
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   336
489c9b5090e2 Initial load
duke
parents:
diff changeset
   337
bool CommandLineFlags::uintxAtPut(char* name, size_t len, uintx* value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   338
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   339
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   340
  if (!result->is_uintx()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   341
  uintx old_value = result->get_uintx();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   342
  result->set_uintx(*value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   343
  *value = old_value;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   344
  result->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   345
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   346
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   347
489c9b5090e2 Initial load
duke
parents:
diff changeset
   348
void CommandLineFlagsEx::uintxAtPut(CommandLineFlagWithType flag, uintx value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   349
  Flag* faddr = address_of_flag(flag);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   350
  guarantee(faddr != NULL && faddr->is_uintx(), "wrong flag type");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   351
  faddr->set_uintx(value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   352
  faddr->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   353
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   354
4434
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   355
bool CommandLineFlags::uint64_tAt(char* name, size_t len, uint64_t* value) {
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   356
  Flag* result = Flag::find_flag(name, len);
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   357
  if (result == NULL) return false;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   358
  if (!result->is_uint64_t()) return false;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   359
  *value = result->get_uint64_t();
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   360
  return true;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   361
}
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   362
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   363
bool CommandLineFlags::uint64_tAtPut(char* name, size_t len, uint64_t* value, FlagValueOrigin origin) {
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   364
  Flag* result = Flag::find_flag(name, len);
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   365
  if (result == NULL) return false;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   366
  if (!result->is_uint64_t()) return false;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   367
  uint64_t old_value = result->get_uint64_t();
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   368
  result->set_uint64_t(*value);
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   369
  *value = old_value;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   370
  result->origin = origin;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   371
  return true;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   372
}
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   373
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   374
void CommandLineFlagsEx::uint64_tAtPut(CommandLineFlagWithType flag, uint64_t value, FlagValueOrigin origin) {
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   375
  Flag* faddr = address_of_flag(flag);
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   376
  guarantee(faddr != NULL && faddr->is_uint64_t(), "wrong flag type");
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   377
  faddr->set_uint64_t(value);
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   378
  faddr->origin = origin;
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   379
}
4b41e5b42f81 6887571: Increase default heap config sizes
phh
parents: 1404
diff changeset
   380
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   381
bool CommandLineFlags::doubleAt(char* name, size_t len, double* value) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   382
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   383
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   384
  if (!result->is_double()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   385
  *value = result->get_double();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   386
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   387
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   388
489c9b5090e2 Initial load
duke
parents:
diff changeset
   389
bool CommandLineFlags::doubleAtPut(char* name, size_t len, double* value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   390
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   391
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   392
  if (!result->is_double()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   393
  double old_value = result->get_double();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   394
  result->set_double(*value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   395
  *value = old_value;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   396
  result->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   397
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   398
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   399
489c9b5090e2 Initial load
duke
parents:
diff changeset
   400
void CommandLineFlagsEx::doubleAtPut(CommandLineFlagWithType flag, double value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   401
  Flag* faddr = address_of_flag(flag);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   402
  guarantee(faddr != NULL && faddr->is_double(), "wrong flag type");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   403
  faddr->set_double(value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   404
  faddr->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   405
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   406
489c9b5090e2 Initial load
duke
parents:
diff changeset
   407
bool CommandLineFlags::ccstrAt(char* name, size_t len, ccstr* value) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   408
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   409
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   410
  if (!result->is_ccstr()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   411
  *value = result->get_ccstr();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   412
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   413
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   414
489c9b5090e2 Initial load
duke
parents:
diff changeset
   415
// Contract:  Flag will make private copy of the incoming value.
489c9b5090e2 Initial load
duke
parents:
diff changeset
   416
// Outgoing value is always malloc-ed, and caller MUST call free.
489c9b5090e2 Initial load
duke
parents:
diff changeset
   417
bool CommandLineFlags::ccstrAtPut(char* name, size_t len, ccstr* value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   418
  Flag* result = Flag::find_flag(name, len);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   419
  if (result == NULL) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   420
  if (!result->is_ccstr()) return false;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   421
  ccstr old_value = result->get_ccstr();
1402
ccb40ce62b79 6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents: 670
diff changeset
   422
  char* new_value = NULL;
ccb40ce62b79 6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents: 670
diff changeset
   423
  if (*value != NULL) {
ccb40ce62b79 6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents: 670
diff changeset
   424
    new_value = NEW_C_HEAP_ARRAY(char, strlen(*value)+1);
ccb40ce62b79 6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents: 670
diff changeset
   425
    strcpy(new_value, *value);
ccb40ce62b79 6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents: 670
diff changeset
   426
  }
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   427
  result->set_ccstr(new_value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   428
  if (result->origin == DEFAULT && old_value != NULL) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   429
    // Prior value is NOT heap allocated, but was a literal constant.
489c9b5090e2 Initial load
duke
parents:
diff changeset
   430
    char* old_value_to_free = NEW_C_HEAP_ARRAY(char, strlen(old_value)+1);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   431
    strcpy(old_value_to_free, old_value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   432
    old_value = old_value_to_free;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   433
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   434
  *value = old_value;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   435
  result->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   436
  return true;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   437
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   438
489c9b5090e2 Initial load
duke
parents:
diff changeset
   439
// Contract:  Flag will make private copy of the incoming value.
489c9b5090e2 Initial load
duke
parents:
diff changeset
   440
void CommandLineFlagsEx::ccstrAtPut(CommandLineFlagWithType flag, ccstr value, FlagValueOrigin origin) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   441
  Flag* faddr = address_of_flag(flag);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   442
  guarantee(faddr != NULL && faddr->is_ccstr(), "wrong flag type");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   443
  ccstr old_value = faddr->get_ccstr();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   444
  char* new_value = NEW_C_HEAP_ARRAY(char, strlen(value)+1);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   445
  strcpy(new_value, value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   446
  faddr->set_ccstr(new_value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   447
  if (faddr->origin != DEFAULT && old_value != NULL) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   448
    // Prior value is heap allocated so free it.
489c9b5090e2 Initial load
duke
parents:
diff changeset
   449
    FREE_C_HEAP_ARRAY(char, old_value);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   450
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   451
  faddr->origin = origin;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   452
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   453
489c9b5090e2 Initial load
duke
parents:
diff changeset
   454
extern "C" {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   455
  static int compare_flags(const void* void_a, const void* void_b) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   456
    return strcmp((*((Flag**) void_a))->name, (*((Flag**) void_b))->name);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   457
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   458
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   459
489c9b5090e2 Initial load
duke
parents:
diff changeset
   460
void CommandLineFlags::printSetFlags() {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   461
  // Print which flags were set on the command line
489c9b5090e2 Initial load
duke
parents:
diff changeset
   462
  // note: this method is called before the thread structure is in place
489c9b5090e2 Initial load
duke
parents:
diff changeset
   463
  //       which means resource allocation cannot be used.
489c9b5090e2 Initial load
duke
parents:
diff changeset
   464
489c9b5090e2 Initial load
duke
parents:
diff changeset
   465
  // Compute size
489c9b5090e2 Initial load
duke
parents:
diff changeset
   466
  int length= 0;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   467
  while (flagTable[length].name != NULL) length++;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   468
489c9b5090e2 Initial load
duke
parents:
diff changeset
   469
  // Sort
489c9b5090e2 Initial load
duke
parents:
diff changeset
   470
  Flag** array = NEW_C_HEAP_ARRAY(Flag*, length);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   471
  for (int index = 0; index < length; index++) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   472
    array[index] = &flagTable[index];
489c9b5090e2 Initial load
duke
parents:
diff changeset
   473
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   474
  qsort(array, length, sizeof(Flag*), compare_flags);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   475
489c9b5090e2 Initial load
duke
parents:
diff changeset
   476
  // Print
489c9b5090e2 Initial load
duke
parents:
diff changeset
   477
  for (int i = 0; i < length; i++) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   478
    if (array[i]->origin /* naked field! */) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   479
      array[i]->print_as_flag(tty);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   480
      tty->print(" ");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   481
    }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   482
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   483
  tty->cr();
489c9b5090e2 Initial load
duke
parents:
diff changeset
   484
  FREE_C_HEAP_ARRAY(Flag*, array);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   485
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   486
489c9b5090e2 Initial load
duke
parents:
diff changeset
   487
#ifndef PRODUCT
489c9b5090e2 Initial load
duke
parents:
diff changeset
   488
489c9b5090e2 Initial load
duke
parents:
diff changeset
   489
489c9b5090e2 Initial load
duke
parents:
diff changeset
   490
void CommandLineFlags::verify() {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   491
  assert(Arguments::check_vm_args_consistency(), "Some flag settings conflict");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   492
}
489c9b5090e2 Initial load
duke
parents:
diff changeset
   493
4579
62478db2dc78 6914622: Print values of all flags for product VM
kvn
parents: 4450
diff changeset
   494
#endif // PRODUCT
62478db2dc78 6914622: Print values of all flags for product VM
kvn
parents: 4450
diff changeset
   495
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   496
void CommandLineFlags::printFlags(bool withComments) {
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   497
  // Print the flags sorted by name
489c9b5090e2 Initial load
duke
parents:
diff changeset
   498
  // note: this method is called before the thread structure is in place
489c9b5090e2 Initial load
duke
parents:
diff changeset
   499
  //       which means resource allocation cannot be used.
489c9b5090e2 Initial load
duke
parents:
diff changeset
   500
489c9b5090e2 Initial load
duke
parents:
diff changeset
   501
  // Compute size
489c9b5090e2 Initial load
duke
parents:
diff changeset
   502
  int length= 0;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   503
  while (flagTable[length].name != NULL) length++;
489c9b5090e2 Initial load
duke
parents:
diff changeset
   504
489c9b5090e2 Initial load
duke
parents:
diff changeset
   505
  // Sort
489c9b5090e2 Initial load
duke
parents:
diff changeset
   506
  Flag** array = NEW_C_HEAP_ARRAY(Flag*, length);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   507
  for (int index = 0; index < length; index++) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   508
    array[index] = &flagTable[index];
489c9b5090e2 Initial load
duke
parents:
diff changeset
   509
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   510
  qsort(array, length, sizeof(Flag*), compare_flags);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   511
489c9b5090e2 Initial load
duke
parents:
diff changeset
   512
  // Print
489c9b5090e2 Initial load
duke
parents:
diff changeset
   513
  tty->print_cr("[Global flags]");
489c9b5090e2 Initial load
duke
parents:
diff changeset
   514
  for (int i = 0; i < length; i++) {
489c9b5090e2 Initial load
duke
parents:
diff changeset
   515
    if (array[i]->is_unlocked()) {
6438
ace4f8100e90 6979444: add command line option to print command line flags descriptions
ikrylov
parents: 6187
diff changeset
   516
      array[i]->print_on(tty, withComments);
1
489c9b5090e2 Initial load
duke
parents:
diff changeset
   517
    }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   518
  }
489c9b5090e2 Initial load
duke
parents:
diff changeset
   519
  FREE_C_HEAP_ARRAY(Flag*, array);
489c9b5090e2 Initial load
duke
parents:
diff changeset
   520
}