Skip to content
Snippets Groups Projects
Commit 353c9e08 authored by Mick Jordan's avatar Mick Jordan
Browse files

Merge

parents 12ff5894 e70ac873
No related branches found
No related tags found
No related merge requests found
......@@ -10,6 +10,7 @@
* All rights reserved.
*/
#include "rffiutils.h"
#include <stdlib.h>
void init_alloc(JNIEnv *env) {
......
......@@ -21,6 +21,7 @@
* questions.
*/
#include "rffiutils.h"
#include <string.h>
// Most of the functions with a Rf_ prefix
// TODO Lots missing yet
......@@ -151,12 +152,12 @@ SEXP Rf_install(const char *name) {
Rboolean Rf_isNull(SEXP s) {
JNIEnv *thisenv = getEnv();
return (*thisenv)->CallStaticObjectMethod(thisenv, CallRFFIHelperClass, Rf_isNullMethodID, s);
return (*thisenv)->CallStaticIntMethod(thisenv, CallRFFIHelperClass, Rf_isNullMethodID, s);
}
Rboolean Rf_isString(SEXP s) {
JNIEnv *thisenv = getEnv();
return (*thisenv)->CallStaticObjectMethod(thisenv, CallRFFIHelperClass, Rf_isStringMethodID, s);
return (*thisenv)->CallStaticIntMethod(thisenv, CallRFFIHelperClass, Rf_isStringMethodID, s);
}
......
......@@ -47,6 +47,8 @@ void init_typecoerce(JNIEnv *env);
void init_attrib(JNIEnv *env);
void init_misc(JNIEnv *env);
void init_vectoraccess(JNIEnv *env);
void init_listaccess(JNIEnv *env);
void init_utils(JNIEnv *env);
extern jclass RDataFactoryClass;
extern jclass CallRFFIHelperClass;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment