nelem, unpdl need to physvaffine inputs

PDLPorters · Jan 22, 2025 · 329d695 · 329d695
1 parent 55eabfc
commit 329d695
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/lib/PDL/Core.xs b/lib/PDL/Core.xs
@@ -507,12 +507,13 @@ datasv_refcount(p)
 
 PDL_Indx
 nelem(x)
-	pdl *x
-	CODE:
-		PDLDEBUG_f(printf("Core::nelem calling ")); pdl_barf_if_error(pdl_make_physdims(x));
-		RETVAL = x->nvals;
-	OUTPUT:
-		RETVAL
+  pdl *x
+ CODE:
+  pdl_barf_if_error(pdl_make_physvaffine( x ));
+  PDLDEBUG_f(printf("Core::nelem calling ")); pdl_barf_if_error(pdl_make_physdims(x));
+  RETVAL = x->nvals;
+ OUTPUT:
+  RETVAL
 
 
 # Call my howbig function
@@ -1363,6 +1364,7 @@ SV *
 unpdl(x)
   pdl *x
 CODE:
+  pdl_barf_if_error(pdl_make_physvaffine( x ));
   RETVAL = pdl2avref(x, 0);
 OUTPUT:
   RETVAL