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/typeArrayOop.inline.hpp"
  41 #include "oops/oop.inline.hpp"
  42 #include "prims/jvm.h"
  43 #include "prims/jvmtiExport.hpp"
  44 #include "runtime/arguments.hpp"
  45 #include "runtime/handles.inline.hpp"
  46 #include "runtime/javaCalls.hpp"
  47 #include "runtime/reflection.hpp"
  48 #include "runtime/reflectionUtils.hpp"
  49 #include "runtime/signature.hpp"
  50 #include "runtime/vframe.hpp"
  51 
  52 static void trace_class_resolution(const Klass* to_class) {
  53   ResourceMark rm;
  54   int line_number = -1;
  55   const char * source_file = NULL;
  56   Klass* caller = NULL;
  57   JavaThread* jthread = JavaThread::current();
  58   if (jthread->has_last_Java_frame()) {
  59     vframeStream vfst(jthread);
  60     // skip over any frames belonging to java.lang.Class
  61     while (!vfst.at_end() &&
  62            vfst.method()->method_holder()->name() == vmSymbols::java_lang_Class()) {
  63       vfst.next();
  64     }
  65     if (!vfst.at_end()) {
  66       // this frame is a likely suspect
  67       caller = vfst.method()->method_holder();
  68       line_number = vfst.method()->line_number_from_bci(vfst.bci());
  69       Symbol* s = vfst.method()->method_holder()->source_file_name();
  70       if (s != NULL) {
  71         source_file = s->as_C_string();
  72       }
  73     }
  74   }
  75   if (caller != NULL) {
  76     const char * from = caller->external_name();
  77     const char * to = to_class->external_name();
  78     // print in a single call to reduce interleaving between threads
  79     if (source_file != NULL) {
  80       log_debug(class, resolve)("%s %s %s:%d (reflection)", from, to, source_file, line_number);
  81     } else {
  82       log_debug(class, resolve)("%s %s (reflection)", from, to);
  83     }
  84   }
  85 }
  86 
  87 
  88 oop Reflection::box(jvalue* value, BasicType type, TRAPS) {
  89   if (type == T_VOID) {
  90     return NULL;
  91   }
  92   if (type == T_OBJECT || type == T_ARRAY) {
  93     // regular objects are not boxed
  94     return (oop) value->l;
  95   }
  96   oop result = java_lang_boxing_object::create(type, value, CHECK_NULL);
  97   if (result == NULL) {
  98     THROW_(vmSymbols::java_lang_IllegalArgumentException(), result);
  99   }
 100   return result;
 101 }
 102 
 103 
 104 BasicType Reflection::unbox_for_primitive(oop box, jvalue* value, TRAPS) {
 105   if (box == NULL) {
 106     THROW_(vmSymbols::java_lang_IllegalArgumentException(), T_ILLEGAL);
 107   }
 108   return java_lang_boxing_object::get_value(box, value);
 109 }
 110 
 111 BasicType Reflection::unbox_for_regular_object(oop box, jvalue* value) {
 112   // Note:  box is really the unboxed oop.  It might even be a Short, etc.!
 113   value->l = (jobject) box;
 114   return T_OBJECT;
 115 }
 116 
 117 
 118 void Reflection::widen(jvalue* value, BasicType current_type, BasicType wide_type, TRAPS) {
 119   assert(wide_type != current_type, "widen should not be called with identical types");
 120   switch (wide_type) {
 121     case T_BOOLEAN:
 122     case T_BYTE:
 123     case T_CHAR:
 124       break;  // fail
 125     case T_SHORT:
 126       switch (current_type) {
 127         case T_BYTE:
 128           value->s = (jshort) value->b;
 129           return;
 130       }
 131       break;  // fail
 132     case T_INT:
 133       switch (current_type) {
 134         case T_BYTE:
 135           value->i = (jint) value->b;
 136           return;
 137         case T_CHAR:
 138           value->i = (jint) value->c;
 139           return;
 140         case T_SHORT:
 141           value->i = (jint) value->s;
 142           return;
 143       }
 144       break;  // fail
 145     case T_LONG:
 146       switch (current_type) {
 147         case T_BYTE:
 148           value->j = (jlong) value->b;
 149           return;
 150         case T_CHAR:
 151           value->j = (jlong) value->c;
 152           return;
 153         case T_SHORT:
 154           value->j = (jlong) value->s;
 155           return;
 156         case T_INT:
 157           value->j = (jlong) value->i;
 158           return;
 159       }
 160       break;  // fail
 161     case T_FLOAT:
 162       switch (current_type) {
 163         case T_BYTE:
 164           value->f = (jfloat) value->b;
 165           return;
 166         case T_CHAR:
 167           value->f = (jfloat) value->c;
 168           return;
 169         case T_SHORT:
 170           value->f = (jfloat) value->s;
 171           return;
 172         case T_INT:
 173           value->f = (jfloat) value->i;
 174           return;
 175         case T_LONG:
 176           value->f = (jfloat) value->j;
 177           return;
 178       }
 179       break;  // fail
 180     case T_DOUBLE:
 181       switch (current_type) {
 182         case T_BYTE:
 183           value->d = (jdouble) value->b;
 184           return;
 185         case T_CHAR:
 186           value->d = (jdouble) value->c;
 187           return;
 188         case T_SHORT:
 189           value->d = (jdouble) value->s;
 190           return;
 191         case T_INT:
 192           value->d = (jdouble) value->i;
 193           return;
 194         case T_FLOAT:
 195           value->d = (jdouble) value->f;
 196           return;
 197         case T_LONG:
 198           value->d = (jdouble) value->j;
 199           return;
 200       }
 201       break;  // fail
 202     default:
 203       break;  // fail
 204   }
 205   THROW_MSG(vmSymbols::java_lang_IllegalArgumentException(), "argument type mismatch");
 206 }
 207 
 208 
 209 BasicType Reflection::array_get(jvalue* value, arrayOop a, int index, TRAPS) {
 210   if (!a->is_within_bounds(index)) {
 211     THROW_(vmSymbols::java_lang_ArrayIndexOutOfBoundsException(), T_ILLEGAL);
 212   }
 213   if (a->is_objArray()) {
 214     value->l = (jobject) objArrayOop(a)->obj_at(index);
 215     return T_OBJECT;
 216   } else {
 217     assert(a->is_typeArray(), "just checking");
 218     BasicType type = TypeArrayKlass::cast(a->klass())->element_type();
 219     switch (type) {
 220       case T_BOOLEAN:
 221         value->z = typeArrayOop(a)->bool_at(index);
 222         break;
 223       case T_CHAR:
 224         value->c = typeArrayOop(a)->char_at(index);
 225         break;
 226       case T_FLOAT:
 227         value->f = typeArrayOop(a)->float_at(index);
 228         break;
 229       case T_DOUBLE:
 230         value->d = typeArrayOop(a)->double_at(index);
 231         break;
 232       case T_BYTE:
 233         value->b = typeArrayOop(a)->byte_at(index);
 234         break;
 235       case T_SHORT:
 236         value->s = typeArrayOop(a)->short_at(index);
 237         break;
 238       case T_INT:
 239         value->i = typeArrayOop(a)->int_at(index);
 240         break;
 241       case T_LONG:
 242         value->j = typeArrayOop(a)->long_at(index);
 243         break;
 244       default:
 245         return T_ILLEGAL;
 246     }
 247     return type;
 248   }
 249 }
 250 
 251 
 252 void Reflection::array_set(jvalue* value, arrayOop a, int index, BasicType value_type, TRAPS) {
 253   if (!a->is_within_bounds(index)) {
 254     THROW(vmSymbols::java_lang_ArrayIndexOutOfBoundsException());
 255   }
 256   if (a->is_objArray()) {
 257     if (value_type == T_OBJECT) {
 258       oop obj = (oop) value->l;
 259       if (obj != NULL) {
 260         Klass* element_klass = ObjArrayKlass::cast(a->klass())->element_klass();
 261         if (!obj->is_a(element_klass)) {
 262           THROW_MSG(vmSymbols::java_lang_IllegalArgumentException(), "array element type mismatch");
 263         }
 264       }
 265       objArrayOop(a)->obj_at_put(index, obj);
 266     }
 267   } else {
 268     assert(a->is_typeArray(), "just checking");
 269     BasicType array_type = TypeArrayKlass::cast(a->klass())->element_type();
 270     if (array_type != value_type) {
 271       // The widen operation can potentially throw an exception, but cannot block,
 272       // so typeArrayOop a is safe if the call succeeds.
 273       widen(value, value_type, array_type, CHECK);
 274     }
 275     switch (array_type) {
 276       case T_BOOLEAN:
 277         typeArrayOop(a)->bool_at_put(index, value->z);
 278         break;
 279       case T_CHAR:
 280         typeArrayOop(a)->char_at_put(index, value->c);
 281         break;
 282       case T_FLOAT:
 283         typeArrayOop(a)->float_at_put(index, value->f);
 284         break;
 285       case T_DOUBLE:
 286         typeArrayOop(a)->double_at_put(index, value->d);
 287         break;
 288       case T_BYTE:
 289         typeArrayOop(a)->byte_at_put(index, value->b);
 290         break;
 291       case T_SHORT:
 292         typeArrayOop(a)->short_at_put(index, value->s);
 293         break;
 294       case T_INT:
 295         typeArrayOop(a)->int_at_put(index, value->i);
 296         break;
 297       case T_LONG:
 298         typeArrayOop(a)->long_at_put(index, value->j);
 299         break;
 300       default:
 301         THROW(vmSymbols::java_lang_IllegalArgumentException());
 302     }
 303   }
 304 }
 305 
 306 static Klass* basic_type_mirror_to_arrayklass(oop basic_type_mirror, TRAPS) {
 307   assert(java_lang_Class::is_primitive(basic_type_mirror), "just checking");
 308   BasicType type = java_lang_Class::primitive_type(basic_type_mirror);
 309   if (type == T_VOID) {
 310     THROW_0(vmSymbols::java_lang_IllegalArgumentException());
 311   }
 312   else {
 313     return Universe::typeArrayKlassObj(type);
 314   }
 315 }
 316 
 317 #ifdef ASSERT
 318 static oop basic_type_arrayklass_to_mirror(Klass* basic_type_arrayklass, TRAPS) {
 319   BasicType type = TypeArrayKlass::cast(basic_type_arrayklass)->element_type();
 320   return Universe::java_mirror(type);
 321 }
 322 #endif
 323 
 324 arrayOop Reflection::reflect_new_array(oop element_mirror, jint length, TRAPS) {
 325   if (element_mirror == NULL) {
 326     THROW_0(vmSymbols::java_lang_NullPointerException());
 327   }
 328   if (length < 0) {
 329     THROW_0(vmSymbols::java_lang_NegativeArraySizeException());
 330   }
 331   if (java_lang_Class::is_primitive(element_mirror)) {
 332     Klass* tak = basic_type_mirror_to_arrayklass(element_mirror, CHECK_NULL);
 333     return TypeArrayKlass::cast(tak)->allocate(length, THREAD);
 334   } else {
 335     Klass* k = java_lang_Class::as_Klass(element_mirror);
 336     if (k->is_array_klass() && ArrayKlass::cast(k)->dimension() >= MAX_DIM) {
 337       THROW_0(vmSymbols::java_lang_IllegalArgumentException());
 338     }
 339     return oopFactory::new_objArray(k, length, THREAD);
 340   }
 341 }
 342 
 343 
 344 arrayOop Reflection::reflect_new_multi_array(oop element_mirror, typeArrayOop dim_array, TRAPS) {
 345   assert(dim_array->is_typeArray(), "just checking");
 346   assert(TypeArrayKlass::cast(dim_array->klass())->element_type() == T_INT, "just checking");
 347 
 348   if (element_mirror == NULL) {
 349     THROW_0(vmSymbols::java_lang_NullPointerException());
 350   }
 351 
 352   int len = dim_array->length();
 353   if (len <= 0 || len > MAX_DIM) {
 354     THROW_0(vmSymbols::java_lang_IllegalArgumentException());
 355   }
 356 
 357   jint dimensions[MAX_DIM];   // C array copy of intArrayOop
 358   for (int i = 0; i < len; i++) {
 359     int d = dim_array->int_at(i);
 360     if (d < 0) {
 361       THROW_0(vmSymbols::java_lang_NegativeArraySizeException());
 362     }
 363     dimensions[i] = d;
 364   }
 365 
 366   Klass* klass;
 367   int dim = len;
 368   if (java_lang_Class::is_primitive(element_mirror)) {
 369     klass = basic_type_mirror_to_arrayklass(element_mirror, CHECK_NULL);
 370   } else {
 371     klass = java_lang_Class::as_Klass(element_mirror);
 372     if (klass->is_array_klass()) {
 373       int k_dim = ArrayKlass::cast(klass)->dimension();
 374       if (k_dim + len > MAX_DIM) {
 375         THROW_0(vmSymbols::java_lang_IllegalArgumentException());
 376       }
 377       dim += k_dim;
 378     }
 379   }
 380   klass = klass->array_klass(dim, CHECK_NULL);
 381   oop obj = ArrayKlass::cast(klass)->multi_allocate(len, dimensions, CHECK_NULL);
 382   assert(obj->is_array(), "just checking");
 383   return arrayOop(obj);
 384 }
 385 
 386 
 387 oop Reflection::array_component_type(oop mirror, TRAPS) {
 388   if (java_lang_Class::is_primitive(mirror)) {
 389     return NULL;
 390   }
 391 
 392   Klass* klass = java_lang_Class::as_Klass(mirror);
 393   if (!klass->is_array_klass()) {
 394     return NULL;
 395   }
 396 
 397   oop result = java_lang_Class::component_mirror(mirror);
 398 #ifdef ASSERT
 399   oop result2 = NULL;
 400   if (ArrayKlass::cast(klass)->dimension() == 1) {
 401     if (klass->is_typeArray_klass()) {
 402       result2 = basic_type_arrayklass_to_mirror(klass, CHECK_NULL);
 403     } else {
 404       result2 = ObjArrayKlass::cast(klass)->element_klass()->java_mirror();
 405     }
 406   } else {
 407     Klass* lower_dim = ArrayKlass::cast(klass)->lower_dimension();
 408     assert(lower_dim->is_array_klass(), "just checking");
 409     result2 = lower_dim->java_mirror();
 410   }
 411   assert(result == result2, "results must be consistent");
 412 #endif //ASSERT
 413   return result;
 414 }
 415 
 416 static bool under_host_klass(const InstanceKlass* ik, const InstanceKlass* host_klass) {
 417   DEBUG_ONLY(int inf_loop_check = 1000 * 1000 * 1000);
 418   for (;;) {
 419     const InstanceKlass* hc = ik->host_klass();
 420     if (hc == NULL)        return false;
 421     if (hc == host_klass)  return true;
 422     ik = hc;
 423 
 424     // There's no way to make a host class loop short of patching memory.
 425     // Therefore there cannot be a loop here unless there's another bug.
 426     // Still, let's check for it.
 427     assert(--inf_loop_check > 0, "no host_klass loop");
 428   }
 429 }
 430 
 431 static bool can_relax_access_check_for(const Klass* accessor,
 432                                        const Klass* accessee,
 433                                        bool classloader_only) {
 434 
 435   const InstanceKlass* accessor_ik = InstanceKlass::cast(accessor);
 436   const InstanceKlass* accessee_ik = InstanceKlass::cast(accessee);
 437 
 438   // If either is on the other's host_klass chain, access is OK,
 439   // because one is inside the other.
 440   if (under_host_klass(accessor_ik, accessee_ik) ||
 441     under_host_klass(accessee_ik, accessor_ik))
 442     return true;
 443 
 444   if ((RelaxAccessControlCheck &&
 445     accessor_ik->major_version() < Verifier::NO_RELAX_ACCESS_CTRL_CHECK_VERSION &&
 446     accessee_ik->major_version() < Verifier::NO_RELAX_ACCESS_CTRL_CHECK_VERSION) ||
 447     (accessor_ik->major_version() < Verifier::STRICTER_ACCESS_CTRL_CHECK_VERSION &&
 448     accessee_ik->major_version() < Verifier::STRICTER_ACCESS_CTRL_CHECK_VERSION)) {
 449     return classloader_only &&
 450       Verifier::relax_access_for(accessor_ik->class_loader()) &&
 451       accessor_ik->protection_domain() == accessee_ik->protection_domain() &&
 452       accessor_ik->class_loader() == accessee_ik->class_loader();
 453   }
 454 
 455   return false;
 456 }
 457 
 458 /*
 459     Type Accessibility check for public types: Callee Type T is accessible to Caller Type S if:
 460 
 461                         Callee T in             Callee T in package PT,
 462                         unnamed module          runtime module MT
 463  ------------------------------------------------------------------------------------------------
 464 
 465  Caller S in package     If MS is loose: YES      If same classloader/package (PS == PT): YES
 466  PS, runtime module MS   If MS can read T's       If same runtime module: (MS == MT): YES
 467                          unnamed module: YES
 468                                                   Else if (MS can read MT (establish readability) &&
 469                                                     ((MT exports PT to MS or to all modules) ||
 470                                                      (MT is open))): YES
 471 
 472  ------------------------------------------------------------------------------------------------
 473  Caller S in unnamed         YES                  Readability exists because unnamed module
 474  module UM                                            "reads" all modules
 475                                                   if (MT exports PT to UM or to all modules): YES
 476 
 477  ------------------------------------------------------------------------------------------------
 478 
 479  Note: a loose module is a module that can read all current and future unnamed modules.
 480 */
 481 Reflection::VerifyClassAccessResults Reflection::verify_class_access(
 482   const Klass* current_class, const InstanceKlass* new_class, bool classloader_only) {
 483 
 484   // Verify that current_class can access new_class.  If the classloader_only
 485   // flag is set, we automatically allow any accesses in which current_class
 486   // doesn't have a classloader.
 487   if ((current_class == NULL) ||
 488       (current_class == new_class) ||
 489       is_same_class_package(current_class, new_class)) {
 490     return ACCESS_OK;
 491   }
 492   // Allow all accesses from jdk/internal/reflect/MagicAccessorImpl subclasses to
 493   // succeed trivially.
 494   if (current_class->is_subclass_of(SystemDictionary::reflect_MagicAccessorImpl_klass())) {
 495     return ACCESS_OK;
 496   }
 497 
 498   // module boundaries
 499   if (new_class->is_public()) {
 500     // Ignore modules for DumpSharedSpaces because we do not have any package
 501     // or module information for modules other than java.base.
 502     if (DumpSharedSpaces) {
 503       return ACCESS_OK;
 504     }
 505 
 506     // Find the module entry for current_class, the accessor
 507     ModuleEntry* module_from = current_class->module();
 508     // Find the module entry for new_class, the accessee
 509     ModuleEntry* module_to = new_class->module();
 510 
 511     // both in same (possibly unnamed) module
 512     if (module_from == module_to) {
 513       return ACCESS_OK;
 514     }
 515 
 516     // Acceptable access to a type in an unnamed module. Note that since
 517     // unnamed modules can read all unnamed modules, this also handles the
 518     // case where module_from is also unnamed but in a different class loader.
 519     if (!module_to->is_named() &&
 520         (module_from->can_read_all_unnamed() || module_from->can_read(module_to))) {
 521       return ACCESS_OK;
 522     }
 523 
 524     // Establish readability, check if module_from is allowed to read module_to.
 525     if (!module_from->can_read(module_to)) {
 526       return MODULE_NOT_READABLE;
 527     }
 528 
 529     // Access is allowed if module_to is open, i.e. all its packages are unqualifiedly exported
 530     if (module_to->is_open()) {
 531       return ACCESS_OK;
 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.
 569 char* Reflection::verify_class_access_msg(const Klass* current_class,
 570                                           const InstanceKlass* 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 
 642 bool 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 
 709 bool 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.
 718 void Reflection::check_for_inner_class(const InstanceKlass* outer, const InstanceKlass* 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
 756 static 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 
 782 static 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 
 808 static objArrayHandle get_exception_types(methodHandle method, TRAPS) {
 809   return method->resolved_checked_exceptions(THREAD);
 810 }
 811 
 812 static Handle new_type(Symbol* signature, Klass* 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 
 834 oop 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   InstanceKlass* holder = 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 
 897 oop Reflection::new_constructor(const methodHandle& method, TRAPS) {
 898   assert(method()->is_initializer(), "should call new_method instead");
 899 
 900   InstanceKlass* holder = 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 
 943 oop 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   InstanceKlass* holder = 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 
 976 oop 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 
 995 static methodHandle resolve_interface_call(InstanceKlass* klass,
 996                                            const methodHandle& method,
 997                                            Klass* 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
1014 static 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.
1023 static 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)
1045 static oop invoke(InstanceKlass* 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   Klass* 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 = 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 
1225 oop 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   InstanceKlass* klass = InstanceKlass::cast(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 
1250 oop 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   InstanceKlass* klass = InstanceKlass::cast(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 }