Home | History | Annotate | Download | only in perlasm

Lines Matching full:"$ var"

881 				    my $conv = sub  {	my $var=shift;
882 $var=~s/^(0b[0-1]+)/oct($1)/eig;
883 $var=~s/^0x([0-9a-f]+)/0$1h/ig if ($masm);
885 { $var=~s/([_a-z\$\@][_a-z0-9\$\@]*)/$nasm?"$1 wrt ..imagebase":"imagerel $1"/egi; }
886 $var;