Lines Matching refs:mul
335 proc ::math::bignum::mul {a b} {
390 set mul [expr {wide($t0)*$t1+$t2+$car}]
391 set car [expr {$mul >> $::math::bignum::atombits}]
392 set mul [expr {$mul & $::math::bignum::atommask}]
393 lset r [expr {$i+$j-2}] $mul
719 set r [::math::bignum::mul $r $b]
722 set b [::math::bignum::mul $b $b]
724 set r [::math::bignum::mul $r $b]
743 set r [::math::bignum::mod [::math::bignum::mul $r $b] $m]
746 set b [::math::bignum::mod [::math::bignum::mul $b $b] $m]
748 set r [::math::bignum::mul $r $b]
867 set z [::math::bignum::rawAdd $z [::math::bignum::mul $basepow $bigdigitval]]
868 set basepow [::math::bignum::mul $basepow $bigbase]