diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 13:39:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 13:39:44 +0000 |
| commit | dafa9f54df92551daf72e7ed8dec5752b47825a8 (patch) | |
| tree | c31d012da12b7855c6e2960f62cc5aebec811ca6 /gcc/ada/s-bitops.ads | |
| parent | 9cfac5897a84034727f2c33be5f23848b7167ac3 (diff) | |
| download | gcc-dafa9f54df92551daf72e7ed8dec5752b47825a8.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@89664 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-bitops.ads')
| -rw-r--r-- | gcc/ada/s-bitops.ads | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/s-bitops.ads b/gcc/ada/s-bitops.ads index 5f4ed397de2..f22a5d4b7ce 100644 --- 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). |