Home
last modified time | relevance | path

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

/mirbsd/src/gnu/usr.bin/perl/lib/Math/
DBigFloat.pm218 if ($MBI->_is_zero( $self->{_e} ))
348 my $not_zero = !($x->{sign} eq '+' && $MBI->_is_zero($x->{_m}));
432 $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $MBI->_is_zero($x->{_m}));
636 elsif (!$MBI->_is_zero($e)) # > 0
669 if (!$MBI->_is_zero($x->{_e})) # _e == 0 for NaN, inf, -inf
687 $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # -1 +1 => -0 => +0
704 if (!$MBI->_is_zero($x->{_e}))
717 $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # -1 +1 => -0 => +0
815 $MBI->_lsft( $i, $x->{_e}, 10 ) unless $MBI->_is_zero($x->{_e});
986 if (($MBI->_is_zero($x->{_e}) && $MBI->_is_two($x->{_m})))
[all …]
DBigInt.pm989 $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $CALC->_is_zero($x->{value}));
1180 $x->{sign} = '+' if $CALC->_is_zero($x->{value}); # -1 +1 => -0 => +0
1202 if ($CALC->_is_zero($x->{value}))
1311 $CALC->_is_zero($x->{value});
1432 $x->{sign} = '+' if $CALC->_is_zero($x->{value}); # no -0
1513 $x->{sign} = '+' if $CALC->_is_zero($x->{value});
1517 if (! $CALC->_is_zero($rem->{value}))
1531 $x->{sign} = '+' if $CALC->_is_zero($x->{value});
1564 if (!$CALC->_is_zero($x->{value}))
1736 if $y->{sign} eq '-' && $x->{sign} eq '+' && $CALC->_is_zero($x->{value});
[all …]
DBigRat.pm94 $MBI->_is_zero($f->{_e});
401 if ($MBI->_is_zero($x->{_n}))
434 $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $MBI->_is_zero($x->{_n}));
558 unless $x->{sign} eq '+' && $MBI->_is_zero($x->{_n}); # not -0
561 unless $x->{sign} eq '+' && $MBI->_is_zero($x->{_n}); # not -0
766 return 1 if $x->{sign} eq '+' && $MBI->_is_zero($x->{_n});
874 $x->{sign} = '+' if $MBI->_is_zero($x->{_n}); # -0 => 0
1222 my $xz = $MBI->_is_zero($x->{_n});
1223 my $yz = $MBI->_is_zero($y->{_n});
/mirbsd/src/gnu/usr.bin/perl/lib/Math/BigInt/
DCalc.pm965 sub _is_zero subroutine
1627 while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
1662 while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
1678 _add($c,$x, _mul($c, $x1, $m) ) if !_is_zero($c,$x1);
1679 _add($c,$x, _mul($c, $y1, $m) ) if !_is_zero($c,$y1);
1698 while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
1714 _add($c,$x, _mul($c, $x1, $m) ) if !_is_zero($c,$x1);
1715 _add($c,$x, _mul($c, $y1, $m) ) if !_is_zero($c,$y1);
1860 while (!_is_zero($c,$b))
/mirbsd/src/gnu/usr.bin/perl/lib/Math/BigInt/t/
Dbigints.t59 ok ($C->_is_zero($x),0);
63 ok ($C->_is_zero($C->_zero()),1); ok ($C->_is_zero($C->_one()),0);
Dbigintc.t66 ok ($C->_is_zero($x)||0,0);
86 ok ($C->_is_zero($C->_zero()),1);
88 ok ($C->_is_zero($C->_one()) || 0,0);
/mirbsd/src/gnu/usr.bin/perl/t/lib/Math/BigInt/
DScalar.pm262 sub _is_zero subroutine