diff --git a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/RawToBits.java b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/RawToBits.java index d903415e93707651b70c5b7d25ed537540d0fdc1..79a168cc4d7f7eb032385293c968a6209c77d353 100644 --- a/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/RawToBits.java +++ b/com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/RawToBits.java @@ -45,7 +45,7 @@ public abstract class RawToBits extends RBuiltinNode { } @Specialization - protected RAbstractRawVector rawToBits(RRawVector x) { + protected RAbstractRawVector rawToBits(RAbstractRawVector x) { byte[] result = new byte[8 * x.getLength()]; int pos = 0; for (int j = 0; j < x.getLength(); j++) { diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test index d027e62bbae4ca6a238c09fccbea53f4ce3a92ca..ecdb2a0dbe347298eaf90134b66b3c872602125d 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test @@ -41279,6 +41279,10 @@ Error in rawToBits(NULL) : argument 'x' must be a raw vector #rawToBits(as.raw(1)) [1] 01 00 00 00 00 00 00 00 +##com.oracle.truffle.r.test.builtins.TestBuiltin_rawToBits.testRawToBits# +#rawToBits(as.raw(1)[1]) +[1] 01 00 00 00 00 00 00 00 + ##com.oracle.truffle.r.test.builtins.TestBuiltin_rawToBits.testRawToBits# #rawToBits(as.raw(255)) [1] 01 01 01 01 01 01 01 01 diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_rawToBits.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_rawToBits.java index 34a5538dbb633b910d0a476635843b2d331395f0..c8f0a4c56f73c0e74f542fcc942964bbbe25d610 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_rawToBits.java +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_rawToBits.java @@ -41,6 +41,8 @@ public class TestBuiltin_rawToBits extends TestBase { assertEval("rawToBits(as.raw(0:255))"); assertEval("rawToBits(as.raw(c(0,1,255)))"); + assertEval("rawToBits(as.raw(1)[1])"); + assertEval("rawToBits(0:255)"); assertEval("rawToBits(NA)"); assertEval("rawToBits(NULL)");