Lines Matching defs:brsft

3760     # blsft($x, -$y, $b) = brsft($x, $y, $b)
3762     return $x -> brsft($y -> copy() -> bneg(), $b, @r) if $y -> is_neg();
3850 sub brsft {
3869     return $x if $x -> modify('brsft');
3878     return $upgrade -> brsft($x, $y, $b, @r)
3888     # brsft($x, -$y, $b) = blsft($x, $y, $b)
3967     return $upgrade -> brsft($x, $y, $b, @r) if defined($upgrade);
4670     $m = $m->brsft($zeros, 10) if $zeros != 0;
6634   $x->brsft($n);          # right shift $n places in base 2
6635   $x->brsft($n,$b);       # right shift $n places in base $b
7832 =item brsft()
7836     $x->brsft($n);              # right shift $n places in base 2
7837     $x->brsft($n, $b);          # right shift $n places in base $b