diff options
author | Andy Polyakov <appro@openssl.org> | 2006-10-17 06:43:11 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2006-10-17 06:43:11 +0000 |
commit | d68ff71004282eedd8faa4411187fee08f54f75f (patch) | |
tree | 461bf5330d67f2b4cb7f02ee3fb168df268af898 /crypto/perlasm/ppc-xlate.pl | |
parent | 591e85e92813225cc4ed8840a636ea966f3053e8 (diff) |
Support for .asciz directive in perlasm modules.
Diffstat (limited to 'crypto/perlasm/ppc-xlate.pl')
-rwxr-xr-x | crypto/perlasm/ppc-xlate.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl index bedaa99cb4..e36b5aedb2 100755 --- a/crypto/perlasm/ppc-xlate.pl +++ b/crypto/perlasm/ppc-xlate.pl @@ -64,6 +64,14 @@ my $machine = sub { } ".machine $arch"; }; +my $asciz = sub { + shift; + my $line = join(",",@_); + if ($line =~ /^"(.*)"$/) + { ".byte " . join(",",unpack("C*",$1),0); } + else + { ""; } +}; ################################################################ # simplified mnemonics not handled by at least one assembler |