diff options
Diffstat (limited to 'gcc/ada/s-caun32.adb')
| -rw-r--r-- | gcc/ada/s-caun32.adb | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/gcc/ada/s-caun32.adb b/gcc/ada/s-caun32.adb index 8672464..ff55d65 100644 --- a/gcc/ada/s-caun32.adb +++ b/gcc/ada/s-caun32.adb @@ -31,16 +31,12 @@ -- -- ------------------------------------------------------------------------------ +with System.Address_Operations; use System.Address_Operations; + with Unchecked_Conversion; package body System.Compare_Array_Unsigned_32 is - function "+" (Left, Right : Address) return Address; - pragma Import (Intrinsic, "+"); - -- Provide addition operation on type Address (this may not be directly - -- available if type System.Address is non-private and the operations on - -- the type are made abstract to hide them from public users of System. - type Word is mod 2 ** 32; for Word'Size use 32; -- Used to process operands by words @@ -66,8 +62,7 @@ package body System.Compare_Array_Unsigned_32 is (Left : System.Address; Right : System.Address; Left_Len : Natural; - Right_Len : Natural) - return Integer + Right_Len : Natural) return Integer is Clen : Natural := Natural'Min (Left_Len, Right_Len); -- Number of elements left to compare @@ -79,7 +74,7 @@ package body System.Compare_Array_Unsigned_32 is begin -- Case of going by aligned words - if ((Left or Right) and (4 - 1)) = 0 then + if ModA (OrA (Left, Right), 4) = 0 then while Clen /= 0 loop if W (L).all /= W (R).all then if W (L).all > W (R).all then @@ -90,8 +85,8 @@ package body System.Compare_Array_Unsigned_32 is end if; Clen := Clen - 1; - L := L + 4; - R := R + 4; + L := AddA (L, 4); + R := AddA (R, 4); end loop; -- Case of going by unaligned words @@ -107,8 +102,8 @@ package body System.Compare_Array_Unsigned_32 is end if; Clen := Clen - 1; - L := L + 4; - R := R + 4; + L := AddA (L, 4); + R := AddA (R, 4); end loop; end if; |