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

C fixes

parent b0c35222
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