summaryrefslogtreecommitdiff
path: root/tune
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2001-06-12 02:29:54 +0200
committerKevin Ryde <user42@zip.com.au>2001-06-12 02:29:54 +0200
commit0f2ce0218df7a41922e782a7a33263b5040bc063 (patch)
tree859cc1d5dc7afd6d737b61733fdabf9725b7d7d2 /tune
parent21aafe530eae04546cdf0d10b0410bf1f01719f5 (diff)
downloadgmp-0f2ce0218df7a41922e782a7a33263b5040bc063.tar.gz
Bit more of:
* tune/speed.c,speed.h,common.c,many.pl: Add mpn_fib2_ui, mpz_fib2_ui, mpz_lucnum_ui, mpz_lucnum2_ui.
Diffstat (limited to 'tune')
-rwxr-xr-xtune/many.pl10
1 files changed, 8 insertions, 2 deletions
diff --git a/tune/many.pl b/tune/many.pl
index f93d011de..59f1b738f 100755
--- a/tune/many.pl
+++ b/tune/many.pl
@@ -406,6 +406,7 @@ my @table =
'regexp'=> 'fib2_ui',
'ret' => 'void',
'args' => 'mp_ptr fp, mp_ptr f1p, unsigned long n',
+ 'rename'=> ['__gmp_fib_table'],
'speed_flags' => 'FLAG_NODATA',
'try' => 'none',
},
@@ -904,8 +905,13 @@ foreach my $file_full (@files) {
"\t\t-D__g$mpX$fun_carry=$mpX${fun_carry}_$suffix$pic->{'suffix'} \\\n";
}
foreach my $r (@{$t->{'rename'}}) {
- $renaming .= "\\\n" .
- "\t\t-D__g$mpX$r=$mpX${r}_$suffix$pic->{'suffix'}";
+ if ($r =~ /^__gmp/) {
+ $renaming .= "\\\n" .
+ "\t\t-D$r=${r}_$suffix$pic->{'suffix'}";
+ } else {
+ $renaming .= "\\\n" .
+ "\t\t-D__g$mpX$r=$mpX${r}_$suffix$pic->{'suffix'}";
+ }
}
print "renaming $renaming\n" if $opt{'t'};