comparison graal/com.oracle.truffle.ruby.nodes/src/com/oracle/truffle/ruby/nodes/call/ProcOrNullNode.java @ 13529:856c2c294f84

Merge.
author Christian Humer <christian.humer@gmail.com>
date Tue, 07 Jan 2014 18:53:04 +0100
parents 0fbee3eb71f0
children
comparison
equal deleted inserted replaced
13528:5a0c694ef735 13529:856c2c294f84
1 /*
2 * Copyright (c) 2013 Oracle and/or its affiliates. All rights reserved. This
3 * code is released under a tri EPL/GPL/LGPL license. You can use it,
4 * redistribute it and/or modify it under the terms of the:
5 *
6 * Eclipse Public License version 1.0
7 * GNU General Public License version 2
8 * GNU Lesser General Public License version 2.1
9 */
10 package com.oracle.truffle.ruby.nodes.call;
11
12 import com.oracle.truffle.api.*;
13 import com.oracle.truffle.api.dsl.*;
14 import com.oracle.truffle.api.frame.*;
15 import com.oracle.truffle.api.nodes.*;
16 import com.oracle.truffle.ruby.nodes.*;
17 import com.oracle.truffle.ruby.runtime.*;
18 import com.oracle.truffle.ruby.runtime.core.*;
19
20 /**
21 * Wraps some node that will produce either a {@link RubyProc} or a {@link NilPlaceholder} and
22 * returns {@code null} in case of the latter. Used in parts of the dispatch chain.
23 */
24 @NodeInfo(shortName = "proc-or-null")
25 @NodeChild(value = "child", type = RubyNode.class)
26 public abstract class ProcOrNullNode extends RubyNode {
27
28 public ProcOrNullNode(RubyContext context, SourceSection sourceSection) {
29 super(context, sourceSection);
30 }
31
32 public ProcOrNullNode(ProcOrNullNode prev) {
33 super(prev);
34 }
35
36 @Specialization
37 public Object doNil(@SuppressWarnings("unused") NilPlaceholder nil) {
38 return null;
39 }
40
41 @Specialization
42 public Object doProc(RubyProc proc) {
43 return proc;
44 }
45
46 @Override
47 public RubyProc executeRubyProc(VirtualFrame frame) {
48 final Object proc = execute(frame);
49
50 // The standard asRubyProc test doesn't allow for null
51 assert proc == null || RubyTypesGen.RUBYTYPES.isRubyProc(proc);
52
53 return (RubyProc) proc;
54 }
55
56 }