Lines Matching refs:x1
1660 my $x1 = $x;
1665 while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
1667 ($x1, $xr) = _div($c,$x1,$mask);
1695 my $x1 = $x;
1700 while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
1702 ($x1, $xr) = _div($c,$x1,$mask);
1716 _add($c,$x, _mul($c, $x1, $m) ) if !_is_zero($c,$x1);
1731 my $x1 = $x;
1736 while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
1738 ($x1, $xr) = _div($c,$x1,$mask);
1752 _add($c,$x, _mul($c, $x1, $m) ) if !_is_zero($c,$x1);
1770 my $x1 = _copy($c,$x);
1782 # while (! _is_zero($c,$x1))
1783 while (@$x1 != 1 || $x1->[0] != 0) # _is_zero()
1785 ($x1, $xr) = _div($c,$x1,$x10000);
1810 my $x1 = _copy($c,$x);
1822 # while (! _is_zero($c,$x1))
1823 while (!(@$x1 == 1 && $x1->[0] == 0)) # _is_zero()
1825 ($x1, $xr) = _div($c,$x1,$x10000);