comparison graal/com.oracle.truffle.api.codegen.test/src/com/oracle/truffle/api/codegen/test/ExecuteEvaluatedTest.java @ 9223:5f7f0d3e3638

Updated codegen tests to new codegen API.
author Christian Humer <christian.humer@gmail.com>
date Sat, 20 Apr 2013 12:17:47 +0200
parents
children 76a6e7907b67
comparison
equal deleted inserted replaced
9222:aa9ffb3a715e 9223:5f7f0d3e3638
1 /*
2 * Copyright (c) 2012, 2012, 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.api.codegen.test;
24
25 import com.oracle.truffle.api.*;
26 import com.oracle.truffle.api.codegen.*;
27 import com.oracle.truffle.api.codegen.test.TypeSystemTest.ValueNode;
28 import com.oracle.truffle.api.frame.*;
29 import com.oracle.truffle.api.nodes.*;
30
31 public class ExecuteEvaluatedTest {
32
33 public abstract static class ExtValueNode extends ValueNode {
34
35 public CallTarget executeCallTarget(VirtualFrame frame) throws UnexpectedResultException {
36 return SimpleTypesGen.SIMPLETYPES.expectCallTarget(execute(frame));
37 }
38
39 }
40
41 /* Represents target[element] */
42 @NodeChildren({@NodeChild("targetNode"), @NodeChild("elementNode")})
43 abstract static class ReadElementNode extends ExtValueNode {
44
45 @Specialization
46 int getInt(Object[] target, int element) {
47 return (int) target[element];
48 }
49
50 public abstract Object executeWith(VirtualFrame frame, Object targetValue);
51 }
52
53 /* Represents target[element]() */
54 @NodeChildren({@NodeChild("targetNode"), @NodeChild(value = "elementNode", type = ReadElementNode.class, executeWith = "targetNode")})
55 abstract static class ElementCallNode extends ExtValueNode {
56
57 @Specialization
58 Object call(Object receiver, CallTarget callTarget) {
59 return callTarget.call(new TestArguments(receiver));
60 }
61
62 }
63
64 public static class TestArguments extends Arguments {
65
66 private final Object receiver;
67
68 public TestArguments(Object receiver) {
69 this.receiver = receiver;
70 }
71
72 public Object getReceiver() {
73 return receiver;
74 }
75
76 }
77
78 }