Mercurial > hg > graal-compiler

comparison graal/com.oracle.truffle.sl/src/com/oracle/truffle/sl/nodes/SLRootNode.java @ 13805:739194d1e813

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Christian Humer <christian.humer@gmail.com>
date Tue, 28 Jan 2014 12:55:06 +0100
parents graal/com.oracle.truffle.sl/src/com/oracle/truffle/sl/nodes/FunctionRootNode.java@e076c87ab175 graal/com.oracle.truffle.sl/src/com/oracle/truffle/sl/nodes/FunctionRootNode.java@7c418666c6c9
children 533b21375e58
comparison
equal deleted inserted replaced
13804:3840d61e0e68 13805:739194d1e813
1 /*
2 * Copyright (c) 2012, 2013, Oracle and/or its affiliates. All rights reserved.
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * This code is free software; you can redistribute it and/or modify it
6 * under the terms of the GNU General Public License version 2 only, as
7 * published by the Free Software Foundation.
8 *
9 * This code is distributed in the hope that it will be useful, but WITHOUT
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
12 * version 2 for more details (a copy is included in the LICENSE file that
13 * accompanied this code).
14 *
15 * You should have received a copy of the GNU General Public License version
16 * 2 along with this work; if not, write to the Free Software Foundation,
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
18 *
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
20 * or visit www.oracle.com if you need additional information or have any
21 * questions.
22 */
23 package com.oracle.truffle.sl.nodes;
24
25 import com.oracle.truffle.api.*;
26 import com.oracle.truffle.api.dsl.*;
27 import com.oracle.truffle.api.frame.*;
28 import com.oracle.truffle.api.nodes.*;
29 import com.oracle.truffle.sl.builtins.*;
30 import com.oracle.truffle.sl.nodes.controlflow.*;
31 import com.oracle.truffle.sl.nodes.local.*;
32 import com.oracle.truffle.sl.runtime.*;
33
34 public final class SLRootNode extends RootNode {
35
36 @Child private SLExpressionNode body;
37
38 private final SLExpressionNode uninitializedBody;
39 private final String name;
40 private final boolean inlineImmediatly;
41
42 public static RootCallTarget createFunction(String name, FrameDescriptor frameDescriptor, SLStatementNode body) {
43 SLFunctionBodyNode bodyContainer = new SLFunctionBodyNode(frameDescriptor, body);
44 SLRootNode root = new SLRootNode(frameDescriptor, bodyContainer, name, false);
45 return Truffle.getRuntime().createCallTarget(root);
46 }
47
48 public static RootCallTarget createBuiltin(SLContext context, NodeFactory<? extends SLBuiltinNode> factory, String name) {
49 int argumentCount = factory.getExecutionSignature().size();
50 SLExpressionNode[] arguments = new SLExpressionNode[argumentCount];
51 for (int i = 0; i < arguments.length; i++) {
52 arguments[i] = new SLReadArgumentNode(i);
53 }
54 SLBuiltinNode buitinBody = factory.createNode(arguments, context);
55 SLRootNode root = new SLRootNode(new FrameDescriptor(), buitinBody, name, true);
56 return Truffle.getRuntime().createCallTarget(root);
57 }
58
59 private SLRootNode(FrameDescriptor frameDescriptor, SLExpressionNode body, String name, boolean inlineImmediatly) {
60 super(null, frameDescriptor);
61 this.uninitializedBody = NodeUtil.cloneNode(body);
62 this.body = adoptChild(body);
63 this.name = name;
64 this.inlineImmediatly = inlineImmediatly;
65 }
66
67 @Override
68 public Object execute(VirtualFrame frame) {
69 return body.executeGeneric(frame);
70 }
71
72 public boolean isInlineImmediatly() {
73 return inlineImmediatly;
74 }
75
76 @Override
77 public RootNode inline() {
78 return new FunctionRootNode(getFrameDescriptor().shallowCopy(), NodeUtil.cloneNode(uninitializedBody), name, inlineImmediatly);
79 }
80
81 @Override
82 public int getInlineNodeCount() {
83 return NodeUtil.countNodes(uninitializedBody);
84 }
85
86 @Override
87 public boolean isInlinable() {
88 return true;
89 }
90
91 public Node getUninitializedBody() {
92 return uninitializedBody;
93 }
94
95 @Override
96 public String toString() {
97 return "function " + name;
98 }
99 }