Support for .asciz directive in perlasm modules.

[openssl.git] / crypto / perlasm / x86asm.pl

diff --git a/crypto/perlasm/x86asm.pl b/crypto/perlasm/x86asm.pl
index 24f21e17ee70fa45fe649893816ccfa514166869..7a08dbfdc56c429cdb27c1bba6b36976584c10d1 100644 (file)
--- a/crypto/perlasm/x86asm.pl
+++ b/crypto/perlasm/x86asm.pl
@@ -94,6 +94,8 @@ sub ::function_end_A
     $stack+=16;        # readjust esp as if we didn't pop anything
 }
 
+sub ::asciz {   foreach (@_) { &data_byte(unpack("C*",$_[0]),0); }   }
+
 sub ::asm_finish
 {   &file_end();
     print @out;