Skip to content

R
riscv-gcc-1
Commit 282c6a89 by Robert Dewar Committed by Arnaud Charlet
Options

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
parent 04b633a8
Showing with 9 additions and 12 deletions
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
......
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).
......
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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment