aniani/nasm
0
0
Fork 1
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-08-23 10:33:50 -04:00
Code

insns.pl: don't require whitespace before / or \

Browse Source 
Use Perl's context-sensitive regular expressions to tell split that a
slash or backslash begins a new operator.
This commit is contained in:
H. Peter Anvin 2008-05-20 13:03:39 -07:00
parent 930d655916
commit b726b04813
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
insns.pl
View File

@ -523,7 +523,7 @@ sub byte_code_compile($) {
} }
$prefix_ok = 1; $prefix_ok = 1;
foreach $op (split(/\s+/, $opc)) { foreach $op (split(/\s*(?:\s|(?=[\/\\]))/, $opc)) {
if ($op eq 'o16') { if ($op eq 'o16') {
push(@codes, 0320); push(@codes, 0320);
} elsif ($op eq 'o32') { } elsif ($op eq 'o32') {