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: 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;
foreach $op (split(/\s+/, $opc)) {
foreach $op (split(/\s*(?:\s|(?=[\/\\]))/, $opc)) {
if ($op eq 'o16') {
push(@codes, 0320);
} elsif ($op eq 'o32') {