1 /*
   2  * Copyright (c) 1997, 2016, 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 
  51 static 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 
  87 oop 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 
 103 BasicType 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 
 110 BasicType 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 
 117 void 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 
 208 BasicType 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 
 251 void 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 
 305 static 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
 317 static 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 
 323 arrayOop 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 
 343 arrayOop 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 
 386 oop 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 
 415 static bool under_host_klass(const InstanceKlass* ik, const Klass* host_klass) {
 416   DEBUG_ONLY(int inf_loop_check = 1000 * 1000 * 1000);
 417   for (;;) {
 418     const Klass* hc = (const Klass*)ik->host_klass();
 419     if (hc == NULL)        return false;
 420     if (hc == host_klass)  return true;
 421     ik = InstanceKlass::cast(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 
 430 static 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) ||
 440     under_host_klass(accessee_ik, accessor))
 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_verify_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 */
 479 Reflection::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     // Once readability is established, if module_to exports T unqualifiedly,
 538     // (to all modules), than whether module_from is in the unnamed module
 539     // or not does not matter, access is allowed.
 540     if (package_to->is_unqual_exported()) {
 541       return ACCESS_OK;
 542     }
 543 
 544     // Access is allowed if both 1 & 2 hold:
 545     //   1. Readability, module_from can read module_to (established above).
 546     //   2. Either module_to exports T to module_from qualifiedly.
 547     //      or
 548     //      module_to exports T to all unnamed modules and module_from is unnamed.
 549     //      or
 550     //      module_to exports T unqualifiedly to all modules (checked above).
 551     if (!package_to->is_qexported_to(module_from)) {
 552       return TYPE_NOT_EXPORTED;
 553     }
 554     return ACCESS_OK;
 555   }
 556 
 557   if (can_relax_access_check_for(current_class, new_class, classloader_only)) {
 558     return ACCESS_OK;
 559   }
 560   return OTHER_PROBLEM;
 561 }
 562 
 563 // Return an error message specific to the specified Klass*'s and result.
 564 // This function must be called from within a block containing a ResourceMark.
 565 char* Reflection::verify_class_access_msg(const Klass* current_class,
 566                                           const Klass* new_class,
 567                                           VerifyClassAccessResults result) {
 568   assert(result != ACCESS_OK, "must be failure result");
 569   char * msg = NULL;
 570   if (result != OTHER_PROBLEM && new_class != NULL && current_class != NULL) {
 571     // Find the module entry for current_class, the accessor
 572     ModuleEntry* module_from = current_class->module();
 573     const char * module_from_name = module_from->is_named() ? module_from->name()->as_C_string() : UNNAMED_MODULE;
 574     const char * current_class_name = current_class->external_name();
 575 
 576     // Find the module entry for new_class, the accessee
 577     ModuleEntry* module_to = NULL;
 578     module_to = new_class->module();
 579     const char * module_to_name = module_to->is_named() ? module_to->name()->as_C_string() : UNNAMED_MODULE;
 580     const char * new_class_name = new_class->external_name();
 581 
 582     if (result == MODULE_NOT_READABLE) {
 583       assert(module_from->is_named(), "Unnamed modules can read all modules");
 584       if (module_to->is_named()) {
 585         size_t len = 100 + strlen(current_class_name) + 2*strlen(module_from_name) +
 586           strlen(new_class_name) + 2*strlen(module_to_name);
 587         msg = NEW_RESOURCE_ARRAY(char, len);
 588         jio_snprintf(msg, len - 1,
 589           "class %s (in module %s) cannot access class %s (in module %s) because module %s does not read module %s",
 590           current_class_name, module_from_name, new_class_name,
 591           module_to_name, module_from_name, module_to_name);
 592       } else {
 593         jobject jlrm = module_to->module();
 594         assert(jlrm != NULL, "Null jlrm in module_to ModuleEntry");
 595         intptr_t identity_hash = JNIHandles::resolve(jlrm)->identity_hash();
 596         size_t len = 160 + strlen(current_class_name) + 2*strlen(module_from_name) +
 597           strlen(new_class_name) + 2*sizeof(uintx);
 598         msg = NEW_RESOURCE_ARRAY(char, len);
 599         jio_snprintf(msg, len - 1,
 600           "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,
 601           current_class_name, module_from_name, new_class_name, uintx(identity_hash),
 602           module_from_name, uintx(identity_hash));
 603       }
 604 
 605     } else if (result == TYPE_NOT_EXPORTED) {
 606       assert(new_class->package() != NULL,
 607              "Unnamed packages are always exported");
 608       const char * package_name =
 609         new_class->package()->name()->as_klass_external_name();
 610       assert(module_to->is_named(), "Unnamed modules export all packages");
 611       if (module_from->is_named()) {
 612         size_t len = 118 + strlen(current_class_name) + 2*strlen(module_from_name) +
 613           strlen(new_class_name) + 2*strlen(module_to_name) + strlen(package_name);
 614         msg = NEW_RESOURCE_ARRAY(char, len);
 615         jio_snprintf(msg, len - 1,
 616           "class %s (in module %s) cannot access class %s (in module %s) because module %s does not export %s to module %s",
 617           current_class_name, module_from_name, new_class_name,
 618           module_to_name, module_to_name, package_name, module_from_name);
 619       } else {
 620         jobject jlrm = module_from->module();
 621         assert(jlrm != NULL, "Null jlrm in module_from ModuleEntry");
 622         intptr_t identity_hash = JNIHandles::resolve(jlrm)->identity_hash();
 623         size_t len = 170 + strlen(current_class_name) + strlen(new_class_name) +
 624           2*strlen(module_to_name) + strlen(package_name) + 2*sizeof(uintx);
 625         msg = NEW_RESOURCE_ARRAY(char, len);
 626         jio_snprintf(msg, len - 1,
 627           "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,
 628           current_class_name, uintx(identity_hash), new_class_name, module_to_name,
 629           module_to_name, package_name, uintx(identity_hash));
 630       }
 631     } else {
 632         ShouldNotReachHere();
 633     }
 634   }  // result != OTHER_PROBLEM...
 635   return msg;
 636 }
 637 
 638 bool Reflection::verify_field_access(const Klass* current_class,
 639                                      const Klass* resolved_class,
 640                                      const Klass* field_class,
 641                                      AccessFlags access,
 642                                      bool classloader_only,
 643                                      bool protected_restriction) {
 644   // Verify that current_class can access a field of field_class, where that
 645   // field's access bits are "access".  We assume that we've already verified
 646   // that current_class can access field_class.
 647   //
 648   // If the classloader_only flag is set, we automatically allow any accesses
 649   // in which current_class doesn't have a classloader.
 650   //
 651   // "resolved_class" is the runtime type of "field_class". Sometimes we don't
 652   // need this distinction (e.g. if all we have is the runtime type, or during
 653   // class file parsing when we only care about the static type); in that case
 654   // callers should ensure that resolved_class == field_class.
 655   //
 656   if ((current_class == NULL) ||
 657       (current_class == field_class) ||
 658       access.is_public()) {
 659     return true;
 660   }
 661 
 662   const Klass* host_class = current_class;
 663   while (host_class->is_instance_klass() &&
 664          InstanceKlass::cast(host_class)->is_anonymous()) {
 665     const Klass* next_host_class = InstanceKlass::cast(host_class)->host_klass();
 666     if (next_host_class == NULL)  break;
 667     host_class = next_host_class;
 668   }
 669   if (host_class == field_class) {
 670     return true;
 671   }
 672 
 673   if (access.is_protected()) {
 674     if (!protected_restriction) {
 675       // See if current_class (or outermost host class) is a subclass of field_class
 676       // An interface may not access protected members of j.l.Object
 677       if (!host_class->is_interface() && host_class->is_subclass_of(field_class)) {
 678         if (access.is_static() || // static fields are ok, see 6622385
 679             current_class == resolved_class ||
 680             field_class == resolved_class ||
 681             host_class->is_subclass_of(resolved_class) ||
 682             resolved_class->is_subclass_of(host_class)) {
 683           return true;
 684         }
 685       }
 686     }
 687   }
 688 
 689   if (!access.is_private() && is_same_class_package(current_class, field_class)) {
 690     return true;
 691   }
 692 
 693   // Allow all accesses from jdk/internal/reflect/MagicAccessorImpl subclasses to
 694   // succeed trivially.
 695   if (current_class->is_subclass_of(SystemDictionary::reflect_MagicAccessorImpl_klass())) {
 696     return true;
 697   }
 698 
 699   return can_relax_access_check_for(
 700     current_class, field_class, classloader_only);
 701 }
 702 
 703 bool Reflection::is_same_class_package(const Klass* class1, const Klass* class2) {
 704   return InstanceKlass::cast(class1)->is_same_class_package(class2);
 705 }
 706 
 707 // Checks that the 'outer' klass has declared 'inner' as being an inner klass. If not,
 708 // throw an incompatible class change exception
 709 // If inner_is_member, require the inner to be a member of the outer.
 710 // If !inner_is_member, require the inner to be anonymous (a non-member).
 711 // Caller is responsible for figuring out in advance which case must be true.
 712 void Reflection::check_for_inner_class(instanceKlassHandle outer, instanceKlassHandle inner,
 713                                        bool inner_is_member, TRAPS) {
 714   InnerClassesIterator iter(outer);
 715   constantPoolHandle cp   (THREAD, outer->constants());
 716   for (; !iter.done(); iter.next()) {
 717      int ioff = iter.inner_class_info_index();
 718      int ooff = iter.outer_class_info_index();
 719 
 720      if (inner_is_member && ioff != 0 && ooff != 0) {
 721         Klass* o = cp->klass_at(ooff, CHECK);
 722         if (o == outer()) {
 723           Klass* i = cp->klass_at(ioff, CHECK);
 724           if (i == inner()) {
 725             return;
 726           }
 727         }
 728      }
 729      if (!inner_is_member && ioff != 0 && ooff == 0 &&
 730          cp->klass_name_at_matches(inner, ioff)) {
 731         Klass* i = cp->klass_at(ioff, CHECK);
 732         if (i == inner()) {
 733           return;
 734         }
 735      }
 736   }
 737 
 738   // 'inner' not declared as an inner klass in outer
 739   ResourceMark rm(THREAD);
 740   Exceptions::fthrow(
 741     THREAD_AND_LOCATION,
 742     vmSymbols::java_lang_IncompatibleClassChangeError(),
 743     "%s and %s disagree on InnerClasses attribute",
 744     outer->external_name(),
 745     inner->external_name()
 746   );
 747 }
 748 
 749 // Utility method converting a single SignatureStream element into java.lang.Class instance
 750 static oop get_mirror_from_signature(methodHandle method,
 751                                      SignatureStream* ss,
 752                                      TRAPS) {
 753 
 754 
 755   if (T_OBJECT == ss->type() || T_ARRAY == ss->type()) {
 756     Symbol* name = ss->as_symbol(CHECK_NULL);
 757     oop loader = method->method_holder()->class_loader();
 758     oop protection_domain = method->method_holder()->protection_domain();
 759     const Klass* k = SystemDictionary::resolve_or_fail(name,
 760                                                        Handle(THREAD, loader),
 761                                                        Handle(THREAD, protection_domain),
 762                                                        true,
 763                                                        CHECK_NULL);
 764     if (log_is_enabled(Debug, class, resolve)) {
 765       trace_class_resolution(k);
 766     }
 767     return k->java_mirror();
 768   }
 769 
 770   assert(ss->type() != T_VOID || ss->at_return_type(),
 771     "T_VOID should only appear as return type");
 772 
 773   return java_lang_Class::primitive_mirror(ss->type());
 774 }
 775 
 776 static objArrayHandle get_parameter_types(methodHandle method,
 777                                           int parameter_count,
 778                                           oop* return_type,
 779                                           TRAPS) {
 780   // Allocate array holding parameter types (java.lang.Class instances)
 781   objArrayOop m = oopFactory::new_objArray(SystemDictionary::Class_klass(), parameter_count, CHECK_(objArrayHandle()));
 782   objArrayHandle mirrors(THREAD, m);
 783   int index = 0;
 784   // Collect parameter types
 785   ResourceMark rm(THREAD);
 786   Symbol*  signature = method->signature();
 787   SignatureStream ss(signature);
 788   while (!ss.at_return_type()) {
 789     oop mirror = get_mirror_from_signature(method, &ss, CHECK_(objArrayHandle()));
 790     mirrors->obj_at_put(index++, mirror);
 791     ss.next();
 792   }
 793   assert(index == parameter_count, "invalid parameter count");
 794   if (return_type != NULL) {
 795     // Collect return type as well
 796     assert(ss.at_return_type(), "return type should be present");
 797     *return_type = get_mirror_from_signature(method, &ss, CHECK_(objArrayHandle()));
 798   }
 799   return mirrors;
 800 }
 801 
 802 static objArrayHandle get_exception_types(methodHandle method, TRAPS) {
 803   return method->resolved_checked_exceptions(THREAD);
 804 }
 805 
 806 static Handle new_type(Symbol* signature, KlassHandle k, TRAPS) {
 807   // Basic types
 808   BasicType type = vmSymbols::signature_type(signature);
 809   if (type != T_OBJECT) {
 810     return Handle(THREAD, Universe::java_mirror(type));
 811   }
 812 
 813   Klass* result =
 814     SystemDictionary::resolve_or_fail(signature,
 815                                       Handle(THREAD, k->class_loader()),
 816                                       Handle(THREAD, k->protection_domain()),
 817                                       true, CHECK_(Handle()));
 818 
 819   if (log_is_enabled(Debug, class, resolve)) {
 820     trace_class_resolution(result);
 821   }
 822 
 823   oop nt = result->java_mirror();
 824   return Handle(THREAD, nt);
 825 }
 826 
 827 
 828 oop Reflection::new_method(const methodHandle& method, bool for_constant_pool_access, TRAPS) {
 829   // Allow sun.reflect.ConstantPool to refer to <clinit> methods as java.lang.reflect.Methods.
 830   assert(!method()->is_initializer() ||
 831          (for_constant_pool_access && method()->is_static()),
 832          "should call new_constructor instead");
 833   instanceKlassHandle holder (THREAD, method->method_holder());
 834   int slot = method->method_idnum();
 835 
 836   Symbol*  signature  = method->signature();
 837   int parameter_count = ArgumentCount(signature).size();
 838   oop return_type_oop = NULL;
 839   objArrayHandle parameter_types = get_parameter_types(method, parameter_count, &return_type_oop, CHECK_NULL);
 840   if (parameter_types.is_null() || return_type_oop == NULL) return NULL;
 841 
 842   Handle return_type(THREAD, return_type_oop);
 843 
 844   objArrayHandle exception_types = get_exception_types(method, CHECK_NULL);
 845 
 846   if (exception_types.is_null()) return NULL;
 847 
 848   Symbol*  method_name = method->name();
 849   oop name_oop = StringTable::intern(method_name, CHECK_NULL);
 850   Handle name = Handle(THREAD, name_oop);
 851   if (name == NULL) return NULL;
 852 
 853   const int modifiers = method->access_flags().as_int() & JVM_RECOGNIZED_METHOD_MODIFIERS;
 854 
 855   Handle mh = java_lang_reflect_Method::create(CHECK_NULL);
 856 
 857   java_lang_reflect_Method::set_clazz(mh(), holder->java_mirror());
 858   java_lang_reflect_Method::set_slot(mh(), slot);
 859   java_lang_reflect_Method::set_name(mh(), name());
 860   java_lang_reflect_Method::set_return_type(mh(), return_type());
 861   java_lang_reflect_Method::set_parameter_types(mh(), parameter_types());
 862   java_lang_reflect_Method::set_exception_types(mh(), exception_types());
 863   java_lang_reflect_Method::set_modifiers(mh(), modifiers);
 864   java_lang_reflect_Method::set_override(mh(), false);
 865   if (java_lang_reflect_Method::has_signature_field() &&
 866       method->generic_signature() != NULL) {
 867     Symbol*  gs = method->generic_signature();
 868     Handle sig = java_lang_String::create_from_symbol(gs, CHECK_NULL);
 869     java_lang_reflect_Method::set_signature(mh(), sig());
 870   }
 871   if (java_lang_reflect_Method::has_annotations_field()) {
 872     typeArrayOop an_oop = Annotations::make_java_array(method->annotations(), CHECK_NULL);
 873     java_lang_reflect_Method::set_annotations(mh(), an_oop);
 874   }
 875   if (java_lang_reflect_Method::has_parameter_annotations_field()) {
 876     typeArrayOop an_oop = Annotations::make_java_array(method->parameter_annotations(), CHECK_NULL);
 877     java_lang_reflect_Method::set_parameter_annotations(mh(), an_oop);
 878   }
 879   if (java_lang_reflect_Method::has_annotation_default_field()) {
 880     typeArrayOop an_oop = Annotations::make_java_array(method->annotation_default(), CHECK_NULL);
 881     java_lang_reflect_Method::set_annotation_default(mh(), an_oop);
 882   }
 883   if (java_lang_reflect_Method::has_type_annotations_field()) {
 884     typeArrayOop an_oop = Annotations::make_java_array(method->type_annotations(), CHECK_NULL);
 885     java_lang_reflect_Method::set_type_annotations(mh(), an_oop);
 886   }
 887   return mh();
 888 }
 889 
 890 
 891 oop Reflection::new_constructor(const methodHandle& method, TRAPS) {
 892   assert(method()->is_initializer(), "should call new_method instead");
 893 
 894   instanceKlassHandle  holder (THREAD, method->method_holder());
 895   int slot = method->method_idnum();
 896 
 897   Symbol*  signature  = method->signature();
 898   int parameter_count = ArgumentCount(signature).size();
 899   objArrayHandle parameter_types = get_parameter_types(method, parameter_count, NULL, CHECK_NULL);
 900   if (parameter_types.is_null()) return NULL;
 901 
 902   objArrayHandle exception_types = get_exception_types(method, CHECK_NULL);
 903   if (exception_types.is_null()) return NULL;
 904 
 905   const int modifiers = method->access_flags().as_int() & JVM_RECOGNIZED_METHOD_MODIFIERS;
 906 
 907   Handle ch = java_lang_reflect_Constructor::create(CHECK_NULL);
 908 
 909   java_lang_reflect_Constructor::set_clazz(ch(), holder->java_mirror());
 910   java_lang_reflect_Constructor::set_slot(ch(), slot);
 911   java_lang_reflect_Constructor::set_parameter_types(ch(), parameter_types());
 912   java_lang_reflect_Constructor::set_exception_types(ch(), exception_types());
 913   java_lang_reflect_Constructor::set_modifiers(ch(), modifiers);
 914   java_lang_reflect_Constructor::set_override(ch(), false);
 915   if (java_lang_reflect_Constructor::has_signature_field() &&
 916       method->generic_signature() != NULL) {
 917     Symbol*  gs = method->generic_signature();
 918     Handle sig = java_lang_String::create_from_symbol(gs, CHECK_NULL);
 919     java_lang_reflect_Constructor::set_signature(ch(), sig());
 920   }
 921   if (java_lang_reflect_Constructor::has_annotations_field()) {
 922     typeArrayOop an_oop = Annotations::make_java_array(method->annotations(), CHECK_NULL);
 923     java_lang_reflect_Constructor::set_annotations(ch(), an_oop);
 924   }
 925   if (java_lang_reflect_Constructor::has_parameter_annotations_field()) {
 926     typeArrayOop an_oop = Annotations::make_java_array(method->parameter_annotations(), CHECK_NULL);
 927     java_lang_reflect_Constructor::set_parameter_annotations(ch(), an_oop);
 928   }
 929   if (java_lang_reflect_Constructor::has_type_annotations_field()) {
 930     typeArrayOop an_oop = Annotations::make_java_array(method->type_annotations(), CHECK_NULL);
 931     java_lang_reflect_Constructor::set_type_annotations(ch(), an_oop);
 932   }
 933   return ch();
 934 }
 935 
 936 
 937 oop Reflection::new_field(fieldDescriptor* fd, TRAPS) {
 938   Symbol*  field_name = fd->name();
 939   oop name_oop = StringTable::intern(field_name, CHECK_NULL);
 940   Handle name = Handle(THREAD, name_oop);
 941   Symbol*  signature  = fd->signature();
 942   instanceKlassHandle  holder    (THREAD, fd->field_holder());
 943   Handle type = new_type(signature, holder, CHECK_NULL);
 944   Handle rh  = java_lang_reflect_Field::create(CHECK_NULL);
 945 
 946   java_lang_reflect_Field::set_clazz(rh(), fd->field_holder()->java_mirror());
 947   java_lang_reflect_Field::set_slot(rh(), fd->index());
 948   java_lang_reflect_Field::set_name(rh(), name());
 949   java_lang_reflect_Field::set_type(rh(), type());
 950   // Note the ACC_ANNOTATION bit, which is a per-class access flag, is never set here.
 951   java_lang_reflect_Field::set_modifiers(rh(), fd->access_flags().as_int() & JVM_RECOGNIZED_FIELD_MODIFIERS);
 952   java_lang_reflect_Field::set_override(rh(), false);
 953   if (java_lang_reflect_Field::has_signature_field() &&
 954       fd->has_generic_signature()) {
 955     Symbol*  gs = fd->generic_signature();
 956     Handle sig = java_lang_String::create_from_symbol(gs, CHECK_NULL);
 957     java_lang_reflect_Field::set_signature(rh(), sig());
 958   }
 959   if (java_lang_reflect_Field::has_annotations_field()) {
 960     typeArrayOop an_oop = Annotations::make_java_array(fd->annotations(), CHECK_NULL);
 961     java_lang_reflect_Field::set_annotations(rh(), an_oop);
 962   }
 963   if (java_lang_reflect_Field::has_type_annotations_field()) {
 964     typeArrayOop an_oop = Annotations::make_java_array(fd->type_annotations(), CHECK_NULL);
 965     java_lang_reflect_Field::set_type_annotations(rh(), an_oop);
 966   }
 967   return rh();
 968 }
 969 
 970 oop Reflection::new_parameter(Handle method, int index, Symbol* sym,
 971                               int flags, TRAPS) {
 972 
 973   Handle rh = java_lang_reflect_Parameter::create(CHECK_NULL);
 974 
 975   if(NULL != sym) {
 976     Handle name = java_lang_String::create_from_symbol(sym, CHECK_NULL);
 977     java_lang_reflect_Parameter::set_name(rh(), name());
 978   } else {
 979     java_lang_reflect_Parameter::set_name(rh(), NULL);
 980   }
 981 
 982   java_lang_reflect_Parameter::set_modifiers(rh(), flags);
 983   java_lang_reflect_Parameter::set_executable(rh(), method());
 984   java_lang_reflect_Parameter::set_index(rh(), index);
 985   return rh();
 986 }
 987 
 988 
 989 static methodHandle resolve_interface_call(instanceKlassHandle klass,
 990                                            const methodHandle& method,
 991                                            KlassHandle recv_klass,
 992                                            Handle receiver,
 993                                            TRAPS) {
 994 
 995   assert(!method.is_null() , "method should not be null");
 996 
 997   CallInfo info;
 998   Symbol*  signature  = method->signature();
 999   Symbol*  name       = method->name();
1000   LinkResolver::resolve_interface_call(info, receiver, recv_klass,
1001                                        LinkInfo(klass, name, signature, KlassHandle(), false),
1002                                        true,
1003                                        CHECK_(methodHandle()));
1004   return info.selected_method();
1005 }
1006 
1007 // Conversion
1008 static BasicType basic_type_mirror_to_basic_type(oop basic_type_mirror, TRAPS) {
1009   assert(java_lang_Class::is_primitive(basic_type_mirror),
1010     "just checking");
1011   return java_lang_Class::primitive_type(basic_type_mirror);
1012 }
1013 
1014 // Narrowing of basic types. Used to create correct jvalues for
1015 // boolean, byte, char and short return return values from interpreter
1016 // which are returned as ints. Throws IllegalArgumentException.
1017 static void narrow(jvalue* value, BasicType narrow_type, TRAPS) {
1018   switch (narrow_type) {
1019   case T_BOOLEAN:
1020     value->z = (jboolean) (value->i & 1);
1021     return;
1022   case T_BYTE:
1023     value->b = (jbyte)value->i;
1024     return;
1025   case T_CHAR:
1026     value->c = (jchar)value->i;
1027     return;
1028   case T_SHORT:
1029     value->s = (jshort)value->i;
1030     return;
1031   default:
1032     break; // fail
1033   }
1034   THROW_MSG(vmSymbols::java_lang_IllegalArgumentException(), "argument type mismatch");
1035 }
1036 
1037 
1038 // Method call (shared by invoke_method and invoke_constructor)
1039 static oop invoke(instanceKlassHandle klass,
1040                   methodHandle reflected_method,
1041                   Handle receiver,
1042                   bool override,
1043                   objArrayHandle ptypes,
1044                   BasicType rtype,
1045                   objArrayHandle args,
1046                   bool is_method_invoke,
1047                   TRAPS) {
1048 
1049   ResourceMark rm(THREAD);
1050 
1051   methodHandle method;      // actual method to invoke
1052   KlassHandle target_klass; // target klass, receiver's klass for non-static
1053 
1054   // Ensure klass is initialized
1055   klass->initialize(CHECK_NULL);
1056 
1057   bool is_static = reflected_method->is_static();
1058   if (is_static) {
1059     // ignore receiver argument
1060     method = reflected_method;
1061     target_klass = klass;
1062   } else {
1063     // check for null receiver
1064     if (receiver.is_null()) {
1065       THROW_0(vmSymbols::java_lang_NullPointerException());
1066     }
1067     // Check class of receiver against class declaring method
1068     if (!receiver->is_a(klass())) {
1069       THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "object is not an instance of declaring class");
1070     }
1071     // target klass is receiver's klass
1072     target_klass = KlassHandle(THREAD, receiver->klass());
1073     // no need to resolve if method is private or <init>
1074     if (reflected_method->is_private() || reflected_method->name() == vmSymbols::object_initializer_name()) {
1075       method = reflected_method;
1076     } else {
1077       // resolve based on the receiver
1078       if (reflected_method->method_holder()->is_interface()) {
1079         // resolve interface call
1080         //
1081         // Match resolution errors with those thrown due to reflection inlining
1082         // Linktime resolution & IllegalAccessCheck already done by Class.getMethod()
1083         method = resolve_interface_call(klass, reflected_method, target_klass, receiver, THREAD);
1084         if (HAS_PENDING_EXCEPTION) {
1085           // Method resolution threw an exception; wrap it in an InvocationTargetException
1086           oop resolution_exception = PENDING_EXCEPTION;
1087           CLEAR_PENDING_EXCEPTION;
1088           // JVMTI has already reported the pending exception
1089           // JVMTI internal flag reset is needed in order to report InvocationTargetException
1090           if (THREAD->is_Java_thread()) {
1091             JvmtiExport::clear_detected_exception((JavaThread*)THREAD);
1092           }
1093           JavaCallArguments args(Handle(THREAD, resolution_exception));
1094           THROW_ARG_0(vmSymbols::java_lang_reflect_InvocationTargetException(),
1095                       vmSymbols::throwable_void_signature(),
1096                       &args);
1097         }
1098       }  else {
1099         // if the method can be overridden, we resolve using the vtable index.
1100         assert(!reflected_method->has_itable_index(), "");
1101         int index = reflected_method->vtable_index();
1102         method = reflected_method;
1103         if (index != Method::nonvirtual_vtable_index) {
1104           method = methodHandle(THREAD, target_klass->method_at_vtable(index));
1105         }
1106         if (!method.is_null()) {
1107           // Check for abstract methods as well
1108           if (method->is_abstract()) {
1109             // new default: 6531596
1110             ResourceMark rm(THREAD);
1111             Handle h_origexception = Exceptions::new_exception(THREAD,
1112               vmSymbols::java_lang_AbstractMethodError(),
1113               Method::name_and_sig_as_C_string(target_klass(),
1114               method->name(),
1115               method->signature()));
1116             JavaCallArguments args(h_origexception);
1117             THROW_ARG_0(vmSymbols::java_lang_reflect_InvocationTargetException(),
1118               vmSymbols::throwable_void_signature(),
1119               &args);
1120           }
1121         }
1122       }
1123     }
1124   }
1125 
1126   // I believe this is a ShouldNotGetHere case which requires
1127   // an internal vtable bug. If you ever get this please let Karen know.
1128   if (method.is_null()) {
1129     ResourceMark rm(THREAD);
1130     THROW_MSG_0(vmSymbols::java_lang_NoSuchMethodError(),
1131                 Method::name_and_sig_as_C_string(klass(),
1132                 reflected_method->name(),
1133                 reflected_method->signature()));
1134   }
1135 
1136   assert(ptypes->is_objArray(), "just checking");
1137   int args_len = args.is_null() ? 0 : args->length();
1138   // Check number of arguments
1139   if (ptypes->length() != args_len) {
1140     THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(),
1141                 "wrong number of arguments");
1142   }
1143 
1144   // Create object to contain parameters for the JavaCall
1145   JavaCallArguments java_args(method->size_of_parameters());
1146 
1147   if (!is_static) {
1148     java_args.push_oop(receiver);
1149   }
1150 
1151   for (int i = 0; i < args_len; i++) {
1152     oop type_mirror = ptypes->obj_at(i);
1153     oop arg = args->obj_at(i);
1154     if (java_lang_Class::is_primitive(type_mirror)) {
1155       jvalue value;
1156       BasicType ptype = basic_type_mirror_to_basic_type(type_mirror, CHECK_NULL);
1157       BasicType atype = Reflection::unbox_for_primitive(arg, &value, CHECK_NULL);
1158       if (ptype != atype) {
1159         Reflection::widen(&value, atype, ptype, CHECK_NULL);
1160       }
1161       switch (ptype) {
1162         case T_BOOLEAN:     java_args.push_int(value.z);    break;
1163         case T_CHAR:        java_args.push_int(value.c);    break;
1164         case T_BYTE:        java_args.push_int(value.b);    break;
1165         case T_SHORT:       java_args.push_int(value.s);    break;
1166         case T_INT:         java_args.push_int(value.i);    break;
1167         case T_LONG:        java_args.push_long(value.j);   break;
1168         case T_FLOAT:       java_args.push_float(value.f);  break;
1169         case T_DOUBLE:      java_args.push_double(value.d); break;
1170         default:
1171           THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "argument type mismatch");
1172       }
1173     } else {
1174       if (arg != NULL) {
1175         Klass* k = java_lang_Class::as_Klass(type_mirror);
1176         if (!arg->is_a(k)) {
1177           THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(),
1178                       "argument type mismatch");
1179         }
1180       }
1181       Handle arg_handle(THREAD, arg);         // Create handle for argument
1182       java_args.push_oop(arg_handle); // Push handle
1183     }
1184   }
1185 
1186   assert(java_args.size_of_parameters() == method->size_of_parameters(),
1187     "just checking");
1188 
1189   // All oops (including receiver) is passed in as Handles. An potential oop is returned as an
1190   // oop (i.e., NOT as an handle)
1191   JavaValue result(rtype);
1192   JavaCalls::call(&result, method, &java_args, THREAD);
1193 
1194   if (HAS_PENDING_EXCEPTION) {
1195     // Method threw an exception; wrap it in an InvocationTargetException
1196     oop target_exception = PENDING_EXCEPTION;
1197     CLEAR_PENDING_EXCEPTION;
1198     // JVMTI has already reported the pending exception
1199     // JVMTI internal flag reset is needed in order to report InvocationTargetException
1200     if (THREAD->is_Java_thread()) {
1201       JvmtiExport::clear_detected_exception((JavaThread*)THREAD);
1202     }
1203 
1204     JavaCallArguments args(Handle(THREAD, target_exception));
1205     THROW_ARG_0(vmSymbols::java_lang_reflect_InvocationTargetException(),
1206                 vmSymbols::throwable_void_signature(),
1207                 &args);
1208   } else {
1209     if (rtype == T_BOOLEAN || rtype == T_BYTE || rtype == T_CHAR || rtype == T_SHORT) {
1210       narrow((jvalue*)result.get_value_addr(), rtype, CHECK_NULL);
1211     }
1212     return Reflection::box((jvalue*)result.get_value_addr(), rtype, THREAD);
1213   }
1214 }
1215 
1216 // This would be nicer if, say, java.lang.reflect.Method was a subclass
1217 // of java.lang.reflect.Constructor
1218 
1219 oop Reflection::invoke_method(oop method_mirror, Handle receiver, objArrayHandle args, TRAPS) {
1220   oop mirror             = java_lang_reflect_Method::clazz(method_mirror);
1221   int slot               = java_lang_reflect_Method::slot(method_mirror);
1222   bool override          = java_lang_reflect_Method::override(method_mirror) != 0;
1223   objArrayHandle ptypes(THREAD, objArrayOop(java_lang_reflect_Method::parameter_types(method_mirror)));
1224 
1225   oop return_type_mirror = java_lang_reflect_Method::return_type(method_mirror);
1226   BasicType rtype;
1227   if (java_lang_Class::is_primitive(return_type_mirror)) {
1228     rtype = basic_type_mirror_to_basic_type(return_type_mirror, CHECK_NULL);
1229   } else {
1230     rtype = T_OBJECT;
1231   }
1232 
1233   instanceKlassHandle klass(THREAD, java_lang_Class::as_Klass(mirror));
1234   Method* m = klass->method_with_idnum(slot);
1235   if (m == NULL) {
1236     THROW_MSG_0(vmSymbols::java_lang_InternalError(), "invoke");
1237   }
1238   methodHandle method(THREAD, m);
1239 
1240   return invoke(klass, method, receiver, override, ptypes, rtype, args, true, THREAD);
1241 }
1242 
1243 
1244 oop Reflection::invoke_constructor(oop constructor_mirror, objArrayHandle args, TRAPS) {
1245   oop mirror             = java_lang_reflect_Constructor::clazz(constructor_mirror);
1246   int slot               = java_lang_reflect_Constructor::slot(constructor_mirror);
1247   bool override          = java_lang_reflect_Constructor::override(constructor_mirror) != 0;
1248   objArrayHandle ptypes(THREAD, objArrayOop(java_lang_reflect_Constructor::parameter_types(constructor_mirror)));
1249 
1250   instanceKlassHandle klass(THREAD, java_lang_Class::as_Klass(mirror));
1251   Method* m = klass->method_with_idnum(slot);
1252   if (m == NULL) {
1253     THROW_MSG_0(vmSymbols::java_lang_InternalError(), "invoke");
1254   }
1255   methodHandle method(THREAD, m);
1256   assert(method->name() == vmSymbols::object_initializer_name(), "invalid constructor");
1257 
1258   // Make sure klass gets initialize
1259   klass->initialize(CHECK_NULL);
1260 
1261   // Create new instance (the receiver)
1262   klass->check_valid_for_instantiation(false, CHECK_NULL);
1263   Handle receiver = klass->allocate_instance_handle(CHECK_NULL);
1264 
1265   // Ignore result from call and return receiver
1266   invoke(klass, method, receiver, override, ptypes, T_VOID, args, false, CHECK_NULL);
1267   return receiver();
1268 }
--- EOF ---