/*
* Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved.
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* This code is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License version 2 only, as
* published by the Free Software Foundation.
*
* This code is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
* version 2 for more details (a copy is included in the LICENSE file that
* accompanied this code).
*
* You should have received a copy of the GNU General Public License version
* 2 along with this work; if not, write to the Free Software Foundation,
* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
*
* Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
* or visit www.oracle.com if you need additional information or have any
* questions.
*
*/
#include "precompiled.hpp"
#include "classfile/genericSignatures.hpp"
#include "classfile/symbolTable.hpp"
#include "classfile/systemDictionary.hpp"
#include "memory/resourceArea.hpp"
namespace generic {
// Helper class for parsing the generic signature Symbol in klass and methods
class DescriptorStream : public ResourceObj {
private:
Symbol* _symbol;
int _offset;
int _mark;
const char* _parse_error;
void set_parse_error(const char* error) {
assert(error != NULL, "Can't set NULL error string");
_parse_error = error;
}
public:
DescriptorStream(Symbol* sym)
: _symbol(sym), _offset(0), _mark(-1), _parse_error(NULL) {}
const char* parse_error() const {
return _parse_error;
}
bool at_end() { return _offset >= _symbol->utf8_length(); }
char peek() {
if (at_end()) {
set_parse_error("Peeking past end of signature");
return '\0';
} else {
return _symbol->byte_at(_offset);
}
}
char read() {
if (at_end()) {
set_parse_error("Reading past end of signature");
return '\0';
} else {
return _symbol->byte_at(_offset++);
}
}
void read(char expected) {
char c = read();
assert_char(c, expected, 0);
}
void assert_char(char c, char expected, int pos = -1) {
if (c != expected) {
const char* fmt = "Parse error at %d: expected %c but got %c";
size_t len = strlen(fmt) + 5;
char* buffer = NEW_RESOURCE_ARRAY(char, len);
jio_snprintf(buffer, len, fmt, _offset + pos, expected, c);
set_parse_error(buffer);
}
}
void push(char c) {
assert(c == _symbol->byte_at(_offset - 1), "Pushing back wrong value");
--_offset;
}
void expect_end() {
if (!at_end()) {
set_parse_error("Unexpected data trailing signature");
}
}
bool has_mark() { return _mark != -1; }
void set_mark() {
_mark = _offset;
}
Identifier* identifier_from_mark() {
assert(has_mark(), "Mark should be set");
if (!has_mark()) {
set_parse_error("Expected mark to be set");
return NULL;
} else {
Identifier* id = new Identifier(_symbol, _mark, _offset - 1);
_mark = -1;
return id;
}
}
};
#define CHECK_FOR_PARSE_ERROR() \
if (STREAM->parse_error() != NULL) { \
if (VerifyGenericSignatures) { \
fatal(STREAM->parse_error()); \
} \
return NULL; \
} 0
#define READ() STREAM->read(); CHECK_FOR_PARSE_ERROR()
#define PEEK() STREAM->peek(); CHECK_FOR_PARSE_ERROR()
#define PUSH(c) STREAM->push(c)
#define EXPECT(c) STREAM->read(c); CHECK_FOR_PARSE_ERROR()
#define EXPECTED(c, ch) STREAM->assert_char(c, ch); CHECK_FOR_PARSE_ERROR()
#define EXPECT_END() STREAM->expect_end(); CHECK_FOR_PARSE_ERROR()
#define CHECK_STREAM STREAM); CHECK_FOR_PARSE_ERROR(); (0
#ifndef PRODUCT
void Identifier::print_on(outputStream* str) const {
for (int i = _begin; i < _end; ++i) {
str->print("%c", (char)_sym->byte_at(i));
}
}
#endif // ndef PRODUCT
bool Identifier::equals(Identifier* other) {
if (_sym == other->_sym && _begin == other->_begin && _end == other->_end) {
return true;
} else if (_end - _begin != other->_end - other->_begin) {
return false;
} else {
size_t len = _end - _begin;
char* addr = ((char*)_sym->bytes()) + _begin;
char* oaddr = ((char*)other->_sym->bytes()) + other->_begin;
return strncmp(addr, oaddr, len) == 0;
}
}
bool Identifier::equals(Symbol* sym) {
Identifier id(sym, 0, sym->utf8_length());
return equals(&id);
}
/**
* A formal type parameter may be found in the the enclosing class, but it could
* also come from an enclosing method or outer class, in the case of inner-outer
* classes or anonymous classes. For example:
*
* class Outer<T,V> {
* class Inner<W> {
* void m(T t, V v, W w);
* }
* }
*
* In this case, the type variables in m()'s signature are not all found in the
* immediate enclosing class (Inner). class Inner has only type parameter W,
* but it's outer_class field will reference Outer's descriptor which contains
* T & V (no outer_method in this case).
*
* If you have an anonymous class, it has both an enclosing method *and* an
* enclosing class where type parameters can be declared:
*
* class MOuter<T> {
* <V> void bar(V v) {
* Runnable r = new Runnable() {
* public void run() {}
* public void foo(T t, V v) { ... }
* };
* }
* }
*
* In this case, foo will be a member of some class, Runnable$1, which has no
* formal parameters itself, but has an outer_method (bar()) which provides
* type parameter V, and an outer class MOuter with type parameter T.
*
* It is also possible that the outer class is itself an inner class to some
* other class (or an anonymous class with an enclosing method), so we need to
* follow the outer_class/outer_method chain to it's end when looking for a
* type parameter.
*/
TypeParameter* Descriptor::find_type_parameter(Identifier* id, int* depth) {
int current_depth = 0;
MethodDescriptor* outer_method = as_method_signature();
ClassDescriptor* outer_class = as_class_signature();
if (outer_class == NULL) { // 'this' is a method signature; use the holder
outer_class = outer_method->outer_class();
}
while (outer_method != NULL || outer_class != NULL) {
if (outer_method != NULL) {
for (int i = 0; i < outer_method->type_parameters().length(); ++i) {
TypeParameter* p = outer_method->type_parameters().at(i);
if (p->identifier()->equals(id)) {
*depth = -1; // indicates this this is a method parameter
return p;
}
}
}
if (outer_class != NULL) {
for (int i = 0; i < outer_class->type_parameters().length(); ++i) {
TypeParameter* p = outer_class->type_parameters().at(i);
if (p->identifier()->equals(id)) {
*depth = current_depth;
return p;
}
}
outer_method = outer_class->outer_method();
outer_class = outer_class->outer_class();
++current_depth;
}
}
if (VerifyGenericSignatures) {
fatal("Could not resolve identifier");
}
return NULL;
}
ClassDescriptor* ClassDescriptor::parse_generic_signature(Klass* klass, TRAPS) {
return parse_generic_signature(klass, NULL, CHECK_NULL);
}
ClassDescriptor* ClassDescriptor::parse_generic_signature(
Klass* klass, Symbol* original_name, TRAPS) {
InstanceKlass* ik = InstanceKlass::cast(klass);
Symbol* sym = ik->generic_signature();
ClassDescriptor* spec;
if (sym == NULL || (spec = ClassDescriptor::parse_generic_signature(sym)) == NULL) {
spec = ClassDescriptor::placeholder(ik);
}
u2 outer_index = get_outer_class_index(ik, CHECK_NULL);
if (outer_index != 0) {
if (original_name == NULL) {
original_name = ik->name();
}
Handle class_loader = Handle(THREAD, ik->class_loader());
Handle protection_domain = Handle(THREAD, ik->protection_domain());
Symbol* outer_name = ik->constants()->klass_name_at(outer_index);
Klass* outer = SystemDictionary::find(
outer_name, class_loader, protection_domain, CHECK_NULL);
if (outer == NULL && !THREAD->is_Compiler_thread()) {
outer = SystemDictionary::resolve_super_or_fail(original_name,
outer_name, class_loader, protection_domain, false, CHECK_NULL);
}
InstanceKlass* outer_ik;
ClassDescriptor* outer_spec = NULL;
if (outer == NULL) {
outer_spec = ClassDescriptor::placeholder(ik);
assert(false, "Outer class not loaded and not loadable from here");
} else {
outer_ik = InstanceKlass::cast(outer);
outer_spec = parse_generic_signature(outer, original_name, CHECK_NULL);
}
spec->set_outer_class(outer_spec);
u2 encl_method_idx = ik->enclosing_method_method_index();
if (encl_method_idx != 0 && outer_ik != NULL) {
ConstantPool* cp = ik->constants();
u2 name_index = cp->name_ref_index_at(encl_method_idx);
u2 sig_index = cp->signature_ref_index_at(encl_method_idx);
Symbol* name = cp->symbol_at(name_index);
Symbol* sig = cp->symbol_at(sig_index);
Method* m = outer_ik->find_method(name, sig);
if (m != NULL) {
Symbol* gsig = m->generic_signature();
if (gsig != NULL) {
MethodDescriptor* gms = MethodDescriptor::parse_generic_signature(gsig, outer_spec);
spec->set_outer_method(gms);
}
} else if (VerifyGenericSignatures) {
ResourceMark rm;
stringStream ss;
ss.print("Could not find method %s %s in class %s",
name->as_C_string(), sig->as_C_string(), outer_name->as_C_string());
fatal(ss.as_string());
}
}
}
spec->bind_variables_to_parameters();
return spec;
}
ClassDescriptor* ClassDescriptor::placeholder(InstanceKlass* klass) {
GrowableArray<TypeParameter*> formals;
GrowableArray<ClassType*> interfaces;
ClassType* super_type = NULL;
Klass* super_klass = klass->super();
if (super_klass != NULL) {
InstanceKlass* super = InstanceKlass::cast(super_klass);
super_type = ClassType::from_symbol(super->name());
}
for (int i = 0; i < klass->local_interfaces()->length(); ++i) {
InstanceKlass* iface = InstanceKlass::cast(klass->local_interfaces()->at(i));
interfaces.append(ClassType::from_symbol(iface->name()));
}
return new ClassDescriptor(formals, super_type, interfaces);
}
ClassDescriptor* ClassDescriptor::parse_generic_signature(Symbol* sym) {
DescriptorStream ds(sym);
DescriptorStream* STREAM = &ds;
GrowableArray<TypeParameter*> parameters(8);
char c = READ();
if (c == '<') {
c = READ();
while (c != '>') {
PUSH(c);
TypeParameter* ftp = TypeParameter::parse_generic_signature(CHECK_STREAM);
parameters.append(ftp);
c = READ();
}
} else {
PUSH(c);
}
EXPECT('L');
ClassType* super = ClassType::parse_generic_signature(CHECK_STREAM);
GrowableArray<ClassType*> signatures(2);
while (!STREAM->at_end()) {
EXPECT('L');
ClassType* iface = ClassType::parse_generic_signature(CHECK_STREAM);
signatures.append(iface);
}
EXPECT_END();
return new ClassDescriptor(parameters, super, signatures);
}
#ifndef PRODUCT
void ClassDescriptor::print_on(outputStream* str) const {
str->indent().print_cr("ClassDescriptor {");
{
streamIndentor si(str);
if (_type_parameters.length() > 0) {
str->indent().print_cr("Formals {");
{
streamIndentor si(str);
for (int i = 0; i < _type_parameters.length(); ++i) {
_type_parameters.at(i)->print_on(str);
}
}
str->indent().print_cr("}");
}
if (_super != NULL) {
str->indent().print_cr("Superclass: ");
{
streamIndentor si(str);
_super->print_on(str);
}
}
if (_interfaces.length() > 0) {
str->indent().print_cr("SuperInterfaces: {");
{
streamIndentor si(str);
for (int i = 0; i < _interfaces.length(); ++i) {
_interfaces.at(i)->print_on(str);
}
}
str->indent().print_cr("}");
}
if (_outer_method != NULL) {
str->indent().print_cr("Outer Method: {");
{
streamIndentor si(str);
_outer_method->print_on(str);
}
str->indent().print_cr("}");
}
if (_outer_class != NULL) {
str->indent().print_cr("Outer Class: {");
{
streamIndentor si(str);
_outer_class->print_on(str);
}
str->indent().print_cr("}");
}
}
str->indent().print_cr("}");
}
#endif // ndef PRODUCT
ClassType* ClassDescriptor::interface_desc(Symbol* sym) {
for (int i = 0; i < _interfaces.length(); ++i) {
if (_interfaces.at(i)->identifier()->equals(sym)) {
return _interfaces.at(i);
}
}
if (VerifyGenericSignatures) {
fatal("Did not find expected interface");
}
return NULL;
}
void ClassDescriptor::bind_variables_to_parameters() {
if (_outer_class != NULL) {
_outer_class->bind_variables_to_parameters();
}
if (_outer_method != NULL) {
_outer_method->bind_variables_to_parameters();
}
for (int i = 0; i < _type_parameters.length(); ++i) {
_type_parameters.at(i)->bind_variables_to_parameters(this, i);
}
if (_super != NULL) {
_super->bind_variables_to_parameters(this);
}
for (int i = 0; i < _interfaces.length(); ++i) {
_interfaces.at(i)->bind_variables_to_parameters(this);
}
}
ClassDescriptor* ClassDescriptor::canonicalize(Context* ctx) {
GrowableArray<TypeParameter*> type_params(_type_parameters.length());
for (int i = 0; i < _type_parameters.length(); ++i) {
type_params.append(_type_parameters.at(i)->canonicalize(ctx, 0));
}
ClassDescriptor* outer = _outer_class == NULL ? NULL :
_outer_class->canonicalize(ctx);
ClassType* super = _super == NULL ? NULL : _super->canonicalize(ctx, 0);
GrowableArray<ClassType*> interfaces(_interfaces.length());
for (int i = 0; i < _interfaces.length(); ++i) {
interfaces.append(_interfaces.at(i)->canonicalize(ctx, 0));
}
MethodDescriptor* md = _outer_method == NULL ? NULL :
_outer_method->canonicalize(ctx);
return new ClassDescriptor(type_params, super, interfaces, outer, md);
}
u2 ClassDescriptor::get_outer_class_index(InstanceKlass* klass, TRAPS) {
int inner_index = InstanceKlass::inner_class_inner_class_info_offset;
int outer_index = InstanceKlass::inner_class_outer_class_info_offset;
int name_offset = InstanceKlass::inner_class_inner_name_offset;
int next_offset = InstanceKlass::inner_class_next_offset;
if (klass->inner_classes() == NULL || klass->inner_classes()->length() == 0) {
// No inner class info => no declaring class
return 0;
}
Array<u2>* i_icls = klass->inner_classes();
ConstantPool* i_cp = klass->constants();
int i_length = i_icls->length();
// Find inner_klass attribute
for (int i = 0; i + next_offset < i_length; i += next_offset) {
u2 ioff = i_icls->at(i + inner_index);
u2 ooff = i_icls->at(i + outer_index);
u2 noff = i_icls->at(i + name_offset);
if (ioff != 0) {
// Check to see if the name matches the class we're looking for
// before attempting to find the class.
if (i_cp->klass_name_at_matches(klass, ioff) && ooff != 0) {
return ooff;
}
}
}
// It may be anonymous; try for that.
u2 encl_method_class_idx = klass->enclosing_method_class_index();
if (encl_method_class_idx != 0) {
return encl_method_class_idx;
}
return 0;
}
MethodDescriptor* MethodDescriptor::parse_generic_signature(Method* m, ClassDescriptor* outer) {
Symbol* generic_sig = m->generic_signature();
MethodDescriptor* md = NULL;
if (generic_sig == NULL || (md = parse_generic_signature(generic_sig, outer)) == NULL) {
md = parse_generic_signature(m->signature(), outer);
}
assert(md != NULL, "Could not parse method signature");
md->bind_variables_to_parameters();
return md;
}
MethodDescriptor* MethodDescriptor::parse_generic_signature(Symbol* sym, ClassDescriptor* outer) {
DescriptorStream ds(sym);
DescriptorStream* STREAM = &ds;
GrowableArray<TypeParameter*> params(8);
char c = READ();
if (c == '<') {
c = READ();
while (c != '>') {
PUSH(c);
TypeParameter* ftp = TypeParameter::parse_generic_signature(CHECK_STREAM);
params.append(ftp);
c = READ();
}
} else {
PUSH(c);
}
EXPECT('(');
GrowableArray<Type*> parameters(8);
c = READ();
while (c != ')') {
PUSH(c);
Type* arg = Type::parse_generic_signature(CHECK_STREAM);
parameters.append(arg);
c = READ();
}
Type* rt = Type::parse_generic_signature(CHECK_STREAM);
GrowableArray<Type*> throws;
while (!STREAM->at_end()) {
EXPECT('^');
Type* spec = Type::parse_generic_signature(CHECK_STREAM);
throws.append(spec);
}
return new MethodDescriptor(params, outer, parameters, rt, throws);
}
void MethodDescriptor::bind_variables_to_parameters() {
for (int i = 0; i < _type_parameters.length(); ++i) {
_type_parameters.at(i)->bind_variables_to_parameters(this, i);
}
for (int i = 0; i < _parameters.length(); ++i) {
_parameters.at(i)->bind_variables_to_parameters(this);
}
_return_type->bind_variables_to_parameters(this);
for (int i = 0; i < _throws.length(); ++i) {
_throws.at(i)->bind_variables_to_parameters(this);
}
}
bool MethodDescriptor::covariant_match(MethodDescriptor* other, Context* ctx) {
if (_parameters.length() == other->_parameters.length()) {
for (int i = 0; i < _parameters.length(); ++i) {
if (!_parameters.at(i)->covariant_match(other->_parameters.at(i), ctx)) {
return false;
}
}
if (_return_type->as_primitive() != NULL) {
return _return_type->covariant_match(other->_return_type, ctx);
} else {
// return type is a reference
return other->_return_type->as_class() != NULL ||
other->_return_type->as_variable() != NULL ||
other->_return_type->as_array() != NULL;
}
} else {
return false;
}
}
MethodDescriptor* MethodDescriptor::canonicalize(Context* ctx) {
GrowableArray<TypeParameter*> type_params(_type_parameters.length());
for (int i = 0; i < _type_parameters.length(); ++i) {
type_params.append(_type_parameters.at(i)->canonicalize(ctx, 0));
}
ClassDescriptor* outer = _outer_class == NULL ? NULL :
_outer_class->canonicalize(ctx);
GrowableArray<Type*> params(_parameters.length());
for (int i = 0; i < _parameters.length(); ++i) {
params.append(_parameters.at(i)->canonicalize(ctx, 0));
}
Type* rt = _return_type->canonicalize(ctx, 0);
GrowableArray<Type*> throws(_throws.length());
for (int i = 0; i < _throws.length(); ++i) {
throws.append(_throws.at(i)->canonicalize(ctx, 0));
}
return new MethodDescriptor(type_params, outer, params, rt, throws);
}
#ifndef PRODUCT
TempNewSymbol MethodDescriptor::reify_signature(Context* ctx, TRAPS) {
stringStream ss(256);
ss.print("(");
for (int i = 0; i < _parameters.length(); ++i) {
_parameters.at(i)->reify_signature(&ss, ctx);
}
ss.print(")");
_return_type->reify_signature(&ss, ctx);
return SymbolTable::new_symbol(ss.base(), (int)ss.size(), THREAD);
}
void MethodDescriptor::print_on(outputStream* str) const {
str->indent().print_cr("MethodDescriptor {");
{
streamIndentor si(str);
if (_type_parameters.length() > 0) {
str->indent().print_cr("Formals: {");
{
streamIndentor si(str);
for (int i = 0; i < _type_parameters.length(); ++i) {
_type_parameters.at(i)->print_on(str);
}
}
str->indent().print_cr("}");
}
str->indent().print_cr("Parameters: {");
{
streamIndentor si(str);
for (int i = 0; i < _parameters.length(); ++i) {
_parameters.at(i)->print_on(str);
}
}
str->indent().print_cr("}");
str->indent().print_cr("Return Type: ");
{
streamIndentor si(str);
_return_type->print_on(str);
}
if (_throws.length() > 0) {
str->indent().print_cr("Throws: {");
{
streamIndentor si(str);
for (int i = 0; i < _throws.length(); ++i) {
_throws.at(i)->print_on(str);
}
}
str->indent().print_cr("}");
}
}
str->indent().print_cr("}");
}
#endif // ndef PRODUCT
TypeParameter* TypeParameter::parse_generic_signature(DescriptorStream* STREAM) {
STREAM->set_mark();
char c = READ();
while (c != ':') {
c = READ();
}
Identifier* id = STREAM->identifier_from_mark();
ClassType* class_bound = NULL;
GrowableArray<ClassType*> interface_bounds(8);
c = READ();
if (c != '>') {
if (c != ':') {
EXPECTED(c, 'L');
class_bound = ClassType::parse_generic_signature(CHECK_STREAM);
c = READ();
}
while (c == ':') {
EXPECT('L');
ClassType* fts = ClassType::parse_generic_signature(CHECK_STREAM);
interface_bounds.append(fts);
c = READ();
}
}
PUSH(c);
return new TypeParameter(id, class_bound, interface_bounds);
}
void TypeParameter::bind_variables_to_parameters(Descriptor* sig, int position) {
if (_class_bound != NULL) {
_class_bound->bind_variables_to_parameters(sig);
}
for (int i = 0; i < _interface_bounds.length(); ++i) {
_interface_bounds.at(i)->bind_variables_to_parameters(sig);
}
_position = position;
}
Type* TypeParameter::resolve(
Context* ctx, int inner_depth, int ctx_depth) {
if (inner_depth == -1) {
// This indicates that the parameter is a method type parameter, which
// isn't resolveable using the class hierarchy context
return bound();
}
ClassType* provider = ctx->at_depth(ctx_depth);
if (provider != NULL) {
for (int i = 0; i < inner_depth && provider != NULL; ++i) {
provider = provider->outer_class();
}
if (provider != NULL) {
TypeArgument* arg = provider->type_argument_at(_position);
if (arg != NULL) {
Type* value = arg->lower_bound();
return value->canonicalize(ctx, ctx_depth + 1);
}
}
}
return bound();
}
TypeParameter* TypeParameter::canonicalize(Context* ctx, int ctx_depth) {
ClassType* bound = _class_bound == NULL ? NULL :
_class_bound->canonicalize(ctx, ctx_depth);
GrowableArray<ClassType*> ifaces(_interface_bounds.length());
for (int i = 0; i < _interface_bounds.length(); ++i) {
ifaces.append(_interface_bounds.at(i)->canonicalize(ctx, ctx_depth));
}
TypeParameter* ret = new TypeParameter(_identifier, bound, ifaces);
ret->_position = _position;
return ret;
}
ClassType* TypeParameter::bound() {
if (_class_bound != NULL) {
return _class_bound;
}
if (_interface_bounds.length() == 1) {
return _interface_bounds.at(0);
}
return ClassType::java_lang_Object(); // TODO: investigate this case
}
#ifndef PRODUCT
void TypeParameter::print_on(outputStream* str) const {
str->indent().print_cr("Formal: {");
{
streamIndentor si(str);
str->indent().print("Identifier: ");
_identifier->print_on(str);
str->print_cr("");
if (_class_bound != NULL) {
str->indent().print_cr("Class Bound: ");
streamIndentor si(str);
_class_bound->print_on(str);
}
if (_interface_bounds.length() > 0) {
str->indent().print_cr("Interface Bounds: {");
{
streamIndentor si(str);
for (int i = 0; i < _interface_bounds.length(); ++i) {
_interface_bounds.at(i)->print_on(str);
}
}
str->indent().print_cr("}");
}
str->indent().print_cr("Ordinal Position: %d", _position);
}
str->indent().print_cr("}");
}
#endif // ndef PRODUCT
Type* Type::parse_generic_signature(DescriptorStream* STREAM) {
char c = READ();
switch (c) {
case 'L':
return ClassType::parse_generic_signature(CHECK_STREAM);
case 'T':
return TypeVariable::parse_generic_signature(CHECK_STREAM);
case '[':
return ArrayType::parse_generic_signature(CHECK_STREAM);
default:
return new PrimitiveType(c);
}
}
Identifier* ClassType::parse_generic_signature_simple(GrowableArray<TypeArgument*>* args,
bool* has_inner, DescriptorStream* STREAM) {
STREAM->set_mark();
char c = READ();
while (c != ';' && c != '.' && c != '<') { c = READ(); }
Identifier* id = STREAM->identifier_from_mark();
if (c == '<') {
c = READ();
while (c != '>') {
PUSH(c);
TypeArgument* arg = TypeArgument::parse_generic_signature(CHECK_STREAM);
args->append(arg);
c = READ();
}
c = READ();
}
*has_inner = (c == '.');
if (!(*has_inner)) {
EXPECTED(c, ';');
}
return id;
}
ClassType* ClassType::parse_generic_signature(DescriptorStream* STREAM) {
return parse_generic_signature(NULL, CHECK_STREAM);
}
ClassType* ClassType::parse_generic_signature(ClassType* outer, DescriptorStream* STREAM) {
GrowableArray<TypeArgument*> args;
ClassType* gct = NULL;
bool has_inner = false;
Identifier* id = parse_generic_signature_simple(&args, &has_inner, STREAM);
if (id != NULL) {
gct = new ClassType(id, args, outer);
if (has_inner) {
gct = parse_generic_signature(gct, CHECK_STREAM);
}
}
return gct;
}
ClassType* ClassType::from_symbol(Symbol* sym) {
assert(sym != NULL, "Must not be null");
GrowableArray<TypeArgument*> args;
Identifier* id = new Identifier(sym, 0, sym->utf8_length());
return new ClassType(id, args, NULL);
}
ClassType* ClassType::java_lang_Object() {
return from_symbol(vmSymbols::java_lang_Object());
}
void ClassType::bind_variables_to_parameters(Descriptor* sig) {
for (int i = 0; i < _type_arguments.length(); ++i) {
_type_arguments.at(i)->bind_variables_to_parameters(sig);
}
if (_outer_class != NULL) {
_outer_class->bind_variables_to_parameters(sig);
}
}
TypeArgument* ClassType::type_argument_at(int i) {
if (i >= 0 && i < _type_arguments.length()) {
return _type_arguments.at(i);
} else {
return NULL;
}
}
#ifndef PRODUCT
void ClassType::reify_signature(stringStream* ss, Context* ctx) {
ss->print("L");
_identifier->print_on(ss);
ss->print(";");
}
void ClassType::print_on(outputStream* str) const {
str->indent().print_cr("Class {");
{
streamIndentor si(str);
str->indent().print("Name: ");
_identifier->print_on(str);
str->print_cr("");
if (_type_arguments.length() != 0) {
str->indent().print_cr("Type Arguments: {");
{
streamIndentor si(str);
for (int j = 0; j < _type_arguments.length(); ++j) {
_type_arguments.at(j)->print_on(str);
}
}
str->indent().print_cr("}");
}
if (_outer_class != NULL) {
str->indent().print_cr("Outer Class: ");
streamIndentor sir(str);
_outer_class->print_on(str);
}
}
str->indent().print_cr("}");
}
#endif // ndef PRODUCT
bool ClassType::covariant_match(Type* other, Context* ctx) {
if (other == this) {
return true;
}
TypeVariable* variable = other->as_variable();
if (variable != NULL) {
other = variable->resolve(ctx, 0);
}
ClassType* outer = outer_class();
ClassType* other_class = other->as_class();
if (other_class == NULL ||
(outer == NULL) != (other_class->outer_class() == NULL)) {
return false;
}
if (!_identifier->equals(other_class->_identifier)) {
return false;
}
if (outer != NULL && !outer->covariant_match(other_class->outer_class(), ctx)) {
return false;
}
return true;
}
ClassType* ClassType::canonicalize(Context* ctx, int ctx_depth) {
GrowableArray<TypeArgument*> args(_type_arguments.length());
for (int i = 0; i < _type_arguments.length(); ++i) {
args.append(_type_arguments.at(i)->canonicalize(ctx, ctx_depth));
}
ClassType* outer = _outer_class == NULL ? NULL :
_outer_class->canonicalize(ctx, ctx_depth);
return new ClassType(_identifier, args, outer);
}
TypeVariable* TypeVariable::parse_generic_signature(DescriptorStream* STREAM) {
STREAM->set_mark();
char c = READ();
while (c != ';') {
c = READ();
}
Identifier* id = STREAM->identifier_from_mark();
return new TypeVariable(id);
}
void TypeVariable::bind_variables_to_parameters(Descriptor* sig) {
_parameter = sig->find_type_parameter(_id, &_inner_depth);
if (VerifyGenericSignatures && _parameter == NULL) {
fatal("Could not find formal parameter");
}
}
Type* TypeVariable::resolve(Context* ctx, int ctx_depth) {
if (parameter() != NULL) {
return parameter()->resolve(ctx, inner_depth(), ctx_depth);
} else {
if (VerifyGenericSignatures) {
fatal("Type variable matches no parameter");
}
return NULL;
}
}
bool TypeVariable::covariant_match(Type* other, Context* ctx) {
if (other == this) {
return true;
}
Context my_context(NULL); // empty, results in erasure
Type* my_type = resolve(&my_context, 0);
if (my_type == NULL) {
return false;
}
return my_type->covariant_match(other, ctx);
}
Type* TypeVariable::canonicalize(Context* ctx, int ctx_depth) {
return resolve(ctx, ctx_depth);
}
#ifndef PRODUCT
void TypeVariable::reify_signature(stringStream* ss, Context* ctx) {
Type* type = resolve(ctx, 0);
if (type != NULL) {
type->reify_signature(ss, ctx);
}
}
void TypeVariable::print_on(outputStream* str) const {
str->indent().print_cr("Type Variable {");
{
streamIndentor si(str);
str->indent().print("Name: ");
_id->print_on(str);
str->print_cr("");
str->indent().print_cr("Inner depth: %d", _inner_depth);
}
str->indent().print_cr("}");
}
#endif // ndef PRODUCT
ArrayType* ArrayType::parse_generic_signature(DescriptorStream* STREAM) {
Type* base = Type::parse_generic_signature(CHECK_STREAM);
return new ArrayType(base);
}
void ArrayType::bind_variables_to_parameters(Descriptor* sig) {
assert(_base != NULL, "Invalid base");
_base->bind_variables_to_parameters(sig);
}
bool ArrayType::covariant_match(Type* other, Context* ctx) {
assert(_base != NULL, "Invalid base");
if (other == this) {
return true;
}
ArrayType* other_array = other->as_array();
return (other_array != NULL && _base->covariant_match(other_array->_base, ctx));
}
ArrayType* ArrayType::canonicalize(Context* ctx, int ctx_depth) {
assert(_base != NULL, "Invalid base");
return new ArrayType(_base->canonicalize(ctx, ctx_depth));
}
#ifndef PRODUCT
void ArrayType::reify_signature(stringStream* ss, Context* ctx) {
assert(_base != NULL, "Invalid base");
ss->print("[");
_base->reify_signature(ss, ctx);
}
void ArrayType::print_on(outputStream* str) const {
str->indent().print_cr("Array {");
{
streamIndentor si(str);
_base->print_on(str);
}
str->indent().print_cr("}");
}
#endif // ndef PRODUCT
bool PrimitiveType::covariant_match(Type* other, Context* ctx) {
PrimitiveType* other_prim = other->as_primitive();
return (other_prim != NULL && _type == other_prim->_type);
}
PrimitiveType* PrimitiveType::canonicalize(Context* ctx, int ctxd) {
return this;
}
#ifndef PRODUCT
void PrimitiveType::reify_signature(stringStream* ss, Context* ctx) {
ss->print("%c", _type);
}
void PrimitiveType::print_on(outputStream* str) const {
str->indent().print_cr("Primitive: '%c'", _type);
}
#endif // ndef PRODUCT
void PrimitiveType::bind_variables_to_parameters(Descriptor* sig) {
}
TypeArgument* TypeArgument::parse_generic_signature(DescriptorStream* STREAM) {
char c = READ();
Type* type = NULL;
switch (c) {
case '*':
return new TypeArgument(ClassType::java_lang_Object(), NULL);
break;
default:
PUSH(c);
// fall-through
case '+':
case '-':
type = Type::parse_generic_signature(CHECK_STREAM);
if (c == '+') {
return new TypeArgument(type, NULL);
} else if (c == '-') {
return new TypeArgument(ClassType::java_lang_Object(), type);
} else {
return new TypeArgument(type, type);
}
}
}
void TypeArgument::bind_variables_to_parameters(Descriptor* sig) {
assert(_lower_bound != NULL, "Invalid lower bound");
_lower_bound->bind_variables_to_parameters(sig);
if (_upper_bound != NULL && _upper_bound != _lower_bound) {
_upper_bound->bind_variables_to_parameters(sig);
}
}
bool TypeArgument::covariant_match(TypeArgument* other, Context* ctx) {
assert(_lower_bound != NULL, "Invalid lower bound");
if (other == this) {
return true;
}
if (!_lower_bound->covariant_match(other->lower_bound(), ctx)) {
return false;
}
return true;
}
TypeArgument* TypeArgument::canonicalize(Context* ctx, int ctx_depth) {
assert(_lower_bound != NULL, "Invalid lower bound");
Type* lower = _lower_bound->canonicalize(ctx, ctx_depth);
Type* upper = NULL;
if (_upper_bound == _lower_bound) {
upper = lower;
} else if (_upper_bound != NULL) {
upper = _upper_bound->canonicalize(ctx, ctx_depth);
}
return new TypeArgument(lower, upper);
}
#ifndef PRODUCT
void TypeArgument::print_on(outputStream* str) const {
str->indent().print_cr("TypeArgument {");
{
streamIndentor si(str);
if (_lower_bound != NULL) {
str->indent().print("Lower bound: ");
_lower_bound->print_on(str);
}
if (_upper_bound != NULL) {
str->indent().print("Upper bound: ");
_upper_bound->print_on(str);
}
}
str->indent().print_cr("}");
}
#endif // ndef PRODUCT
void Context::Mark::destroy() {
if (is_active()) {
_context->reset_to_mark(_marked_size);
}
deactivate();
}
void Context::apply_type_arguments(
InstanceKlass* current, InstanceKlass* super, TRAPS) {
assert(_cache != NULL, "Cannot use an empty context");
ClassType* spec = NULL;
if (current != NULL) {
ClassDescriptor* descriptor = _cache->descriptor_for(current, CHECK);
if (super == current->super()) {
spec = descriptor->super();
} else {
spec = descriptor->interface_desc(super->name());
}
if (spec != NULL) {
_type_arguments.push(spec);
}
}
}
void Context::reset_to_mark(int size) {
_type_arguments.trunc_to(size);
}
ClassType* Context::at_depth(int i) const {
if (i < _type_arguments.length()) {
return _type_arguments.at(_type_arguments.length() - 1 - i);
}
return NULL;
}
#ifndef PRODUCT
void Context::print_on(outputStream* str) const {
str->indent().print_cr("Context {");
for (int i = 0; i < _type_arguments.length(); ++i) {
streamIndentor si(str);
str->indent().print("leval %d: ", i);
ClassType* ct = at_depth(i);
if (ct == NULL) {
str->print_cr("<empty>");
continue;
} else {
str->print_cr("{");
}
for (int j = 0; j < ct->type_arguments_length(); ++j) {
streamIndentor si(str);
TypeArgument* ta = ct->type_argument_at(j);
Type* bound = ta->lower_bound();
bound->print_on(str);
}
str->indent().print_cr("}");
}
str->indent().print_cr("}");
}
#endif // ndef PRODUCT
ClassDescriptor* DescriptorCache::descriptor_for(InstanceKlass* ik, TRAPS) {
ClassDescriptor** existing = _class_descriptors.get(ik);
if (existing == NULL) {
ClassDescriptor* cd = ClassDescriptor::parse_generic_signature(ik, CHECK_NULL);
_class_descriptors.put(ik, cd);
return cd;
} else {
return *existing;
}
}
MethodDescriptor* DescriptorCache::descriptor_for(
Method* mh, ClassDescriptor* cd, TRAPS) {
assert(mh != NULL && cd != NULL, "Should not be NULL");
MethodDescriptor** existing = _method_descriptors.get(mh);
if (existing == NULL) {
MethodDescriptor* md = MethodDescriptor::parse_generic_signature(mh, cd);
_method_descriptors.put(mh, md);
return md;
} else {
return *existing;
}
}
MethodDescriptor* DescriptorCache::descriptor_for(Method* mh, TRAPS) {
ClassDescriptor* cd = descriptor_for(
InstanceKlass::cast(mh->method_holder()), CHECK_NULL);
return descriptor_for(mh, cd, THREAD);
}
} // namespace generic