Re: [gentoo-dev] Script to test instruction set.

[Georgi Georgiev <chutz@gg3.net>]

On 13/08/2003 at 07:04:09(+0200), Joerg Plate used 0.6K just to say:
> --- analyse-x86.pl	2003-08-13 06:46:05.000000000 +0200
> +++ analyse-x86	2003-08-13 06:53:16.424813198 +0200
> @@ -59,4 +59,7 @@
>  my $print;
> +my %done;
>  while (defined (my $instruction = <PIPE>)) {
>  	chomp $instruction; 
> +	next if $done{$instruction};
> +	$done{$instruction}++;
>  	if (scalar (grep /^$instruction$/, "cmpxchg","xadd","bswap","invd","wbinvd","invlpg")) { $i486++; $print=1 }
> 

Nice. Here is a little cosmetic patch to finish this off

$ patch
--- analyse-x86     2003-08-13 16:53:05.000000000 +0900
+++ analyse-x86     2003-08-13 16:50:58.000000000 +0900
@@ -8,7 +8,7 @@
 #

 # initialize everything to zero.
-my ($i486,$i586,$ppro,$mmx,$sse,$sse2,$amd,$amd2,$cpuid) = (0,0,0,0,0,0,0,0,0);
+my ($i486,$i586,$ppro,$mmx,$sse,$sse2,$amd,$amd2,$cpuid) = ("","","","","","","","","");
 my ($vendor, $subarch);
 # unfortunately there are mnemonic collissions between vendor sets
 # so check vendor_id string, and enable relevant sets.

patching file analyse-x86
$ perl -pi -e 's/%4u/[%1.1s]/g' analyse-x86
$ perl -pi -e 's/\+\+/="Y"/g'   analyse-x86
$ ./analyse-x86 /bin/ls
Checking vendor_id string...AuthenticAMD
Disassembling /bin/ls, please wait...
i486: [ ] i586: [ ] mmx: [ ] sse: [ ] 3dnow: [ ] ext3dnow: [Y]
/bin/ls will run on AMD Athlon (athlon) or higher processor.


-- 
(*   Georgi Georgiev   (* Are you tired of being a crash test dummy    (*
*)    chutz@gg3.net    *) for Microsoft? Discover Linux. -- Gareth     *)
(*  +81(90)6266-1163   (* Barnard                                      (*

--
gentoo-dev@gentoo.org mailing list