diff options
author | Kevin Ryde <user42@zip.com.au> | 2001-06-12 02:29:54 +0200 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2001-06-12 02:29:54 +0200 |
commit | 0f2ce0218df7a41922e782a7a33263b5040bc063 (patch) | |
tree | 859cc1d5dc7afd6d737b61733fdabf9725b7d7d2 /tune | |
parent | 21aafe530eae04546cdf0d10b0410bf1f01719f5 (diff) | |
download | gmp-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-x | tune/many.pl | 10 |
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'}; |