1/*
2 * Copyright (c) 1997, 2017, Oracle and/or its affiliates. All rights reserved.
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 *
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
20 * or visit www.oracle.com if you need additional information or have any
21 * questions.
22 *
23 */
24
25#include "precompiled.hpp"
26#include "classfile/javaClasses.hpp"
27#include "classfile/moduleEntry.hpp"
28#include "classfile/packageEntry.hpp"
29#include "classfile/stringTable.hpp"
30#include "classfile/systemDictionary.hpp"
31#include "classfile/verifier.hpp"
32#include "classfile/vmSymbols.hpp"
33#include "interpreter/linkResolver.hpp"
34#include "memory/oopFactory.hpp"
35#include "memory/resourceArea.hpp"
36#include "memory/universe.inline.hpp"
37#include "oops/instanceKlass.hpp"
38#include "oops/objArrayKlass.hpp"
39#include "oops/objArrayOop.inline.hpp"
40#include "oops/oop.inline.hpp"
41#include "prims/jvm.h"
42#include "prims/jvmtiExport.hpp"
43#include "runtime/arguments.hpp"
44#include "runtime/handles.inline.hpp"
45#include "runtime/javaCalls.hpp"
46#include "runtime/reflection.hpp"
47#include "runtime/reflectionUtils.hpp"
48#include "runtime/signature.hpp"
49#include "runtime/vframe.hpp"
50
51static void trace_class_resolution(const Klass* to_class) {
52  ResourceMark rm;
53  int line_number = -1;
54  const char * source_file = NULL;
55  Klass* caller = NULL;
56  JavaThread* jthread = JavaThread::current();
57  if (jthread->has_last_Java_frame()) {
58    vframeStream vfst(jthread);
59    // skip over any frames belonging to java.lang.Class
60    while (!vfst.at_end() &&
61           vfst.method()->method_holder()->name() == vmSymbols::java_lang_Class()) {
62      vfst.next();
63    }
64    if (!vfst.at_end()) {
65      // this frame is a likely suspect
66      caller = vfst.method()->method_holder();
67      line_number = vfst.method()->line_number_from_bci(vfst.bci());
68      Symbol* s = vfst.method()->method_holder()->source_file_name();
69      if (s != NULL) {
70        source_file = s->as_C_string();
71      }
72    }
73  }
74  if (caller != NULL) {
75    const char * from = caller->external_name();
76    const char * to = to_class->external_name();
77    // print in a single call to reduce interleaving between threads
78    if (source_file != NULL) {
79      log_debug(class, resolve)("%s %s %s:%d (reflection)", from, to, source_file, line_number);
80    } else {
81      log_debug(class, resolve)("%s %s (reflection)", from, to);
82    }
83  }
84}
85
86
87oop Reflection::box(jvalue* value, BasicType type, TRAPS) {
88  if (type == T_VOID) {
89    return NULL;
90  }
91  if (type == T_OBJECT || type == T_ARRAY) {
92    // regular objects are not boxed
93    return (oop) value->l;
94  }
95  oop result = java_lang_boxing_object::create(type, value, CHECK_NULL);
96  if (result == NULL) {
97    THROW_(vmSymbols::java_lang_IllegalArgumentException(), result);
98  }
99  return result;
100}
101
102
103BasicType Reflection::unbox_for_primitive(oop box, jvalue* value, TRAPS) {
104  if (box == NULL) {
105    THROW_(vmSymbols::java_lang_IllegalArgumentException(), T_ILLEGAL);
106  }
107  return java_lang_boxing_object::get_value(box, value);
108}
109
110BasicType Reflection::unbox_for_regular_object(oop box, jvalue* value) {
111  // Note:  box is really the unboxed oop.  It might even be a Short, etc.!
112  value->l = (jobject) box;
113  return T_OBJECT;
114}
115
116
117void Reflection::widen(jvalue* value, BasicType current_type, BasicType wide_type, TRAPS) {
118  assert(wide_type != current_type, "widen should not be called with identical types");
119  switch (wide_type) {
120    case T_BOOLEAN:
121    case T_BYTE:
122    case T_CHAR:
123      break;  // fail
124    case T_SHORT:
125      switch (current_type) {
126        case T_BYTE:
127          value->s = (jshort) value->b;
128          return;
129      }
130      break;  // fail
131    case T_INT:
132      switch (current_type) {
133        case T_BYTE:
134          value->i = (jint) value->b;
135          return;
136        case T_CHAR:
137          value->i = (jint) value->c;
138          return;
139        case T_SHORT:
140          value->i = (jint) value->s;
141          return;
142      }
143      break;  // fail
144    case T_LONG:
145      switch (current_type) {
146        case T_BYTE:
147          value->j = (jlong) value->b;
148          return;
149        case T_CHAR:
150          value->j = (jlong) value->c;
151          return;
152        case T_SHORT:
153          value->j = (jlong) value->s;
154          return;
155        case T_INT:
156          value->j = (jlong) value->i;
157          return;
158      }
159      break;  // fail
160    case T_FLOAT:
161      switch (current_type) {
162        case T_BYTE:
163          value->f = (jfloat) value->b;
164          return;
165        case T_CHAR:
166          value->f = (jfloat) value->c;
167          return;
168        case T_SHORT:
169          value->f = (jfloat) value->s;
170          return;
171        case T_INT:
172          value->f = (jfloat) value->i;
173          return;
174        case T_LONG:
175          value->f = (jfloat) value->j;
176          return;
177      }
178      break;  // fail
179    case T_DOUBLE:
180      switch (current_type) {
181        case T_BYTE:
182          value->d = (jdouble) value->b;
183          return;
184        case T_CHAR:
185          value->d = (jdouble) value->c;
186          return;
187        case T_SHORT:
188          value->d = (jdouble) value->s;
189          return;
190        case T_INT:
191          value->d = (jdouble) value->i;
192          return;
193        case T_FLOAT:
194          value->d = (jdouble) value->f;
195          return;
196        case T_LONG:
197          value->d = (jdouble) value->j;
198          return;
199      }
200      break;  // fail
201    default:
202      break;  // fail
203  }
204  THROW_MSG(vmSymbols::java_lang_IllegalArgumentException(), "argument type mismatch");
205}
206
207
208BasicType Reflection::array_get(jvalue* value, arrayOop a, int index, TRAPS) {
209  if (!a->is_within_bounds(index)) {
210    THROW_(vmSymbols::java_lang_ArrayIndexOutOfBoundsException(), T_ILLEGAL);
211  }
212  if (a->is_objArray()) {
213    value->l = (jobject) objArrayOop(a)->obj_at(index);
214    return T_OBJECT;
215  } else {
216    assert(a->is_typeArray(), "just checking");
217    BasicType type = TypeArrayKlass::cast(a->klass())->element_type();
218    switch (type) {
219      case T_BOOLEAN:
220        value->z = typeArrayOop(a)->bool_at(index);
221        break;
222      case T_CHAR:
223        value->c = typeArrayOop(a)->char_at(index);
224        break;
225      case T_FLOAT:
226        value->f = typeArrayOop(a)->float_at(index);
227        break;
228      case T_DOUBLE:
229        value->d = typeArrayOop(a)->double_at(index);
230        break;
231      case T_BYTE:
232        value->b = typeArrayOop(a)->byte_at(index);
233        break;
234      case T_SHORT:
235        value->s = typeArrayOop(a)->short_at(index);
236        break;
237      case T_INT:
238        value->i = typeArrayOop(a)->int_at(index);
239        break;
240      case T_LONG:
241        value->j = typeArrayOop(a)->long_at(index);
242        break;
243      default:
244        return T_ILLEGAL;
245    }
246    return type;
247  }
248}
249
250
251void Reflection::array_set(jvalue* value, arrayOop a, int index, BasicType value_type, TRAPS) {
252  if (!a->is_within_bounds(index)) {
253    THROW(vmSymbols::java_lang_ArrayIndexOutOfBoundsException());
254  }
255  if (a->is_objArray()) {
256    if (value_type == T_OBJECT) {
257      oop obj = (oop) value->l;
258      if (obj != NULL) {
259        Klass* element_klass = ObjArrayKlass::cast(a->klass())->element_klass();
260        if (!obj->is_a(element_klass)) {
261          THROW_MSG(vmSymbols::java_lang_IllegalArgumentException(), "array element type mismatch");
262        }
263      }
264      objArrayOop(a)->obj_at_put(index, obj);
265    }
266  } else {
267    assert(a->is_typeArray(), "just checking");
268    BasicType array_type = TypeArrayKlass::cast(a->klass())->element_type();
269    if (array_type != value_type) {
270      // The widen operation can potentially throw an exception, but cannot block,
271      // so typeArrayOop a is safe if the call succeeds.
272      widen(value, value_type, array_type, CHECK);
273    }
274    switch (array_type) {
275      case T_BOOLEAN:
276        typeArrayOop(a)->bool_at_put(index, value->z);
277        break;
278      case T_CHAR:
279        typeArrayOop(a)->char_at_put(index, value->c);
280        break;
281      case T_FLOAT:
282        typeArrayOop(a)->float_at_put(index, value->f);
283        break;
284      case T_DOUBLE:
285        typeArrayOop(a)->double_at_put(index, value->d);
286        break;
287      case T_BYTE:
288        typeArrayOop(a)->byte_at_put(index, value->b);
289        break;
290      case T_SHORT:
291        typeArrayOop(a)->short_at_put(index, value->s);
292        break;
293      case T_INT:
294        typeArrayOop(a)->int_at_put(index, value->i);
295        break;
296      case T_LONG:
297        typeArrayOop(a)->long_at_put(index, value->j);
298        break;
299      default:
300        THROW(vmSymbols::java_lang_IllegalArgumentException());
301    }
302  }
303}
304
305static Klass* basic_type_mirror_to_arrayklass(oop basic_type_mirror, TRAPS) {
306  assert(java_lang_Class::is_primitive(basic_type_mirror), "just checking");
307  BasicType type = java_lang_Class::primitive_type(basic_type_mirror);
308  if (type == T_VOID) {
309    THROW_0(vmSymbols::java_lang_IllegalArgumentException());
310  }
311  else {
312    return Universe::typeArrayKlassObj(type);
313  }
314}
315
316#ifdef ASSERT
317static oop basic_type_arrayklass_to_mirror(Klass* basic_type_arrayklass, TRAPS) {
318  BasicType type = TypeArrayKlass::cast(basic_type_arrayklass)->element_type();
319  return Universe::java_mirror(type);
320}
321#endif
322
323arrayOop Reflection::reflect_new_array(oop element_mirror, jint length, TRAPS) {
324  if (element_mirror == NULL) {
325    THROW_0(vmSymbols::java_lang_NullPointerException());
326  }
327  if (length < 0) {
328    THROW_0(vmSymbols::java_lang_NegativeArraySizeException());
329  }
330  if (java_lang_Class::is_primitive(element_mirror)) {
331    Klass* tak = basic_type_mirror_to_arrayklass(element_mirror, CHECK_NULL);
332    return TypeArrayKlass::cast(tak)->allocate(length, THREAD);
333  } else {
334    Klass* k = java_lang_Class::as_Klass(element_mirror);
335    if (k->is_array_klass() && ArrayKlass::cast(k)->dimension() >= MAX_DIM) {
336      THROW_0(vmSymbols::java_lang_IllegalArgumentException());
337    }
338    return oopFactory::new_objArray(k, length, THREAD);
339  }
340}
341
342
343arrayOop Reflection::reflect_new_multi_array(oop element_mirror, typeArrayOop dim_array, TRAPS) {
344  assert(dim_array->is_typeArray(), "just checking");
345  assert(TypeArrayKlass::cast(dim_array->klass())->element_type() == T_INT, "just checking");
346
347  if (element_mirror == NULL) {
348    THROW_0(vmSymbols::java_lang_NullPointerException());
349  }
350
351  int len = dim_array->length();
352  if (len <= 0 || len > MAX_DIM) {
353    THROW_0(vmSymbols::java_lang_IllegalArgumentException());
354  }
355
356  jint dimensions[MAX_DIM];   // C array copy of intArrayOop
357  for (int i = 0; i < len; i++) {
358    int d = dim_array->int_at(i);
359    if (d < 0) {
360      THROW_0(vmSymbols::java_lang_NegativeArraySizeException());
361    }
362    dimensions[i] = d;
363  }
364
365  Klass* klass;
366  int dim = len;
367  if (java_lang_Class::is_primitive(element_mirror)) {
368    klass = basic_type_mirror_to_arrayklass(element_mirror, CHECK_NULL);
369  } else {
370    klass = java_lang_Class::as_Klass(element_mirror);
371    if (klass->is_array_klass()) {
372      int k_dim = ArrayKlass::cast(klass)->dimension();
373      if (k_dim + len > MAX_DIM) {
374        THROW_0(vmSymbols::java_lang_IllegalArgumentException());
375      }
376      dim += k_dim;
377    }
378  }
379  klass = klass->array_klass(dim, CHECK_NULL);
380  oop obj = ArrayKlass::cast(klass)->multi_allocate(len, dimensions, CHECK_NULL);
381  assert(obj->is_array(), "just checking");
382  return arrayOop(obj);
383}
384
385
386oop Reflection::array_component_type(oop mirror, TRAPS) {
387  if (java_lang_Class::is_primitive(mirror)) {
388    return NULL;
389  }
390
391  Klass* klass = java_lang_Class::as_Klass(mirror);
392  if (!klass->is_array_klass()) {
393    return NULL;
394  }
395
396  oop result = java_lang_Class::component_mirror(mirror);
397#ifdef ASSERT
398  oop result2 = NULL;
399  if (ArrayKlass::cast(klass)->dimension() == 1) {
400    if (klass->is_typeArray_klass()) {
401      result2 = basic_type_arrayklass_to_mirror(klass, CHECK_NULL);
402    } else {
403      result2 = ObjArrayKlass::cast(klass)->element_klass()->java_mirror();
404    }
405  } else {
406    Klass* lower_dim = ArrayKlass::cast(klass)->lower_dimension();
407    assert(lower_dim->is_array_klass(), "just checking");
408    result2 = lower_dim->java_mirror();
409  }
410  assert(result == result2, "results must be consistent");
411#endif //ASSERT
412  return result;
413}
414
415static bool under_host_klass(const InstanceKlass* ik, const InstanceKlass* host_klass) {
416  DEBUG_ONLY(int inf_loop_check = 1000 * 1000 * 1000);
417  for (;;) {
418    const InstanceKlass* hc = ik->host_klass();
419    if (hc == NULL)        return false;
420    if (hc == host_klass)  return true;
421    ik = hc;
422
423    // There's no way to make a host class loop short of patching memory.
424    // Therefore there cannot be a loop here unless there's another bug.
425    // Still, let's check for it.
426    assert(--inf_loop_check > 0, "no host_klass loop");
427  }
428}
429
430static bool can_relax_access_check_for(const Klass* accessor,
431                                       const Klass* accessee,
432                                       bool classloader_only) {
433
434  const InstanceKlass* accessor_ik = InstanceKlass::cast(accessor);
435  const InstanceKlass* accessee_ik = InstanceKlass::cast(accessee);
436
437  // If either is on the other's host_klass chain, access is OK,
438  // because one is inside the other.
439  if (under_host_klass(accessor_ik, accessee_ik) ||
440    under_host_klass(accessee_ik, accessor_ik))
441    return true;
442
443  if ((RelaxAccessControlCheck &&
444    accessor_ik->major_version() < Verifier::NO_RELAX_ACCESS_CTRL_CHECK_VERSION &&
445    accessee_ik->major_version() < Verifier::NO_RELAX_ACCESS_CTRL_CHECK_VERSION) ||
446    (accessor_ik->major_version() < Verifier::STRICTER_ACCESS_CTRL_CHECK_VERSION &&
447    accessee_ik->major_version() < Verifier::STRICTER_ACCESS_CTRL_CHECK_VERSION)) {
448    return classloader_only &&
449      Verifier::relax_access_for(accessor_ik->class_loader()) &&
450      accessor_ik->protection_domain() == accessee_ik->protection_domain() &&
451      accessor_ik->class_loader() == accessee_ik->class_loader();
452  }
453
454  return false;
455}
456
457/*
458    Type Accessibility check for public types: Callee Type T is accessible to Caller Type S if:
459
460                        Callee T in             Callee T in package PT,
461                        unnamed module          runtime module MT
462 ------------------------------------------------------------------------------------------------
463
464 Caller S in package     If MS is loose: YES      If same classloader/package (PS == PT): YES
465 PS, runtime module MS   If MS can read T's       If same runtime module: (MS == MT): YES
466                         unnamed module: YES
467                                                  Else if (MS can read MT (Establish readability) &&
468                                                    MT exports PT to MS or to all modules): YES
469
470 ------------------------------------------------------------------------------------------------
471 Caller S in unnamed         YES                  Readability exists because unnamed module
472 module UM                                            "reads" all modules
473                                                  if (MT exports PT to UM or to all modules): YES
474
475 ------------------------------------------------------------------------------------------------
476
477 Note: a loose module is a module that can read all current and future unnamed modules.
478*/
479Reflection::VerifyClassAccessResults Reflection::verify_class_access(
480  const Klass* current_class, const Klass* new_class, bool classloader_only) {
481
482  // Verify that current_class can access new_class.  If the classloader_only
483  // flag is set, we automatically allow any accesses in which current_class
484  // doesn't have a classloader.
485  if ((current_class == NULL) ||
486      (current_class == new_class) ||
487      is_same_class_package(current_class, new_class)) {
488    return ACCESS_OK;
489  }
490  // Allow all accesses from jdk/internal/reflect/MagicAccessorImpl subclasses to
491  // succeed trivially.
492  if (current_class->is_subclass_of(SystemDictionary::reflect_MagicAccessorImpl_klass())) {
493    return ACCESS_OK;
494  }
495
496  // module boundaries
497  if (new_class->is_public()) {
498    // Ignore modules for DumpSharedSpaces because we do not have any package
499    // or module information for modules other than java.base.
500    if (DumpSharedSpaces) {
501      return ACCESS_OK;
502    }
503
504    // Find the module entry for current_class, the accessor
505    ModuleEntry* module_from = current_class->module();
506    // Find the module entry for new_class, the accessee
507    if (new_class->is_objArray_klass()) {
508      new_class = ObjArrayKlass::cast(new_class)->bottom_klass();
509    }
510    if (new_class->is_typeArray_klass()) {
511      // A TypeArray's defining module is java.base, access to the TypeArray is allowed
512      return ACCESS_OK;
513    }
514    ModuleEntry* module_to = new_class->module();
515
516    // both in same (possibly unnamed) module
517    if (module_from == module_to) {
518      return ACCESS_OK;
519    }
520
521    // Acceptable access to a type in an unamed module.  Note that since
522    // unnamed modules can read all unnamed modules, this also handles the
523    // case where module_from is also unnamed but in a different class loader.
524    if (!module_to->is_named() &&
525        (module_from->can_read_all_unnamed() || module_from->can_read(module_to))) {
526      return ACCESS_OK;
527    }
528
529    // Establish readability, check if module_from is allowed to read module_to.
530    if (!module_from->can_read(module_to)) {
531      return MODULE_NOT_READABLE;
532    }
533
534    PackageEntry* package_to = new_class->package();
535    assert(package_to != NULL, "can not obtain new_class' package");
536
537    {
538      MutexLocker m1(Module_lock);
539
540      // Once readability is established, if module_to exports T unqualifiedly,
541      // (to all modules), than whether module_from is in the unnamed module
542      // or not does not matter, access is allowed.
543      if (package_to->is_unqual_exported()) {
544        return ACCESS_OK;
545      }
546
547      // Access is allowed if both 1 & 2 hold:
548      //   1. Readability, module_from can read module_to (established above).
549      //   2. Either module_to exports T to module_from qualifiedly.
550      //      or
551      //      module_to exports T to all unnamed modules and module_from is unnamed.
552      //      or
553      //      module_to exports T unqualifiedly to all modules (checked above).
554      if (!package_to->is_qexported_to(module_from)) {
555        return TYPE_NOT_EXPORTED;
556      }
557    }
558    return ACCESS_OK;
559  }
560
561  if (can_relax_access_check_for(current_class, new_class, classloader_only)) {
562    return ACCESS_OK;
563  }
564  return OTHER_PROBLEM;
565}
566
567// Return an error message specific to the specified Klass*'s and result.
568// This function must be called from within a block containing a ResourceMark.
569char* Reflection::verify_class_access_msg(const Klass* current_class,
570                                          const Klass* new_class,
571                                          VerifyClassAccessResults result) {
572  assert(result != ACCESS_OK, "must be failure result");
573  char * msg = NULL;
574  if (result != OTHER_PROBLEM && new_class != NULL && current_class != NULL) {
575    // Find the module entry for current_class, the accessor
576    ModuleEntry* module_from = current_class->module();
577    const char * module_from_name = module_from->is_named() ? module_from->name()->as_C_string() : UNNAMED_MODULE;
578    const char * current_class_name = current_class->external_name();
579
580    // Find the module entry for new_class, the accessee
581    ModuleEntry* module_to = NULL;
582    module_to = new_class->module();
583    const char * module_to_name = module_to->is_named() ? module_to->name()->as_C_string() : UNNAMED_MODULE;
584    const char * new_class_name = new_class->external_name();
585
586    if (result == MODULE_NOT_READABLE) {
587      assert(module_from->is_named(), "Unnamed modules can read all modules");
588      if (module_to->is_named()) {
589        size_t len = 100 + strlen(current_class_name) + 2*strlen(module_from_name) +
590          strlen(new_class_name) + 2*strlen(module_to_name);
591        msg = NEW_RESOURCE_ARRAY(char, len);
592        jio_snprintf(msg, len - 1,
593          "class %s (in module %s) cannot access class %s (in module %s) because module %s does not read module %s",
594          current_class_name, module_from_name, new_class_name,
595          module_to_name, module_from_name, module_to_name);
596      } else {
597        jobject jlm = module_to->module();
598        assert(jlm != NULL, "Null jlm in module_to ModuleEntry");
599        intptr_t identity_hash = JNIHandles::resolve(jlm)->identity_hash();
600        size_t len = 160 + strlen(current_class_name) + 2*strlen(module_from_name) +
601          strlen(new_class_name) + 2*sizeof(uintx);
602        msg = NEW_RESOURCE_ARRAY(char, len);
603        jio_snprintf(msg, len - 1,
604          "class %s (in module %s) cannot access class %s (in unnamed module @" SIZE_FORMAT_HEX ") because module %s does not read unnamed module @" SIZE_FORMAT_HEX,
605          current_class_name, module_from_name, new_class_name, uintx(identity_hash),
606          module_from_name, uintx(identity_hash));
607      }
608
609    } else if (result == TYPE_NOT_EXPORTED) {
610      assert(new_class->package() != NULL,
611             "Unnamed packages are always exported");
612      const char * package_name =
613        new_class->package()->name()->as_klass_external_name();
614      assert(module_to->is_named(), "Unnamed modules export all packages");
615      if (module_from->is_named()) {
616        size_t len = 118 + strlen(current_class_name) + 2*strlen(module_from_name) +
617          strlen(new_class_name) + 2*strlen(module_to_name) + strlen(package_name);
618        msg = NEW_RESOURCE_ARRAY(char, len);
619        jio_snprintf(msg, len - 1,
620          "class %s (in module %s) cannot access class %s (in module %s) because module %s does not export %s to module %s",
621          current_class_name, module_from_name, new_class_name,
622          module_to_name, module_to_name, package_name, module_from_name);
623      } else {
624        jobject jlm = module_from->module();
625        assert(jlm != NULL, "Null jlm in module_from ModuleEntry");
626        intptr_t identity_hash = JNIHandles::resolve(jlm)->identity_hash();
627        size_t len = 170 + strlen(current_class_name) + strlen(new_class_name) +
628          2*strlen(module_to_name) + strlen(package_name) + 2*sizeof(uintx);
629        msg = NEW_RESOURCE_ARRAY(char, len);
630        jio_snprintf(msg, len - 1,
631          "class %s (in unnamed module @" SIZE_FORMAT_HEX ") cannot access class %s (in module %s) because module %s does not export %s to unnamed module @" SIZE_FORMAT_HEX,
632          current_class_name, uintx(identity_hash), new_class_name, module_to_name,
633          module_to_name, package_name, uintx(identity_hash));
634      }
635    } else {
636        ShouldNotReachHere();
637    }
638  }  // result != OTHER_PROBLEM...
639  return msg;
640}
641
642bool Reflection::verify_field_access(const Klass* current_class,
643                                     const Klass* resolved_class,
644                                     const Klass* field_class,
645                                     AccessFlags access,
646                                     bool classloader_only,
647                                     bool protected_restriction) {
648  // Verify that current_class can access a field of field_class, where that
649  // field's access bits are "access".  We assume that we've already verified
650  // that current_class can access field_class.
651  //
652  // If the classloader_only flag is set, we automatically allow any accesses
653  // in which current_class doesn't have a classloader.
654  //
655  // "resolved_class" is the runtime type of "field_class". Sometimes we don't
656  // need this distinction (e.g. if all we have is the runtime type, or during
657  // class file parsing when we only care about the static type); in that case
658  // callers should ensure that resolved_class == field_class.
659  //
660  if ((current_class == NULL) ||
661      (current_class == field_class) ||
662      access.is_public()) {
663    return true;
664  }
665
666  const Klass* host_class = current_class;
667  if (host_class->is_instance_klass() &&
668      InstanceKlass::cast(host_class)->is_anonymous()) {
669    host_class = InstanceKlass::cast(host_class)->host_klass();
670    assert(host_class != NULL, "Anonymous class has null host class");
671    assert(!(host_class->is_instance_klass() &&
672           InstanceKlass::cast(host_class)->is_anonymous()),
673           "host_class should not be anonymous");
674  }
675  if (host_class == field_class) {
676    return true;
677  }
678
679  if (access.is_protected()) {
680    if (!protected_restriction) {
681      // See if current_class (or outermost host class) is a subclass of field_class
682      // An interface may not access protected members of j.l.Object
683      if (!host_class->is_interface() && host_class->is_subclass_of(field_class)) {
684        if (access.is_static() || // static fields are ok, see 6622385
685            current_class == resolved_class ||
686            field_class == resolved_class ||
687            host_class->is_subclass_of(resolved_class) ||
688            resolved_class->is_subclass_of(host_class)) {
689          return true;
690        }
691      }
692    }
693  }
694
695  if (!access.is_private() && is_same_class_package(current_class, field_class)) {
696    return true;
697  }
698
699  // Allow all accesses from jdk/internal/reflect/MagicAccessorImpl subclasses to
700  // succeed trivially.
701  if (current_class->is_subclass_of(SystemDictionary::reflect_MagicAccessorImpl_klass())) {
702    return true;
703  }
704
705  return can_relax_access_check_for(
706    current_class, field_class, classloader_only);
707}
708
709bool Reflection::is_same_class_package(const Klass* class1, const Klass* class2) {
710  return InstanceKlass::cast(class1)->is_same_class_package(class2);
711}
712
713// Checks that the 'outer' klass has declared 'inner' as being an inner klass. If not,
714// throw an incompatible class change exception
715// If inner_is_member, require the inner to be a member of the outer.
716// If !inner_is_member, require the inner to be anonymous (a non-member).
717// Caller is responsible for figuring out in advance which case must be true.
718void Reflection::check_for_inner_class(instanceKlassHandle outer, instanceKlassHandle inner,
719                                       bool inner_is_member, TRAPS) {
720  InnerClassesIterator iter(outer);
721  constantPoolHandle cp   (THREAD, outer->constants());
722  for (; !iter.done(); iter.next()) {
723     int ioff = iter.inner_class_info_index();
724     int ooff = iter.outer_class_info_index();
725
726     if (inner_is_member && ioff != 0 && ooff != 0) {
727        Klass* o = cp->klass_at(ooff, CHECK);
728        if (o == outer()) {
729          Klass* i = cp->klass_at(ioff, CHECK);
730          if (i == inner()) {
731            return;
732          }
733        }
734     }
735     if (!inner_is_member && ioff != 0 && ooff == 0 &&
736         cp->klass_name_at_matches(inner, ioff)) {
737        Klass* i = cp->klass_at(ioff, CHECK);
738        if (i == inner()) {
739          return;
740        }
741     }
742  }
743
744  // 'inner' not declared as an inner klass in outer
745  ResourceMark rm(THREAD);
746  Exceptions::fthrow(
747    THREAD_AND_LOCATION,
748    vmSymbols::java_lang_IncompatibleClassChangeError(),
749    "%s and %s disagree on InnerClasses attribute",
750    outer->external_name(),
751    inner->external_name()
752  );
753}
754
755// Utility method converting a single SignatureStream element into java.lang.Class instance
756static oop get_mirror_from_signature(methodHandle method,
757                                     SignatureStream* ss,
758                                     TRAPS) {
759
760
761  if (T_OBJECT == ss->type() || T_ARRAY == ss->type()) {
762    Symbol* name = ss->as_symbol(CHECK_NULL);
763    oop loader = method->method_holder()->class_loader();
764    oop protection_domain = method->method_holder()->protection_domain();
765    const Klass* k = SystemDictionary::resolve_or_fail(name,
766                                                       Handle(THREAD, loader),
767                                                       Handle(THREAD, protection_domain),
768                                                       true,
769                                                       CHECK_NULL);
770    if (log_is_enabled(Debug, class, resolve)) {
771      trace_class_resolution(k);
772    }
773    return k->java_mirror();
774  }
775
776  assert(ss->type() != T_VOID || ss->at_return_type(),
777    "T_VOID should only appear as return type");
778
779  return java_lang_Class::primitive_mirror(ss->type());
780}
781
782static objArrayHandle get_parameter_types(methodHandle method,
783                                          int parameter_count,
784                                          oop* return_type,
785                                          TRAPS) {
786  // Allocate array holding parameter types (java.lang.Class instances)
787  objArrayOop m = oopFactory::new_objArray(SystemDictionary::Class_klass(), parameter_count, CHECK_(objArrayHandle()));
788  objArrayHandle mirrors(THREAD, m);
789  int index = 0;
790  // Collect parameter types
791  ResourceMark rm(THREAD);
792  Symbol*  signature = method->signature();
793  SignatureStream ss(signature);
794  while (!ss.at_return_type()) {
795    oop mirror = get_mirror_from_signature(method, &ss, CHECK_(objArrayHandle()));
796    mirrors->obj_at_put(index++, mirror);
797    ss.next();
798  }
799  assert(index == parameter_count, "invalid parameter count");
800  if (return_type != NULL) {
801    // Collect return type as well
802    assert(ss.at_return_type(), "return type should be present");
803    *return_type = get_mirror_from_signature(method, &ss, CHECK_(objArrayHandle()));
804  }
805  return mirrors;
806}
807
808static objArrayHandle get_exception_types(methodHandle method, TRAPS) {
809  return method->resolved_checked_exceptions(THREAD);
810}
811
812static Handle new_type(Symbol* signature, KlassHandle k, TRAPS) {
813  // Basic types
814  BasicType type = vmSymbols::signature_type(signature);
815  if (type != T_OBJECT) {
816    return Handle(THREAD, Universe::java_mirror(type));
817  }
818
819  Klass* result =
820    SystemDictionary::resolve_or_fail(signature,
821                                      Handle(THREAD, k->class_loader()),
822                                      Handle(THREAD, k->protection_domain()),
823                                      true, CHECK_(Handle()));
824
825  if (log_is_enabled(Debug, class, resolve)) {
826    trace_class_resolution(result);
827  }
828
829  oop nt = result->java_mirror();
830  return Handle(THREAD, nt);
831}
832
833
834oop Reflection::new_method(const methodHandle& method, bool for_constant_pool_access, TRAPS) {
835  // Allow sun.reflect.ConstantPool to refer to <clinit> methods as java.lang.reflect.Methods.
836  assert(!method()->is_initializer() ||
837         (for_constant_pool_access && method()->is_static()),
838         "should call new_constructor instead");
839  instanceKlassHandle holder (THREAD, method->method_holder());
840  int slot = method->method_idnum();
841
842  Symbol*  signature  = method->signature();
843  int parameter_count = ArgumentCount(signature).size();
844  oop return_type_oop = NULL;
845  objArrayHandle parameter_types = get_parameter_types(method, parameter_count, &return_type_oop, CHECK_NULL);
846  if (parameter_types.is_null() || return_type_oop == NULL) return NULL;
847
848  Handle return_type(THREAD, return_type_oop);
849
850  objArrayHandle exception_types = get_exception_types(method, CHECK_NULL);
851
852  if (exception_types.is_null()) return NULL;
853
854  Symbol*  method_name = method->name();
855  oop name_oop = StringTable::intern(method_name, CHECK_NULL);
856  Handle name = Handle(THREAD, name_oop);
857  if (name == NULL) return NULL;
858
859  const int modifiers = method->access_flags().as_int() & JVM_RECOGNIZED_METHOD_MODIFIERS;
860
861  Handle mh = java_lang_reflect_Method::create(CHECK_NULL);
862
863  java_lang_reflect_Method::set_clazz(mh(), holder->java_mirror());
864  java_lang_reflect_Method::set_slot(mh(), slot);
865  java_lang_reflect_Method::set_name(mh(), name());
866  java_lang_reflect_Method::set_return_type(mh(), return_type());
867  java_lang_reflect_Method::set_parameter_types(mh(), parameter_types());
868  java_lang_reflect_Method::set_exception_types(mh(), exception_types());
869  java_lang_reflect_Method::set_modifiers(mh(), modifiers);
870  java_lang_reflect_Method::set_override(mh(), false);
871  if (java_lang_reflect_Method::has_signature_field() &&
872      method->generic_signature() != NULL) {
873    Symbol*  gs = method->generic_signature();
874    Handle sig = java_lang_String::create_from_symbol(gs, CHECK_NULL);
875    java_lang_reflect_Method::set_signature(mh(), sig());
876  }
877  if (java_lang_reflect_Method::has_annotations_field()) {
878    typeArrayOop an_oop = Annotations::make_java_array(method->annotations(), CHECK_NULL);
879    java_lang_reflect_Method::set_annotations(mh(), an_oop);
880  }
881  if (java_lang_reflect_Method::has_parameter_annotations_field()) {
882    typeArrayOop an_oop = Annotations::make_java_array(method->parameter_annotations(), CHECK_NULL);
883    java_lang_reflect_Method::set_parameter_annotations(mh(), an_oop);
884  }
885  if (java_lang_reflect_Method::has_annotation_default_field()) {
886    typeArrayOop an_oop = Annotations::make_java_array(method->annotation_default(), CHECK_NULL);
887    java_lang_reflect_Method::set_annotation_default(mh(), an_oop);
888  }
889  if (java_lang_reflect_Method::has_type_annotations_field()) {
890    typeArrayOop an_oop = Annotations::make_java_array(method->type_annotations(), CHECK_NULL);
891    java_lang_reflect_Method::set_type_annotations(mh(), an_oop);
892  }
893  return mh();
894}
895
896
897oop Reflection::new_constructor(const methodHandle& method, TRAPS) {
898  assert(method()->is_initializer(), "should call new_method instead");
899
900  instanceKlassHandle  holder (THREAD, method->method_holder());
901  int slot = method->method_idnum();
902
903  Symbol*  signature  = method->signature();
904  int parameter_count = ArgumentCount(signature).size();
905  objArrayHandle parameter_types = get_parameter_types(method, parameter_count, NULL, CHECK_NULL);
906  if (parameter_types.is_null()) return NULL;
907
908  objArrayHandle exception_types = get_exception_types(method, CHECK_NULL);
909  if (exception_types.is_null()) return NULL;
910
911  const int modifiers = method->access_flags().as_int() & JVM_RECOGNIZED_METHOD_MODIFIERS;
912
913  Handle ch = java_lang_reflect_Constructor::create(CHECK_NULL);
914
915  java_lang_reflect_Constructor::set_clazz(ch(), holder->java_mirror());
916  java_lang_reflect_Constructor::set_slot(ch(), slot);
917  java_lang_reflect_Constructor::set_parameter_types(ch(), parameter_types());
918  java_lang_reflect_Constructor::set_exception_types(ch(), exception_types());
919  java_lang_reflect_Constructor::set_modifiers(ch(), modifiers);
920  java_lang_reflect_Constructor::set_override(ch(), false);
921  if (java_lang_reflect_Constructor::has_signature_field() &&
922      method->generic_signature() != NULL) {
923    Symbol*  gs = method->generic_signature();
924    Handle sig = java_lang_String::create_from_symbol(gs, CHECK_NULL);
925    java_lang_reflect_Constructor::set_signature(ch(), sig());
926  }
927  if (java_lang_reflect_Constructor::has_annotations_field()) {
928    typeArrayOop an_oop = Annotations::make_java_array(method->annotations(), CHECK_NULL);
929    java_lang_reflect_Constructor::set_annotations(ch(), an_oop);
930  }
931  if (java_lang_reflect_Constructor::has_parameter_annotations_field()) {
932    typeArrayOop an_oop = Annotations::make_java_array(method->parameter_annotations(), CHECK_NULL);
933    java_lang_reflect_Constructor::set_parameter_annotations(ch(), an_oop);
934  }
935  if (java_lang_reflect_Constructor::has_type_annotations_field()) {
936    typeArrayOop an_oop = Annotations::make_java_array(method->type_annotations(), CHECK_NULL);
937    java_lang_reflect_Constructor::set_type_annotations(ch(), an_oop);
938  }
939  return ch();
940}
941
942
943oop Reflection::new_field(fieldDescriptor* fd, TRAPS) {
944  Symbol*  field_name = fd->name();
945  oop name_oop = StringTable::intern(field_name, CHECK_NULL);
946  Handle name = Handle(THREAD, name_oop);
947  Symbol*  signature  = fd->signature();
948  instanceKlassHandle  holder    (THREAD, fd->field_holder());
949  Handle type = new_type(signature, holder, CHECK_NULL);
950  Handle rh  = java_lang_reflect_Field::create(CHECK_NULL);
951
952  java_lang_reflect_Field::set_clazz(rh(), fd->field_holder()->java_mirror());
953  java_lang_reflect_Field::set_slot(rh(), fd->index());
954  java_lang_reflect_Field::set_name(rh(), name());
955  java_lang_reflect_Field::set_type(rh(), type());
956  // Note the ACC_ANNOTATION bit, which is a per-class access flag, is never set here.
957  java_lang_reflect_Field::set_modifiers(rh(), fd->access_flags().as_int() & JVM_RECOGNIZED_FIELD_MODIFIERS);
958  java_lang_reflect_Field::set_override(rh(), false);
959  if (java_lang_reflect_Field::has_signature_field() &&
960      fd->has_generic_signature()) {
961    Symbol*  gs = fd->generic_signature();
962    Handle sig = java_lang_String::create_from_symbol(gs, CHECK_NULL);
963    java_lang_reflect_Field::set_signature(rh(), sig());
964  }
965  if (java_lang_reflect_Field::has_annotations_field()) {
966    typeArrayOop an_oop = Annotations::make_java_array(fd->annotations(), CHECK_NULL);
967    java_lang_reflect_Field::set_annotations(rh(), an_oop);
968  }
969  if (java_lang_reflect_Field::has_type_annotations_field()) {
970    typeArrayOop an_oop = Annotations::make_java_array(fd->type_annotations(), CHECK_NULL);
971    java_lang_reflect_Field::set_type_annotations(rh(), an_oop);
972  }
973  return rh();
974}
975
976oop Reflection::new_parameter(Handle method, int index, Symbol* sym,
977                              int flags, TRAPS) {
978
979  Handle rh = java_lang_reflect_Parameter::create(CHECK_NULL);
980
981  if(NULL != sym) {
982    Handle name = java_lang_String::create_from_symbol(sym, CHECK_NULL);
983    java_lang_reflect_Parameter::set_name(rh(), name());
984  } else {
985    java_lang_reflect_Parameter::set_name(rh(), NULL);
986  }
987
988  java_lang_reflect_Parameter::set_modifiers(rh(), flags);
989  java_lang_reflect_Parameter::set_executable(rh(), method());
990  java_lang_reflect_Parameter::set_index(rh(), index);
991  return rh();
992}
993
994
995static methodHandle resolve_interface_call(instanceKlassHandle klass,
996                                           const methodHandle& method,
997                                           KlassHandle recv_klass,
998                                           Handle receiver,
999                                           TRAPS) {
1000
1001  assert(!method.is_null() , "method should not be null");
1002
1003  CallInfo info;
1004  Symbol*  signature  = method->signature();
1005  Symbol*  name       = method->name();
1006  LinkResolver::resolve_interface_call(info, receiver, recv_klass,
1007                                       LinkInfo(klass, name, signature),
1008                                       true,
1009                                       CHECK_(methodHandle()));
1010  return info.selected_method();
1011}
1012
1013// Conversion
1014static BasicType basic_type_mirror_to_basic_type(oop basic_type_mirror, TRAPS) {
1015  assert(java_lang_Class::is_primitive(basic_type_mirror),
1016    "just checking");
1017  return java_lang_Class::primitive_type(basic_type_mirror);
1018}
1019
1020// Narrowing of basic types. Used to create correct jvalues for
1021// boolean, byte, char and short return return values from interpreter
1022// which are returned as ints. Throws IllegalArgumentException.
1023static void narrow(jvalue* value, BasicType narrow_type, TRAPS) {
1024  switch (narrow_type) {
1025  case T_BOOLEAN:
1026    value->z = (jboolean) (value->i & 1);
1027    return;
1028  case T_BYTE:
1029    value->b = (jbyte)value->i;
1030    return;
1031  case T_CHAR:
1032    value->c = (jchar)value->i;
1033    return;
1034  case T_SHORT:
1035    value->s = (jshort)value->i;
1036    return;
1037  default:
1038    break; // fail
1039  }
1040  THROW_MSG(vmSymbols::java_lang_IllegalArgumentException(), "argument type mismatch");
1041}
1042
1043
1044// Method call (shared by invoke_method and invoke_constructor)
1045static oop invoke(instanceKlassHandle klass,
1046                  methodHandle reflected_method,
1047                  Handle receiver,
1048                  bool override,
1049                  objArrayHandle ptypes,
1050                  BasicType rtype,
1051                  objArrayHandle args,
1052                  bool is_method_invoke,
1053                  TRAPS) {
1054
1055  ResourceMark rm(THREAD);
1056
1057  methodHandle method;      // actual method to invoke
1058  KlassHandle target_klass; // target klass, receiver's klass for non-static
1059
1060  // Ensure klass is initialized
1061  klass->initialize(CHECK_NULL);
1062
1063  bool is_static = reflected_method->is_static();
1064  if (is_static) {
1065    // ignore receiver argument
1066    method = reflected_method;
1067    target_klass = klass;
1068  } else {
1069    // check for null receiver
1070    if (receiver.is_null()) {
1071      THROW_0(vmSymbols::java_lang_NullPointerException());
1072    }
1073    // Check class of receiver against class declaring method
1074    if (!receiver->is_a(klass())) {
1075      THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "object is not an instance of declaring class");
1076    }
1077    // target klass is receiver's klass
1078    target_klass = KlassHandle(THREAD, receiver->klass());
1079    // no need to resolve if method is private or <init>
1080    if (reflected_method->is_private() || reflected_method->name() == vmSymbols::object_initializer_name()) {
1081      method = reflected_method;
1082    } else {
1083      // resolve based on the receiver
1084      if (reflected_method->method_holder()->is_interface()) {
1085        // resolve interface call
1086        //
1087        // Match resolution errors with those thrown due to reflection inlining
1088        // Linktime resolution & IllegalAccessCheck already done by Class.getMethod()
1089        method = resolve_interface_call(klass, reflected_method, target_klass, receiver, THREAD);
1090        if (HAS_PENDING_EXCEPTION) {
1091          // Method resolution threw an exception; wrap it in an InvocationTargetException
1092          oop resolution_exception = PENDING_EXCEPTION;
1093          CLEAR_PENDING_EXCEPTION;
1094          // JVMTI has already reported the pending exception
1095          // JVMTI internal flag reset is needed in order to report InvocationTargetException
1096          if (THREAD->is_Java_thread()) {
1097            JvmtiExport::clear_detected_exception((JavaThread*)THREAD);
1098          }
1099          JavaCallArguments args(Handle(THREAD, resolution_exception));
1100          THROW_ARG_0(vmSymbols::java_lang_reflect_InvocationTargetException(),
1101                      vmSymbols::throwable_void_signature(),
1102                      &args);
1103        }
1104      }  else {
1105        // if the method can be overridden, we resolve using the vtable index.
1106        assert(!reflected_method->has_itable_index(), "");
1107        int index = reflected_method->vtable_index();
1108        method = reflected_method;
1109        if (index != Method::nonvirtual_vtable_index) {
1110          method = methodHandle(THREAD, target_klass->method_at_vtable(index));
1111        }
1112        if (!method.is_null()) {
1113          // Check for abstract methods as well
1114          if (method->is_abstract()) {
1115            // new default: 6531596
1116            ResourceMark rm(THREAD);
1117            Handle h_origexception = Exceptions::new_exception(THREAD,
1118              vmSymbols::java_lang_AbstractMethodError(),
1119              Method::name_and_sig_as_C_string(target_klass(),
1120              method->name(),
1121              method->signature()));
1122            JavaCallArguments args(h_origexception);
1123            THROW_ARG_0(vmSymbols::java_lang_reflect_InvocationTargetException(),
1124              vmSymbols::throwable_void_signature(),
1125              &args);
1126          }
1127        }
1128      }
1129    }
1130  }
1131
1132  // I believe this is a ShouldNotGetHere case which requires
1133  // an internal vtable bug. If you ever get this please let Karen know.
1134  if (method.is_null()) {
1135    ResourceMark rm(THREAD);
1136    THROW_MSG_0(vmSymbols::java_lang_NoSuchMethodError(),
1137                Method::name_and_sig_as_C_string(klass(),
1138                reflected_method->name(),
1139                reflected_method->signature()));
1140  }
1141
1142  assert(ptypes->is_objArray(), "just checking");
1143  int args_len = args.is_null() ? 0 : args->length();
1144  // Check number of arguments
1145  if (ptypes->length() != args_len) {
1146    THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(),
1147                "wrong number of arguments");
1148  }
1149
1150  // Create object to contain parameters for the JavaCall
1151  JavaCallArguments java_args(method->size_of_parameters());
1152
1153  if (!is_static) {
1154    java_args.push_oop(receiver);
1155  }
1156
1157  for (int i = 0; i < args_len; i++) {
1158    oop type_mirror = ptypes->obj_at(i);
1159    oop arg = args->obj_at(i);
1160    if (java_lang_Class::is_primitive(type_mirror)) {
1161      jvalue value;
1162      BasicType ptype = basic_type_mirror_to_basic_type(type_mirror, CHECK_NULL);
1163      BasicType atype = Reflection::unbox_for_primitive(arg, &value, CHECK_NULL);
1164      if (ptype != atype) {
1165        Reflection::widen(&value, atype, ptype, CHECK_NULL);
1166      }
1167      switch (ptype) {
1168        case T_BOOLEAN:     java_args.push_int(value.z);    break;
1169        case T_CHAR:        java_args.push_int(value.c);    break;
1170        case T_BYTE:        java_args.push_int(value.b);    break;
1171        case T_SHORT:       java_args.push_int(value.s);    break;
1172        case T_INT:         java_args.push_int(value.i);    break;
1173        case T_LONG:        java_args.push_long(value.j);   break;
1174        case T_FLOAT:       java_args.push_float(value.f);  break;
1175        case T_DOUBLE:      java_args.push_double(value.d); break;
1176        default:
1177          THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "argument type mismatch");
1178      }
1179    } else {
1180      if (arg != NULL) {
1181        Klass* k = java_lang_Class::as_Klass(type_mirror);
1182        if (!arg->is_a(k)) {
1183          THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(),
1184                      "argument type mismatch");
1185        }
1186      }
1187      Handle arg_handle(THREAD, arg);         // Create handle for argument
1188      java_args.push_oop(arg_handle); // Push handle
1189    }
1190  }
1191
1192  assert(java_args.size_of_parameters() == method->size_of_parameters(),
1193    "just checking");
1194
1195  // All oops (including receiver) is passed in as Handles. An potential oop is returned as an
1196  // oop (i.e., NOT as an handle)
1197  JavaValue result(rtype);
1198  JavaCalls::call(&result, method, &java_args, THREAD);
1199
1200  if (HAS_PENDING_EXCEPTION) {
1201    // Method threw an exception; wrap it in an InvocationTargetException
1202    oop target_exception = PENDING_EXCEPTION;
1203    CLEAR_PENDING_EXCEPTION;
1204    // JVMTI has already reported the pending exception
1205    // JVMTI internal flag reset is needed in order to report InvocationTargetException
1206    if (THREAD->is_Java_thread()) {
1207      JvmtiExport::clear_detected_exception((JavaThread*)THREAD);
1208    }
1209
1210    JavaCallArguments args(Handle(THREAD, target_exception));
1211    THROW_ARG_0(vmSymbols::java_lang_reflect_InvocationTargetException(),
1212                vmSymbols::throwable_void_signature(),
1213                &args);
1214  } else {
1215    if (rtype == T_BOOLEAN || rtype == T_BYTE || rtype == T_CHAR || rtype == T_SHORT) {
1216      narrow((jvalue*)result.get_value_addr(), rtype, CHECK_NULL);
1217    }
1218    return Reflection::box((jvalue*)result.get_value_addr(), rtype, THREAD);
1219  }
1220}
1221
1222// This would be nicer if, say, java.lang.reflect.Method was a subclass
1223// of java.lang.reflect.Constructor
1224
1225oop Reflection::invoke_method(oop method_mirror, Handle receiver, objArrayHandle args, TRAPS) {
1226  oop mirror             = java_lang_reflect_Method::clazz(method_mirror);
1227  int slot               = java_lang_reflect_Method::slot(method_mirror);
1228  bool override          = java_lang_reflect_Method::override(method_mirror) != 0;
1229  objArrayHandle ptypes(THREAD, objArrayOop(java_lang_reflect_Method::parameter_types(method_mirror)));
1230
1231  oop return_type_mirror = java_lang_reflect_Method::return_type(method_mirror);
1232  BasicType rtype;
1233  if (java_lang_Class::is_primitive(return_type_mirror)) {
1234    rtype = basic_type_mirror_to_basic_type(return_type_mirror, CHECK_NULL);
1235  } else {
1236    rtype = T_OBJECT;
1237  }
1238
1239  instanceKlassHandle klass(THREAD, java_lang_Class::as_Klass(mirror));
1240  Method* m = klass->method_with_idnum(slot);
1241  if (m == NULL) {
1242    THROW_MSG_0(vmSymbols::java_lang_InternalError(), "invoke");
1243  }
1244  methodHandle method(THREAD, m);
1245
1246  return invoke(klass, method, receiver, override, ptypes, rtype, args, true, THREAD);
1247}
1248
1249
1250oop Reflection::invoke_constructor(oop constructor_mirror, objArrayHandle args, TRAPS) {
1251  oop mirror             = java_lang_reflect_Constructor::clazz(constructor_mirror);
1252  int slot               = java_lang_reflect_Constructor::slot(constructor_mirror);
1253  bool override          = java_lang_reflect_Constructor::override(constructor_mirror) != 0;
1254  objArrayHandle ptypes(THREAD, objArrayOop(java_lang_reflect_Constructor::parameter_types(constructor_mirror)));
1255
1256  instanceKlassHandle klass(THREAD, java_lang_Class::as_Klass(mirror));
1257  Method* m = klass->method_with_idnum(slot);
1258  if (m == NULL) {
1259    THROW_MSG_0(vmSymbols::java_lang_InternalError(), "invoke");
1260  }
1261  methodHandle method(THREAD, m);
1262  assert(method->name() == vmSymbols::object_initializer_name(), "invalid constructor");
1263
1264  // Make sure klass gets initialize
1265  klass->initialize(CHECK_NULL);
1266
1267  // Create new instance (the receiver)
1268  klass->check_valid_for_instantiation(false, CHECK_NULL);
1269  Handle receiver = klass->allocate_instance_handle(CHECK_NULL);
1270
1271  // Ignore result from call and return receiver
1272  invoke(klass, method, receiver, override, ptypes, T_VOID, args, false, CHECK_NULL);
1273  return receiver();
1274}
1275