mirror/nasm
2
0
Fork 0
mirror of https://github.com/netwide-assembler/nasm.git synced 2024-11-27 08:10:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

iflags: Eliminate perl smart match operator

Browse Source 
As smart match operator reuiqres perl version 5.10.1 or later,
it is replaced with grep function.
This part of code is going to be completely removed once iflags
renovataion is done. This commit is a quick fix for a build error.

Signed-off-by: Jin Kyu Song <jin.kyu.song@intel.com>
This commit is contained in:
Jin Kyu Song 2013-10-07 14:51:09 -07:00
parent a1d481041a
commit 36ccfa5fb4
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

@ -483,7 +483,7 @@ sub format_insn($$$$$) {
# check if two different insn set types are set # check if two different insn set types are set
$cnt = 0; $cnt = 0;
foreach $fla (split(/,/, $flags)) { foreach $fla (split(/,/, $flags)) {
if ($fla ~~ @iflags) { if (grep(/$fla/, @iflags)) {
$cnt++; $cnt++;
if ($cnt >= 2) { if ($cnt >= 2) {
die "Too many insn set flags in $flags\n"; die "Too many insn set flags in $flags\n";