repair improper typecast in C snippet templates

kingaa · Sep 6, 2024 · 1f5231e · 1f5231e
1 parent 7238605
commit 1f5231e
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: pomp
 Type: Package
 Title: Statistical Inference for Partially Observed Markov Processes
-Version: 5.10.0.2
-Date: 2024-09-05
+Version: 5.10.0.3
+Date: 2024-09-06
 Authors@R: c(person(given=c("Aaron","A."),family="King",role=c("aut","cre"),email="[email protected]",comment=c(ORCID="0000-0001-6159-3207")),
 	  person(given=c("Edward","L."),family="Ionides",role="aut",comment=c(ORCID="0000-0002-4190-0174"))	,
 	  person(given="Carles",family="Bretó",role="aut",comment=c(ORCID="0000-0003-4695-4902")),

diff --git a/R/templates.R b/R/templates.R
@@ -42,7 +42,7 @@ static periodic_bspline_basis_eval_deriv_t *__pomp_periodic_bspline_basis_eval_d
 static get_userdata_int_t *__pomp_get_userdata_int;
 #define get_userdata_int(X)  (__pomp_get_userdata_int(X))}",
       reg=r"{
-  __pomp_get_userdata_int = (get_userdata_t *) R_GetCCallable("pomp","get_userdata_int");}"
+  __pomp_get_userdata_int = (get_userdata_int_t *) R_GetCCallable("pomp","get_userdata_int");}"
     ),
     get_userdata_double=list(
       trigger="get_userdata_double",

diff --git a/tests/gillespie.R b/tests/gillespie.R
@@ -82,7 +82,6 @@ gsir |>
       rate.fun=Csnippet("
         double beta;
         int nbasis = *get_userdata_int(\"nbasis\");
-        int k;
 
         switch (j) {
         case 1:                       // birth

diff --git a/tests/gillespie.Rout.save b/tests/gillespie.Rout.save
@@ -101,7 +101,6 @@ Type 'q()' to quit R.
 +       rate.fun=Csnippet("
 +         double beta;
 +         int nbasis = *get_userdata_int(\"nbasis\");
-+         int k;
 + 
 +         switch (j) {
 +         case 1:                       // birth