Support for .asciz directive in perlasm modules.

This commit is contained in:
Andy Polyakov
2006-10-17 06:43:11 +00:00
parent 591e85e928
commit d68ff71004
3 changed files with 18 additions and 0 deletions

View File

@@ -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;