Searched refs:_is_one (Results 1 - 6 of 6) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/
H A Dbigints.t58 # is_zero, _is_one, _one, _zero
60 ok ($C->_is_one($x),0);
62 ok ($C->_is_one($C->_one()),1); ok ($C->_is_one($C->_zero()),0);
H A Dbigintc.t65 # is_zero, _is_one, _one, _zero
67 ok ($C->_is_one($x)||0,0);
80 ok ($C->_is_one($C->_one()),1);
81 ok ($C->_is_one($C->_two()),0);
82 ok ($C->_is_one($C->_ten()),0);
84 ok ($C->_is_one($C->_zero()) || 0,0);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigInt/
H A DScalar.pm283 sub _is_one subroutine
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/
H A DCalc.pm1021 sub _is_one subroutine
1904 return (undef,undef) unless _is_one($c,$a);
1916 if (_is_one($c,$mod))
2030 _is_one(obj) return true if argument is 1
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/
H A DBigFloat.pm959 if ($x->{_es} eq '+' && $MBI->_is_one($x->{_e}) && $MBI->_is_one($x->{_m}))
985 if ($calc != 0 && $x->{_es} eq '-' && $MBI->_is_one($x->{_e}) &&
986 $MBI->_is_one($x->{_m}))
1186 $MBI->_is_zero($x->{_e}) && $MBI->_is_one($x->{_m}));
1904 if ($x->{sign} eq '-' && $MBI->_is_one($x->{_m}) && $MBI->_is_zero($x->{_e}))
H A DBigInt.pm1330 $CALC->_is_one($x->{value});
1682 return $x->bnan() if $y->{sign} eq '-' && !$CALC->_is_one($x->{value});

Completed in 561 milliseconds