Lines Matching refs:ai
6 local($a,$ai,$b,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
11 &comment("mul a[$ai]*b[$bi]");
14 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
34 local($r,$a,$ai,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
39 &comment("sqr a[$ai]*a[$bi]");
42 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
45 if ($ai == $bi)
63 local($r,$a,$ai,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
68 &comment("sqr a[$ai]*a[$bi]");
71 # &mov("eax",&DWP($ai*4,$a,"",0)) ;
74 if ($ai == $bi)
97 local($i,$as,$ae,$bs,$be,$ai,$bi);
128 $ai=$as;
146 $na=($ai-1);
154 #printf STDERR "[$ai,$bi] -> [$na,$nb]\n";
155 &mul_add_c($a,$ai,$b,$bi,$c0,$c1,$c2,$v,$i,$na,$nb);
163 $ai--;
188 local($i,$as,$ae,$bs,$be,$ai,$bi);
217 $ai=$as;
225 if (($ai-1) < ($bi+1))
234 $na=$ai-1;
242 if ($ai == $bi)
244 &sqr_add_c($r,$a,$ai,$bi,
249 &sqr_add_c2($r,$a,$ai,$bi,
259 $ai--;
