firstvals_nophys error if not ALLOCATED

PDLPorters · Jan 22, 2024 · 710c348 · 710c348
1 parent b62b689
commit 710c348
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Basic/Core/Core.xs b/Basic/Core/Core.xs
@@ -140,6 +140,7 @@ void
 firstvals_nophys(x)
   pdl *x
   PPCODE:
+    if (!(x->state & PDL_ALLOCATED)) barf("firstvals_nophys called on non-ALLOCATED", x);
     PDL_Indx i, maxvals = PDLMIN(10, x->nvals);
     EXTEND(sp, maxvals);
     for(i=0; i<maxvals; i++) {