Lines Matching refs:y
140 local(*x, *y); ($x, $y) = (&'bnorm($_[$[]),&'bnorm($_[$[+1]));
143 } elsif ($y eq 'NaN') {
147 @y = &internal($y);
148 local($sx, $sy) = (shift @x, shift @y); # get signs
150 &external($sx, &add(*x, *y)); # if same sign add
152 ($x, $y) = (&abs($x),&abs($y)); # make abs
153 if (&cmp($y,$x) > 0) {
154 &external($sy, &sub(*y, *x));
156 &external($sx, &sub(*x, *y));
168 local($x,$y) = (&'bnorm($_[$[]),&'bnorm($_[$[+1]));
169 if ($x eq 'NaN' || $y eq 'NaN') {
172 ($x, $y) = ($y,&'bmod($x,$y)) while $y ne '+0';
207 local(*x, *y); ($x, $y) = (&'bnorm($_[$[]), &'bnorm($_[$[+1]));
210 } elsif ($y eq 'NaN') {
214 @y = &internal($y);
215 local($signr) = (shift @x ne shift @y) ? '-' : '+';
219 for $y (@y) {
220 $prod = $x * $y + $prod[$cty] + $car;