From e3c1cf55392fa7dda7a81ab87012b9305ea9049f Mon Sep 17 00:00:00 2001
From: Lukas Stadler <lukas.stadler@oracle.com>
Date: Wed, 30 Sep 2015 10:31:42 +0200
Subject: [PATCH] release logical arrays as "int[]" (instead of byte[])
---
com.oracle.truffle.r.native/fficall/jni/src/rffiutils.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/com.oracle.truffle.r.native/fficall/jni/src/rffiutils.c b/com.oracle.truffle.r.native/fficall/jni/src/rffiutils.c
index 1dffea84bd..346ba55cf2 100644
--- a/com.oracle.truffle.r.native/fficall/jni/src/rffiutils.c
+++ b/com.oracle.truffle.r.native/fficall/jni/src/rffiutils.c
@@ -99,7 +99,7 @@ void callExit(JNIEnv *env) {
for (i = 0; i < copiedVectorsIndex; i++) {
CopiedVector cv = copiedVectors[i];
switch (cv.type) {
- case INTSXP: {
+ case INTSXP: case LGLSXP: {
jintArray intArray = (jintArray) cv.jArray;
(*env)->ReleaseIntArrayElements(env, intArray, (jint *)cv.data, 0);
break;
@@ -112,7 +112,7 @@ void callExit(JNIEnv *env) {
}
- case LGLSXP: case RAWSXP: {
+ case RAWSXP: {
jbyteArray byteArray = (jbyteArray) cv.jArray;
(*env)->ReleaseByteArrayElements(env, byteArray, (jbyte *)cv.data, 0);
break;
--
GitLab