In C's ergm_etagrad() and ergm_etagradmult(), immediately skip terms …

…with 0 model parameters, fixing an ASAN warning.
statnet · Jan 10, 2025 · 686fd32 · 686fd32
1 parent d38b283
commit 686fd32
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ergm
-Version: 4.8.0-7549
-Date: 2025-01-09
+Version: 4.8.0-7554
+Date: 2025-01-11
 Title: Fit, Simulate and Diagnose Exponential-Family Models for Networks
 Authors@R: c(
              person(c("Mark", "S."), "Handcock", role=c("aut"), email="handcock@stat.ucla.edu"),

diff --git a/src/etamap.c b/src/etamap.c
@@ -124,6 +124,7 @@ void ergm_etagrad(double *theta, SEXP etamap, double *etagrad){
 
     for(unsigned int i = 0; i < ncurved; i++){
       SETUP_CALL(gradient);
+      if(nfrom == 0) continue;
       double *g = REAL(eval(call, R_EmptyEnv));
       double *dest = etagrad1+from+to*ntheta;
       for(unsigned int j=0; j<nto; j++, dest+=ntheta, g+=nfrom)
@@ -181,6 +182,7 @@ void ergm_etagradmult(double *theta, double *v, unsigned int nv, SEXP etamap, do
 
     for(unsigned int i = 0; i < ncurved; i++){
       SETUP_CALL(gradient);
+      if(nfrom == 0) continue;
       double *g = REAL(eval(call, R_EmptyEnv));
       double *g1 = g - 1 - nfrom;
       for(unsigned int j=1; j<=nfrom; j++){