Home | History | Annotate | Download | only in perlasm

Lines Matching refs:nmdecor

8 $nmdecor=$::netware?"":"_";	# external name decoration
31 sub ::call { &::emit("call",(&::islabel($_[0]) or "$nmdecor$_[0]")); }
48 $addr =~ s/^([^\+\-0-9][^\+\-]*)/::islabel($1) or "$nmdecor$1"/ige;
101 &::LABEL($func,$global?"$begin":"$nmdecor$func");
102 $func=$nmdecor.$func;
117 { if (grep {/\b${nmdecor}OPENSSL_ia32cap_P\b/i} @out)
120 ${drdecor}common ${nmdecor}OPENSSL_ia32cap_P 8
123 grep {s/(^extern\s+${nmdecor}OPENSSL_ia32cap_P)/\;$1/} @out;
133 { push(@out,"${drdecor}extern\t".&::LABEL($_,$nmdecor.$_)."\n"); }
137 { push(@out,"${drdecor}global\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
155 { my $f=$nmdecor.shift;
173 push(@out,"safeseh ".&::LABEL($nm,$nmdecor.$nm)."\n");