40 assert(sig->utf8_length() > 1, "this should already have been checked");
41 assert(sig->char_at(0) == '[', "this should already have been checked");
42 // The first character is already checked
43 int i = 1;
44 int len = sig->utf8_length();
45 // First skip all '['s
46 while(i < len - 1 && sig->char_at(i) == '[') i++;
47
48 // Check type
49 switch(sig->char_at(i)) {
50 case 'B': // T_BYTE
51 case 'C': // T_CHAR
52 case 'D': // T_DOUBLE
53 case 'F': // T_FLOAT
54 case 'I': // T_INT
55 case 'J': // T_LONG
56 case 'S': // T_SHORT
57 case 'Z': // T_BOOLEAN
58 // If it is an array, the type is the last character
59 return (i + 1 == len);
60 case 'L':
61 // If it is an object, the last character must be a ';'
62 return sig->char_at(len - 1) == ';';
63 }
64
65 return false;
66 }
67
68
69 BasicType FieldType::get_array_info(Symbol* signature, FieldArrayInfo& fd, TRAPS) {
70 assert(basic_type(signature) == T_ARRAY, "must be array");
71 int index = 1;
72 int dim = 1;
73 while (signature->char_at(index) == '[') {
74 index++;
75 dim++;
76 }
77 ResourceMark rm;
78 char *element = signature->as_C_string() + index;
79 BasicType element_type = char2type(element[0]);
80 if (element_type == T_OBJECT) {
81 int len = (int)strlen(element);
82 assert(element[len-1] == ';', "last char should be a semicolon");
83 element[len-1] = '\0'; // chop off semicolon
84 fd._object_key = SymbolTable::new_symbol(element + 1, CHECK_(T_BYTE));
85 }
86 // Pass dimension back to caller
87 fd._dimension = dim;
88 return element_type;
89 }
|
40 assert(sig->utf8_length() > 1, "this should already have been checked");
41 assert(sig->char_at(0) == '[', "this should already have been checked");
42 // The first character is already checked
43 int i = 1;
44 int len = sig->utf8_length();
45 // First skip all '['s
46 while(i < len - 1 && sig->char_at(i) == '[') i++;
47
48 // Check type
49 switch(sig->char_at(i)) {
50 case 'B': // T_BYTE
51 case 'C': // T_CHAR
52 case 'D': // T_DOUBLE
53 case 'F': // T_FLOAT
54 case 'I': // T_INT
55 case 'J': // T_LONG
56 case 'S': // T_SHORT
57 case 'Z': // T_BOOLEAN
58 // If it is an array, the type is the last character
59 return (i + 1 == len);
60 case 'Q': // fall through
61 case 'L':
62 // If it is a class name, the last character must be a ';'
63 return sig->char_at(len - 1) == ';';
64 }
65
66 return false;
67 }
68
69 BasicType FieldType::get_array_info(Symbol* signature, FieldArrayInfo& fd, TRAPS) {
70 assert(basic_type(signature) == T_ARRAY, "must be array");
71 int index = 1;
72 int dim = 1;
73 while (signature->char_at(index) == '[') {
74 index++;
75 dim++;
76 }
77 ResourceMark rm;
78 char *element = signature->as_C_string() + index;
79 BasicType element_type = char2type(element[0]);
80 if (element_type == T_OBJECT || element_type == T_VALUETYPE) {
81 int len = (int)strlen(element);
82 assert(element[len-1] == ';', "last char should be a semicolon");
83 element[len-1] = '\0'; // chop off semicolon
84 fd._object_key = SymbolTable::new_symbol(element + 1, CHECK_(T_BYTE));
85 }
86 // Pass dimension back to caller
87 fd._dimension = dim;
88 return element_type;
89 }
|