Mercurial > hg > truffle

annotate graal/com.oracle.truffle.api.dsl/src/com/oracle/truffle/api/dsl/internal/DSLShare.java @ 16766:90984ae0eaa8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Truffle-DSL: Fixed headers.
author Christian Humer <christian.humer@gmail.com>
date Mon, 11 Aug 2014 17:29:24 +0200
parents e6d15134ca86
children f5541b01f374
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16766
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
1 /*
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
2 * Copyright (c) 2012, 2012, Oracle and/or its affiliates. All rights reserved.
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
4 *
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
5 * This code is free software; you can redistribute it and/or modify it
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
6 * under the terms of the GNU General Public License version 2 only, as
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
7 * published by the Free Software Foundation. Oracle designates this
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
8 * particular file as subject to the "Classpath" exception as provided
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
9 * by Oracle in the LICENSE file that accompanied this code.
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
10 *
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
11 * This code is distributed in the hope that it will be useful, but WITHOUT
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
12 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
13 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
14 * version 2 for more details (a copy is included in the LICENSE file that
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
15 * accompanied this code).
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
16 *
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
17 * You should have received a copy of the GNU General Public License version
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
18 * 2 along with this work; if not, write to the Free Software Foundation,
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
19 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
20 *
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
21 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
22 * or visit www.oracle.com if you need additional information or have any
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
23 * questions.
90984ae0eaa8 Truffle-DSL: Fixed headers.
Christian Humer <christian.humer@gmail.com>
parents: 16763
diff changeset
24 */
16763
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
25 package com.oracle.truffle.api.dsl.internal;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
26
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
27 import java.util.*;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
28
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
29 import com.oracle.truffle.api.nodes.*;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
30
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
31 /** Contains utility classes shared across generated DSLNode implementations. */
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
32 public class DSLShare {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
33
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
34 public static boolean isExcluded(Node currentNode, DSLMetadata otherMetadata) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
35 assert otherMetadata.getExcludedBy().length > 0 : "At least one exclude must be defined for isIncluded.";
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
36 Node cur = findRoot(currentNode);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
37 while (cur != null) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
38 Class<?> curClass = cur.getClass();
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
39 if (curClass == otherMetadata.getSpecializationClass()) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
40 return true;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
41 } else if (containsClass(otherMetadata.getExcludedBy(), cur)) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
42 return true;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
43 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
44 cur = getNext(cur);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
45 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
46 return false;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
47 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
48
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
49 private static boolean includes(Node oldNode, DSLNode newNode) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
50 return containsClass(newNode.getMetadata0().getIncludes(), oldNode);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
51 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
52
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
53 public static <T extends Node & DSLNode> T rewrite(Node thisNode, T newNode, String message) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
54 assert newNode != null;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
55 if (getNext(thisNode) != null || getPrevious(thisNode) != null) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
56 // already polymorphic -> append
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
57 return appendPolymorphic(findUninitialized(thisNode), newNode);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
58 } else if (includes(thisNode, newNode)) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
59 // included -> remains monomorphic
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
60 newNode.adoptChildren0(thisNode, null);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
61 return thisNode.replace(newNode, message);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
62 } else {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
63 // goto polymorphic
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
64 return null;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
65 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
66 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
67
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
68 @SuppressWarnings("unchecked")
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
69 public static <T extends Node> T findRoot(T node) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
70 Node prev = node;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
71 Node cur;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
72 do {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
73 cur = prev;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
74 prev = getPrevious(cur);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
75 } while (prev != null);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
76 return (T) cur;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
77 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
78
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
79 private static Node findUninitialized(Node node) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
80 Node next = node;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
81 Node cur;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
82 do {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
83 cur = next;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
84 next = getNext(cur);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
85 } while (next != null);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
86 return cur;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
87 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
88
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
89 public static <T extends Node & DSLNode> T rewriteUninitialized(Node uninitialized, T newNode) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
90 Node prev = getPrevious(uninitialized);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
91 if (prev == null) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
92 newNode.adoptChildren0(uninitialized, null);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
93 return uninitialized.replace(newNode, "Uninitialized monomorphic");
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
94 } else {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
95 return appendPolymorphic(uninitialized, newNode);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
96 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
97 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
98
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
99 public static <T extends Node & DSLNode> T rewriteToPolymorphic(Node oldNode, DSLNode uninitialized, T polymorphic, DSLNode currentCopy, DSLNode newNode, String message) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
100 assert getNext(oldNode) == null;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
101 assert getPrevious(oldNode) == null;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
102
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
103 polymorphic.adoptChildren0(oldNode, (Node) currentCopy);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
104
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
105 if (newNode == null) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
106 // fallback
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
107 currentCopy.adoptChildren0(null, (Node) uninitialized);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
108 } else {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
109 // new specialization
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
110 newNode.adoptChildren0(null, (Node) uninitialized);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
111 currentCopy.adoptChildren0(null, (Node) newNode);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
112 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
113
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
114 oldNode.replace(polymorphic, message);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
115
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
116 assert polymorphic.getNext0() == currentCopy;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
117 assert newNode != null ? currentCopy.getNext0() == newNode : currentCopy.getNext0() == uninitialized;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
118 assert uninitialized.getNext0() == null;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
119 return polymorphic;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
120 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
121
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
122 private static Class<?>[] mergeTypes(DSLNode node, Class<?>[] types) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
123 Class<?>[] specializedTypes = node.getMetadata0().getSpecializedTypes();
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
124 if (specializedTypes.length == 0) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
125 return null;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
126 } else if (types == null) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
127 return Arrays.copyOf(specializedTypes, specializedTypes.length);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
128 } else {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
129 for (int i = 0; i < specializedTypes.length; i++) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
130 if (specializedTypes[i] != types[i]) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
131 types[i] = Object.class;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
132 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
133 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
134 return types;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
135 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
136 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
137
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
138 private static <T extends Node & DSLNode> T appendPolymorphic(Node uninitialized, T newNode) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
139 Class<?>[] includes = newNode.getMetadata0().getIncludes();
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
140 Node cur = getPrevious(uninitialized);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
141 Node prev = uninitialized;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
142 int depth = 0;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
143 Class<?>[] types = null;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
144 while (cur != null) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
145 if (containsClass(includes, cur)) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
146 cur.replace(prev, "Included in other specialization");
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
147 cur = prev;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
148 } else {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
149 depth++;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
150 types = mergeTypes((DSLNode) cur, types);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
151 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
152 prev = cur;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
153 cur = getPrevious(cur);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
154 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
155 assert prev.getCost() == NodeCost.POLYMORPHIC;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
156
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
157 if (depth == 0) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
158 newNode.adoptChildren0(prev, null);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
159 return prev.replace(newNode, "Polymorphic to monomorphic.");
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
160 } else {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
161 newNode.adoptChildren0(null, uninitialized);
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
162 ((DSLNode) prev).updateTypes0(mergeTypes(newNode, types));
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
163 return uninitialized.replace(newNode, "Appended polymorphic");
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
164 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
165 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
166
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
167 private static boolean containsClass(Class<?>[] classList, Node node) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
168 Class<?> nodeClass = node.getClass();
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
169 for (Class<?> toCheck : classList) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
170 if (nodeClass == toCheck) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
171 if (node.getCost() == NodeCost.UNINITIALIZED) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
172 /*
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
173 * In case a specialization is excluded by the fallback specialization the
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
174 * uninitialized class is used as exclusion class. Because the fallback field in
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
175 * the uninitialized specialization is not accessible we use the costs to check
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
176 * if the fallback was reached or not. In case the fallback was reached in the
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
177 * uninitialized version the cost is MONOMORPHIC, otherwise it is UNINITIALIZED.
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
178 */
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
179 continue;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
180 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
181 return true;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
182 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
183 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
184 return false;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
185 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
186
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
187 private static Node getNext(Node node) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
188 return ((DSLNode) node).getNext0();
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
189 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
190
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
191 private static Node getPrevious(Node node) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
192 Node parent = node.getParent();
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
193 if (parent instanceof DSLNode && getNext(parent) == node) {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
194 return parent;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
195 } else {
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
196 return null;
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
197 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
198 }
e6d15134ca86 Truffle-DSL: fixed formatting problems.
Christian Humer <christian.humer@gmail.com>
parents: 16751
diff changeset
199
16751
4f589fa69b9c Truffle-DSL: added shared code required for the new generation layout.
Christian Humer <christian.humer@gmail.com>
parents:
diff changeset
200 }