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