mirror/nasm
2
0
Fork 0
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-03-31 18:20:22 +08:00
Code Issues Packages Projects Releases Wiki Activity

insns.pl: fix splitting of bracketted operations

Browse Source
This commit is contained in:
H. Peter Anvin 2008-05-20 10:39:15 -07:00
parent 0686131bbe
commit 8491986e69
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
insns.pl
View File

@ -363,13 +363,14 @@ sub decodify($) {
# only octal escapes (for directives) and hexadecimal escapes
# (for verbatim bytes)
my($codestr) = @_;
my $c = $codestr;
my @codes = ();
if ($codestr =~ /^\s*\[([^\]]*)\]\s*$/) {
return byte_code_compile($1);
}
my $c = $codestr;
my @codes = ();
while ($c ne '') {
if ($c =~ /^\\x([0-9a-f]+)(.*)$/i) {
push(@codes, hex $1);
@ -505,7 +506,7 @@ sub byte_code_compile($) {
$opc = "\L$2";
} else {
$opr = '';
$opc = $str;
$opc = "\L$str";
}
for ($i = 0; $i < length($opr); $i++) {
@ -513,7 +514,7 @@ sub byte_code_compile($) {
}
$prefix_ok = 1;
foreach $op (split($opc)) {
foreach $op (split(/\s+/, $opc)) {
if ($op eq 'o16') {
push(@codes, 0320);
} elsif ($op eq 'o32') {