s-bitops.adb (Bit_Eq): Remove redundant check.

2004-10-26  Robert Dewar  <dewar@gnat.com>

	* s-bitops.adb (Bit_Eq): Remove redundant check.

	* s-bitops.ads: Minor comment updates
	Change some occurrences of Address to System.Address

	* s-carsi8.ads: Fix minor cut-and-paste error in comments

From-SVN: r89664

diff --git a/gcc/ada/s-bitops.adb b/gcc/ada/s-bitops.adb
index 1e0032271ef23ba586302cb41b94d75bdc460ed5..b1e83d705617dcff25f70ad23f9e22a255293868 100644 (file)
--- a/gcc/ada/s-bitops.adb
+++ b/gcc/ada/s-bitops.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---         Copyright (C) 1996-2002 Free Software Foundation, Inc.           --
+--         Copyright (C) 1996-2004 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- --
@@ -123,10 +123,7 @@ package body System.Bit_Ops is
             Bitc : constant Natural := Llen mod 8;
 
          begin
-            if Llen /= Rlen then
-               return False;
-
-            elsif LeftB (1 .. BLen) /= RightB (1 .. BLen) then
+            if LeftB (1 .. BLen) /= RightB (1 .. BLen) then
                return False;
 
             elsif Bitc /= 0 then

diff --git a/gcc/ada/s-bitops.ads b/gcc/ada/s-bitops.ads
index 5f4ed397de255a6cf730481a0e519891863a77f7..f22a5d4b7ce955a7d7ec11d6b6c4770b1ce96a3e 100644 (file)
--- a/gcc/ada/s-bitops.ads
+++ b/gcc/ada/s-bitops.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-1999, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2004, 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- --
@@ -45,11 +45,11 @@ package System.Bit_Ops is
    procedure Bit_And
      (Left   : System.Address;
       Llen   : Natural;
-      Right  : Address;
+      Right  : System.Address;
       Rlen   : Natural;
       Result : System.Address);
    --  Bitwise "and" of given bit string with result being placed in Result.
-   --  The or operation is allowed to destroy unused bits in the last byte,
+   --  The and operation is allowed to destroy unused bits in the last byte,
    --  i.e. to leave them set in an undefined manner. Note that Left, Right
    --  and Result always have the same length in bits (Len).
 
@@ -77,7 +77,7 @@ package System.Bit_Ops is
    procedure Bit_Or
      (Left   : System.Address;
       Llen   : Natural;
-      Right  : Address;
+      Right  : System.Address;
       Rlen   : Natural;
       Result : System.Address);
    --  Bitwise "or" of given bit string with result being placed in Result.
@@ -88,11 +88,11 @@ package System.Bit_Ops is
    procedure Bit_Xor
      (Left   : System.Address;
       Llen   : Natural;
-      Right  : Address;
+      Right  : System.Address;
       Rlen   : Natural;
       Result : System.Address);
    --  Bitwise "xor" of given bit string with result being placed in Result.
-   --  The or operation is allowed to destroy unused bits in the last byte,
+   --  The xor operation is allowed to destroy unused bits in the last byte,
    --  i.e. to leave them set in an undefined manner. Note that Left, Right
    --  and Result always have the same length in bits (Len).
 

diff --git a/gcc/ada/s-carsi8.ads b/gcc/ada/s-carsi8.ads
index f810dd6a4400827d656201b207d165764dbfef22..ef5be23634100965318359a59f5a8682d763d874 100644 (file)
--- a/gcc/ada/s-carsi8.ads
+++ b/gcc/ada/s-carsi8.ads
@@ -57,7 +57,7 @@ package System.Compare_Array_Signed_8 is
       Right     : System.Address;
       Left_Len  : Natural;
       Right_Len : Natural) return Integer;
-   --  Same functionality as Compare_Array_U8 but always proceeds by
+   --  Same functionality as Compare_Array_S8 but always proceeds by
    --  bytes. Used when the caller knows that the operands are unaligned,
    --  or short enough that it makes no sense to go by words.