Lines Matching refs:val
603 my $val = shift;
604 my $sign = ($val < 0) ? -1 : 0;
608 push @ret, $val&0x7f;
613 last if (($val>>6) == $sign);
616 $val >>= 7;
622 my $val = shift;
626 push @ret, $val&0x7f;
629 last if (($val >>= 7) == 0);
637 my $val = shift;
639 if ($val >= 0 && $val < 32) {
640 return ($DW_OP_complex{lit0}+$val);
642 return ($DW_OP_complex{consts}, sleb128($val));
645 my $val = shift;
647 return if ($val !~ m/^(%r\w+)(?:([\+\-])((?:0x)?[0-9a-f]+))?/);