Change rxUpdateFuns to return SEXP for try/catch

nlmixr2 · Oct 23, 2024 · 1795bc1 · 1795bc1
1 parent ef8b5c4
commit 1795bc1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/poped.cpp b/src/poped.cpp
@@ -276,7 +276,7 @@ struct rxSolveF {
 };
 
 rxSolveF rxInner;
-void rxUpdateFuns(SEXP trans, rxSolveF *inner){
+SEXP rxUpdateFuns(SEXP trans, rxSolveF *inner){
   const char *lib, *s_dydt, *s_calc_jac, *s_calc_lhs, *s_inis, *s_dydt_lsoda_dum, *s_dydt_jdum_lsoda,
     *s_ode_solver_solvedata, *s_ode_solver_get_solvedata, *s_dydt_liblsoda;
   lib = CHAR(STRING_ELT(trans, 0));
@@ -308,6 +308,7 @@ void rxUpdateFuns(SEXP trans, rxSolveF *inner){
   inner->set_solve = (t_set_solve)R_GetCCallable(lib, s_ode_solver_solvedata);
   inner->get_solve = (t_get_solve)R_GetCCallable(lib, s_ode_solver_get_solvedata);
   inner->dydt_liblsoda = (t_dydt_liblsoda)R_GetCCallable(lib, s_dydt_liblsoda);
+  return R_NilValue;
 }
 
 void rxClearFuns(rxSolveF *inner){