Lines Matching refs:_mul
76 undef &_mul;
86 *{_mul} = \&_mul_use_mul;
92 *{_mul} = \&_mul_use_div;
1219 $n = _new($c,$n); return _mul($c,$x, _pow($c,$n,$y));
1275 _mul($c,$pow2,$cx) if substr($y_bin,$len,1) eq '1'; # is odd?
1276 _mul($c,$cx,$cx);
1279 _mul($c,$cx,$pow2);
1339 _mul($c,$cx,$step); _inc($c,$step);
1354 _mul($c,$cx,[$step]); $step++;
1412 _mul($c,$trial,$base); _add($c, $x, [1]);
1433 my $base_mul = _mul($c, _copy($c,$base), $base);
1437 _mul($c,$trial,$base_mul); _add($c, $x, [2]);
1535 _dec($c,$x) if _acmp($c,$y,_mul($c,_copy($c,$x),$x)) < 0; # overshot?
1600 _mul ($c, $step, [2]);
1677 # _add($c,$x, _mul($c, _new( $c, ($xrr & $yrr) ), $m) );
1680 _add($c,$x, _mul($c, [ 0+$xr->[0] & 0+$yr->[0] ], $m) );
1681 _mul($c,$m,$mask);
1707 #_add($c,$x, _mul($c, _new( $c, ($xrr ^ $yrr) ), $m) );
1710 _add($c,$x, _mul($c, [ 0+$xr->[0] ^ 0+$yr->[0] ], $m) );
1711 _mul($c,$m,$mask);
1716 _add($c,$x, _mul($c, $x1, $m) ) if !_is_zero($c,$x1);
1717 _add($c,$x, _mul($c, $y1, $m) ) if !_is_zero($c,$y1);
1743 # _add($c,$x, _mul($c, _new( $c, ($xrr | $yrr) ), $m) );
1746 _add($c,$x, _mul($c, [ 0+$xr->[0] | 0+$yr->[0] ], $m) );
1747 _mul($c,$m,$mask);
1752 _add($c,$x, _mul($c, $x1, $m) ) if !_is_zero($c,$x1);
1753 _add($c,$x, _mul($c, $y1, $m) ) if !_is_zero($c,$y1);
1853 _add ($c, $x, _mul ($c, [ $val ], $mul ) ) if $val != 0;
1854 _mul ($c, $mul, $m ) if $len >= 0; # skip last mul
1895 _mul($c,_copy($c,$u1), $q) , # t = u1 * q
1937 _mul($c,$t,$acc);
1940 _mul($c,$acc,$acc);
2009 _mul(obj,obj) Multiplication of two objects