diff options
author | Kevin Ryde <user42@zip.com.au> | 2002-03-17 00:08:09 +0100 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2002-03-17 00:08:09 +0100 |
commit | 15c0df6bad25d96ef2aeec713d6103273efd0424 (patch) | |
tree | e1cd7e9b3b88d4347431f06c42386677c225bded /tune/many.pl | |
parent | 8c9a1a3b3cee56b4ec2ad79ac82c803b7671be8d (diff) | |
download | gmp-15c0df6bad25d96ef2aeec713d6103273efd0424.tar.gz |
* tune/speed.c, tune/speed.h, tune/common.c, many.pl: Use optional
".r" to specify operand overlaps for mpn_add_n, mpn_sub_n and logops.
Remove mpn_add_n_inplace and mpn_add_n_self.
* tune/many.pl: Fix MULFUNC_PROLOGUE parsing.
Diffstat (limited to 'tune/many.pl')
-rwxr-xr-x | tune/many.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tune/many.pl b/tune/many.pl index c36ef66f6..66b12077b 100755 --- a/tune/many.pl +++ b/tune/many.pl @@ -286,6 +286,7 @@ my @table = 'ret' => 'mp_limb_t', 'args' => 'mp_ptr wp, mp_srcptr xp, mp_srcptr yp, mp_size_t size', 'speed' => 'SPEED_ROUTINE_MPN_BINARY_N', + 'speed_flags'=> 'FLAG_R_OPTIONAL', }, { 'regexp'=> 'aors_n', @@ -293,6 +294,7 @@ my @table = 'ret' => 'mp_limb_t', 'args' => 'mp_ptr wp, mp_srcptr xp, mp_srcptr yp, mp_size_t size', 'speed' => 'SPEED_ROUTINE_MPN_BINARY_N', + 'speed_flags'=> 'FLAG_R_OPTIONAL', }, { @@ -1099,7 +1101,7 @@ EOF print "fun_carry $fun_carry\n" if $opt{'t'}; if ($lang =~ /\.(asm|S)/ - && ! grep(m"PROLOGUE.*$mpX$fun_carry",@file_contents)) { + && ! grep(m"PROLOGUE\((.* )?$mpX$fun_carry[ )]",@file_contents)) { print "no PROLOGUE $mpX$fun_carry\n" if $opt{'t'}; next; } |