changed parameter type to RAbstractRawVector

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++) {

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

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)");