From 621c7dda5e1612791427b16bf12e9cd939088f97 Mon Sep 17 00:00:00 2001
From: Christian Humer <christian.humer@oracle.com>
Date: Wed, 19 Aug 2015 13:39:00 +0200
Subject: [PATCH] Make match work with missing cases.
---
.../oracle/truffle/r/nodes/builtin/base/Match.java | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Match.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Match.java
index 1415094a7a..979f842286 100644
--- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Match.java
+++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Match.java
@@ -347,6 +347,18 @@ public abstract class Match extends RBuiltinNode {
return match(RClosures.createLogicalToStringVector(x), table, nomatchObj, incomparables);
}
+ @Specialization
+ protected RIntVector match(RAbstractIntVector x, RAbstractStringVector table, Object nomatchObj, Object incomparables) {
+ naCheck.enable(x);
+ return match(RClosures.createIntToStringVector(x), table, nomatchObj, incomparables);
+ }
+
+ @Specialization
+ protected RIntVector match(RAbstractDoubleVector x, RAbstractStringVector table, Object nomatchObj, Object incomparables) {
+ naCheck.enable(x);
+ return match(RClosures.createDoubleToStringVector(x), table, nomatchObj, incomparables);
+ }
+
@Specialization
@SuppressWarnings("unused")
protected RIntVector match(RAbstractLogicalVector x, RAbstractLogicalVector table, Object nomatchObj, Object incomparables) {
--
GitLab