if xform only has one datatype, use that - #511

PDLPorters · Dec 20, 2024 · 34e48c5 · 34e48c5
1 parent 4262204
commit 34e48c5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/PDL/Core/pdlapi.c b/lib/PDL/Core/pdlapi.c
@@ -1083,6 +1083,8 @@ static inline pdl_datatypes pdl__type_detect(pdl_trans *trans) {
   pdl_datatypes retval = PDL_INVALID, last_dtype = PDL_INVALID;
   PDL_Indx i;
   pdl_transvtable *vtable = trans->vtable;
+  if (vtable->gentypes[0] != PDL_INVALID && vtable->gentypes[0] == PDL_INVALID)
+    return vtable->gentypes[0]; /* only one allowed type, use that */
   for (i=0; i<vtable->npdls; i++) {
     pdl *pdl = trans->pdls[i];
     short flags = vtable->par_flags[i];