Mercurial > hg > truffle

comparison graal/com.oracle.truffle.sl/src/com/oracle/truffle/sl/nodes/SLTypes.java @ 13761:7c418666c6c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactoring and cleanup of Simple Language (more to come soon)
author Christian Wimmer <christian.wimmer@oracle.com>
date Fri, 24 Jan 2014 18:16:24 -0800
parents graal/com.oracle.truffle.sl/src/com/oracle/truffle/sl/SLTypes.java@71991b7a0f14
children b16ec83edc73
comparison
equal deleted inserted replaced
13760:a12017c18d5d 13761:7c418666c6c9
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.sl.nodes;
24
25 import java.math.*;
26
27 import com.oracle.truffle.api.dsl.*;
28 import com.oracle.truffle.sl.runtime.*;
29
30 @TypeSystem({long.class, BigInteger.class, boolean.class, String.class, SLFunction.class, SLNull.class, Object[].class})
31 public class SLTypes {
32
33 @TypeCheck
34 public boolean isSLNull(Object value) {
35 return SLNull.INSTANCE == value;
36 }
37
38 @TypeCast
39 public SLNull asSLNull(Object value) {
40 assert isSLNull(value);
41 return SLNull.INSTANCE;
42 }
43
44 @ImplicitCast
45 public BigInteger castBigInteger(long value) {
46 return BigInteger.valueOf(value);
47 }
48 }