diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:41:35 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:41:35 +0000 |
| commit | 3074277a5536cc600bd52d7d7520ed3fa0235b79 (patch) | |
| tree | 81e8aee5ee5e9a18f9411ed3a4b406f374678a36 /gcc/ada/s-bitops.adb | |
| parent | 120a2459f80542785f8982028a9983d3c44f8197 (diff) | |
| download | gcc-3074277a5536cc600bd52d7d7520ed3fa0235b79.tar.gz | |
2007-04-20 Arnaud Charlet <charlet@adacore.com>
* s-bitops.adb: Get rid of System.Pure_Exceptions.
Replace UC by Ada.UC
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125444 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-bitops.adb')
| -rw-r--r-- | gcc/ada/s-bitops.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/s-bitops.adb b/gcc/ada/s-bitops.adb index e5f33b118f9..e88e0946031 100644 --- a/gcc/ada/s-bitops.adb +++ b/gcc/ada/s-bitops.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2007, 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- -- @@ -32,10 +32,9 @@ ------------------------------------------------------------------------------ with System; use System; -with System.Pure_Exceptions; use System.Pure_Exceptions; with System.Unsigned_Types; use System.Unsigned_Types; -with Unchecked_Conversion; +with Ada.Unchecked_Conversion; package body System.Bit_Ops is @@ -51,7 +50,7 @@ package body System.Bit_Ops is type Bits is access Bits_Array; -- This is the actual type into which address values are converted - function To_Bits is new Unchecked_Conversion (Address, Bits); + function To_Bits is new Ada.Unchecked_Conversion (Address, Bits); LE : constant := Standard'Default_Bit_Order; -- Static constant set to 0 for big-endian, 1 for little-endian @@ -212,7 +211,7 @@ package body System.Bit_Ops is procedure Raise_Error is begin - Raise_Exception (CE, "unequal lengths in logical operation"); + raise Constraint_Error with "unequal lengths in logical operation"; end Raise_Error; end System.Bit_Ops; |