Home
last modified time | relevance | path

Searched refs:_is_zero (Results 1 – 11 of 11) sorted by relevance

/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt/lib/Math/BigInt/
DLib.pm245 'bool' => sub { ref($_[0]) -> _is_zero($_[0]) ? '' : 1; },
333 if $class -> _is_zero($y);
372 $zs = $class -> _is_zero($za) ? '+' : $xs;
456 sub _is_zero {
510 if $class -> _is_zero($y);
544 if ($class -> _is_zero($y)) {
554 if ($class -> _is_zero($x)) {
597 if ($class -> _is_zero($k)) {
665 $log2n = $class -> _dec($log2n) if !$class -> _is_zero($log2n);
703 return if $class -> _is_zero($x);
[all …]
DCalc.pm1047 sub _is_zero { subroutine
1218 return $x if $c->_is_zero($x) || $c->_is_zero($n);
1266 return $x if $c->_is_zero($x) || $c->_is_zero($n);
1386 if ($c->_is_zero($k)) {
1913 last if $c -> _is_zero($delta);
1927 last if $c -> _is_zero($delta);
2183 until ($c->_is_zero($x1) || $c->_is_zero($y1)) {
2209 until ($c->_is_zero($x1) || $c->_is_zero($y1)) {
2223 $c->_add($z, $c->_mul($x1, $m) ) if !$c->_is_zero($x1);
2224 $c->_add($z, $c->_mul($y1, $m) ) if !$c->_is_zero($y1);
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt/t/
Dbigints.t49 is($class->_is_zero($x), 0, "$class->_is_zero($x)");
56 is($class->_is_zero($class->_zero()), 1,
57 "$class->_is_zero($class->_zero())");
58 is($class->_is_zero($class->_one()), 0,
59 "$class->_is_zero($class->_one())");
Dbigintc.t92 ok(! $LIB->_is_zero($x), qq|$LIB->_is_zero(\$x)|);
113 ok( $LIB->_is_zero($LIB->_zero()), qq|$LIB->_is_zero($LIB->_zero()) is true|);
114 ok(! $LIB->_is_zero($LIB->_one()), qq/$LIB->_is_zero($LIB->_one()) is false/);
/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt/lib/Math/
DBigFloat.pm1341 } elsif (! $LIB->_is_zero($x->{_e})) { # > 0
1437 ($x->{sign} eq '+' && $LIB->_is_zero($x->{_m})) ? 1 : 0;
1447 $LIB->_is_zero($x->{_e}) &&
1456 ($LIB->_is_zero($x->{_e})) &&
1704 unless $x->{sign} eq '+' && $LIB->_is_zero($x->{_m});
1733 $x->{_es} = '+' if $LIB->_is_zero($x->{_e});
1744 if ($LIB->_is_zero($x->{_m})) {
1776 if (!$LIB->_is_zero($x->{_e})) {
1790 $x->{sign} = '+' if $LIB->_is_zero($x->{_m}); # -1 +1 => -0 => +0
1819 if (!$LIB->_is_zero($x->{_e})) {
[all …]
DBigInt.pm1540 $LIB->_is_zero($x->{value});
1789 unless $x->{sign} eq '+' && $LIB->_is_zero($x->{value});
1861 $x->{sign} = '+' if $LIB->_is_zero($x->{value}); # -1 +1 => -0 => +0
1881 if ($LIB->_is_zero($x->{value})) { # +1 - 1 => +0
2086 $x->{sign} = '+' if $LIB->_is_zero($x->{value}); # no -0
2123 $x->{sign} = '+' if $LIB->_is_zero($x->{value}); # no -0
2369 if ($LIB -> _is_zero($rem -> {value})) {
2370 if ($xsign eq $ysign || $LIB -> _is_zero($x -> {value})) {
2392 unless ($LIB -> _is_zero($rem -> {value})) {
2535 $x -> {sign} = '+' if $LIB -> _is_zero($x -> {value});
[all …]
DBigRat.pm810 if ($LIB->_is_zero($x->{_n})) {
845 unless ($x->{sign} eq '+' && $LIB->_is_zero($x->{_n}));
1269 return 1 if $x->{sign} eq '+' && $LIB->_is_zero($x->{_n});
1421 $x->{sign} = '+' if $x->{sign} eq '-' && $LIB->_is_zero($x->{_n}); # -0 => 0
1455 $x->{sign} = '+' if $x->{sign} eq '-' && $LIB -> _is_zero($x->{_n});
2172 my $xz = $LIB->_is_zero($x->{_n});
2173 my $yz = $LIB->_is_zero($y->{_n});
/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt/t/Math/BigInt/
DScalar.pm231 sub _is_zero { subroutine
/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/t/
Dleak.t36 for my $method (qw(_is_zero _is_one _is_two _is_ten _num))
Dbigintfc.t92 ok(! $LIB->_is_zero($x), qq|$LIB->_is_zero(\$x)|);
113 ok( $LIB->_is_zero($LIB->_zero()), qq|$LIB->_is_zero($LIB->_zero()) is true|);
114 ok(! $LIB->_is_zero($LIB->_one()), qq/$LIB->_is_zero($LIB->_one()) is false/);
/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/
DFastCalc.xs300 _is_zero(class, x)