Lines Matching refs:ai
18 local($a,$ai,$b,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
23 &comment("mul a[$ai]*b[$bi]");
26 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
46 local($r,$a,$ai,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
51 &comment("sqr a[$ai]*a[$bi]");
54 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
57 if ($ai == $bi)
75 local($r,$a,$ai,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
80 &comment("sqr a[$ai]*a[$bi]");
83 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
86 if ($ai == $bi)
109 local($i,$as,$ae,$bs,$be,$ai,$bi);
140 $ai=$as;
158 $na=($ai-1);
166 #printf STDERR "[$ai,$bi] -> [$na,$nb]\n";
167 &mul_add_c($a,$ai,$b,$bi,$c0,$c1,$c2,$v,$i,$na,$nb);
175 $ai--;
200 local($i,$as,$ae,$bs,$be,$ai,$bi);
229 $ai=$as;
237 if (($ai-1) < ($bi+1))
246 $na=$ai-1;
254 if ($ai == $bi)
256 &sqr_add_c($r,$a,$ai,$bi,
261 &sqr_add_c2($r,$a,$ai,$bi,
271 $ai--;
