diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:25:39 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:25:39 +0000 |
commit | cba55c127f768c1675b8044127699976890ffc52 (patch) | |
tree | ffd298491c26ecc0ea2814874a7e7bb7d829ae24 /gcc/ada | |
parent | 59ac57b560f56b6c7944751f579fcedcfa22bc15 (diff) | |
download | gcc-cba55c127f768c1675b8044127699976890ffc52.tar.gz |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123591 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
-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 92db241ec4f..e890927707b 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 5de91441fa6..6699e532f85 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; |