diff options
| author | Ed Falis <falis@adacore.com> | 2007-04-06 11:25:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-04-06 11:25:39 +0200 |
| commit | 53ff7b048c6b847fd359e4283e42b2ff1c6ef0fd (patch) | |
| tree | ffd298491c26ecc0ea2814874a7e7bb7d829ae24 | |
| parent | a9a5b8acd29597692a4df9323f790da0d7506c76 (diff) | |
| download | gcc-53ff7b048c6b847fd359e4283e42b2ff1c6ef0fd.zip gcc-53ff7b048c6b847fd359e4283e42b2ff1c6ef0fd.tar.gz gcc-53ff7b048c6b847fd359e4283e42b2ff1c6ef0fd.tar.bz2 | |
s-carun8.adb, [...] (Compare_Array_?8): modify so that last full word is no longer compared twice.
2007-04-06 Ed Falis <falis@adacore.com>
* s-carun8.adb, s-carsi8.adb (Compare_Array_?8): modify so that last
full word is no longer compared twice.
From-SVN: r123591
| -rw-r--r-- | gcc/ada/s-carsi8.adb | 22 | ||||
| -rw-r--r-- | gcc/ada/s-carun8.adb | 22 |
2 files changed, 24 insertions, 20 deletions
diff --git a/gcc/ada/s-carsi8.adb b/gcc/ada/s-carsi8.adb index 92db241..e890927 100644 --- a/gcc/ada/s-carsi8.adb +++ b/gcc/ada/s-carsi8.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2006 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -80,13 +80,15 @@ package body System.Compare_Array_Signed_8 is -- Here we can go by words declare - LeftP : constant Big_Words_Ptr := To_Big_Words (Left); - RightP : constant Big_Words_Ptr := To_Big_Words (Right); - Clen4 : constant Natural := Compare_Len / 4 - 1; - Clen4F : constant Natural := Clen4 * 4; + LeftP : constant Big_Words_Ptr := + To_Big_Words (Left); + RightP : constant Big_Words_Ptr := + To_Big_Words (Right); + Words_To_Compare : constant Natural := Compare_Len / 4; + Bytes_Compared_As_Words : constant Natural := Words_To_Compare * 4; begin - for J in 0 .. Clen4 loop + for J in 0 .. Words_To_Compare - 1 loop if LeftP (J) /= RightP (J) then return Compare_Array_S8_Unaligned (AddA (Left, Address (4 * J)), @@ -96,10 +98,10 @@ package body System.Compare_Array_Signed_8 is end loop; return Compare_Array_S8_Unaligned - (AddA (Left, Address (Clen4F)), - AddA (Right, Address (Clen4F)), - Left_Len - Clen4F, - Right_Len - Clen4F); + (AddA (Left, Address (Bytes_Compared_As_Words)), + AddA (Right, Address (Bytes_Compared_As_Words)), + Left_Len - Bytes_Compared_As_Words, + Right_Len - Bytes_Compared_As_Words); end; end Compare_Array_S8; diff --git a/gcc/ada/s-carun8.adb b/gcc/ada/s-carun8.adb index 5de9144..6699e53 100644 --- a/gcc/ada/s-carun8.adb +++ b/gcc/ada/s-carun8.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2006 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -79,13 +79,15 @@ package body System.Compare_Array_Unsigned_8 is -- Here we can go by words declare - LeftP : constant Big_Words_Ptr := To_Big_Words (Left); - RightP : constant Big_Words_Ptr := To_Big_Words (Right); - Clen4 : constant Natural := Compare_Len / 4 - 1; - Clen4F : constant Natural := Clen4 * 4; + LeftP : constant Big_Words_Ptr := + To_Big_Words (Left); + RightP : constant Big_Words_Ptr := + To_Big_Words (Right); + Words_To_Compare : constant Natural := Compare_Len / 4; + Bytes_Compared_As_Words : constant Natural := Words_To_Compare * 4; begin - for J in 0 .. Clen4 loop + for J in 0 .. Words_To_Compare - 1 loop if LeftP (J) /= RightP (J) then return Compare_Array_U8_Unaligned (AddA (Left, Address (4 * J)), @@ -95,10 +97,10 @@ package body System.Compare_Array_Unsigned_8 is end loop; return Compare_Array_U8_Unaligned - (AddA (Left, Address (Clen4F)), - AddA (Right, Address (Clen4F)), - Left_Len - Clen4F, - Right_Len - Clen4F); + (AddA (Left, Address (Bytes_Compared_As_Words)), + AddA (Right, Address (Bytes_Compared_As_Words)), + Left_Len - Bytes_Compared_As_Words, + Right_Len - Bytes_Compared_As_Words); end; end Compare_Array_U8; |