Mercurial > hg > graal-jvmci-8
annotate graal/com.oracle.truffle.interop/src/com/oracle/truffle/interop/node/ObjectAccessNode.java @ 21554:b1530a6cce8c
renamed com.oracle.graal.[debug|options|hotspotvmconfig]* modules to com.oracle.jvmci.[debug|options|hotspotvmconfig]* modules (JBS:GRAAL-53)
author | Doug Simon <doug.simon@oracle.com> |
---|---|
date | Tue, 26 May 2015 23:21:15 +0200 |
parents | 556b6a4b36b2 |
children |
rev | line source |
---|---|
21013
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
1 /* |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
2 * Copyright (c) 2014, Oracle and/or its affiliates. All rights reserved. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
4 * |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
5 * This code is free software; you can redistribute it and/or modify it |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
6 * under the terms of the GNU General Public License version 2 only, as |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
7 * published by the Free Software Foundation. Oracle designates this |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
8 * particular file as subject to the "Classpath" exception as provided |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
9 * by Oracle in the LICENSE file that accompanied this code. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
10 * |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
11 * This code is distributed in the hope that it will be useful, but WITHOUT |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
12 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
13 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
14 * version 2 for more details (a copy is included in the LICENSE file that |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
15 * accompanied this code). |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
16 * |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
17 * You should have received a copy of the GNU General Public License version |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
18 * 2 along with this work; if not, write to the Free Software Foundation, |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
19 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
20 * |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
21 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
22 * or visit www.oracle.com if you need additional information or have any |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
23 * questions. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
24 */ |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
25 package com.oracle.truffle.interop.node; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
26 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
27 import com.oracle.truffle.api.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
28 import com.oracle.truffle.api.frame.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
29 import com.oracle.truffle.api.interop.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
30 import com.oracle.truffle.api.interop.messages.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
31 import com.oracle.truffle.api.nodes.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
32 import com.oracle.truffle.interop.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
33 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
34 abstract class ObjectAccessNode extends Node { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
35 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
36 public abstract Object executeWith(VirtualFrame frame, TruffleObject receiver, Object[] arguments); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
37 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
38 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
39 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
40 class UnresolvedObjectAccessNode extends ObjectAccessNode { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
41 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
42 private static final int CACHE_SIZE = 8; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
43 private int cacheLength = 1; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
44 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
45 @Override |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
46 public Object executeWith(VirtualFrame frame, TruffleObject receiver, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
47 CompilerDirectives.transferToInterpreterAndInvalidate(); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
48 ForeignObjectAccessHeadNode nthParent = (ForeignObjectAccessHeadNode) NodeUtil.getNthParent(this, cacheLength); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
49 ObjectAccessNode first = nthParent.getFirst(); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
50 if (cacheLength < CACHE_SIZE) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
51 cacheLength++; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
52 CachedObjectAccessNode createCachedAccess = createCachedAccess(receiver, nthParent.getAccessTree(), first); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
53 return first.replace(createCachedAccess).executeWith(frame, receiver, arguments); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
54 } else { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
55 return first.replace(createGenericAccess(nthParent.getAccessTree())).executeWith(frame, receiver, arguments); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
56 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
57 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
58 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
59 private static CachedObjectAccessNode createCachedAccess(TruffleObject receiver, Message accessTree, ObjectAccessNode next) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
60 ForeignAccessFactory accessFactory = receiver.getForeignAccessFactory(); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
61 return new CachedObjectAccessNode(Truffle.getRuntime().createDirectCallNode(accessFactory.getAccess(accessTree)), next, accessFactory.getLanguageCheck()); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
62 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
63 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
64 private static GenericObjectAccessNode createGenericAccess(Message access) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
65 return new GenericObjectAccessNode(access); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
66 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
67 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
68 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
69 class GenericObjectAccessNode extends ObjectAccessNode { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
70 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
71 private final Message access; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
72 @Child private IndirectCallNode indirectCallNode; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
73 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
74 public GenericObjectAccessNode(Message access) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
75 this.access = access; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
76 indirectCallNode = Truffle.getRuntime().createIndirectCallNode(); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
77 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
78 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
79 public GenericObjectAccessNode(GenericObjectAccessNode prev) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
80 this(prev.access); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
81 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
82 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
83 @Override |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
84 public Object executeWith(VirtualFrame frame, TruffleObject truffleObject, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
85 return indirectCallNode.call(frame, truffleObject.getForeignAccessFactory().getAccess(access), ForeignAccessArguments.create(truffleObject, arguments)); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
86 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
87 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
88 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
89 class CachedObjectAccessNode extends ObjectAccessNode { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
90 @Child private DirectCallNode callTarget; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
91 @Child private ObjectAccessNode next; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
92 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
93 private final InteropPredicate languageCheck; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
94 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
95 protected CachedObjectAccessNode(DirectCallNode callTarget, ObjectAccessNode next, InteropPredicate languageCheck) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
96 this.callTarget = callTarget; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
97 this.next = next; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
98 this.languageCheck = languageCheck; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
99 this.callTarget.forceInlining(); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
100 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
101 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
102 protected CachedObjectAccessNode(CachedObjectAccessNode prev) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
103 this(prev.callTarget, prev.next, prev.languageCheck); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
104 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
105 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
106 @Override |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
107 public Object executeWith(VirtualFrame frame, TruffleObject receiver, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
108 return doAccess(frame, receiver, arguments); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
109 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
110 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
111 private Object doAccess(VirtualFrame frame, TruffleObject receiver, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
112 if (languageCheck.test(receiver)) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
113 return callTarget.call(frame, ForeignAccessArguments.create(receiver, arguments)); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
114 } else { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
115 return doNext(frame, receiver, arguments); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
116 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
117 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
118 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
119 private Object doNext(VirtualFrame frame, TruffleObject receiver, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
120 return next.executeWith(frame, receiver, arguments); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
121 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
122 } |