Lines Matching refs:ai
28 local($a,$ai,$b,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
33 &comment("mul a[$ai]*b[$bi]");
36 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
56 local($r,$a,$ai,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
61 &comment("sqr a[$ai]*a[$bi]");
64 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
67 if ($ai == $bi)
85 local($r,$a,$ai,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
90 &comment("sqr a[$ai]*a[$bi]");
93 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
96 if ($ai == $bi)
119 local($i,$as,$ae,$bs,$be,$ai,$bi);
150 $ai=$as;
168 $na=($ai-1);
176 #printf STDERR "[$ai,$bi] -> [$na,$nb]\n";
177 &mul_add_c($a,$ai,$b,$bi,$c0,$c1,$c2,$v,$i,$na,$nb);
185 $ai--;
210 local($i,$as,$ae,$bs,$be,$ai,$bi);
239 $ai=$as;
247 if (($ai-1) < ($bi+1))
256 $na=$ai-1;
264 if ($ai == $bi)
266 &sqr_add_c($r,$a,$ai,$bi,
271 &sqr_add_c2($r,$a,$ai,$bi,
281 $ai--;