Mercurial > hg > truffle
view graal/com.oracle.graal.truffle.test/src/com/oracle/graal/truffle/test/builtins/SLDisableSplittingBuiltin.java @ 20130:8dc73c226c63
Truffle: cache NodeClass lookup in Node.
author | Christian Humer <christian.humer@gmail.com> |
---|---|
date | Thu, 02 Apr 2015 01:26:31 +0200 |
parents | ab62800259ff |
children |
line wrap: on
line source
/* * Copyright (c) 2014, Oracle and/or its affiliates. All rights reserved. * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * This code is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 2 only, as * published by the Free Software Foundation. * * This code is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * version 2 for more details (a copy is included in the LICENSE file that * accompanied this code). * * You should have received a copy of the GNU General Public License version * 2 along with this work; if not, write to the Free Software Foundation, * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. * * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA * or visit www.oracle.com if you need additional information or have any * questions. */ package com.oracle.graal.truffle.test.builtins; import com.oracle.graal.truffle.*; import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary; import com.oracle.truffle.api.*; import com.oracle.truffle.api.dsl.*; import com.oracle.truffle.api.nodes.*; import com.oracle.truffle.sl.nodes.*; import com.oracle.truffle.sl.runtime.*; /** * Disables splitting for a given {@link SLFunction} instance. If no function is given the splitting * will be disabled for the calling function. */ @NodeInfo(shortName = "disableSplitting") public abstract class SLDisableSplittingBuiltin extends SLGraalRuntimeBuiltin { @Specialization @TruffleBoundary public SLFunction disableSplitting(SLFunction function) { OptimizedCallTarget target = (OptimizedCallTarget) function.getCallTarget(); for (OptimizedCallTarget oct : findDuplicateCallTargets(target)) { ((SLRootNode) oct.getRootNode()).setCloningAllowed(false); } return function; } @Specialization @TruffleBoundary public SLNull disableSplitting(@SuppressWarnings("unused") SLNull argument) { RootNode parentRoot = Truffle.getRuntime().getCallerFrame().getCallNode().getRootNode(); ((SLRootNode) parentRoot).setCloningAllowed(false); return SLNull.SINGLETON; } }