| 1 |
time for /bin/ls (80KB) |
| 2 |
|
| 3 |
Shell: 42 seconds |
| 4 |
Perl1: 14 seconds |
| 5 |
Perl2: 1 second |
| 6 |
|
| 7 |
time for /usr/bin/ghemical (9.2MB) |
| 8 |
Perl2: 27 seconds |
| 9 |
|
| 10 |
--- analyse-x86.pl 2003-08-13 06:46:05.000000000 +0200 |
| 11 |
+++ analyse-x86 2003-08-13 06:53:16.424813198 +0200 |
| 12 |
@@ -59,4 +59,7 @@ |
| 13 |
my $print; |
| 14 |
+my %done; |
| 15 |
while (defined (my $instruction = <PIPE>)) { |
| 16 |
chomp $instruction; |
| 17 |
+ next if $done{$instruction}; |
| 18 |
+ $done{$instruction}++; |
| 19 |
if (scalar (grep /^$instruction$/, "cmpxchg","xadd","bswap","invd","wbinvd","invlpg")) { $i486++; $print=1 } |
| 20 |
|
| 21 |
-- |
| 22 |
"I'm working on it." <http://Patterner.de> |
| 23 |
|
| 24 |
-- |
| 25 |
gentoo-dev@g.o mailing list |
Archives