From a8098740c64d7f64b2a46a6c4e7b1a9f18b7b32e Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Thu, 19 Jul 2007 10:45:03 +0000 Subject: [PATCH] Relax ISA detection. --- crypto/perlasm/x86ms.pl | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl index cdaa337bbf..4badd1fc1c 100644 --- a/crypto/perlasm/x86ms.pl +++ b/crypto/perlasm/x86ms.pl @@ -213,7 +213,7 @@ sub out2 $l=4-($l+9)/8; $line.="\t" x $l; $line.=&conv($p2); - if ($line=~/\bxmm[0-7]\b/i) { $line=~s/\b[A-Z]+WORD PTR/XMMWORD PTR/i; } + if ($line=~/\bxmm[0-7]\b/i) { $line=~s/\b[A-Z]+WORD\s+PTR/XMMWORD PTR/i; } push(@out,$line."\n"); } @@ -339,12 +339,9 @@ EOF sub main'file_end { # try to detect if SSE2 or MMX extensions were used... - if (grep {/xmm[0-7]\s*,/i} @out) { + if (grep {/\b[x]?mm[0-7]\b,/i} @out) { grep {s/\.[3-7]86/\.686\n\t\.XMM/} @out; } - elsif (grep {/mm[0-7]\s*,/i} @out) { - grep {s/\.[3-7]86/\.686\n\t\.MMX/} @out; - } push(@out,"_TEXT\$ ENDS\n"); push(@out,"END\n"); } -- 2.25.1