Merge pull request #1157 from stan-dev/c-api-extptr

Replace non-API EXTPTR_PTR with R_ExternalPtrAddr
stan-dev · Mar 11, 2025 · 88566bb · 88566bb
2 parents 7d9f8df + fff3640
commit 88566bb
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/rstan/rstan/src/misc.cpp b/rstan/rstan/src/misc.cpp
@@ -44,10 +44,8 @@ SEXP is_Null_NS(SEXP ns) {
   LOGICAL(ans)[0] = 1;
   PROTECT(ns);
   if (TYPEOF(ns) == EXTPTRSXP) {
-    // Rprintf("ptr=%p.\n", EXTPTR_PTR(ns));
-    if (EXTPTR_PTR(ns) != NULL) LOGICAL(ans)[0] = 0;
+    if (R_ExternalPtrAddr(ns) != NULL) LOGICAL(ans)[0] = 0;
   }
   UNPROTECT(2);
   return ans;
 }
-