diff options
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 |