Lines Matching refs:_copy
232 sub _copy
1319 $n = _copy($c,$cx);
1393 my $x_org = _copy($c,$x); # preserve x
1396 my $trial = _copy($c,$base);
1406 $trial = _pow ($c, _copy($c, $base), $x);
1433 my $base_mul = _mul($c, _copy($c,$base), $base);
1475 my $y = _copy($c,$x);
1528 $lastlast = _copy($c,$last);
1529 $last = _copy($c,$x);
1530 _add($c,$x, _div($c,_copy($c,$y),$x));
1535 _dec($c,$x) if _acmp($c,$y,_mul($c,_copy($c,$x),$x)) < 0; # overshot?
1598 while (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) < 0)
1605 if (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) == 0)
1621 while (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) < 0)
1627 if (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) > 0)
1634 if (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) > 0)
1661 my $y1 = _copy($c,$y); # make copy
1696 my $y1 = _copy($c,$y); # make copy
1732 my $y1 = _copy($c,$y); # make copy
1770 my $x1 = _copy($c,$x);
1810 my $x1 = _copy($c,$x);
1885 my $a = _copy($c,$y); my $b = _copy($c,$x);
1895 _mul($c,_copy($c,$u1), $q) , # t = u1 * q
1929 my $acc = _copy($c,$num); my $t = _one();
1954 my $t = _copy($c,$y);
2037 _copy return a ref to a true copy of the object