call eln2 instead

shikokuchuo · Apr 25, 2024 · fb14833 · fb14833
1 parent 7ef3291
commit fb14833
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/src/init.c b/src/init.c
@@ -52,7 +52,12 @@ SEXP nano_success;
 SEXP nano_unresolved;
 
 SEXP nano_precious;
-later_fun later2;
+
+later_fun eln2;
+
+void later2(void (*fun)(void *), void *data, double secs) {
+  eln2(fun, data, secs, 0);
+}
 
 static void RegisterSymbols(void) {
   nano_AioSymbol = Rf_install("aio");
@@ -196,7 +201,7 @@ static const R_ExternalMethodDef externalMethods[] = {
 void attribute_visible R_init_nanonext(DllInfo* dll) {
   RegisterSymbols();
   PreserveObjects();
-  later2 = (later_fun) R_GetCCallable("later", "execLaterNative");
+  eln2 = (later_fun) R_GetCCallable("later", "execLaterNative2");
   R_registerRoutines(dll, NULL, callMethods, NULL, externalMethods);
   R_useDynamicSymbols(dll, FALSE);
   R_forceSymbols(dll, TRUE);

diff --git a/src/nanonext.h b/src/nanonext.h
@@ -176,8 +176,8 @@ typedef struct nano_buf_s {
   size_t cur;
 } nano_buf;
 
-typedef void (*later_fun)(void (*)(void *), void *, double);
-extern later_fun later2;
+typedef void (*later_fun)(void (*)(void *), void *, double, int);
+extern void later2(void (*)(void *), void *, double);
 
 SEXP nano_PreserveObject(SEXP);
 void nano_ReleaseObject(SEXP);