Support for .asciz directive in perlasm modules.

[openssl.git] / crypto / perlasm / ppc-xlate.pl

diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl
index bedaa99cb46ad064775b82cd9d3a4d4a5dc72a23..e36b5aedb257770a9d6d0a707a794457bb749d95 100755 (executable)
--- 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