Merge branch 'PDLPorters:master' into upper_sqrt

PDLPorters · Jan 15, 2025 · a6cb495 · a6cb495
2 parents 5928f05 + b0619ed
commit a6cb495
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -19,6 +19,7 @@
 - PDL::IO::Storable now also supports Sereal, JSON::MaybeXS, CBOR::XS (#510,#520) - thanks @shawnlaffan
 - add ParamDesc PP key
 - fix IO::Pic problem with older IO::GD installed (#522) - thanks @shawnlaffan
+- r2C and i2C now handle long double both real and complex (#524) - thanks @wlmb for report
 
 2.098 2025-01-03
 - fix Windows build problems

diff --git a/lib/PDL/Ops.pd b/lib/PDL/Ops.pd
@@ -509,7 +509,7 @@ EOF
 );
 
 pp_def('r2C',
-  GenericTypes=>[qw(G C F D)], # last one is default so here = D
+  GenericTypes=>$AF,
   Pars => 'r(); complex [o]c()',
   Doc => 'convert real to native complex, with an imaginary part of zero',
   PMCode => << 'EOF',
@@ -524,7 +524,7 @@ EOF
 );
 
 pp_def('i2C',
-  GenericTypes=>[qw(G C F D)], # last one is default so here = D
+  GenericTypes=>$AF,
   Pars => 'i(); complex [o]c()',
   Doc => 'convert imaginary to native complex, with a real part of zero',
   PMCode => << 'EOF',

diff --git a/t/bad.t b/t/bad.t
@@ -184,6 +184,7 @@ is_pdl $s[2], pdl(66.5), "setbadif/stats test 3";
 is_pdl $s[3], pdl(22), "setbadif/stats test 4";
 is_pdl $s[4], pdl(98), "setbadif/stats test 5";
 is_pdl $s[6], pdl(26.7312), abstol("setbadif/stats test 6");
+ok $x->badflag, 'badflag wrongly set on input after setbadif';
 
 # how about setbadtoval
 empty()->setbadtoval(20); # shouldn't segfault