Mercurial > hg > truffle
annotate src/share/vm/runtime/globals.cpp @ 6862:8a5ea0a9ccc4
7127708: G1: change task num types from int to uint in concurrent mark
Summary: Change the type of various task num fields, parameters etc to unsigned and rename them to be more consistent with the other collectors. Code changes were also reviewed by Vitaly Davidovich.
Reviewed-by: johnc
Contributed-by: Kaushik Srenevasan <kaushik@twitter.com>
author | johnc |
---|---|
date | Sat, 06 Oct 2012 01:17:44 -0700 |
parents | a5dd6e3ef9f3 |
children | 1baf7f1e3f23 db9981fd3124 |
rev | line source |
---|---|
0 | 1 /* |
5947
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
2 * Copyright (c) 1997, 2012, Oracle and/or its affiliates. All rights reserved. |
0 | 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
4 * | |
5 * This code is free software; you can redistribute it and/or modify it | |
6 * under the terms of the GNU General Public License version 2 only, as | |
7 * published by the Free Software Foundation. | |
8 * | |
9 * This code is distributed in the hope that it will be useful, but WITHOUT | |
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
12 * version 2 for more details (a copy is included in the LICENSE file that | |
13 * accompanied this code). | |
14 * | |
15 * You should have received a copy of the GNU General Public License version | |
16 * 2 along with this work; if not, write to the Free Software Foundation, | |
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. | |
18 * | |
1552
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
1150
diff
changeset
|
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
1150
diff
changeset
|
20 * or visit www.oracle.com if you need additional information or have any |
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
1150
diff
changeset
|
21 * questions. |
0 | 22 * |
23 */ | |
24 | |
1972 | 25 #include "precompiled.hpp" |
26 #include "memory/allocation.inline.hpp" | |
27 #include "oops/oop.inline.hpp" | |
28 #include "runtime/arguments.hpp" | |
29 #include "runtime/globals.hpp" | |
30 #include "runtime/globals_extension.hpp" | |
31 #include "utilities/ostream.hpp" | |
32 #include "utilities/top.hpp" | |
33 #ifndef SERIALGC | |
34 #include "gc_implementation/g1/g1_globals.hpp" | |
35 #endif | |
36 #ifdef COMPILER1 | |
37 #include "c1/c1_globals.hpp" | |
38 #endif | |
39 #ifdef COMPILER2 | |
40 #include "opto/c2_globals.hpp" | |
41 #endif | |
42 #ifdef SHARK | |
43 #include "shark/shark_globals.hpp" | |
44 #endif | |
0 | 45 |
46 RUNTIME_FLAGS(MATERIALIZE_DEVELOPER_FLAG, MATERIALIZE_PD_DEVELOPER_FLAG, \ | |
47 MATERIALIZE_PRODUCT_FLAG, MATERIALIZE_PD_PRODUCT_FLAG, \ | |
4088
358eca91be48
7116730: Revert 7116481: Commercial features in Hotspot must be gated by a switch
phh
parents:
4087
diff
changeset
|
48 MATERIALIZE_DIAGNOSTIC_FLAG, MATERIALIZE_EXPERIMENTAL_FLAG, \ |
358eca91be48
7116730: Revert 7116481: Commercial features in Hotspot must be gated by a switch
phh
parents:
4087
diff
changeset
|
49 MATERIALIZE_NOTPRODUCT_FLAG, \ |
113
ba764ed4b6f2
6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents:
103
diff
changeset
|
50 MATERIALIZE_MANAGEABLE_FLAG, MATERIALIZE_PRODUCT_RW_FLAG, \ |
ba764ed4b6f2
6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents:
103
diff
changeset
|
51 MATERIALIZE_LP64_PRODUCT_FLAG) |
0 | 52 |
53 RUNTIME_OS_FLAGS(MATERIALIZE_DEVELOPER_FLAG, MATERIALIZE_PD_DEVELOPER_FLAG, \ | |
54 MATERIALIZE_PRODUCT_FLAG, MATERIALIZE_PD_PRODUCT_FLAG, \ | |
55 MATERIALIZE_DIAGNOSTIC_FLAG, MATERIALIZE_NOTPRODUCT_FLAG) | |
56 | |
6633
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
57 ARCH_FLAGS(MATERIALIZE_DEVELOPER_FLAG, MATERIALIZE_PRODUCT_FLAG, \ |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
58 MATERIALIZE_DIAGNOSTIC_FLAG, MATERIALIZE_EXPERIMENTAL_FLAG, \ |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
59 MATERIALIZE_NOTPRODUCT_FLAG) |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
60 |
4107
cd00eaeebef6
7117389: Add a framework for vendor-specific command line switch extensions to Hotspot
phh
parents:
4088
diff
changeset
|
61 MATERIALIZE_FLAGS_EXT |
cd00eaeebef6
7117389: Add a framework for vendor-specific command line switch extensions to Hotspot
phh
parents:
4088
diff
changeset
|
62 |
cd00eaeebef6
7117389: Add a framework for vendor-specific command line switch extensions to Hotspot
phh
parents:
4088
diff
changeset
|
63 |
0 | 64 bool Flag::is_unlocker() const { |
4088
358eca91be48
7116730: Revert 7116481: Commercial features in Hotspot must be gated by a switch
phh
parents:
4087
diff
changeset
|
65 return strcmp(name, "UnlockDiagnosticVMOptions") == 0 || |
4107
cd00eaeebef6
7117389: Add a framework for vendor-specific command line switch extensions to Hotspot
phh
parents:
4088
diff
changeset
|
66 strcmp(name, "UnlockExperimentalVMOptions") == 0 || |
cd00eaeebef6
7117389: Add a framework for vendor-specific command line switch extensions to Hotspot
phh
parents:
4088
diff
changeset
|
67 is_unlocker_ext(); |
0 | 68 } |
69 | |
70 bool Flag::is_unlocked() const { | |
4088
358eca91be48
7116730: Revert 7116481: Commercial features in Hotspot must be gated by a switch
phh
parents:
4087
diff
changeset
|
71 if (strcmp(kind, "{diagnostic}") == 0) { |
2460 | 72 if (strcmp(name, "EnableInvokeDynamic") == 0 && UnlockExperimentalVMOptions && !UnlockDiagnosticVMOptions) { |
73 // transitional logic to allow tests to run until they are changed | |
74 static int warned; | |
75 if (++warned == 1) warning("Use -XX:+UnlockDiagnosticVMOptions before EnableInvokeDynamic flag"); | |
76 return true; | |
77 } | |
0 | 78 return UnlockDiagnosticVMOptions; |
1080
7c57aead6d3e
6892658: C2 should optimize some stringbuilder patterns
never
parents:
1067
diff
changeset
|
79 } else if (strcmp(kind, "{experimental}") == 0 || |
7c57aead6d3e
6892658: C2 should optimize some stringbuilder patterns
never
parents:
1067
diff
changeset
|
80 strcmp(kind, "{C2 experimental}") == 0) { |
350
d28aa69f0959
6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents:
342
diff
changeset
|
81 return UnlockExperimentalVMOptions; |
0 | 82 } else { |
4107
cd00eaeebef6
7117389: Add a framework for vendor-specific command line switch extensions to Hotspot
phh
parents:
4088
diff
changeset
|
83 return is_unlocked_ext(); |
0 | 84 } |
85 } | |
86 | |
5947
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
87 // Get custom message for this locked flag, or return NULL if |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
88 // none is available. |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
89 void Flag::get_locked_message(char* buf, int buflen) const { |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
90 get_locked_message_ext(buf, buflen); |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
91 } |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
92 |
0 | 93 bool Flag::is_writeable() const { |
4715
6c995c08526c
7122880: Extend vendor-specific command interface to include manageable switches
phh
parents:
4107
diff
changeset
|
94 return strcmp(kind, "{manageable}") == 0 || |
6c995c08526c
7122880: Extend vendor-specific command interface to include manageable switches
phh
parents:
4107
diff
changeset
|
95 strcmp(kind, "{product rw}") == 0 || |
6c995c08526c
7122880: Extend vendor-specific command interface to include manageable switches
phh
parents:
4107
diff
changeset
|
96 is_writeable_ext(); |
0 | 97 } |
98 | |
4715
6c995c08526c
7122880: Extend vendor-specific command interface to include manageable switches
phh
parents:
4107
diff
changeset
|
99 // All flags except "manageable" are assumed to be internal flags. |
0 | 100 // Long term, we need to define a mechanism to specify which flags |
101 // are external/stable and change this function accordingly. | |
102 bool Flag::is_external() const { | |
4715
6c995c08526c
7122880: Extend vendor-specific command interface to include manageable switches
phh
parents:
4107
diff
changeset
|
103 return strcmp(kind, "{manageable}") == 0 || is_external_ext(); |
0 | 104 } |
105 | |
4715
6c995c08526c
7122880: Extend vendor-specific command interface to include manageable switches
phh
parents:
4107
diff
changeset
|
106 |
0 | 107 // Length of format string (e.g. "%.1234s") for printing ccstr below |
108 #define FORMAT_BUFFER_LEN 16 | |
109 | |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
110 void Flag::print_on(outputStream* st, bool withComments) { |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
111 st->print("%9s %-40s %c= ", type, name, (origin != DEFAULT ? ':' : ' ')); |
1067
ba7ea42fc66e
6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents:
1064
diff
changeset
|
112 if (is_bool()) st->print("%-16s", get_bool() ? "true" : "false"); |
ba7ea42fc66e
6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents:
1064
diff
changeset
|
113 if (is_intx()) st->print("%-16ld", get_intx()); |
ba7ea42fc66e
6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents:
1064
diff
changeset
|
114 if (is_uintx()) st->print("%-16lu", get_uintx()); |
ba7ea42fc66e
6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents:
1064
diff
changeset
|
115 if (is_uint64_t()) st->print("%-16lu", get_uint64_t()); |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
116 if (is_double()) st->print("%-16f", get_double()); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
117 |
0 | 118 if (is_ccstr()) { |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
119 const char* cp = get_ccstr(); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
120 if (cp != NULL) { |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
121 const char* eol; |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
122 while ((eol = strchr(cp, '\n')) != NULL) { |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
123 char format_buffer[FORMAT_BUFFER_LEN]; |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
124 size_t llen = pointer_delta(eol, cp, sizeof(char)); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
125 jio_snprintf(format_buffer, FORMAT_BUFFER_LEN, |
103 | 126 "%%." SIZE_FORMAT "s", llen); |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
127 st->print(format_buffer, cp); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
128 st->cr(); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
129 cp = eol+1; |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
130 st->print("%5s %-35s += ", "", name); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
131 } |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
132 st->print("%-16s", cp); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
133 } |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
134 else st->print("%-16s", ""); |
0 | 135 } |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
136 st->print("%-20s", kind); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
137 if (withComments) { |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
138 #ifndef PRODUCT |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
139 st->print("%s", doc ); |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
140 #endif |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
141 } |
0 | 142 st->cr(); |
143 } | |
144 | |
145 void Flag::print_as_flag(outputStream* st) { | |
146 if (is_bool()) { | |
147 st->print("-XX:%s%s", get_bool() ? "+" : "-", name); | |
148 } else if (is_intx()) { | |
149 st->print("-XX:%s=" INTX_FORMAT, name, get_intx()); | |
150 } else if (is_uintx()) { | |
151 st->print("-XX:%s=" UINTX_FORMAT, name, get_uintx()); | |
1067
ba7ea42fc66e
6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents:
1064
diff
changeset
|
152 } else if (is_uint64_t()) { |
ba7ea42fc66e
6898160: Need serviceability support for new vm argument type 'uint64_t'
phh
parents:
1064
diff
changeset
|
153 st->print("-XX:%s=" UINT64_FORMAT, name, get_uint64_t()); |
6049
f47478089efc
7167069: 6 VM flags crash the VM when queried via jinfo
brutisso
parents:
5947
diff
changeset
|
154 } else if (is_double()) { |
f47478089efc
7167069: 6 VM flags crash the VM when queried via jinfo
brutisso
parents:
5947
diff
changeset
|
155 st->print("-XX:%s=%f", name, get_double()); |
0 | 156 } else if (is_ccstr()) { |
157 st->print("-XX:%s=", name); | |
103 | 158 const char* cp = get_ccstr(); |
159 if (cp != NULL) { | |
160 // Need to turn embedded '\n's back into separate arguments | |
161 // Not so efficient to print one character at a time, | |
162 // but the choice is to do the transformation to a buffer | |
163 // and print that. And this need not be efficient. | |
164 for (; *cp != '\0'; cp += 1) { | |
165 switch (*cp) { | |
166 default: | |
167 st->print("%c", *cp); | |
168 break; | |
169 case '\n': | |
170 st->print(" -XX:%s=", name); | |
171 break; | |
172 } | |
0 | 173 } |
174 } | |
175 } else { | |
176 ShouldNotReachHere(); | |
177 } | |
178 } | |
179 | |
180 // 4991491 do not "optimize out" the was_set false values: omitting them | |
181 // tickles a Microsoft compiler bug causing flagTable to be malformed | |
182 | |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
183 #define RUNTIME_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{product}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
184 #define RUNTIME_PD_PRODUCT_FLAG_STRUCT(type, name, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{pd product}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
185 #define RUNTIME_DIAGNOSTIC_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{diagnostic}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
186 #define RUNTIME_EXPERIMENTAL_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{experimental}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
187 #define RUNTIME_MANAGEABLE_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{manageable}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
188 #define RUNTIME_PRODUCT_RW_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{product rw}", DEFAULT }, |
0 | 189 |
190 #ifdef PRODUCT | |
191 #define RUNTIME_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */ | |
192 #define RUNTIME_PD_DEVELOP_FLAG_STRUCT(type, name, doc) /* flag is constant */ | |
193 #define RUNTIME_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) | |
194 #else | |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
195 #define RUNTIME_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
196 #define RUNTIME_PD_DEVELOP_FLAG_STRUCT(type, name, doc) { #type, XSTR(name), &name, doc, "{pd}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
197 #define RUNTIME_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{notproduct}", DEFAULT }, |
0 | 198 #endif |
199 | |
113
ba764ed4b6f2
6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents:
103
diff
changeset
|
200 #ifdef _LP64 |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
201 #define RUNTIME_LP64_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{lp64_product}", DEFAULT }, |
113
ba764ed4b6f2
6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents:
103
diff
changeset
|
202 #else |
ba764ed4b6f2
6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents:
103
diff
changeset
|
203 #define RUNTIME_LP64_PRODUCT_FLAG_STRUCT(type, name, value, doc) /* flag is constant */ |
ba764ed4b6f2
6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents:
103
diff
changeset
|
204 #endif // _LP64 |
ba764ed4b6f2
6420645: Create a vm that uses compressed oops for up to 32gb heapsizes
coleenp
parents:
103
diff
changeset
|
205 |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
206 #define C1_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C1 product}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
207 #define C1_PD_PRODUCT_FLAG_STRUCT(type, name, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C1 pd product}", DEFAULT }, |
0 | 208 #ifdef PRODUCT |
209 #define C1_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */ | |
210 #define C1_PD_DEVELOP_FLAG_STRUCT(type, name, doc) /* flag is constant */ | |
211 #define C1_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) | |
212 #else | |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
213 #define C1_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{C1}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
214 #define C1_PD_DEVELOP_FLAG_STRUCT(type, name, doc) { #type, XSTR(name), &name, doc, "{C1 pd}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
215 #define C1_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{C1 notproduct}", DEFAULT }, |
0 | 216 #endif |
217 | |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
218 #define C2_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C2 product}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
219 #define C2_PD_PRODUCT_FLAG_STRUCT(type, name, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C2 pd product}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
220 #define C2_DIAGNOSTIC_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C2 diagnostic}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
221 #define C2_EXPERIMENTAL_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{C2 experimental}", DEFAULT }, |
0 | 222 #ifdef PRODUCT |
223 #define C2_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */ | |
224 #define C2_PD_DEVELOP_FLAG_STRUCT(type, name, doc) /* flag is constant */ | |
225 #define C2_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) | |
226 #else | |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
227 #define C2_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{C2}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
228 #define C2_PD_DEVELOP_FLAG_STRUCT(type, name, doc) { #type, XSTR(name), &name, doc, "{C2 pd}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
229 #define C2_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{C2 notproduct}", DEFAULT }, |
0 | 230 #endif |
231 | |
6633
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
232 #define ARCH_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{ARCH product}", DEFAULT }, |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
233 #define ARCH_DIAGNOSTIC_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{ARCH diagnostic}", DEFAULT }, |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
234 #define ARCH_EXPERIMENTAL_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{ARCH experimental}", DEFAULT }, |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
235 #ifdef PRODUCT |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
236 #define ARCH_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */ |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
237 #define ARCH_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
238 #else |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
239 #define ARCH_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{ARCH}", DEFAULT }, |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
240 #define ARCH_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{ARCH notproduct}", DEFAULT }, |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
241 #endif |
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
242 |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
243 #define SHARK_PRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{Shark product}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
244 #define SHARK_PD_PRODUCT_FLAG_STRUCT(type, name, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{Shark pd product}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
245 #define SHARK_DIAGNOSTIC_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, NOT_PRODUCT_ARG(doc) "{Shark diagnostic}", DEFAULT }, |
1692 | 246 #ifdef PRODUCT |
247 #define SHARK_DEVELOP_FLAG_STRUCT(type, name, value, doc) /* flag is constant */ | |
248 #define SHARK_PD_DEVELOP_FLAG_STRUCT(type, name, doc) /* flag is constant */ | |
249 #define SHARK_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) | |
250 #else | |
1768
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
251 #define SHARK_DEVELOP_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{Shark}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
252 #define SHARK_PD_DEVELOP_FLAG_STRUCT(type, name, doc) { #type, XSTR(name), &name, doc, "{Shark pd}", DEFAULT }, |
6ee479178066
6979444: add command line option to print command line flags descriptions
ikrylov
parents:
1692
diff
changeset
|
253 #define SHARK_NOTPRODUCT_FLAG_STRUCT(type, name, value, doc) { #type, XSTR(name), &name, doc, "{Shark notproduct}", DEFAULT }, |
1692 | 254 #endif |
0 | 255 |
256 static Flag flagTable[] = { | |
4088
358eca91be48
7116730: Revert 7116481: Commercial features in Hotspot must be gated by a switch
phh
parents:
4087
diff
changeset
|
257 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) |
0 | 258 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) |
342
37f87013dfd8
6711316: Open source the Garbage-First garbage collector
ysr
parents:
113
diff
changeset
|
259 #ifndef SERIALGC |
350
d28aa69f0959
6618726: Introduce -XX:+UnlockExperimentalVMOptions flag
ysr
parents:
342
diff
changeset
|
260 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) |
342
37f87013dfd8
6711316: Open source the Garbage-First garbage collector
ysr
parents:
113
diff
changeset
|
261 #endif // SERIALGC |
0 | 262 #ifdef COMPILER1 |
263 C1_FLAGS(C1_DEVELOP_FLAG_STRUCT, C1_PD_DEVELOP_FLAG_STRUCT, C1_PRODUCT_FLAG_STRUCT, C1_PD_PRODUCT_FLAG_STRUCT, C1_NOTPRODUCT_FLAG_STRUCT) | |
264 #endif | |
265 #ifdef COMPILER2 | |
1080
7c57aead6d3e
6892658: C2 should optimize some stringbuilder patterns
never
parents:
1067
diff
changeset
|
266 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) |
0 | 267 #endif |
1692 | 268 #ifdef SHARK |
269 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) | |
270 #endif | |
6633
a5dd6e3ef9f3
6677625: Move platform specific flags from globals.hpp to globals_<arch>.hpp
twisti
parents:
6197
diff
changeset
|
271 ARCH_FLAGS(ARCH_DEVELOP_FLAG_STRUCT, ARCH_PRODUCT_FLAG_STRUCT, ARCH_DIAGNOSTIC_FLAG_STRUCT, ARCH_EXPERIMENTAL_FLAG_STRUCT, ARCH_NOTPRODUCT_FLAG_STRUCT) |
4107
cd00eaeebef6
7117389: Add a framework for vendor-specific command line switch extensions to Hotspot
phh
parents:
4088
diff
changeset
|
272 FLAGTABLE_EXT |
0 | 273 {0, NULL, NULL} |
274 }; | |
275 | |
276 Flag* Flag::flags = flagTable; | |
277 size_t Flag::numFlags = (sizeof(flagTable) / sizeof(Flag)); | |
278 | |
279 inline bool str_equal(const char* s, char* q, size_t len) { | |
280 // s is null terminated, q is not! | |
281 if (strlen(s) != (unsigned int) len) return false; | |
282 return strncmp(s, q, len) == 0; | |
283 } | |
284 | |
5947
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
285 // Search the flag table for a named flag |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
286 Flag* Flag::find_flag(char* name, size_t length, bool allow_locked) { |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
287 for (Flag* current = &flagTable[0]; current->name != NULL; current++) { |
0 | 288 if (str_equal(current->name, name, length)) { |
5947
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
289 // Found a matching entry. Report locked flags only if allowed. |
0 | 290 if (!(current->is_unlocked() || current->is_unlocker())) { |
5947
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
291 if (!allow_locked) { |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
292 // disable use of locked flags, e.g. diagnostic, experimental, |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
293 // commercial... until they are explicitly unlocked |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
294 return NULL; |
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
295 } |
0 | 296 } |
297 return current; | |
298 } | |
299 } | |
5947
80fe40862b02
7144328: Improper commandlines for -XX:+-UnlockCommercialFeatures require proper warning/error messages
jmelvin
parents:
4773
diff
changeset
|
300 // Flag name is not in the flag table |
0 | 301 return NULL; |
302 } | |
303 | |
304 // Returns the address of the index'th element | |
305 static Flag* address_of_flag(CommandLineFlagWithType flag) { | |
306 assert((size_t)flag < Flag::numFlags, "bad command line flag index"); | |
307 return &Flag::flags[flag]; | |
308 } | |
309 | |
310 bool CommandLineFlagsEx::is_default(CommandLineFlag flag) { | |
311 assert((size_t)flag < Flag::numFlags, "bad command line flag index"); | |
312 Flag* f = &Flag::flags[flag]; | |
313 return (f->origin == DEFAULT); | |
314 } | |
315 | |
13
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
316 bool CommandLineFlagsEx::is_ergo(CommandLineFlag flag) { |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
317 assert((size_t)flag < Flag::numFlags, "bad command line flag index"); |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
318 Flag* f = &Flag::flags[flag]; |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
319 return (f->origin == ERGONOMIC); |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
320 } |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
321 |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
322 bool CommandLineFlagsEx::is_cmdline(CommandLineFlag flag) { |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
323 assert((size_t)flag < Flag::numFlags, "bad command line flag index"); |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
324 Flag* f = &Flag::flags[flag]; |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
325 return (f->origin == COMMAND_LINE); |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
326 } |
183f41cf8bfe
6557851: CMS: ergonomics defaults are not set with FLAG_SET_ERGO
jmasa
parents:
0
diff
changeset
|
327 |
0 | 328 bool CommandLineFlags::wasSetOnCmdline(const char* name, bool* value) { |
329 Flag* result = Flag::find_flag((char*)name, strlen(name)); | |
330 if (result == NULL) return false; | |
331 *value = (result->origin == COMMAND_LINE); | |
332 return true; | |
333 } | |
334 | |
335 bool CommandLineFlags::boolAt(char* name, size_t len, bool* value) { | |
336 Flag* result = Flag::find_flag(name, len); | |
337 if (result == NULL) return false; | |
338 if (!result->is_bool()) return false; | |
339 *value = result->get_bool(); | |
340 return true; | |
341 } | |
342 | |
343 bool CommandLineFlags::boolAtPut(char* name, size_t len, bool* value, FlagValueOrigin origin) { | |
344 Flag* result = Flag::find_flag(name, len); | |
345 if (result == NULL) return false; | |
346 if (!result->is_bool()) return false; | |
347 bool old_value = result->get_bool(); | |
348 result->set_bool(*value); | |
349 *value = old_value; | |
350 result->origin = origin; | |
351 return true; | |
352 } | |
353 | |
354 void CommandLineFlagsEx::boolAtPut(CommandLineFlagWithType flag, bool value, FlagValueOrigin origin) { | |
355 Flag* faddr = address_of_flag(flag); | |
356 guarantee(faddr != NULL && faddr->is_bool(), "wrong flag type"); | |
357 faddr->set_bool(value); | |
358 faddr->origin = origin; | |
359 } | |
360 | |
361 bool CommandLineFlags::intxAt(char* name, size_t len, intx* value) { | |
362 Flag* result = Flag::find_flag(name, len); | |
363 if (result == NULL) return false; | |
364 if (!result->is_intx()) return false; | |
365 *value = result->get_intx(); | |
366 return true; | |
367 } | |
368 | |
369 bool CommandLineFlags::intxAtPut(char* name, size_t len, intx* value, FlagValueOrigin origin) { | |
370 Flag* result = Flag::find_flag(name, len); | |
371 if (result == NULL) return false; | |
372 if (!result->is_intx()) return false; | |
373 intx old_value = result->get_intx(); | |
374 result->set_intx(*value); | |
375 *value = old_value; | |
376 result->origin = origin; | |
377 return true; | |
378 } | |
379 | |
380 void CommandLineFlagsEx::intxAtPut(CommandLineFlagWithType flag, intx value, FlagValueOrigin origin) { | |
381 Flag* faddr = address_of_flag(flag); | |
382 guarantee(faddr != NULL && faddr->is_intx(), "wrong flag type"); | |
383 faddr->set_intx(value); | |
384 faddr->origin = origin; | |
385 } | |
386 | |
387 bool CommandLineFlags::uintxAt(char* name, size_t len, uintx* value) { | |
388 Flag* result = Flag::find_flag(name, len); | |
389 if (result == NULL) return false; | |
390 if (!result->is_uintx()) return false; | |
391 *value = result->get_uintx(); | |
392 return true; | |
393 } | |
394 | |
395 bool CommandLineFlags::uintxAtPut(char* name, size_t len, uintx* value, FlagValueOrigin origin) { | |
396 Flag* result = Flag::find_flag(name, len); | |
397 if (result == NULL) return false; | |
398 if (!result->is_uintx()) return false; | |
399 uintx old_value = result->get_uintx(); | |
400 result->set_uintx(*value); | |
401 *value = old_value; | |
402 result->origin = origin; | |
403 return true; | |
404 } | |
405 | |
406 void CommandLineFlagsEx::uintxAtPut(CommandLineFlagWithType flag, uintx value, FlagValueOrigin origin) { | |
407 Flag* faddr = address_of_flag(flag); | |
408 guarantee(faddr != NULL && faddr->is_uintx(), "wrong flag type"); | |
409 faddr->set_uintx(value); | |
410 faddr->origin = origin; | |
411 } | |
412 | |
1064 | 413 bool CommandLineFlags::uint64_tAt(char* name, size_t len, uint64_t* value) { |
414 Flag* result = Flag::find_flag(name, len); | |
415 if (result == NULL) return false; | |
416 if (!result->is_uint64_t()) return false; | |
417 *value = result->get_uint64_t(); | |
418 return true; | |
419 } | |
420 | |
421 bool CommandLineFlags::uint64_tAtPut(char* name, size_t len, uint64_t* value, FlagValueOrigin origin) { | |
422 Flag* result = Flag::find_flag(name, len); | |
423 if (result == NULL) return false; | |
424 if (!result->is_uint64_t()) return false; | |
425 uint64_t old_value = result->get_uint64_t(); | |
426 result->set_uint64_t(*value); | |
427 *value = old_value; | |
428 result->origin = origin; | |
429 return true; | |
430 } | |
431 | |
432 void CommandLineFlagsEx::uint64_tAtPut(CommandLineFlagWithType flag, uint64_t value, FlagValueOrigin origin) { | |
433 Flag* faddr = address_of_flag(flag); | |
434 guarantee(faddr != NULL && faddr->is_uint64_t(), "wrong flag type"); | |
435 faddr->set_uint64_t(value); | |
436 faddr->origin = origin; | |
437 } | |
438 | |
0 | 439 bool CommandLineFlags::doubleAt(char* name, size_t len, double* value) { |
440 Flag* result = Flag::find_flag(name, len); | |
441 if (result == NULL) return false; | |
442 if (!result->is_double()) return false; | |
443 *value = result->get_double(); | |
444 return true; | |
445 } | |
446 | |
447 bool CommandLineFlags::doubleAtPut(char* name, size_t len, double* value, FlagValueOrigin origin) { | |
448 Flag* result = Flag::find_flag(name, len); | |
449 if (result == NULL) return false; | |
450 if (!result->is_double()) return false; | |
451 double old_value = result->get_double(); | |
452 result->set_double(*value); | |
453 *value = old_value; | |
454 result->origin = origin; | |
455 return true; | |
456 } | |
457 | |
458 void CommandLineFlagsEx::doubleAtPut(CommandLineFlagWithType flag, double value, FlagValueOrigin origin) { | |
459 Flag* faddr = address_of_flag(flag); | |
460 guarantee(faddr != NULL && faddr->is_double(), "wrong flag type"); | |
461 faddr->set_double(value); | |
462 faddr->origin = origin; | |
463 } | |
464 | |
465 bool CommandLineFlags::ccstrAt(char* name, size_t len, ccstr* value) { | |
466 Flag* result = Flag::find_flag(name, len); | |
467 if (result == NULL) return false; | |
468 if (!result->is_ccstr()) return false; | |
469 *value = result->get_ccstr(); | |
470 return true; | |
471 } | |
472 | |
473 // Contract: Flag will make private copy of the incoming value. | |
474 // Outgoing value is always malloc-ed, and caller MUST call free. | |
475 bool CommandLineFlags::ccstrAtPut(char* name, size_t len, ccstr* value, FlagValueOrigin origin) { | |
476 Flag* result = Flag::find_flag(name, len); | |
477 if (result == NULL) return false; | |
478 if (!result->is_ccstr()) return false; | |
479 ccstr old_value = result->get_ccstr(); | |
370
885fe0f95828
6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents:
196
diff
changeset
|
480 char* new_value = NULL; |
885fe0f95828
6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents:
196
diff
changeset
|
481 if (*value != NULL) { |
6197 | 482 new_value = NEW_C_HEAP_ARRAY(char, strlen(*value)+1, mtInternal); |
370
885fe0f95828
6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents:
196
diff
changeset
|
483 strcpy(new_value, *value); |
885fe0f95828
6744783: HotSpot segfaults if given -XX options with an empty string argument
never
parents:
196
diff
changeset
|
484 } |
0 | 485 result->set_ccstr(new_value); |
486 if (result->origin == DEFAULT && old_value != NULL) { | |
487 // Prior value is NOT heap allocated, but was a literal constant. | |
6197 | 488 char* old_value_to_free = NEW_C_HEAP_ARRAY(char, strlen(old_value)+1, mtInternal); |
0 | 489 strcpy(old_value_to_free, old_value); |
490 old_value = old_value_to_free; | |
491 } | |
492 *value = old_value; | |
493 result->origin = origin; | |
494 return true; | |
495 } | |
496 | |
497 // Contract: Flag will make private copy of the incoming value. | |
498 void CommandLineFlagsEx::ccstrAtPut(CommandLineFlagWithType flag, ccstr value, FlagValueOrigin origin) { | |
499 Flag* faddr = address_of_flag(flag); | |
500 guarantee(faddr != NULL && faddr->is_ccstr(), "wrong flag type"); | |
501 ccstr old_value = faddr->get_ccstr(); | |
6197 | 502 char* new_value = NEW_C_HEAP_ARRAY(char, strlen(value)+1, mtInternal); |
0 | 503 strcpy(new_value, value); |
504 faddr->set_ccstr(new_value); | |
505 if (faddr->origin != DEFAULT && old_value != NULL) { | |
506 // Prior value is heap allocated so free it. | |
6197 | 507 FREE_C_HEAP_ARRAY(char, old_value, mtInternal); |
0 | 508 } |
509 faddr->origin = origin; | |
510 } | |
511 | |
512 extern "C" { | |
513 static int compare_flags(const void* void_a, const void* void_b) { | |
514 return strcmp((*((Flag**) void_a))->name, (*((Flag**) void_b))->name); | |
515 } | |
516 } | |
517 | |
4773 | 518 void CommandLineFlags::printSetFlags(outputStream* out) { |
0 | 519 // Print which flags were set on the command line |
520 // note: this method is called before the thread structure is in place | |
521 // which means resource allocation cannot be used. | |
522 | |
523 // Compute size | |
524 int length= 0; | |
525 while (flagTable[length].name != NULL) length++; | |
526 | |
527 // Sort | |
6197 | 528 Flag** array = NEW_C_HEAP_ARRAY(Flag*, length, mtInternal); |
0 | 529 for (int index = 0; index < length; index++) { |
530 array[index] = &flagTable[index]; | |
531 } | |
532 qsort(array, length, sizeof(Flag*), compare_flags); | |
533 | |
534 // Print | |
535 for (int i = 0; i < length; i++) { | |
536 if (array[i]->origin /* naked field! */) { | |
4773 | 537 array[i]->print_as_flag(out); |
538 out->print(" "); | |
0 | 539 } |
540 } | |
4773 | 541 out->cr(); |
6197 | 542 FREE_C_HEAP_ARRAY(Flag*, array, mtInternal); |
0 | 543 } |
544 | |
545 #ifndef PRODUCT | |
546 | |
547 | |
548 void CommandLineFlags::verify() { | |
549 assert(Arguments::check_vm_args_consistency(), "Some flag settings conflict"); | |
550 } | |
551 | |
1150 | 552 #endif // PRODUCT |
553 | |
4773 | 554 void CommandLineFlags::printFlags(outputStream* out, bool withComments) { |
0 | 555 // Print the flags sorted by name |
556 // note: this method is called before the thread structure is in place | |
557 // which means resource allocation cannot be used. | |
558 | |
559 // Compute size | |
560 int length= 0; | |
561 while (flagTable[length].name != NULL) length++; | |
562 | |
563 // Sort | |
6197 | 564 Flag** array = NEW_C_HEAP_ARRAY(Flag*, length, mtInternal); |
0 | 565 for (int index = 0; index < length; index++) { |
566 array[index] = &flagTable[index]; | |
567 } | |
568 qsort(array, length, sizeof(Flag*), compare_flags); | |
569 | |
570 // Print | |
4773 | 571 out->print_cr("[Global flags]"); |
0 | 572 for (int i = 0; i < length; i++) { |
573 if (array[i]->is_unlocked()) { | |
4773 | 574 array[i]->print_on(out, withComments); |
0 | 575 } |
576 } | |
6197 | 577 FREE_C_HEAP_ARRAY(Flag*, array, mtInternal); |
0 | 578 } |