Mercurial > hg > graal-compiler
annotate graal/com.oracle.truffle.interop/src/com/oracle/truffle/interop/node/ObjectAccessNode.java @ 21329:6a32034ace1b
LinearScan: make opIdToIndex private.
author | Josef Eisl <josef.eisl@jku.at> |
---|---|
date | Tue, 12 May 2015 13:08:43 +0200 |
parents | 556b6a4b36b2 |
children | b1530a6cce8c |
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.InteropPredicate; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
31 import com.oracle.truffle.api.interop.messages.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
32 import com.oracle.truffle.api.nodes.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
33 import com.oracle.truffle.interop.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
34 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
35 abstract class ObjectAccessNode extends Node { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
36 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
37 public abstract Object executeWith(VirtualFrame frame, TruffleObject receiver, Object[] arguments); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
41 class UnresolvedObjectAccessNode extends ObjectAccessNode { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
42 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
43 private static final int CACHE_SIZE = 8; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
44 private int cacheLength = 1; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
45 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
46 @Override |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
47 public Object executeWith(VirtualFrame frame, TruffleObject receiver, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
48 CompilerDirectives.transferToInterpreterAndInvalidate(); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
49 ForeignObjectAccessHeadNode nthParent = (ForeignObjectAccessHeadNode) NodeUtil.getNthParent(this, cacheLength); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
50 ObjectAccessNode first = nthParent.getFirst(); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
51 if (cacheLength < CACHE_SIZE) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
52 cacheLength++; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
53 CachedObjectAccessNode createCachedAccess = createCachedAccess(receiver, nthParent.getAccessTree(), first); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
54 return first.replace(createCachedAccess).executeWith(frame, receiver, arguments); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
55 } else { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
56 return first.replace(createGenericAccess(nthParent.getAccessTree())).executeWith(frame, receiver, arguments); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
60 private static CachedObjectAccessNode createCachedAccess(TruffleObject receiver, Message accessTree, ObjectAccessNode next) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
61 ForeignAccessFactory accessFactory = receiver.getForeignAccessFactory(); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
62 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
|
63 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
64 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
65 private static GenericObjectAccessNode createGenericAccess(Message access) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
66 return new GenericObjectAccessNode(access); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
70 class GenericObjectAccessNode extends ObjectAccessNode { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
71 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
72 private final Message access; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
73 @Child private IndirectCallNode indirectCallNode; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
74 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
75 public GenericObjectAccessNode(Message access) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
76 this.access = access; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
77 indirectCallNode = Truffle.getRuntime().createIndirectCallNode(); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
80 public GenericObjectAccessNode(GenericObjectAccessNode prev) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
81 this(prev.access); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
84 @Override |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
85 public Object executeWith(VirtualFrame frame, TruffleObject truffleObject, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
86 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
|
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
90 class CachedObjectAccessNode extends ObjectAccessNode { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
91 @Child private DirectCallNode callTarget; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
92 @Child private ObjectAccessNode next; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
93 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
94 private final InteropPredicate languageCheck; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
95 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
96 protected CachedObjectAccessNode(DirectCallNode callTarget, ObjectAccessNode next, InteropPredicate languageCheck) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
97 this.callTarget = callTarget; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
98 this.next = next; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
99 this.languageCheck = languageCheck; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
100 this.callTarget.forceInlining(); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
103 protected CachedObjectAccessNode(CachedObjectAccessNode prev) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
104 this(prev.callTarget, prev.next, prev.languageCheck); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
107 @Override |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
108 public Object executeWith(VirtualFrame frame, TruffleObject receiver, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
109 return doAccess(frame, receiver, arguments); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
112 private Object doAccess(VirtualFrame frame, TruffleObject receiver, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
113 if (languageCheck.test(receiver)) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
114 return callTarget.call(frame, ForeignAccessArguments.create(receiver, arguments)); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
115 } else { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
116 return doNext(frame, receiver, arguments); |
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 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
120 private Object doNext(VirtualFrame frame, TruffleObject receiver, Object[] arguments) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
121 return next.executeWith(frame, receiver, arguments); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
122 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
123 } |