Skip to content
Snippets Groups Projects
Commit 9c5dd8e3 authored by Adam Welc's avatar Adam Welc
Browse files

Rewritten parameter casts for the .fastr.dqrls builtin.

parent 8ea4b7d4
Branches
No related tags found
No related merge requests found
......@@ -11,6 +11,7 @@
*/
package com.oracle.truffle.r.nodes.builtin.fastr;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.*;
import static com.oracle.truffle.r.runtime.RVisibility.OFF;
import static com.oracle.truffle.r.runtime.builtins.RBehavior.PURE;
import static com.oracle.truffle.r.runtime.builtins.RBuiltinKind.PRIMITIVE;
......@@ -19,6 +20,7 @@ import java.util.Arrays;
import com.oracle.truffle.api.dsl.Cached;
import com.oracle.truffle.api.dsl.Specialization;
import com.oracle.truffle.r.nodes.builtin.CastBuilder;
import com.oracle.truffle.r.nodes.builtin.RBuiltinNode;
import com.oracle.truffle.r.nodes.unary.CastDoubleNode;
import com.oracle.truffle.r.runtime.builtins.RBuiltin;
......@@ -45,6 +47,18 @@ public abstract class FastrDqrls extends RBuiltinNode {
private final RAttributeProfiles xAttributeProfiles = RAttributeProfiles.create();
private final RAttributeProfiles residualsAttributesProfiles = RAttributeProfiles.create();
@Override
protected void createCasts(CastBuilder casts) {
casts.arg("x").asDoubleVector(true, true, true);
casts.arg("n").asIntegerVector().findFirst();
casts.arg("p").asIntegerVector().findFirst();
casts.arg("y").asDoubleVector(true, true, true);
casts.arg("ny").asIntegerVector().findFirst();
casts.arg("tol").asDoubleVector().findFirst();
casts.arg("coeff").asDoubleVector(true, true, true);
}
@Specialization
public RList doDouble(RAbstractDoubleVector xVec, int n, int p, RAbstractDoubleVector yVec, int ny, double tol, RAbstractDoubleVector coeffVec) {
return call(xVec, xVec.materialize(), n, p, yVec, yVec.materialize(), ny, tol, coeffVec);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment