Lines Matching defs:is_zero
170 elsif (!$diff_e->is_zero())
333 ($x->{_n}->is_zero()))
468 unless $x->{sign} eq '+' && $x->{_n}->is_zero(); # not -0
471 unless $x->{sign} eq '+' && $x->{_n}->is_zero(); # not -0
495 return $x->bnan() if $x->is_zero() || $y->is_zero();
505 return wantarray ? ($x,$self->bzero()) : $x if $x->is_zero();
542 if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/) || $y->is_zero());
545 return wantarray ? ($x,$self->bzero()) : $x if $x->is_zero();
581 if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/) || $y->is_zero());
584 if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/) || $y->is_zero());
586 return $x if $x->is_zero(); # 0 / 7 = 0, mod 0
694 sub is_zero
699 return 1 if $x->{sign} eq '+' && $x->{_n}->is_zero();
801 $x->{sign} = '+' if $x->{_n}->is_zero(); # -0 => 0
848 return $x->bone(@r) if $y->is_zero();
859 return $x->round(@r) if $x->is_zero(); # 0**y => 0 (if not y <= 0)
929 return $x->bnan() if $x->is_zero() || $x->{sign} ne '+' || $y->{sign} ne '+';
1023 return $x->round(@r) if $x->is_zero() || $x->is_one();
1123 my $xz = $x->{_n}->is_zero();
1124 my $yz = $y->{_n}->is_zero();
1435 =head2 is_zero()
1437 print "$x is 0\n" if $x->is_zero();