Lines Matching refs:_num
338 my $e = $MBI->_num($x->{_e});
351 substr($es,$e,0) = '.'; $cad = $MBI->_num($x->{_e});
460 my $lx = $lxm + $xes * $MBI->_num($x->{_e});
461 my $ly = $lym + $yes * $MBI->_num($y->{_e});
524 my $lx = $lxm + $xes * $MBI->_num($x->{_e});
525 my $ly = $lym + $yes * $MBI->_num($y->{_e});
948 my $dbd = $MBI->_num($x->{_e});
1415 $shifty = $MBI->_num($y->{_e}); # no more digits after dot
1424 $shiftx = $MBI->_num($x->{_e}); # no more digits after dot
1704 my $dat = $MBI->_num($x->{_e});
1974 my $dad = -(0+ ($x->{_es}.$MBI->_num($x->{_e}))); # digits after dot
2018 my $dbd = $dbt + ($x->{_es} . $MBI->_num($x->{_e}));
2252 ($m, Math::BigInt->new( $x->{_es} . $MBI->_num($x->{_e}) ));
2400 $z = Math::BigInt->new( $x->{sign} . $MBI->_num($z));
2419 $z = Math::BigInt->new( $x->{sign} . $MBI->_num($z));
2437 $z = Math::BigInt->new( $x->{sign} . $MBI->_num($z));
2450 $len += $MBI->_num($x->{_e}) if $x->{_es} eq '+';
2454 $t = $MBI->_num($x->{_e}) if $x->{_es} eq '-';