| line |
true |
false |
branch |
|
584
|
0 |
14 |
|
|
1852
|
0 |
0 |
} #sub callPerlInit() |
|
2060
|
0 |
8 |
${ci}if (nreturn) { |
|
2061
|
0 |
0 |
${ci} if (nreturn > 0) EXTEND (SP, nreturn ); |
|
|
0 |
0 |
${ci} if (nreturn > 0) EXTEND (SP, nreturn ); |
|
|
0 |
0 |
${ci} if (nreturn > 0) EXTEND (SP, nreturn ); |
|
2527
|
0 |
14 |
} # sub: coerce_types() |
|
2568
|
14 |
0 |
} # sub: find_datatype() |
|
2571
|
14 |
0 |
|
|
2572
|
14 |
0 |
sub NT2Copies_p {&NT2Copies__({ToPtrs=>1},@_);} |
|
2573
|
14 |
0 |
|
|
2574
|
14 |
0 |
sub NT2Free_p {&NT2Free__({ToPtrs=>1},@_);} |
|
2575
|
14 |
0 |
|
|
2576
|
14 |
0 |
sub NT2Decls {&NT2Decls__({},@_);} |
|
2577
|
14 |
0 |
|
|
2578
|
0 |
14 |
sub NT2Decls__ { |
|
2600
|
0 |
0 |
|
|
2612
|
8 |
0 |
|
|
2790
|
14 |
0 |
my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_; |
|
|
0 |
14 |
my($pnames,$pobjs,$dobjs,$dpars,$pcode, $noPthreadFlag) = @_; |
|
2791
|
0 |
0 |
my $str = PDL::PP::pp_line_numbers(__LINE__, ''); |
|
2797
|
0 |
14 |
my @privname = map { "\$PRIV(pdls[$_])" } ( 0 .. $nn ); |
|
2798
|
0 |
0 |
$str .= $npdls ? "PDL_Indx __creating[$npdls];\n" : "PDL_Indx __creating[1];\n"; |
|
2806
|
0 |
0 |
$str .= "__creating[$_] = "; |
|
2807
|
0 |
0 |
if ( $pobjs->{$pnames->[$_]}{FlagCreat} ) { |
|
2811
|
0 |
0 |
} |
|
2816
|
0 |
0 |
PDL->initthreadstruct(2,\$PRIV(pdls), |
|
|
0 |
0 |
PDL->initthreadstruct(2,\$PRIV(pdls), |
|
2820
|
0 |
0 |
$noPthreadFlag ); |
|
2827
|
0 |
0 |
|
|
3384
|
0 |
0 |
{int i; |