check for NULL in SvPDLV

PDLPorters · Jan 29, 2024 · 5aafd6e · 5aafd6e
1 parent f3a52bb
commit 5aafd6e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Basic/Core/pdlcore.c b/Basic/Core/pdlcore.c
@@ -154,6 +154,7 @@ pdl* pdl_SvPDLV ( SV* sv ) {
 
     /* Return the pdl * pointer */
     ret = INT2PTR(pdl *, SvIV(sv2));
+    if (!ret) croak("Fatal error: ndarray address is NULL");
 
     /* Final check -- make sure it has the right magic number */
     if(ret->magicno != PDL_MAGICNO) {