Tweak longvec.c

Author: baddstats

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spatstat.utils
-Version: 3.2-2
-Date: 2026-03-10
+Version: 3.2-2.002
+Date: 2026-04-15
 Title: Utility Functions for 'spatstat'
 Authors@R: c(person("Adrian", "Baddeley", 
                     role = c("aut", "cre"),

NEWS

@@ -1,5 +1,11 @@
 
-        CHANGES IN spatstat.utils VERSION 3.2-1.001
+        CHANGES IN spatstat.utils VERSION 3.2-2.002
+
+OVERVIEW
+
+    o Internal improvements.
+
+        CHANGES IN spatstat.utils VERSION 3.2-2
 
 OVERVIEW
 

inst/doc/packagesizes.txt

@@ -31,4 +31,6 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2025-05-15" "3.1-4" 42 193 0 3689 2462
 "2025-07-17" "3.1-5" 42 194 0 3703 2462
 "2025-09-20" "3.2-0" 42 195 0 3716 2462
+"2026-01-08" "3.2-1" 43 196 0 3754 2535
 "2026-03-10" "3.2-2" 44 197 0 3778 2535
+"2026-04-15" "3.2-2.002" 44 197 0 3778 2542

inst/info/packagesizes.txt

@@ -31,4 +31,6 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2025-05-15" "3.1-4" 42 193 0 3689 2462
 "2025-07-17" "3.1-5" 42 194 0 3703 2462
 "2025-09-20" "3.2-0" 42 195 0 3716 2462
+"2026-01-08" "3.2-1" 43 196 0 3754 2535
 "2026-03-10" "3.2-2" 44 197 0 3778 2535
+"2026-04-15" "3.2-2.002" 44 197 0 3778 2542

src/longvec.c

@@ -11,16 +11,19 @@
   Cdiffint
   Cnzdiff         'nonzero diff'
 
-  $Revision: 1.4 $ $Date: 2025/12/29 05:36:18 $
+  $Revision: 1.7 $ $Date: 2026/04/15 03:57:26 $
 
  */
 
 SEXP Cdiffdouble(SEXP rx) {
-  // diff for long vectors of doubles
-  R_xlen_t n = xlength(rx);
-  R_xlen_t i;
-  double *x = REAL(rx);
+  // diff for long vectors of double precision numeric values
+  R_xlen_t n, i;
+  double *x;
   double xcur, xprev;
+
+  x = REAL(rx);
+  n = xlength(rx);
+  
   // compute successive differences, with leading 0
   i = 1;
   xprev = x[i];
@@ -34,11 +37,13 @@ SEXP Cdiffdouble(SEXP rx) {
 
 SEXP Cdiffint(SEXP rx) {
   // diff for long vectors of integers
-  R_xlen_t n = xlength(rx);
-  R_xlen_t i;
-  // pointer to data
-  int *x = INTEGER(rx);
+  R_xlen_t n, i;
+  int *x;
   int xcur, xprev;
+
+  x = INTEGER(rx);
+  n = xlength(rx);
+  
   // compute successive differences, with leading 0
   i = 1;
   xprev = x[i];
@@ -52,11 +57,13 @@ SEXP Cdiffint(SEXP rx) {
 
 SEXP Cnzdiffint(SEXP rx) {
   // test whether diff() is non-zero (with leading TRUE)
-  R_xlen_t n = xlength(rx);
-  R_xlen_t i;
-  // pointer to data
-  int *x = INTEGER(rx);
+  R_xlen_t n, i;
+  int *x;
   int xcur, xprev;
+
+  x = INTEGER(rx);
+  n = xlength(rx);
+  
   i = 1;
   xprev = x[i];
   for(i = 0; i < n; i++) {