Lines Matching refs:xr
1657 my $m = _one(); my ($xr,$yr);
1667 ($x1, $xr) = _div($c,$x1,$mask);
1670 # make ints() from $xr, $yr
1675 # $b = 1; $xrr = 0; foreach (@$xr) { $xrr += $_ * $b; $b *= $BASE; }
1680 _add($c,$x, _mul($c, [ 0+$xr->[0] & 0+$yr->[0] ], $m) );
1692 my $m = _one(); my ($xr,$yr);
1702 ($x1, $xr) = _div($c,$x1,$mask);
1704 # make ints() from $xr, $yr (see _and())
1705 #$b = 1; $xrr = 0; foreach (@$xr) { $xrr += $_ * $b; $b *= $BASE; }
1710 _add($c,$x, _mul($c, [ 0+$xr->[0] ^ 0+$yr->[0] ], $m) );
1728 my $m = _one(); my ($xr,$yr);
1738 ($x1, $xr) = _div($c,$x1,$mask);
1740 # make ints() from $xr, $yr (see _and())
1741 # $b = 1; $xrr = 0; foreach (@$xr) { $xrr += $_ * $b; $b *= $BASE; }
1746 _add($c,$x, _mul($c, [ 0+$xr->[0] | 0+$yr->[0] ], $m) );
1773 my ($xr, $h, $x10000);
1785 ($x1, $xr) = _div($c,$x1,$x10000);
1786 $es .= unpack($h,pack('v',$xr->[0])); # XXX TODO: why pack('v',...)?
1813 my ($xr, $b, $x10000);
1825 ($x1, $xr) = _div($c,$x1,$x10000);
1826 $es .= unpack($b,pack('v',$xr->[0])); # XXX TODO: why pack('v',...)?
1827 # $es .= unpack($b,$xr->[0]);