jaroslav@1646: /* jaroslav@1646: * Copyright (c) 2011, 2013, Oracle and/or its affiliates. All rights reserved. jaroslav@1646: * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. jaroslav@1646: * jaroslav@1646: * This code is free software; you can redistribute it and/or modify it jaroslav@1646: * under the terms of the GNU General Public License version 2 only, as jaroslav@1646: * published by the Free Software Foundation. Oracle designates this jaroslav@1646: * particular file as subject to the "Classpath" exception as provided jaroslav@1646: * by Oracle in the LICENSE file that accompanied this code. jaroslav@1646: * jaroslav@1646: * This code is distributed in the hope that it will be useful, but WITHOUT jaroslav@1646: * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or jaroslav@1646: * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License jaroslav@1646: * version 2 for more details (a copy is included in the LICENSE file that jaroslav@1646: * accompanied this code). jaroslav@1646: * jaroslav@1646: * You should have received a copy of the GNU General Public License version jaroslav@1646: * 2 along with this work; if not, write to the Free Software Foundation, jaroslav@1646: * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. jaroslav@1646: * jaroslav@1646: * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA jaroslav@1646: * or visit www.oracle.com if you need additional information or have any jaroslav@1646: * questions. jaroslav@1646: */ jaroslav@1646: jaroslav@1646: package java.lang.invoke; jaroslav@1646: jaroslav@1646: import java.lang.annotation.*; jaroslav@1646: import java.lang.reflect.Method; jaroslav@1646: import java.util.Map; jaroslav@1646: import java.util.List; jaroslav@1646: import java.util.Arrays; jaroslav@1646: import java.util.ArrayList; jaroslav@1646: import java.util.HashMap; jaroslav@1646: import java.util.concurrent.ConcurrentHashMap; jaroslav@1646: import sun.invoke.util.Wrapper; jaroslav@1646: import static java.lang.invoke.MethodHandleStatics.*; jaroslav@1646: import static java.lang.invoke.MethodHandleNatives.Constants.*; jaroslav@1646: import java.lang.reflect.Field; jaroslav@1646: import java.util.Objects; jaroslav@1646: jaroslav@1646: /** jaroslav@1646: * The symbolic, non-executable form of a method handle's invocation semantics. jaroslav@1646: * It consists of a series of names. jaroslav@1646: * The first N (N=arity) names are parameters, jaroslav@1646: * while any remaining names are temporary values. jaroslav@1646: * Each temporary specifies the application of a function to some arguments. jaroslav@1646: * The functions are method handles, while the arguments are mixes of jaroslav@1646: * constant values and local names. jaroslav@1646: * The result of the lambda is defined as one of the names, often the last one. jaroslav@1646: *

jaroslav@1646: * Here is an approximate grammar: jaroslav@1646: * 

{@code
jaroslav@1646:  * LambdaForm = "(" ArgName* ")=>{" TempName* Result "}"
jaroslav@1646:  * ArgName = "a" N ":" T
jaroslav@1646:  * TempName = "t" N ":" T "=" Function "(" Argument* ");"
jaroslav@1646:  * Function = ConstantValue
jaroslav@1646:  * Argument = NameRef | ConstantValue
jaroslav@1646:  * Result = NameRef | "void"
jaroslav@1646:  * NameRef = "a" N | "t" N
jaroslav@1646:  * N = (any whole number)
jaroslav@1646:  * T = "L" | "I" | "J" | "F" | "D" | "V"
jaroslav@1646:  * }
jaroslav@1646: * Names are numbered consecutively from left to right starting at zero. jaroslav@1646: * (The letters are merely a taste of syntax sugar.) jaroslav@1646: * Thus, the first temporary (if any) is always numbered N (where N=arity). jaroslav@1646: * Every occurrence of a name reference in an argument list must refer to jaroslav@1646: * a name previously defined within the same lambda. jaroslav@1646: * A lambda has a void result if and only if its result index is -1. jaroslav@1646: * If a temporary has the type "V", it cannot be the subject of a NameRef, jaroslav@1646: * even though possesses a number. jaroslav@1646: * Note that all reference types are erased to "L", which stands for {@code Object}. jaroslav@1646: * All subword types (boolean, byte, short, char) are erased to "I" which is {@code int}. jaroslav@1646: * The other types stand for the usual primitive types. jaroslav@1646: *

jaroslav@1646: * Function invocation closely follows the static rules of the Java verifier. jaroslav@1646: * Arguments and return values must exactly match when their "Name" types are jaroslav@1646: * considered. jaroslav@1646: * Conversions are allowed only if they do not change the erased type. jaroslav@1646: *

jaroslav@1646: * Although implicit conversions are not allowed, explicit ones can easily be jaroslav@1646: * encoded by using temporary expressions which call type-transformed identity functions. jaroslav@1646: *

jaroslav@1646: * Examples: jaroslav@1646: * 

{@code
jaroslav@1646:  * (a0:J)=>{ a0 }
jaroslav@1646:  *     == identity(long)
jaroslav@1646:  * (a0:I)=>{ t1:V = System.out#println(a0); void }
jaroslav@1646:  *     == System.out#println(int)
jaroslav@1646:  * (a0:L)=>{ t1:V = System.out#println(a0); a0 }
jaroslav@1646:  *     == identity, with printing side-effect
jaroslav@1646:  * (a0:L, a1:L)=>{ t2:L = BoundMethodHandle#argument(a0);
jaroslav@1646:  *                 t3:L = BoundMethodHandle#target(a0);
jaroslav@1646:  *                 t4:L = MethodHandle#invoke(t3, t2, a1); t4 }
jaroslav@1646:  *     == general invoker for unary insertArgument combination
jaroslav@1646:  * (a0:L, a1:L)=>{ t2:L = FilterMethodHandle#filter(a0);
jaroslav@1646:  *                 t3:L = MethodHandle#invoke(t2, a1);
jaroslav@1646:  *                 t4:L = FilterMethodHandle#target(a0);
jaroslav@1646:  *                 t5:L = MethodHandle#invoke(t4, t3); t5 }
jaroslav@1646:  *     == general invoker for unary filterArgument combination
jaroslav@1646:  * (a0:L, a1:L)=>{ ...(same as previous example)...
jaroslav@1646:  *                 t5:L = MethodHandle#invoke(t4, t3, a1); t5 }
jaroslav@1646:  *     == general invoker for unary/unary foldArgument combination
jaroslav@1646:  * (a0:L, a1:I)=>{ t2:I = identity(long).asType((int)->long)(a1); t2 }
jaroslav@1646:  *     == invoker for identity method handle which performs i2l
jaroslav@1646:  * (a0:L, a1:L)=>{ t2:L = BoundMethodHandle#argument(a0);
jaroslav@1646:  *                 t3:L = Class#cast(t2,a1); t3 }
jaroslav@1646:  *     == invoker for identity method handle which performs cast
jaroslav@1646:  * }
jaroslav@1646: *

jaroslav@1646: * @author John Rose, JSR 292 EG jaroslav@1646: */ jaroslav@1646: class LambdaForm { jaroslav@1646: final int arity; jaroslav@1646: final int result; jaroslav@1646: @Stable final Name[] names; jaroslav@1646: final String debugName; jaroslav@1646: MemberName vmentry; // low-level behavior, or null if not yet prepared jaroslav@1646: private boolean isCompiled; jaroslav@1646: jaroslav@1646: // Caches for common structural transforms: jaroslav@1646: LambdaForm[] bindCache; jaroslav@1646: jaroslav@1646: public static final int VOID_RESULT = -1, LAST_RESULT = -2; jaroslav@1646: jaroslav@1646: LambdaForm(String debugName, jaroslav@1646: int arity, Name[] names, int result) { jaroslav@1646: assert(namesOK(arity, names)); jaroslav@1646: this.arity = arity; jaroslav@1646: this.result = fixResult(result, names); jaroslav@1646: this.names = names.clone(); jaroslav@1646: this.debugName = debugName; jaroslav@1646: normalize(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: LambdaForm(String debugName, jaroslav@1646: int arity, Name[] names) { jaroslav@1646: this(debugName, jaroslav@1646: arity, names, LAST_RESULT); jaroslav@1646: } jaroslav@1646: jaroslav@1646: LambdaForm(String debugName, jaroslav@1646: Name[] formals, Name[] temps, Name result) { jaroslav@1646: this(debugName, jaroslav@1646: formals.length, buildNames(formals, temps, result), LAST_RESULT); jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static Name[] buildNames(Name[] formals, Name[] temps, Name result) { jaroslav@1646: int arity = formals.length; jaroslav@1646: int length = arity + temps.length + (result == null ? 0 : 1); jaroslav@1646: Name[] names = Arrays.copyOf(formals, length); jaroslav@1646: System.arraycopy(temps, 0, names, arity, temps.length); jaroslav@1646: if (result != null) jaroslav@1646: names[length - 1] = result; jaroslav@1646: return names; jaroslav@1646: } jaroslav@1646: jaroslav@1646: private LambdaForm(String sig) { jaroslav@1646: // Make a blank lambda form, which returns a constant zero or null. jaroslav@1646: // It is used as a template for managing the invocation of similar forms that are non-empty. jaroslav@1646: // Called only from getPreparedForm. jaroslav@1646: assert(isValidSignature(sig)); jaroslav@1646: this.arity = signatureArity(sig); jaroslav@1646: this.result = (signatureReturn(sig) == 'V' ? -1 : arity); jaroslav@1646: this.names = buildEmptyNames(arity, sig); jaroslav@1646: this.debugName = "LF.zero"; jaroslav@1646: assert(nameRefsAreLegal()); jaroslav@1646: assert(isEmpty()); jaroslav@1646: assert(sig.equals(basicTypeSignature())); jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static Name[] buildEmptyNames(int arity, String basicTypeSignature) { jaroslav@1646: assert(isValidSignature(basicTypeSignature)); jaroslav@1646: int resultPos = arity + 1; // skip '_' jaroslav@1646: if (arity < 0 || basicTypeSignature.length() != resultPos+1) jaroslav@1646: throw new IllegalArgumentException("bad arity for "+basicTypeSignature); jaroslav@1646: int numRes = (basicTypeSignature.charAt(resultPos) == 'V' ? 0 : 1); jaroslav@1646: Name[] names = arguments(numRes, basicTypeSignature.substring(0, arity)); jaroslav@1646: for (int i = 0; i < numRes; i++) { jaroslav@1646: names[arity + i] = constantZero(arity + i, basicTypeSignature.charAt(resultPos + i)); jaroslav@1646: } jaroslav@1646: return names; jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static int fixResult(int result, Name[] names) { jaroslav@1646: if (result >= 0) { jaroslav@1646: if (names[result].type == 'V') jaroslav@1646: return -1; jaroslav@1646: } else if (result == LAST_RESULT) { jaroslav@1646: return names.length - 1; jaroslav@1646: } jaroslav@1646: return result; jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static boolean namesOK(int arity, Name[] names) { jaroslav@1646: for (int i = 0; i < names.length; i++) { jaroslav@1646: Name n = names[i]; jaroslav@1646: assert(n != null) : "n is null"; jaroslav@1646: if (i < arity) jaroslav@1646: assert( n.isParam()) : n + " is not param at " + i; jaroslav@1646: else jaroslav@1646: assert(!n.isParam()) : n + " is param at " + i; jaroslav@1646: } jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** Renumber and/or replace params so that they are interned and canonically numbered. */ jaroslav@1646: private void normalize() { jaroslav@1646: Name[] oldNames = null; jaroslav@1646: int changesStart = 0; jaroslav@1646: for (int i = 0; i < names.length; i++) { jaroslav@1646: Name n = names[i]; jaroslav@1646: if (!n.initIndex(i)) { jaroslav@1646: if (oldNames == null) { jaroslav@1646: oldNames = names.clone(); jaroslav@1646: changesStart = i; jaroslav@1646: } jaroslav@1646: names[i] = n.cloneWithIndex(i); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: if (oldNames != null) { jaroslav@1646: int startFixing = arity; jaroslav@1646: if (startFixing <= changesStart) jaroslav@1646: startFixing = changesStart+1; jaroslav@1646: for (int i = startFixing; i < names.length; i++) { jaroslav@1646: Name fixed = names[i].replaceNames(oldNames, names, changesStart, i); jaroslav@1646: names[i] = fixed.newIndex(i); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: assert(nameRefsAreLegal()); jaroslav@1646: int maxInterned = Math.min(arity, INTERNED_ARGUMENT_LIMIT); jaroslav@1646: boolean needIntern = false; jaroslav@1646: for (int i = 0; i < maxInterned; i++) { jaroslav@1646: Name n = names[i], n2 = internArgument(n); jaroslav@1646: if (n != n2) { jaroslav@1646: names[i] = n2; jaroslav@1646: needIntern = true; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: if (needIntern) { jaroslav@1646: for (int i = arity; i < names.length; i++) { jaroslav@1646: names[i].internArguments(); jaroslav@1646: } jaroslav@1646: assert(nameRefsAreLegal()); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** jaroslav@1646: * Check that all embedded Name references are localizable to this lambda, jaroslav@1646: * and are properly ordered after their corresponding definitions. jaroslav@1646: *

jaroslav@1646: * Note that a Name can be local to multiple lambdas, as long as jaroslav@1646: * it possesses the same index in each use site. jaroslav@1646: * This allows Name references to be freely reused to construct jaroslav@1646: * fresh lambdas, without confusion. jaroslav@1646: */ jaroslav@1646: private boolean nameRefsAreLegal() { jaroslav@1646: assert(arity >= 0 && arity <= names.length); jaroslav@1646: assert(result >= -1 && result < names.length); jaroslav@1646: // Do all names possess an index consistent with their local definition order? jaroslav@1646: for (int i = 0; i < arity; i++) { jaroslav@1646: Name n = names[i]; jaroslav@1646: assert(n.index() == i) : Arrays.asList(n.index(), i); jaroslav@1646: assert(n.isParam()); jaroslav@1646: } jaroslav@1646: // Also, do all local name references jaroslav@1646: for (int i = arity; i < names.length; i++) { jaroslav@1646: Name n = names[i]; jaroslav@1646: assert(n.index() == i); jaroslav@1646: for (Object arg : n.arguments) { jaroslav@1646: if (arg instanceof Name) { jaroslav@1646: Name n2 = (Name) arg; jaroslav@1646: int i2 = n2.index; jaroslav@1646: assert(0 <= i2 && i2 < names.length) : n.debugString() + ": 0 <= i2 && i2 < names.length: 0 <= " + i2 + " < " + names.length; jaroslav@1646: assert(names[i2] == n2) : Arrays.asList("-1-", i, "-2-", n.debugString(), "-3-", i2, "-4-", n2.debugString(), "-5-", names[i2].debugString(), "-6-", this); jaroslav@1646: assert(i2 < i); // ref must come after def! jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** Invoke this form on the given arguments. */ jaroslav@1646: // final Object invoke(Object... args) throws Throwable { jaroslav@1646: // // NYI: fit this into the fast path? jaroslav@1646: // return interpretWithArguments(args); jaroslav@1646: // } jaroslav@1646: jaroslav@1646: /** Report the return type. */ jaroslav@1646: char returnType() { jaroslav@1646: if (result < 0) return 'V'; jaroslav@1646: Name n = names[result]; jaroslav@1646: return n.type; jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** Report the N-th argument type. */ jaroslav@1646: char parameterType(int n) { jaroslav@1646: assert(n < arity); jaroslav@1646: return names[n].type; jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** Report the arity. */ jaroslav@1646: int arity() { jaroslav@1646: return arity; jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** Return the method type corresponding to my basic type signature. */ jaroslav@1646: MethodType methodType() { jaroslav@1646: return signatureType(basicTypeSignature()); jaroslav@1646: } jaroslav@1646: /** Return ABC_Z, where the ABC are parameter type characters, and Z is the return type character. */ jaroslav@1646: final String basicTypeSignature() { jaroslav@1646: StringBuilder buf = new StringBuilder(arity() + 3); jaroslav@1646: for (int i = 0, a = arity(); i < a; i++) jaroslav@1646: buf.append(parameterType(i)); jaroslav@1646: return buf.append('_').append(returnType()).toString(); jaroslav@1646: } jaroslav@1646: static int signatureArity(String sig) { jaroslav@1646: assert(isValidSignature(sig)); jaroslav@1646: return sig.indexOf('_'); jaroslav@1646: } jaroslav@1646: static char signatureReturn(String sig) { jaroslav@1646: return sig.charAt(signatureArity(sig)+1); jaroslav@1646: } jaroslav@1646: static boolean isValidSignature(String sig) { jaroslav@1646: int arity = sig.indexOf('_'); jaroslav@1646: if (arity < 0) return false; // must be of the form *_* jaroslav@1646: int siglen = sig.length(); jaroslav@1646: if (siglen != arity + 2) return false; // *_X jaroslav@1646: for (int i = 0; i < siglen; i++) { jaroslav@1646: if (i == arity) continue; // skip '_' jaroslav@1646: char c = sig.charAt(i); jaroslav@1646: if (c == 'V') jaroslav@1646: return (i == siglen - 1 && arity == siglen - 2); jaroslav@1646: if (ALL_TYPES.indexOf(c) < 0) return false; // must be [LIJFD] jaroslav@1646: } jaroslav@1646: return true; // [LIJFD]*_[LIJFDV] jaroslav@1646: } jaroslav@1646: static Class typeClass(char t) { jaroslav@1646: switch (t) { jaroslav@1646: case 'I': return int.class; jaroslav@1646: case 'J': return long.class; jaroslav@1646: case 'F': return float.class; jaroslav@1646: case 'D': return double.class; jaroslav@1646: case 'L': return Object.class; jaroslav@1646: case 'V': return void.class; jaroslav@1646: default: assert false; jaroslav@1646: } jaroslav@1646: return null; jaroslav@1646: } jaroslav@1646: static MethodType signatureType(String sig) { jaroslav@1646: Class[] ptypes = new Class[signatureArity(sig)]; jaroslav@1646: for (int i = 0; i < ptypes.length; i++) jaroslav@1646: ptypes[i] = typeClass(sig.charAt(i)); jaroslav@1646: Class rtype = typeClass(signatureReturn(sig)); jaroslav@1646: return MethodType.methodType(rtype, ptypes); jaroslav@1646: } jaroslav@1646: jaroslav@1646: /* jaroslav@1646: * Code generation issues: jaroslav@1646: * jaroslav@1646: * Compiled LFs should be reusable in general. jaroslav@1646: * The biggest issue is how to decide when to pull a name into jaroslav@1646: * the bytecode, versus loading a reified form from the MH data. jaroslav@1646: * jaroslav@1646: * For example, an asType wrapper may require execution of a cast jaroslav@1646: * after a call to a MH. The target type of the cast can be placed jaroslav@1646: * as a constant in the LF itself. This will force the cast type jaroslav@1646: * to be compiled into the bytecodes and native code for the MH. jaroslav@1646: * Or, the target type of the cast can be erased in the LF, and jaroslav@1646: * loaded from the MH data. (Later on, if the MH as a whole is jaroslav@1646: * inlined, the data will flow into the inlined instance of the LF, jaroslav@1646: * as a constant, and the end result will be an optimal cast.) jaroslav@1646: * jaroslav@1646: * This erasure of cast types can be done with any use of jaroslav@1646: * reference types. It can also be done with whole method jaroslav@1646: * handles. Erasing a method handle might leave behind jaroslav@1646: * LF code that executes correctly for any MH of a given jaroslav@1646: * type, and load the required MH from the enclosing MH's data. jaroslav@1646: * Or, the erasure might even erase the expected MT. jaroslav@1646: * jaroslav@1646: * Also, for direct MHs, the MemberName of the target jaroslav@1646: * could be erased, and loaded from the containing direct MH. jaroslav@1646: * As a simple case, a LF for all int-valued non-static jaroslav@1646: * field getters would perform a cast on its input argument jaroslav@1646: * (to non-constant base type derived from the MemberName) jaroslav@1646: * and load an integer value from the input object jaroslav@1646: * (at a non-constant offset also derived from the MemberName). jaroslav@1646: * Such MN-erased LFs would be inlinable back to optimized jaroslav@1646: * code, whenever a constant enclosing DMH is available jaroslav@1646: * to supply a constant MN from its data. jaroslav@1646: * jaroslav@1646: * The main problem here is to keep LFs reasonably generic, jaroslav@1646: * while ensuring that hot spots will inline good instances. jaroslav@1646: * "Reasonably generic" means that we don't end up with jaroslav@1646: * repeated versions of bytecode or machine code that do jaroslav@1646: * not differ in their optimized form. Repeated versions jaroslav@1646: * of machine would have the undesirable overheads of jaroslav@1646: * (a) redundant compilation work and (b) extra I$ pressure. jaroslav@1646: * To control repeated versions, we need to be ready to jaroslav@1646: * erase details from LFs and move them into MH data, jaroslav@1646: * whevener those details are not relevant to significant jaroslav@1646: * optimization. "Significant" means optimization of jaroslav@1646: * code that is actually hot. jaroslav@1646: * jaroslav@1646: * Achieving this may require dynamic splitting of MHs, by replacing jaroslav@1646: * a generic LF with a more specialized one, on the same MH, jaroslav@1646: * if (a) the MH is frequently executed and (b) the MH cannot jaroslav@1646: * be inlined into a containing caller, such as an invokedynamic. jaroslav@1646: * jaroslav@1646: * Compiled LFs that are no longer used should be GC-able. jaroslav@1646: * If they contain non-BCP references, they should be properly jaroslav@1646: * interlinked with the class loader(s) that their embedded types jaroslav@1646: * depend on. This probably means that reusable compiled LFs jaroslav@1646: * will be tabulated (indexed) on relevant class loaders, jaroslav@1646: * or else that the tables that cache them will have weak links. jaroslav@1646: */ jaroslav@1646: jaroslav@1646: /** jaroslav@1646: * Make this LF directly executable, as part of a MethodHandle. jaroslav@1646: * Invariant: Every MH which is invoked must prepare its LF jaroslav@1646: * before invocation. jaroslav@1646: * (In principle, the JVM could do this very lazily, jaroslav@1646: * as a sort of pre-invocation linkage step.) jaroslav@1646: */ jaroslav@1646: public void prepare() { jaroslav@1646: if (COMPILE_THRESHOLD == 0) { jaroslav@1646: compileToBytecode(); jaroslav@1646: } jaroslav@1646: if (this.vmentry != null) { jaroslav@1646: // already prepared (e.g., a primitive DMH invoker form) jaroslav@1646: return; jaroslav@1646: } jaroslav@1646: LambdaForm prep = getPreparedForm(basicTypeSignature()); jaroslav@1646: this.vmentry = prep.vmentry; jaroslav@1646: // TO DO: Maybe add invokeGeneric, invokeWithArguments jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** Generate optimizable bytecode for this form. */ jaroslav@1646: MemberName compileToBytecode() { jaroslav@1646: MethodType invokerType = methodType(); jaroslav@1646: assert(vmentry == null || vmentry.getMethodType().basicType().equals(invokerType)); jaroslav@1646: if (vmentry != null && isCompiled) { jaroslav@1646: return vmentry; // already compiled somehow jaroslav@1646: } jaroslav@1646: try { jaroslav@1646: vmentry = InvokerBytecodeGenerator.generateCustomizedCode(this, invokerType); jaroslav@1646: if (TRACE_INTERPRETER) jaroslav@1646: traceInterpreter("compileToBytecode", this); jaroslav@1646: isCompiled = true; jaroslav@1646: return vmentry; jaroslav@1646: } catch (Error | Exception ex) { jaroslav@1646: throw newInternalError("compileToBytecode", ex); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static final ConcurrentHashMap PREPARED_FORMS; jaroslav@1646: static { jaroslav@1646: int capacity = 512; // expect many distinct signatures over time jaroslav@1646: float loadFactor = 0.75f; // normal default jaroslav@1646: int writers = 1; jaroslav@1646: PREPARED_FORMS = new ConcurrentHashMap<>(capacity, loadFactor, writers); jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static Map computeInitialPreparedForms() { jaroslav@1646: // Find all predefined invokers and associate them with canonical empty lambda forms. jaroslav@1646: HashMap forms = new HashMap<>(); jaroslav@1646: for (MemberName m : MemberName.getFactory().getMethods(LambdaForm.class, false, null, null, null)) { jaroslav@1646: if (!m.isStatic() || !m.isPackage()) continue; jaroslav@1646: MethodType mt = m.getMethodType(); jaroslav@1646: if (mt.parameterCount() > 0 && jaroslav@1646: mt.parameterType(0) == MethodHandle.class && jaroslav@1646: m.getName().startsWith("interpret_")) { jaroslav@1646: String sig = basicTypeSignature(mt); jaroslav@1646: assert(m.getName().equals("interpret" + sig.substring(sig.indexOf('_')))); jaroslav@1646: LambdaForm form = new LambdaForm(sig); jaroslav@1646: form.vmentry = m; jaroslav@1646: mt.form().setCachedLambdaForm(MethodTypeForm.LF_COUNTER, form); jaroslav@1646: // FIXME: get rid of PREPARED_FORMS; use MethodTypeForm cache only jaroslav@1646: forms.put(sig, form); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: //System.out.println("computeInitialPreparedForms => "+forms); jaroslav@1646: return forms; jaroslav@1646: } jaroslav@1646: jaroslav@1646: // Set this false to disable use of the interpret_L methods defined in this file. jaroslav@1646: private static final boolean USE_PREDEFINED_INTERPRET_METHODS = true; jaroslav@1646: jaroslav@1646: // The following are predefined exact invokers. The system must build jaroslav@1646: // a separate invoker for each distinct signature. jaroslav@1646: static Object interpret_L(MethodHandle mh) throws Throwable { jaroslav@1646: Object[] av = {mh}; jaroslav@1646: String sig = null; jaroslav@1646: assert(argumentTypesMatch(sig = "L_L", av)); jaroslav@1646: Object res = mh.form.interpretWithArguments(av); jaroslav@1646: assert(returnTypesMatch(sig, av, res)); jaroslav@1646: return res; jaroslav@1646: } jaroslav@1646: static Object interpret_L(MethodHandle mh, Object x1) throws Throwable { jaroslav@1646: Object[] av = {mh, x1}; jaroslav@1646: String sig = null; jaroslav@1646: assert(argumentTypesMatch(sig = "LL_L", av)); jaroslav@1646: Object res = mh.form.interpretWithArguments(av); jaroslav@1646: assert(returnTypesMatch(sig, av, res)); jaroslav@1646: return res; jaroslav@1646: } jaroslav@1646: static Object interpret_L(MethodHandle mh, Object x1, Object x2) throws Throwable { jaroslav@1646: Object[] av = {mh, x1, x2}; jaroslav@1646: String sig = null; jaroslav@1646: assert(argumentTypesMatch(sig = "LLL_L", av)); jaroslav@1646: Object res = mh.form.interpretWithArguments(av); jaroslav@1646: assert(returnTypesMatch(sig, av, res)); jaroslav@1646: return res; jaroslav@1646: } jaroslav@1646: private static LambdaForm getPreparedForm(String sig) { jaroslav@1646: MethodType mtype = signatureType(sig); jaroslav@1646: //LambdaForm prep = PREPARED_FORMS.get(sig); jaroslav@1646: LambdaForm prep = mtype.form().cachedLambdaForm(MethodTypeForm.LF_INTERPRET); jaroslav@1646: if (prep != null) return prep; jaroslav@1646: assert(isValidSignature(sig)); jaroslav@1646: prep = new LambdaForm(sig); jaroslav@1646: prep.vmentry = InvokerBytecodeGenerator.generateLambdaFormInterpreterEntryPoint(sig); jaroslav@1646: //LambdaForm prep2 = PREPARED_FORMS.putIfAbsent(sig.intern(), prep); jaroslav@1646: return mtype.form().setCachedLambdaForm(MethodTypeForm.LF_INTERPRET, prep); jaroslav@1646: } jaroslav@1646: jaroslav@1646: // The next few routines are called only from assert expressions jaroslav@1646: // They verify that the built-in invokers process the correct raw data types. jaroslav@1646: private static boolean argumentTypesMatch(String sig, Object[] av) { jaroslav@1646: int arity = signatureArity(sig); jaroslav@1646: assert(av.length == arity) : "av.length == arity: av.length=" + av.length + ", arity=" + arity; jaroslav@1646: assert(av[0] instanceof MethodHandle) : "av[0] not instace of MethodHandle: " + av[0]; jaroslav@1646: MethodHandle mh = (MethodHandle) av[0]; jaroslav@1646: MethodType mt = mh.type(); jaroslav@1646: assert(mt.parameterCount() == arity-1); jaroslav@1646: for (int i = 0; i < av.length; i++) { jaroslav@1646: Class pt = (i == 0 ? MethodHandle.class : mt.parameterType(i-1)); jaroslav@1646: assert(valueMatches(sig.charAt(i), pt, av[i])); jaroslav@1646: } jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: private static boolean valueMatches(char tc, Class type, Object x) { jaroslav@1646: // The following line is needed because (...)void method handles can use non-void invokers jaroslav@1646: if (type == void.class) tc = 'V'; // can drop any kind of value jaroslav@1646: assert tc == basicType(type) : tc + " == basicType(" + type + ")=" + basicType(type); jaroslav@1646: switch (tc) { jaroslav@1646: case 'I': assert checkInt(type, x) : "checkInt(" + type + "," + x +")"; break; jaroslav@1646: case 'J': assert x instanceof Long : "instanceof Long: " + x; break; jaroslav@1646: case 'F': assert x instanceof Float : "instanceof Float: " + x; break; jaroslav@1646: case 'D': assert x instanceof Double : "instanceof Double: " + x; break; jaroslav@1646: case 'L': assert checkRef(type, x) : "checkRef(" + type + "," + x + ")"; break; jaroslav@1646: case 'V': break; // allow anything here; will be dropped jaroslav@1646: default: assert(false); jaroslav@1646: } jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: private static boolean returnTypesMatch(String sig, Object[] av, Object res) { jaroslav@1646: MethodHandle mh = (MethodHandle) av[0]; jaroslav@1646: return valueMatches(signatureReturn(sig), mh.type().returnType(), res); jaroslav@1646: } jaroslav@1646: private static boolean checkInt(Class type, Object x) { jaroslav@1646: assert(x instanceof Integer); jaroslav@1646: if (type == int.class) return true; jaroslav@1646: Wrapper w = Wrapper.forBasicType(type); jaroslav@1646: assert(w.isSubwordOrInt()); jaroslav@1646: Object x1 = Wrapper.INT.wrap(w.wrap(x)); jaroslav@1646: return x.equals(x1); jaroslav@1646: } jaroslav@1646: private static boolean checkRef(Class type, Object x) { jaroslav@1646: assert(!type.isPrimitive()); jaroslav@1646: if (x == null) return true; jaroslav@1646: if (type.isInterface()) return true; jaroslav@1646: return type.isInstance(x); jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** If the invocation count hits the threshold we spin bytecodes and call that subsequently. */ jaroslav@1646: private static final int COMPILE_THRESHOLD; jaroslav@1646: static { jaroslav@1646: if (MethodHandleStatics.COMPILE_THRESHOLD != null) jaroslav@1646: COMPILE_THRESHOLD = MethodHandleStatics.COMPILE_THRESHOLD; jaroslav@1646: else jaroslav@1646: COMPILE_THRESHOLD = 30; // default value jaroslav@1646: } jaroslav@1646: private int invocationCounter = 0; jaroslav@1646: jaroslav@1646: @Hidden jaroslav@1646: @DontInline jaroslav@1646: /** Interpretively invoke this form on the given arguments. */ jaroslav@1646: Object interpretWithArguments(Object... argumentValues) throws Throwable { jaroslav@1646: if (TRACE_INTERPRETER) jaroslav@1646: return interpretWithArgumentsTracing(argumentValues); jaroslav@1646: checkInvocationCounter(); jaroslav@1646: assert(arityCheck(argumentValues)); jaroslav@1646: Object[] values = Arrays.copyOf(argumentValues, names.length); jaroslav@1646: for (int i = argumentValues.length; i < values.length; i++) { jaroslav@1646: values[i] = interpretName(names[i], values); jaroslav@1646: } jaroslav@1646: return (result < 0) ? null : values[result]; jaroslav@1646: } jaroslav@1646: jaroslav@1646: @Hidden jaroslav@1646: @DontInline jaroslav@1646: /** Evaluate a single Name within this form, applying its function to its arguments. */ jaroslav@1646: Object interpretName(Name name, Object[] values) throws Throwable { jaroslav@1646: if (TRACE_INTERPRETER) jaroslav@1646: traceInterpreter("| interpretName", name.debugString(), (Object[]) null); jaroslav@1646: Object[] arguments = Arrays.copyOf(name.arguments, name.arguments.length, Object[].class); jaroslav@1646: for (int i = 0; i < arguments.length; i++) { jaroslav@1646: Object a = arguments[i]; jaroslav@1646: if (a instanceof Name) { jaroslav@1646: int i2 = ((Name)a).index(); jaroslav@1646: assert(names[i2] == a); jaroslav@1646: a = values[i2]; jaroslav@1646: arguments[i] = a; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: return name.function.invokeWithArguments(arguments); jaroslav@1646: } jaroslav@1646: jaroslav@1646: private void checkInvocationCounter() { jaroslav@1646: if (COMPILE_THRESHOLD != 0 && jaroslav@1646: invocationCounter < COMPILE_THRESHOLD) { jaroslav@1646: invocationCounter++; // benign race jaroslav@1646: if (invocationCounter >= COMPILE_THRESHOLD) { jaroslav@1646: // Replace vmentry with a bytecode version of this LF. jaroslav@1646: compileToBytecode(); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: Object interpretWithArgumentsTracing(Object... argumentValues) throws Throwable { jaroslav@1646: traceInterpreter("[ interpretWithArguments", this, argumentValues); jaroslav@1646: if (invocationCounter < COMPILE_THRESHOLD) { jaroslav@1646: int ctr = invocationCounter++; // benign race jaroslav@1646: traceInterpreter("| invocationCounter", ctr); jaroslav@1646: if (invocationCounter >= COMPILE_THRESHOLD) { jaroslav@1646: compileToBytecode(); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: Object rval; jaroslav@1646: try { jaroslav@1646: assert(arityCheck(argumentValues)); jaroslav@1646: Object[] values = Arrays.copyOf(argumentValues, names.length); jaroslav@1646: for (int i = argumentValues.length; i < values.length; i++) { jaroslav@1646: values[i] = interpretName(names[i], values); jaroslav@1646: } jaroslav@1646: rval = (result < 0) ? null : values[result]; jaroslav@1646: } catch (Throwable ex) { jaroslav@1646: traceInterpreter("] throw =>", ex); jaroslav@1646: throw ex; jaroslav@1646: } jaroslav@1646: traceInterpreter("] return =>", rval); jaroslav@1646: return rval; jaroslav@1646: } jaroslav@1646: jaroslav@1646: //** This transform is applied (statically) to every name.function. */ jaroslav@1646: /* jaroslav@1646: private static MethodHandle eraseSubwordTypes(MethodHandle mh) { jaroslav@1646: MethodType mt = mh.type(); jaroslav@1646: if (mt.hasPrimitives()) { jaroslav@1646: mt = mt.changeReturnType(eraseSubwordType(mt.returnType())); jaroslav@1646: for (int i = 0; i < mt.parameterCount(); i++) { jaroslav@1646: mt = mt.changeParameterType(i, eraseSubwordType(mt.parameterType(i))); jaroslav@1646: } jaroslav@1646: mh = MethodHandles.explicitCastArguments(mh, mt); jaroslav@1646: } jaroslav@1646: return mh; jaroslav@1646: } jaroslav@1646: private static Class eraseSubwordType(Class type) { jaroslav@1646: if (!type.isPrimitive()) return type; jaroslav@1646: if (type == int.class) return type; jaroslav@1646: Wrapper w = Wrapper.forPrimitiveType(type); jaroslav@1646: if (w.isSubwordOrInt()) return int.class; jaroslav@1646: return type; jaroslav@1646: } jaroslav@1646: */ jaroslav@1646: jaroslav@1646: static void traceInterpreter(String event, Object obj, Object... args) { jaroslav@1646: if (TRACE_INTERPRETER) { jaroslav@1646: System.out.println("LFI: "+event+" "+(obj != null ? obj : "")+(args != null && args.length != 0 ? Arrays.asList(args) : "")); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: static void traceInterpreter(String event, Object obj) { jaroslav@1646: traceInterpreter(event, obj, (Object[])null); jaroslav@1646: } jaroslav@1646: private boolean arityCheck(Object[] argumentValues) { jaroslav@1646: assert(argumentValues.length == arity) : arity+"!="+Arrays.asList(argumentValues)+".length"; jaroslav@1646: // also check that the leading (receiver) argument is somehow bound to this LF: jaroslav@1646: assert(argumentValues[0] instanceof MethodHandle) : "not MH: " + argumentValues[0]; jaroslav@1646: assert(((MethodHandle)argumentValues[0]).internalForm() == this); jaroslav@1646: // note: argument #0 could also be an interface wrapper, in the future jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: jaroslav@1646: private boolean isEmpty() { jaroslav@1646: if (result < 0) jaroslav@1646: return (names.length == arity); jaroslav@1646: else if (result == arity && names.length == arity + 1) jaroslav@1646: return names[arity].isConstantZero(); jaroslav@1646: else jaroslav@1646: return false; jaroslav@1646: } jaroslav@1646: jaroslav@1646: public String toString() { jaroslav@1646: StringBuilder buf = new StringBuilder(debugName+"=Lambda("); jaroslav@1646: for (int i = 0; i < names.length; i++) { jaroslav@1646: if (i == arity) buf.append(")=>{"); jaroslav@1646: Name n = names[i]; jaroslav@1646: if (i >= arity) buf.append("\n "); jaroslav@1646: buf.append(n); jaroslav@1646: if (i < arity) { jaroslav@1646: if (i+1 < arity) buf.append(","); jaroslav@1646: continue; jaroslav@1646: } jaroslav@1646: buf.append("=").append(n.exprString()); jaroslav@1646: buf.append(";"); jaroslav@1646: } jaroslav@1646: buf.append(result < 0 ? "void" : names[result]).append("}"); jaroslav@1646: if (TRACE_INTERPRETER) { jaroslav@1646: // Extra verbosity: jaroslav@1646: buf.append(":").append(basicTypeSignature()); jaroslav@1646: buf.append("/").append(vmentry); jaroslav@1646: } jaroslav@1646: return buf.toString(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** jaroslav@1646: * Apply immediate binding for a Name in this form indicated by its position relative to the form. jaroslav@1646: * The first parameter to a LambdaForm, a0:L, always represents the form's method handle, so 0 is not jaroslav@1646: * accepted as valid. jaroslav@1646: */ jaroslav@1646: LambdaForm bindImmediate(int pos, char basicType, Object value) { jaroslav@1646: // must be an argument, and the types must match jaroslav@1646: assert pos > 0 && pos < arity && names[pos].type == basicType && Name.typesMatch(basicType, value); jaroslav@1646: jaroslav@1646: int arity2 = arity - 1; jaroslav@1646: Name[] names2 = new Name[names.length - 1]; jaroslav@1646: for (int r = 0, w = 0; r < names.length; ++r, ++w) { // (r)ead from names, (w)rite to names2 jaroslav@1646: Name n = names[r]; jaroslav@1646: if (n.isParam()) { jaroslav@1646: if (n.index == pos) { jaroslav@1646: // do not copy over the argument that is to be replaced with a literal, jaroslav@1646: // but adjust the write index jaroslav@1646: --w; jaroslav@1646: } else { jaroslav@1646: names2[w] = new Name(w, n.type); jaroslav@1646: } jaroslav@1646: } else { jaroslav@1646: Object[] arguments2 = new Object[n.arguments.length]; jaroslav@1646: for (int i = 0; i < n.arguments.length; ++i) { jaroslav@1646: Object arg = n.arguments[i]; jaroslav@1646: if (arg instanceof Name) { jaroslav@1646: int ni = ((Name) arg).index; jaroslav@1646: if (ni == pos) { jaroslav@1646: arguments2[i] = value; jaroslav@1646: } else if (ni < pos) { jaroslav@1646: // replacement position not yet passed jaroslav@1646: arguments2[i] = names2[ni]; jaroslav@1646: } else { jaroslav@1646: // replacement position passed jaroslav@1646: arguments2[i] = names2[ni - 1]; jaroslav@1646: } jaroslav@1646: } else { jaroslav@1646: arguments2[i] = arg; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: names2[w] = new Name(n.function, arguments2); jaroslav@1646: names2[w].initIndex(w); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: int result2 = result == -1 ? -1 : result - 1; jaroslav@1646: return new LambdaForm(debugName, arity2, names2, result2); jaroslav@1646: } jaroslav@1646: jaroslav@1646: LambdaForm bind(int namePos, BoundMethodHandle.SpeciesData oldData) { jaroslav@1646: Name name = names[namePos]; jaroslav@1646: BoundMethodHandle.SpeciesData newData = oldData.extendWithType(name.type); jaroslav@1646: return bind(name, newData.getterName(names[0], oldData.fieldCount()), oldData, newData); jaroslav@1646: } jaroslav@1646: LambdaForm bind(Name name, Name binding, jaroslav@1646: BoundMethodHandle.SpeciesData oldData, jaroslav@1646: BoundMethodHandle.SpeciesData newData) { jaroslav@1646: int pos = name.index; jaroslav@1646: assert(name.isParam()); jaroslav@1646: assert(!binding.isParam()); jaroslav@1646: assert(name.type == binding.type); jaroslav@1646: assert(0 <= pos && pos < arity && names[pos] == name); jaroslav@1646: assert(binding.function.memberDeclaringClassOrNull() == newData.clazz); jaroslav@1646: assert(oldData.getters.length == newData.getters.length-1); jaroslav@1646: if (bindCache != null) { jaroslav@1646: LambdaForm form = bindCache[pos]; jaroslav@1646: if (form != null) { jaroslav@1646: assert(form.contains(binding)) : "form << " + form + " >> does not contain binding << " + binding + " >>"; jaroslav@1646: return form; jaroslav@1646: } jaroslav@1646: } else { jaroslav@1646: bindCache = new LambdaForm[arity]; jaroslav@1646: } jaroslav@1646: assert(nameRefsAreLegal()); jaroslav@1646: int arity2 = arity-1; jaroslav@1646: Name[] names2 = names.clone(); jaroslav@1646: names2[pos] = binding; // we might move this in a moment jaroslav@1646: jaroslav@1646: // The newly created LF will run with a different BMH. jaroslav@1646: // Switch over any pre-existing BMH field references to the new BMH class. jaroslav@1646: int firstOldRef = -1; jaroslav@1646: for (int i = 0; i < names2.length; i++) { jaroslav@1646: Name n = names[i]; jaroslav@1646: if (n.function != null && jaroslav@1646: n.function.memberDeclaringClassOrNull() == oldData.clazz) { jaroslav@1646: MethodHandle oldGetter = n.function.resolvedHandle; jaroslav@1646: MethodHandle newGetter = null; jaroslav@1646: for (int j = 0; j < oldData.getters.length; j++) { jaroslav@1646: if (oldGetter == oldData.getters[j]) jaroslav@1646: newGetter = newData.getters[j]; jaroslav@1646: } jaroslav@1646: if (newGetter != null) { jaroslav@1646: if (firstOldRef < 0) firstOldRef = i; jaroslav@1646: Name n2 = new Name(newGetter, n.arguments); jaroslav@1646: names2[i] = n2; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: // Walk over the new list of names once, in forward order. jaroslav@1646: // Replace references to 'name' with 'binding'. jaroslav@1646: // Replace data structure references to the old BMH species with the new. jaroslav@1646: // This might cause a ripple effect, but it will settle in one pass. jaroslav@1646: assert(firstOldRef < 0 || firstOldRef > pos); jaroslav@1646: for (int i = pos+1; i < names2.length; i++) { jaroslav@1646: if (i <= arity2) continue; jaroslav@1646: names2[i] = names2[i].replaceNames(names, names2, pos, i); jaroslav@1646: } jaroslav@1646: jaroslav@1646: // (a0, a1, name=a2, a3, a4) => (a0, a1, a3, a4, binding) jaroslav@1646: int insPos = pos; jaroslav@1646: for (; insPos+1 < names2.length; insPos++) { jaroslav@1646: Name n = names2[insPos+1]; jaroslav@1646: if (n.isSiblingBindingBefore(binding)) { jaroslav@1646: names2[insPos] = n; jaroslav@1646: } else { jaroslav@1646: break; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: names2[insPos] = binding; jaroslav@1646: jaroslav@1646: // Since we moved some stuff, maybe update the result reference: jaroslav@1646: int result2 = result; jaroslav@1646: if (result2 == pos) jaroslav@1646: result2 = insPos; jaroslav@1646: else if (result2 > pos && result2 <= insPos) jaroslav@1646: result2 -= 1; jaroslav@1646: jaroslav@1646: return bindCache[pos] = new LambdaForm(debugName, arity2, names2, result2); jaroslav@1646: } jaroslav@1646: jaroslav@1646: boolean contains(Name name) { jaroslav@1646: int pos = name.index(); jaroslav@1646: if (pos >= 0) { jaroslav@1646: return pos < names.length && name.equals(names[pos]); jaroslav@1646: } jaroslav@1646: for (int i = arity; i < names.length; i++) { jaroslav@1646: if (name.equals(names[i])) jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: return false; jaroslav@1646: } jaroslav@1646: jaroslav@1646: LambdaForm addArguments(int pos, char... types) { jaroslav@1646: assert(pos <= arity); jaroslav@1646: int length = names.length; jaroslav@1646: int inTypes = types.length; jaroslav@1646: Name[] names2 = Arrays.copyOf(names, length + inTypes); jaroslav@1646: int arity2 = arity + inTypes; jaroslav@1646: int result2 = result; jaroslav@1646: if (result2 >= arity) jaroslav@1646: result2 += inTypes; jaroslav@1646: // names array has MH in slot 0; skip it. jaroslav@1646: int argpos = pos + 1; jaroslav@1646: // Note: The LF constructor will rename names2[argpos...]. jaroslav@1646: // Make space for new arguments (shift temporaries). jaroslav@1646: System.arraycopy(names, argpos, names2, argpos + inTypes, length - argpos); jaroslav@1646: for (int i = 0; i < inTypes; i++) { jaroslav@1646: names2[argpos + i] = new Name(types[i]); jaroslav@1646: } jaroslav@1646: return new LambdaForm(debugName, arity2, names2, result2); jaroslav@1646: } jaroslav@1646: jaroslav@1646: LambdaForm addArguments(int pos, List> types) { jaroslav@1646: char[] basicTypes = new char[types.size()]; jaroslav@1646: for (int i = 0; i < basicTypes.length; i++) jaroslav@1646: basicTypes[i] = basicType(types.get(i)); jaroslav@1646: return addArguments(pos, basicTypes); jaroslav@1646: } jaroslav@1646: jaroslav@1646: LambdaForm permuteArguments(int skip, int[] reorder, char[] types) { jaroslav@1646: // Note: When inArg = reorder[outArg], outArg is fed by a copy of inArg. jaroslav@1646: // The types are the types of the new (incoming) arguments. jaroslav@1646: int length = names.length; jaroslav@1646: int inTypes = types.length; jaroslav@1646: int outArgs = reorder.length; jaroslav@1646: assert(skip+outArgs == arity); jaroslav@1646: assert(permutedTypesMatch(reorder, types, names, skip)); jaroslav@1646: int pos = 0; jaroslav@1646: // skip trivial first part of reordering: jaroslav@1646: while (pos < outArgs && reorder[pos] == pos) pos += 1; jaroslav@1646: Name[] names2 = new Name[length - outArgs + inTypes]; jaroslav@1646: System.arraycopy(names, 0, names2, 0, skip+pos); jaroslav@1646: // copy the body: jaroslav@1646: int bodyLength = length - arity; jaroslav@1646: System.arraycopy(names, skip+outArgs, names2, skip+inTypes, bodyLength); jaroslav@1646: int arity2 = names2.length - bodyLength; jaroslav@1646: int result2 = result; jaroslav@1646: if (result2 >= 0) { jaroslav@1646: if (result2 < skip+outArgs) { jaroslav@1646: // return the corresponding inArg jaroslav@1646: result2 = reorder[result2-skip]; jaroslav@1646: } else { jaroslav@1646: result2 = result2 - outArgs + inTypes; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: // rework names in the body: jaroslav@1646: for (int j = pos; j < outArgs; j++) { jaroslav@1646: Name n = names[skip+j]; jaroslav@1646: int i = reorder[j]; jaroslav@1646: // replace names[skip+j] by names2[skip+i] jaroslav@1646: Name n2 = names2[skip+i]; jaroslav@1646: if (n2 == null) jaroslav@1646: names2[skip+i] = n2 = new Name(types[i]); jaroslav@1646: else jaroslav@1646: assert(n2.type == types[i]); jaroslav@1646: for (int k = arity2; k < names2.length; k++) { jaroslav@1646: names2[k] = names2[k].replaceName(n, n2); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: // some names are unused, but must be filled in jaroslav@1646: for (int i = skip+pos; i < arity2; i++) { jaroslav@1646: if (names2[i] == null) jaroslav@1646: names2[i] = argument(i, types[i - skip]); jaroslav@1646: } jaroslav@1646: for (int j = arity; j < names.length; j++) { jaroslav@1646: int i = j - arity + arity2; jaroslav@1646: // replace names2[i] by names[j] jaroslav@1646: Name n = names[j]; jaroslav@1646: Name n2 = names2[i]; jaroslav@1646: if (n != n2) { jaroslav@1646: for (int k = i+1; k < names2.length; k++) { jaroslav@1646: names2[k] = names2[k].replaceName(n, n2); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: return new LambdaForm(debugName, arity2, names2, result2); jaroslav@1646: } jaroslav@1646: jaroslav@1646: static boolean permutedTypesMatch(int[] reorder, char[] types, Name[] names, int skip) { jaroslav@1646: int inTypes = types.length; jaroslav@1646: int outArgs = reorder.length; jaroslav@1646: for (int i = 0; i < outArgs; i++) { jaroslav@1646: assert(names[skip+i].isParam()); jaroslav@1646: assert(names[skip+i].type == types[reorder[i]]); jaroslav@1646: } jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: jaroslav@1646: static class NamedFunction { jaroslav@1646: final MemberName member; jaroslav@1646: @Stable MethodHandle resolvedHandle; jaroslav@1646: @Stable MethodHandle invoker; jaroslav@1646: jaroslav@1646: NamedFunction(MethodHandle resolvedHandle) { jaroslav@1646: this(resolvedHandle.internalMemberName(), resolvedHandle); jaroslav@1646: } jaroslav@1646: NamedFunction(MemberName member, MethodHandle resolvedHandle) { jaroslav@1646: this.member = member; jaroslav@1646: //resolvedHandle = eraseSubwordTypes(resolvedHandle); jaroslav@1646: this.resolvedHandle = resolvedHandle; jaroslav@1646: } jaroslav@1646: NamedFunction(MethodType basicInvokerType) { jaroslav@1646: assert(basicInvokerType == basicInvokerType.basicType()) : basicInvokerType; jaroslav@1646: if (basicInvokerType.parameterSlotCount() < MethodType.MAX_MH_INVOKER_ARITY) { jaroslav@1646: this.resolvedHandle = basicInvokerType.invokers().basicInvoker(); jaroslav@1646: this.member = resolvedHandle.internalMemberName(); jaroslav@1646: } else { jaroslav@1646: // necessary to pass BigArityTest jaroslav@1646: this.member = Invokers.invokeBasicMethod(basicInvokerType); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: // The next 3 constructors are used to break circular dependencies on MH.invokeStatic, etc. jaroslav@1646: // Any LambdaForm containing such a member is not interpretable. jaroslav@1646: // This is OK, since all such LFs are prepared with special primitive vmentry points. jaroslav@1646: // And even without the resolvedHandle, the name can still be compiled and optimized. jaroslav@1646: NamedFunction(Method method) { jaroslav@1646: this(new MemberName(method)); jaroslav@1646: } jaroslav@1646: NamedFunction(Field field) { jaroslav@1646: this(new MemberName(field)); jaroslav@1646: } jaroslav@1646: NamedFunction(MemberName member) { jaroslav@1646: this.member = member; jaroslav@1646: this.resolvedHandle = null; jaroslav@1646: } jaroslav@1646: jaroslav@1646: MethodHandle resolvedHandle() { jaroslav@1646: if (resolvedHandle == null) resolve(); jaroslav@1646: return resolvedHandle; jaroslav@1646: } jaroslav@1646: jaroslav@1646: void resolve() { jaroslav@1646: resolvedHandle = DirectMethodHandle.make(member); jaroslav@1646: } jaroslav@1646: jaroslav@1646: @Override jaroslav@1646: public boolean equals(Object other) { jaroslav@1646: if (this == other) return true; jaroslav@1646: if (other == null) return false; jaroslav@1646: if (!(other instanceof NamedFunction)) return false; jaroslav@1646: NamedFunction that = (NamedFunction) other; jaroslav@1646: return this.member != null && this.member.equals(that.member); jaroslav@1646: } jaroslav@1646: jaroslav@1646: @Override jaroslav@1646: public int hashCode() { jaroslav@1646: if (member != null) jaroslav@1646: return member.hashCode(); jaroslav@1646: return super.hashCode(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: // Put the predefined NamedFunction invokers into the table. jaroslav@1646: static void initializeInvokers() { jaroslav@1646: for (MemberName m : MemberName.getFactory().getMethods(NamedFunction.class, false, null, null, null)) { jaroslav@1646: if (!m.isStatic() || !m.isPackage()) continue; jaroslav@1646: MethodType type = m.getMethodType(); jaroslav@1646: if (type.equals(INVOKER_METHOD_TYPE) && jaroslav@1646: m.getName().startsWith("invoke_")) { jaroslav@1646: String sig = m.getName().substring("invoke_".length()); jaroslav@1646: int arity = LambdaForm.signatureArity(sig); jaroslav@1646: MethodType srcType = MethodType.genericMethodType(arity); jaroslav@1646: if (LambdaForm.signatureReturn(sig) == 'V') jaroslav@1646: srcType = srcType.changeReturnType(void.class); jaroslav@1646: MethodTypeForm typeForm = srcType.form(); jaroslav@1646: typeForm.namedFunctionInvoker = DirectMethodHandle.make(m); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: // The following are predefined NamedFunction invokers. The system must build jaroslav@1646: // a separate invoker for each distinct signature. jaroslav@1646: /** void return type invokers. */ jaroslav@1646: @Hidden jaroslav@1646: static Object invoke__V(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 0); jaroslav@1646: mh.invokeBasic(); jaroslav@1646: return null; jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_L_V(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 1); jaroslav@1646: mh.invokeBasic(a[0]); jaroslav@1646: return null; jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_LL_V(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 2); jaroslav@1646: mh.invokeBasic(a[0], a[1]); jaroslav@1646: return null; jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_LLL_V(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 3); jaroslav@1646: mh.invokeBasic(a[0], a[1], a[2]); jaroslav@1646: return null; jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_LLLL_V(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 4); jaroslav@1646: mh.invokeBasic(a[0], a[1], a[2], a[3]); jaroslav@1646: return null; jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_LLLLL_V(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 5); jaroslav@1646: mh.invokeBasic(a[0], a[1], a[2], a[3], a[4]); jaroslav@1646: return null; jaroslav@1646: } jaroslav@1646: /** Object return type invokers. */ jaroslav@1646: @Hidden jaroslav@1646: static Object invoke__L(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 0); jaroslav@1646: return mh.invokeBasic(); jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_L_L(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 1); jaroslav@1646: return mh.invokeBasic(a[0]); jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_LL_L(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 2); jaroslav@1646: return mh.invokeBasic(a[0], a[1]); jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_LLL_L(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 3); jaroslav@1646: return mh.invokeBasic(a[0], a[1], a[2]); jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_LLLL_L(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 4); jaroslav@1646: return mh.invokeBasic(a[0], a[1], a[2], a[3]); jaroslav@1646: } jaroslav@1646: @Hidden jaroslav@1646: static Object invoke_LLLLL_L(MethodHandle mh, Object[] a) throws Throwable { jaroslav@1646: assert(a.length == 5); jaroslav@1646: return mh.invokeBasic(a[0], a[1], a[2], a[3], a[4]); jaroslav@1646: } jaroslav@1646: jaroslav@1646: static final MethodType INVOKER_METHOD_TYPE = jaroslav@1646: MethodType.methodType(Object.class, MethodHandle.class, Object[].class); jaroslav@1646: jaroslav@1646: private static MethodHandle computeInvoker(MethodTypeForm typeForm) { jaroslav@1646: MethodHandle mh = typeForm.namedFunctionInvoker; jaroslav@1646: if (mh != null) return mh; jaroslav@1646: MemberName invoker = InvokerBytecodeGenerator.generateNamedFunctionInvoker(typeForm); // this could take a while jaroslav@1646: mh = DirectMethodHandle.make(invoker); jaroslav@1646: MethodHandle mh2 = typeForm.namedFunctionInvoker; jaroslav@1646: if (mh2 != null) return mh2; // benign race jaroslav@1646: if (!mh.type().equals(INVOKER_METHOD_TYPE)) jaroslav@1646: throw new InternalError(mh.debugString()); jaroslav@1646: return typeForm.namedFunctionInvoker = mh; jaroslav@1646: } jaroslav@1646: jaroslav@1646: @Hidden jaroslav@1646: Object invokeWithArguments(Object... arguments) throws Throwable { jaroslav@1646: // If we have a cached invoker, call it right away. jaroslav@1646: // NOTE: The invoker always returns a reference value. jaroslav@1646: if (TRACE_INTERPRETER) return invokeWithArgumentsTracing(arguments); jaroslav@1646: assert(checkArgumentTypes(arguments, methodType())); jaroslav@1646: return invoker().invokeBasic(resolvedHandle(), arguments); jaroslav@1646: } jaroslav@1646: jaroslav@1646: @Hidden jaroslav@1646: Object invokeWithArgumentsTracing(Object[] arguments) throws Throwable { jaroslav@1646: Object rval; jaroslav@1646: try { jaroslav@1646: traceInterpreter("[ call", this, arguments); jaroslav@1646: if (invoker == null) { jaroslav@1646: traceInterpreter("| getInvoker", this); jaroslav@1646: invoker(); jaroslav@1646: } jaroslav@1646: if (resolvedHandle == null) { jaroslav@1646: traceInterpreter("| resolve", this); jaroslav@1646: resolvedHandle(); jaroslav@1646: } jaroslav@1646: assert(checkArgumentTypes(arguments, methodType())); jaroslav@1646: rval = invoker().invokeBasic(resolvedHandle(), arguments); jaroslav@1646: } catch (Throwable ex) { jaroslav@1646: traceInterpreter("] throw =>", ex); jaroslav@1646: throw ex; jaroslav@1646: } jaroslav@1646: traceInterpreter("] return =>", rval); jaroslav@1646: return rval; jaroslav@1646: } jaroslav@1646: jaroslav@1646: private MethodHandle invoker() { jaroslav@1646: if (invoker != null) return invoker; jaroslav@1646: // Get an invoker and cache it. jaroslav@1646: return invoker = computeInvoker(methodType().form()); jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static boolean checkArgumentTypes(Object[] arguments, MethodType methodType) { jaroslav@1646: if (true) return true; // FIXME jaroslav@1646: MethodType dstType = methodType.form().erasedType(); jaroslav@1646: MethodType srcType = dstType.basicType().wrap(); jaroslav@1646: Class[] ptypes = new Class[arguments.length]; jaroslav@1646: for (int i = 0; i < arguments.length; i++) { jaroslav@1646: Object arg = arguments[i]; jaroslav@1646: Class ptype = arg == null ? Object.class : arg.getClass(); jaroslav@1646: // If the dest. type is a primitive we keep the jaroslav@1646: // argument type. jaroslav@1646: ptypes[i] = dstType.parameterType(i).isPrimitive() ? ptype : Object.class; jaroslav@1646: } jaroslav@1646: MethodType argType = MethodType.methodType(srcType.returnType(), ptypes).wrap(); jaroslav@1646: assert(argType.isConvertibleTo(srcType)) : "wrong argument types: cannot convert " + argType + " to " + srcType; jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: jaroslav@1646: String basicTypeSignature() { jaroslav@1646: //return LambdaForm.basicTypeSignature(resolvedHandle.type()); jaroslav@1646: return LambdaForm.basicTypeSignature(methodType()); jaroslav@1646: } jaroslav@1646: jaroslav@1646: MethodType methodType() { jaroslav@1646: if (resolvedHandle != null) jaroslav@1646: return resolvedHandle.type(); jaroslav@1646: else jaroslav@1646: // only for certain internal LFs during bootstrapping jaroslav@1646: return member.getInvocationType(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: MemberName member() { jaroslav@1646: assert(assertMemberIsConsistent()); jaroslav@1646: return member; jaroslav@1646: } jaroslav@1646: jaroslav@1646: // Called only from assert. jaroslav@1646: private boolean assertMemberIsConsistent() { jaroslav@1646: if (resolvedHandle instanceof DirectMethodHandle) { jaroslav@1646: MemberName m = resolvedHandle.internalMemberName(); jaroslav@1646: assert(m.equals(member)); jaroslav@1646: } jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: jaroslav@1646: Class memberDeclaringClassOrNull() { jaroslav@1646: return (member == null) ? null : member.getDeclaringClass(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: char returnType() { jaroslav@1646: return basicType(methodType().returnType()); jaroslav@1646: } jaroslav@1646: jaroslav@1646: char parameterType(int n) { jaroslav@1646: return basicType(methodType().parameterType(n)); jaroslav@1646: } jaroslav@1646: jaroslav@1646: int arity() { jaroslav@1646: //int siglen = member.getMethodType().parameterCount(); jaroslav@1646: //if (!member.isStatic()) siglen += 1; jaroslav@1646: //return siglen; jaroslav@1646: return methodType().parameterCount(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: public String toString() { jaroslav@1646: if (member == null) return String.valueOf(resolvedHandle); jaroslav@1646: return member.getDeclaringClass().getSimpleName()+"."+member.getName(); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: void resolve() { jaroslav@1646: for (Name n : names) n.resolve(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: public static char basicType(Class type) { jaroslav@1646: char c = Wrapper.basicTypeChar(type); jaroslav@1646: if ("ZBSC".indexOf(c) >= 0) c = 'I'; jaroslav@1646: assert("LIJFDV".indexOf(c) >= 0); jaroslav@1646: return c; jaroslav@1646: } jaroslav@1646: public static char[] basicTypes(List> types) { jaroslav@1646: char[] btypes = new char[types.size()]; jaroslav@1646: for (int i = 0; i < btypes.length; i++) { jaroslav@1646: btypes[i] = basicType(types.get(i)); jaroslav@1646: } jaroslav@1646: return btypes; jaroslav@1646: } jaroslav@1646: public static String basicTypeSignature(MethodType type) { jaroslav@1646: char[] sig = new char[type.parameterCount() + 2]; jaroslav@1646: int sigp = 0; jaroslav@1646: for (Class pt : type.parameterList()) { jaroslav@1646: sig[sigp++] = basicType(pt); jaroslav@1646: } jaroslav@1646: sig[sigp++] = '_'; jaroslav@1646: sig[sigp++] = basicType(type.returnType()); jaroslav@1646: assert(sigp == sig.length); jaroslav@1646: return String.valueOf(sig); jaroslav@1646: } jaroslav@1646: jaroslav@1646: static final class Name { jaroslav@1646: final char type; jaroslav@1646: private short index; jaroslav@1646: final NamedFunction function; jaroslav@1646: @Stable final Object[] arguments; jaroslav@1646: jaroslav@1646: private Name(int index, char type, NamedFunction function, Object[] arguments) { jaroslav@1646: this.index = (short)index; jaroslav@1646: this.type = type; jaroslav@1646: this.function = function; jaroslav@1646: this.arguments = arguments; jaroslav@1646: assert(this.index == index); jaroslav@1646: } jaroslav@1646: Name(MethodHandle function, Object... arguments) { jaroslav@1646: this(new NamedFunction(function), arguments); jaroslav@1646: } jaroslav@1646: Name(MethodType functionType, Object... arguments) { jaroslav@1646: this(new NamedFunction(functionType), arguments); jaroslav@1646: assert(arguments[0] instanceof Name && ((Name)arguments[0]).type == 'L'); jaroslav@1646: } jaroslav@1646: Name(MemberName function, Object... arguments) { jaroslav@1646: this(new NamedFunction(function), arguments); jaroslav@1646: } jaroslav@1646: Name(NamedFunction function, Object... arguments) { jaroslav@1646: this(-1, function.returnType(), function, arguments = arguments.clone()); jaroslav@1646: assert(arguments.length == function.arity()) : "arity mismatch: arguments.length=" + arguments.length + " == function.arity()=" + function.arity() + " in " + debugString(); jaroslav@1646: for (int i = 0; i < arguments.length; i++) jaroslav@1646: assert(typesMatch(function.parameterType(i), arguments[i])) : "types don't match: function.parameterType(" + i + ")=" + function.parameterType(i) + ", arguments[" + i + "]=" + arguments[i] + " in " + debugString(); jaroslav@1646: } jaroslav@1646: Name(int index, char type) { jaroslav@1646: this(index, type, null, null); jaroslav@1646: } jaroslav@1646: Name(char type) { jaroslav@1646: this(-1, type); jaroslav@1646: } jaroslav@1646: jaroslav@1646: char type() { return type; } jaroslav@1646: int index() { return index; } jaroslav@1646: boolean initIndex(int i) { jaroslav@1646: if (index != i) { jaroslav@1646: if (index != -1) return false; jaroslav@1646: index = (short)i; jaroslav@1646: } jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: jaroslav@1646: jaroslav@1646: void resolve() { jaroslav@1646: if (function != null) jaroslav@1646: function.resolve(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: Name newIndex(int i) { jaroslav@1646: if (initIndex(i)) return this; jaroslav@1646: return cloneWithIndex(i); jaroslav@1646: } jaroslav@1646: Name cloneWithIndex(int i) { jaroslav@1646: Object[] newArguments = (arguments == null) ? null : arguments.clone(); jaroslav@1646: return new Name(i, type, function, newArguments); jaroslav@1646: } jaroslav@1646: Name replaceName(Name oldName, Name newName) { // FIXME: use replaceNames uniformly jaroslav@1646: if (oldName == newName) return this; jaroslav@1646: @SuppressWarnings("LocalVariableHidesMemberVariable") jaroslav@1646: Object[] arguments = this.arguments; jaroslav@1646: if (arguments == null) return this; jaroslav@1646: boolean replaced = false; jaroslav@1646: for (int j = 0; j < arguments.length; j++) { jaroslav@1646: if (arguments[j] == oldName) { jaroslav@1646: if (!replaced) { jaroslav@1646: replaced = true; jaroslav@1646: arguments = arguments.clone(); jaroslav@1646: } jaroslav@1646: arguments[j] = newName; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: if (!replaced) return this; jaroslav@1646: return new Name(function, arguments); jaroslav@1646: } jaroslav@1646: Name replaceNames(Name[] oldNames, Name[] newNames, int start, int end) { jaroslav@1646: @SuppressWarnings("LocalVariableHidesMemberVariable") jaroslav@1646: Object[] arguments = this.arguments; jaroslav@1646: boolean replaced = false; jaroslav@1646: eachArg: jaroslav@1646: for (int j = 0; j < arguments.length; j++) { jaroslav@1646: if (arguments[j] instanceof Name) { jaroslav@1646: Name n = (Name) arguments[j]; jaroslav@1646: int check = n.index; jaroslav@1646: // harmless check to see if the thing is already in newNames: jaroslav@1646: if (check >= 0 && check < newNames.length && n == newNames[check]) jaroslav@1646: continue eachArg; jaroslav@1646: // n might not have the correct index: n != oldNames[n.index]. jaroslav@1646: for (int i = start; i < end; i++) { jaroslav@1646: if (n == oldNames[i]) { jaroslav@1646: if (n == newNames[i]) jaroslav@1646: continue eachArg; jaroslav@1646: if (!replaced) { jaroslav@1646: replaced = true; jaroslav@1646: arguments = arguments.clone(); jaroslav@1646: } jaroslav@1646: arguments[j] = newNames[i]; jaroslav@1646: continue eachArg; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: if (!replaced) return this; jaroslav@1646: return new Name(function, arguments); jaroslav@1646: } jaroslav@1646: void internArguments() { jaroslav@1646: @SuppressWarnings("LocalVariableHidesMemberVariable") jaroslav@1646: Object[] arguments = this.arguments; jaroslav@1646: for (int j = 0; j < arguments.length; j++) { jaroslav@1646: if (arguments[j] instanceof Name) { jaroslav@1646: Name n = (Name) arguments[j]; jaroslav@1646: if (n.isParam() && n.index < INTERNED_ARGUMENT_LIMIT) jaroslav@1646: arguments[j] = internArgument(n); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: boolean isParam() { jaroslav@1646: return function == null; jaroslav@1646: } jaroslav@1646: boolean isConstantZero() { jaroslav@1646: return !isParam() && arguments.length == 0 && function.equals(constantZero(0, type).function); jaroslav@1646: } jaroslav@1646: jaroslav@1646: public String toString() { jaroslav@1646: return (isParam()?"a":"t")+(index >= 0 ? index : System.identityHashCode(this))+":"+type; jaroslav@1646: } jaroslav@1646: public String debugString() { jaroslav@1646: String s = toString(); jaroslav@1646: return (function == null) ? s : s + "=" + exprString(); jaroslav@1646: } jaroslav@1646: public String exprString() { jaroslav@1646: if (function == null) return "null"; jaroslav@1646: StringBuilder buf = new StringBuilder(function.toString()); jaroslav@1646: buf.append("("); jaroslav@1646: String cma = ""; jaroslav@1646: for (Object a : arguments) { jaroslav@1646: buf.append(cma); cma = ","; jaroslav@1646: if (a instanceof Name || a instanceof Integer) jaroslav@1646: buf.append(a); jaroslav@1646: else jaroslav@1646: buf.append("(").append(a).append(")"); jaroslav@1646: } jaroslav@1646: buf.append(")"); jaroslav@1646: return buf.toString(); jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static boolean typesMatch(char parameterType, Object object) { jaroslav@1646: if (object instanceof Name) { jaroslav@1646: return ((Name)object).type == parameterType; jaroslav@1646: } jaroslav@1646: switch (parameterType) { jaroslav@1646: case 'I': return object instanceof Integer; jaroslav@1646: case 'J': return object instanceof Long; jaroslav@1646: case 'F': return object instanceof Float; jaroslav@1646: case 'D': return object instanceof Double; jaroslav@1646: } jaroslav@1646: assert(parameterType == 'L'); jaroslav@1646: return true; jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** jaroslav@1646: * Does this Name precede the given binding node in some canonical order? jaroslav@1646: * This predicate is used to order data bindings (via insertion sort) jaroslav@1646: * with some stability. jaroslav@1646: */ jaroslav@1646: boolean isSiblingBindingBefore(Name binding) { jaroslav@1646: assert(!binding.isParam()); jaroslav@1646: if (isParam()) return true; jaroslav@1646: if (function.equals(binding.function) && jaroslav@1646: arguments.length == binding.arguments.length) { jaroslav@1646: boolean sawInt = false; jaroslav@1646: for (int i = 0; i < arguments.length; i++) { jaroslav@1646: Object a1 = arguments[i]; jaroslav@1646: Object a2 = binding.arguments[i]; jaroslav@1646: if (!a1.equals(a2)) { jaroslav@1646: if (a1 instanceof Integer && a2 instanceof Integer) { jaroslav@1646: if (sawInt) continue; jaroslav@1646: sawInt = true; jaroslav@1646: if ((int)a1 < (int)a2) continue; // still might be true jaroslav@1646: } jaroslav@1646: return false; jaroslav@1646: } jaroslav@1646: } jaroslav@1646: return sawInt; jaroslav@1646: } jaroslav@1646: return false; jaroslav@1646: } jaroslav@1646: jaroslav@1646: public boolean equals(Name that) { jaroslav@1646: if (this == that) return true; jaroslav@1646: if (isParam()) jaroslav@1646: // each parameter is a unique atom jaroslav@1646: return false; // this != that jaroslav@1646: return jaroslav@1646: //this.index == that.index && jaroslav@1646: this.type == that.type && jaroslav@1646: this.function.equals(that.function) && jaroslav@1646: Arrays.equals(this.arguments, that.arguments); jaroslav@1646: } jaroslav@1646: @Override jaroslav@1646: public boolean equals(Object x) { jaroslav@1646: return x instanceof Name && equals((Name)x); jaroslav@1646: } jaroslav@1646: @Override jaroslav@1646: public int hashCode() { jaroslav@1646: if (isParam()) jaroslav@1646: return index | (type << 8); jaroslav@1646: return function.hashCode() ^ Arrays.hashCode(arguments); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: static Name argument(int which, char type) { jaroslav@1646: int tn = ALL_TYPES.indexOf(type); jaroslav@1646: if (tn < 0 || which >= INTERNED_ARGUMENT_LIMIT) jaroslav@1646: return new Name(which, type); jaroslav@1646: return INTERNED_ARGUMENTS[tn][which]; jaroslav@1646: } jaroslav@1646: static Name internArgument(Name n) { jaroslav@1646: assert(n.isParam()) : "not param: " + n; jaroslav@1646: assert(n.index < INTERNED_ARGUMENT_LIMIT); jaroslav@1646: return argument(n.index, n.type); jaroslav@1646: } jaroslav@1646: static Name[] arguments(int extra, String types) { jaroslav@1646: int length = types.length(); jaroslav@1646: Name[] names = new Name[length + extra]; jaroslav@1646: for (int i = 0; i < length; i++) jaroslav@1646: names[i] = argument(i, types.charAt(i)); jaroslav@1646: return names; jaroslav@1646: } jaroslav@1646: static Name[] arguments(int extra, char... types) { jaroslav@1646: int length = types.length; jaroslav@1646: Name[] names = new Name[length + extra]; jaroslav@1646: for (int i = 0; i < length; i++) jaroslav@1646: names[i] = argument(i, types[i]); jaroslav@1646: return names; jaroslav@1646: } jaroslav@1646: static Name[] arguments(int extra, List> types) { jaroslav@1646: int length = types.size(); jaroslav@1646: Name[] names = new Name[length + extra]; jaroslav@1646: for (int i = 0; i < length; i++) jaroslav@1646: names[i] = argument(i, basicType(types.get(i))); jaroslav@1646: return names; jaroslav@1646: } jaroslav@1646: static Name[] arguments(int extra, Class... types) { jaroslav@1646: int length = types.length; jaroslav@1646: Name[] names = new Name[length + extra]; jaroslav@1646: for (int i = 0; i < length; i++) jaroslav@1646: names[i] = argument(i, basicType(types[i])); jaroslav@1646: return names; jaroslav@1646: } jaroslav@1646: static Name[] arguments(int extra, MethodType types) { jaroslav@1646: int length = types.parameterCount(); jaroslav@1646: Name[] names = new Name[length + extra]; jaroslav@1646: for (int i = 0; i < length; i++) jaroslav@1646: names[i] = argument(i, basicType(types.parameterType(i))); jaroslav@1646: return names; jaroslav@1646: } jaroslav@1646: static final String ALL_TYPES = "LIJFD"; // omit V, not an argument type jaroslav@1646: static final int INTERNED_ARGUMENT_LIMIT = 10; jaroslav@1646: private static final Name[][] INTERNED_ARGUMENTS jaroslav@1646: = new Name[ALL_TYPES.length()][INTERNED_ARGUMENT_LIMIT]; jaroslav@1646: static { jaroslav@1646: for (int tn = 0; tn < ALL_TYPES.length(); tn++) { jaroslav@1646: for (int i = 0; i < INTERNED_ARGUMENTS[tn].length; i++) { jaroslav@1646: char type = ALL_TYPES.charAt(tn); jaroslav@1646: INTERNED_ARGUMENTS[tn][i] = new Name(i, type); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: private static final MemberName.Factory IMPL_NAMES = MemberName.getFactory(); jaroslav@1646: jaroslav@1646: static Name constantZero(int which, char type) { jaroslav@1646: return CONSTANT_ZERO[ALL_TYPES.indexOf(type)].newIndex(which); jaroslav@1646: } jaroslav@1646: private static final Name[] CONSTANT_ZERO jaroslav@1646: = new Name[ALL_TYPES.length()]; jaroslav@1646: static { jaroslav@1646: for (int tn = 0; tn < ALL_TYPES.length(); tn++) { jaroslav@1646: char bt = ALL_TYPES.charAt(tn); jaroslav@1646: Wrapper wrap = Wrapper.forBasicType(bt); jaroslav@1646: MemberName zmem = new MemberName(LambdaForm.class, "zero"+bt, MethodType.methodType(wrap.primitiveType()), REF_invokeStatic); jaroslav@1646: try { jaroslav@1646: zmem = IMPL_NAMES.resolveOrFail(REF_invokeStatic, zmem, null, NoSuchMethodException.class); jaroslav@1646: } catch (IllegalAccessException|NoSuchMethodException ex) { jaroslav@1646: throw newInternalError(ex); jaroslav@1646: } jaroslav@1646: NamedFunction zcon = new NamedFunction(zmem); jaroslav@1646: Name n = new Name(zcon).newIndex(0); jaroslav@1646: assert(n.type == ALL_TYPES.charAt(tn)); jaroslav@1646: CONSTANT_ZERO[tn] = n; jaroslav@1646: assert(n.isConstantZero()); jaroslav@1646: } jaroslav@1646: } jaroslav@1646: jaroslav@1646: // Avoid appealing to ValueConversions at bootstrap time: jaroslav@1646: private static int zeroI() { return 0; } jaroslav@1646: private static long zeroJ() { return 0; } jaroslav@1646: private static float zeroF() { return 0; } jaroslav@1646: private static double zeroD() { return 0; } jaroslav@1646: private static Object zeroL() { return null; } jaroslav@1646: jaroslav@1646: // Put this last, so that previous static inits can run before. jaroslav@1646: static { jaroslav@1646: if (USE_PREDEFINED_INTERPRET_METHODS) jaroslav@1646: PREPARED_FORMS.putAll(computeInitialPreparedForms()); jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** jaroslav@1646: * Internal marker for byte-compiled LambdaForms. jaroslav@1646: */ jaroslav@1646: /*non-public*/ jaroslav@1646: @Target(ElementType.METHOD) jaroslav@1646: @Retention(RetentionPolicy.RUNTIME) jaroslav@1646: @interface Compiled { jaroslav@1646: } jaroslav@1646: jaroslav@1646: /** jaroslav@1646: * Internal marker for LambdaForm interpreter frames. jaroslav@1646: */ jaroslav@1646: /*non-public*/ jaroslav@1646: @Target(ElementType.METHOD) jaroslav@1646: @Retention(RetentionPolicy.RUNTIME) jaroslav@1646: @interface Hidden { jaroslav@1646: } jaroslav@1646: jaroslav@1646: jaroslav@1646: /* jaroslav@1646: // Smoke-test for the invokers used in this file. jaroslav@1646: static void testMethodHandleLinkers() throws Throwable { jaroslav@1646: MemberName.Factory lookup = MemberName.getFactory(); jaroslav@1646: MemberName asList_MN = new MemberName(Arrays.class, "asList", jaroslav@1646: MethodType.methodType(List.class, Object[].class), jaroslav@1646: REF_invokeStatic); jaroslav@1646: //MethodHandleNatives.resolve(asList_MN, null); jaroslav@1646: asList_MN = lookup.resolveOrFail(asList_MN, REF_invokeStatic, null, NoSuchMethodException.class); jaroslav@1646: System.out.println("about to call "+asList_MN); jaroslav@1646: Object[] abc = { "a", "bc" }; jaroslav@1646: List lst = (List) MethodHandle.linkToStatic(abc, asList_MN); jaroslav@1646: System.out.println("lst="+lst); jaroslav@1646: MemberName toString_MN = new MemberName(Object.class.getMethod("toString")); jaroslav@1646: String s1 = (String) MethodHandle.linkToVirtual(lst, toString_MN); jaroslav@1646: toString_MN = new MemberName(Object.class.getMethod("toString"), true); jaroslav@1646: String s2 = (String) MethodHandle.linkToSpecial(lst, toString_MN); jaroslav@1646: System.out.println("[s1,s2,lst]="+Arrays.asList(s1, s2, lst.toString())); jaroslav@1646: MemberName toArray_MN = new MemberName(List.class.getMethod("toArray")); jaroslav@1646: Object[] arr = (Object[]) MethodHandle.linkToInterface(lst, toArray_MN); jaroslav@1646: System.out.println("toArray="+Arrays.toString(arr)); jaroslav@1646: } jaroslav@1646: static { try { testMethodHandleLinkers(); } catch (Throwable ex) { throw new RuntimeException(ex); } } jaroslav@1646: // Requires these definitions in MethodHandle: jaroslav@1646: static final native Object linkToStatic(Object x1, MemberName mn) throws Throwable; jaroslav@1646: static final native Object linkToVirtual(Object x1, MemberName mn) throws Throwable; jaroslav@1646: static final native Object linkToSpecial(Object x1, MemberName mn) throws Throwable; jaroslav@1646: static final native Object linkToInterface(Object x1, MemberName mn) throws Throwable; jaroslav@1646: */ jaroslav@1646: jaroslav@1646: static { NamedFunction.initializeInvokers(); } jaroslav@1646: jaroslav@1646: // The following hack is necessary in order to suppress TRACE_INTERPRETER jaroslav@1646: // during execution of the static initializes of this class. jaroslav@1646: // Turning on TRACE_INTERPRETER too early will cause jaroslav@1646: // stack overflows and other misbehavior during attempts to trace events jaroslav@1646: // that occur during LambdaForm.. jaroslav@1646: // Therefore, do not move this line higher in this file, and do not remove. jaroslav@1646: private static final boolean TRACE_INTERPRETER = MethodHandleStatics.TRACE_INTERPRETER; jaroslav@1646: }