Detect pentium, pentium-mmx, pentiumpro, athlon, and amdfam10.
WEGWY5EXDINIENIWP4E6IUOKBJIJCRBOAEIENNAOSUGKV25G5SCQC
NEYHIFJTVVZHEA53I6VKUB4COHYSNFVOXOQ32LGBLSH2DYN4POQQC
my $uname_M = `uname -m`;my $uname_P = `uname -p`;
my $uname_M = `uname -m`;
my $uname_P = `uname -p`;
# TODO architectures:# * athlon-4, athlon-xp, athlon-mp# * k8, opteron, athlon64, athlon-fx# * k8-sse3, opteron-sse3, athlon64-sse3# * winchip-c6, winchip2
# TODO architectures:
# * athlon-4, athlon-xp, athlon-mp
# * k8, opteron, athlon64, athlon-fx
# * k8-sse3, opteron-sse3, athlon64-sse3
# * winchip-c6, winchip2
if ($uname_M eq "i586" || $uname_M eq "i686"){ # Pentium and PentiumPro $march = $uname_M;}if ( $uname_M eq "i586" && $features{"mmx"} ){ $march = "pentium-mmx";}
if ($uname_M eq "i586" || $uname_M eq "i686")
{
# Pentium and PentiumPro
$march = $uname_M;
}
if ( $uname_M eq "i586" && $features{"mmx"} )
$march = "pentium-mmx";
if ( $uname_P =~ /Athlon/ ){ $march = "athlon";
if ( $uname_P =~ /Athlon/ )
$march = "athlon";
if ( $features{"abm"} && $features{"sse4a"} ) { $march = "amdfam10"; }}
if ( $features{"abm"} && $features{"sse4a"} )
$march = "amdfam10";