Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigFloat.pm

Lines Matching refs:_is_zero
196      if $MBI->_is_zero($self->{_m});
203     if ($MBI->_is_zero( $self->{_e} ))
333   my $not_zero = !($x->{sign} eq '+' && $MBI->_is_zero($x->{_m}));
608   elsif (!$MBI->_is_zero($e))			# > 0
664   if (!$MBI->_is_zero($x->{_e}))		# _e == 0 for NaN, inf, -inf
682     $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # -1 +1 => -0 => +0
699   if (!$MBI->_is_zero($x->{_e}))
712     $x->{sign} = '+' if $MBI->_is_zero($x->{_m});	# -1 +1 => -0 => +0
801     $MBI->_lsft( $i, $x->{_e}, 10 ) unless $MBI->_is_zero($x->{_e});
972     if (($MBI->_is_zero($x->{_e}) && $MBI->_is_two($x->{_m})))
1174   return 1 if $x->{sign} eq '+' && $MBI->_is_zero($x->{_m});
1186     $MBI->_is_zero($x->{_e}) && $MBI->_is_one($x->{_m})); 
1196     ($MBI->_is_zero($x->{_e}) && $MBI->_is_odd($x->{_m})); 
1408    if $y->{_es} eq '+' && !$MBI->_is_zero($y->{_e});
1428   if ($x->{_es} eq '+' && !$MBI->_is_zero($x->{_e}))
1442   $x->{sign} = '+' if $MBI->_is_zero($x->{_m});		# fix sign for -0
1451     $x->{sign} = '+' if $MBI->_is_zero($x->{_m});	# fix sign for -0
1516     $is_two = ($y->{sign} eq '+' && $MBI->_is_two($y->{_m}) && $MBI->_is_zero($y->{_e}));
1546       $MBI->_lsft( $i, $x->{_e}, 10 ) unless $MBI->_is_zero($x->{_e});
1633   $MBI->_lsft( $i, $x->{_e}, 10 ) unless $MBI->_is_zero($x->{_e});
1769   if (! $MBI->_is_zero($x->{_e}))
1904   if ($x->{sign} eq '-' && $MBI->_is_one($x->{_m}) && $MBI->_is_zero($x->{_e}))
2359         $x->{_es} = '+' if $MBI->_is_zero($x->{_e});
2377      if $MBI->_is_zero($x->{_m});
2396   if (! $MBI->_is_zero($x->{_e}))		# > 0 
2415   if (! $MBI->_is_zero($x->{_e}))		# > 0 
2433   elsif (! $MBI->_is_zero($x->{_e}))	# > 0 
2447   return 1 if $MBI->_is_zero($x->{_m});