Replace non-API EXTPTR_PTR with R_ExternalPtrAddr

stan-dev · Mar 6, 2025 · fff3640 · fff3640
1 parent d7c2871
commit fff3640
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;
 }
-