replace some PDL.null with PDL.pdlnew

PDLPorters · Jan 22, 2022 · 932390f · 932390f
1 parent e36f4b3
commit 932390f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/Basic/Core/Core.xs b/Basic/Core/Core.xs
@@ -911,7 +911,7 @@ threadover(...)
 	/* need to make sure we get the vaffine (grand)parent */
 	if (PDL_VAFFOK(pdls[i]))
 	   pdls[i] = pdls[i]->vafftrans->from;
-	child[i]=pdl_null();
+	child[i]=pdl_pdlnew();
 	if (!child[i]) pdl_pdl_barf("Error making null pdl");
 	/*  instead of pdls[i] its vaffine parent !!!XXX */
 	pdl_barf_if_error(pdl_affine_new(pdls[i],child[i],pdl_thr.offs[i],

diff --git a/Basic/Core/pdlapi.c b/Basic/Core/pdlapi.c
@@ -100,7 +100,7 @@ pdl *pdl_scalar(PDL_Anyval anyval) {
 pdl *pdl_get_convertedpdl(pdl *old,int type) {
 	PDLDEBUG_f(printf("pdl_get_convertedpdl\n"));
 	if(old->datatype == type) return old;
-	pdl *it = pdl_null();
+	pdl *it = pdl_pdlnew();
 	if (!it) return it;
 	pdl_error PDL_err = pdl_converttypei_new(old,it,type);
 	if (PDL_err.error) { pdl_destroy(it); return NULL; }
@@ -429,7 +429,7 @@ pdl *pdl_hard_copy(pdl *src) {
 	if (PDL_err.error) return NULL;
 	int i;
 	PDLDEBUG_f(printf("pdl_hard_copy\n"));
-	pdl *it = pdl_null();
+	pdl *it = pdl_pdlnew();
 	if (!it) return it;
 	it->state = 0;
 	PDLDEBUG_f(printf("pdl_hard_copy (%p): ", src);pdl_dump(it));