Attached are the 3 bug examples from the sf bug 403.
I figured out how to turn on the pdl debugging but
have no idea how to read the output...

--Chris


On 10/15/2015 03:53, Chris Marshall wrote:
CPAN Testers reports for PDL-2.014 are running
around 99% PASS.

The ActiveState Perls have successfully built
PDL-2.014 for their gcc toolchain but there
are a number of failed builds for the MS C
compiler/nmake, for Solaris SPARC, and for
32-bit x86 Linux because the VM has too little
memory for the compiler to run.

It would be nice to have PDL building for all
the ASPerl configurations but without inside
help to debug we'll have to be satisfied with
the latest perls.

NOTE:  We still have the newly discovered
bug for Changed PDLs causing SEGFAULTs

  http://sourceforge.net/p/pdl/bugs/403/

which is important enough to warrant a
PDL-2.015 release once fixed.  ATM, I'm out
of PDL 'tuits so any help to solve the problem
would be appreciated.  :-)

Cheers,
Chris


use PDL;
use PDL::Core;

PDL::Core::set_debugging(1);

my $S = double([ [ [0,1],[2,3] ],[ [4,5],[6,7] ] ])->mv(-1,0);
print "1: info='".$S->info("%D:%S")."' data=".$S."\n";
$S->setdims([4,2]);
$S->upd_data;
print "2: info='".$S->info("%D:%S")."' data=".$S."\n";
use PDL;
use PDL::Core;

PDL::Core::set_debugging(1);


print "PDL VERSION=$PDL::VERSION\n";
my $R = double([ [ [0,1],[2,3] ],[ [4,5],[6,7] ] ]);
print "1: info='".$R->info("%S")."' data=".$R."\n";
my $S = $R->mv(-1,0);
print "2: info='".$S->info("%S")."' data=".$S."\n";
my $T = $R->mv(-1,0)->reshape(4,2);
print "3: info='".$T->info("%S")."' data=".$T."\n";
use PDL;
use PDL::Core;

PDL::Core::set_debugging(1);


my $P = pdl('[ [ [0 1] [2 3] ] [ [4 5] [6 7] ] ]'); # Double D [2,2,2]
print "P-BEFORE info=". $P->info . " data: " . $P . "\n";
$P->reshape(4, 2);
print "P-AFTER  info=". $P->info . " data: " . $P . "\n";

my $Q = pdl([ [ [0,1],[2,3] ],[ [4,5],[6,7] ] ]); # Double D [2,2,2]
print "Q-BEFORE info=". $Q->info . " data: " . $Q . "\n";
$Q->reshape(4, 2);
print "Q-AFTER  info=". $Q->info . " data: " . $Q . "\n";
------------------------------------------------------------------------------
_______________________________________________
pdl-devel mailing list
pdl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/pdl-devel

Reply via email to