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/x86asm.pl | |
parent | 591e85e92813225cc4ed8840a636ea966f3053e8 (diff) |
Support for .asciz directive in perlasm modules.
Diffstat (limited to 'crypto/perlasm/x86asm.pl')
-rw-r--r-- | crypto/perlasm/x86asm.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/crypto/perlasm/x86asm.pl b/crypto/perlasm/x86asm.pl index 24f21e17ee..7a08dbfdc5 100644 --- 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; |