remove workaround for type-selection fixed in PDL 2.097

PDLPorters · Jan 3, 2025 · a52848e · a52848e
1 parent 14498c8
commit a52848e
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 9 deletions.
diff --git a/Changes b/Changes
@@ -1,3 +1,5 @@
+- remove workaround for type-selection fixed in PDL 2.097
+
 0.20 2024-12-02
 - remove support for PDL::Complex entirely - rfft* now same as rNfft*
 

diff --git a/Makefile.PL b/Makefile.PL
@@ -54,10 +54,10 @@ $descriptor{INC} = '' unless defined $descriptor{INC};
 $descriptor{INC} .= " $cflags";
 
 $descriptor{PREREQ_PM} = {
-  'PDL' => '2.091', # t method
+  'PDL' => '2.097', # fixed type-selecting
 };
 $descriptor{CONFIGURE_REQUIRES} = {
-  'PDL' => '2.091',
+  'PDL' => '2.097',
   'IPC::Run'       =>0,
 #  'Alien::FFTW3'   =>0,
 };

diff --git a/fftw3.pd b/fftw3.pd
@@ -693,13 +693,6 @@ EOF
   pp_def("__rNfft$rank",
     %pp_def,
     Code => $TEMPLATE_REAL_R2C,
-    NewXSTypeCoerceNS => <<'EOF',
-  $PRIV(__datatype) = $PDL(real)->datatype;
-  pdl_transvtable *vtable = $PRIV(vtable);
-  PDL_Indx i, nchildren = vtable->npdls - vtable->nparents;
-  pdl **pdls = $PRIV(pdls);
-  for (i=vtable->nparents; i<vtable->npdls; i++) pdls[i+nchildren] = pdls[i];
-EOF
   );
 }