diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:41:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:41:35 +0200 |
| commit | b06f1f839cd54e81ff74be32d30aa702d7b18917 (patch) | |
| tree | 81e8aee5ee5e9a18f9411ed3a4b406f374678a36 /gcc/ada/s-bitops.adb | |
| parent | 6790c86527ca742b0cbe8542398e5fb498ec8a5b (diff) | |
| download | gcc-b06f1f839cd54e81ff74be32d30aa702d7b18917.tar.gz | |
s-bitops.adb: Get rid of System.Pure_Exceptions.
2007-04-20 Arnaud Charlet <charlet@adacore.com>
* s-bitops.adb: Get rid of System.Pure_Exceptions.
Replace UC by Ada.UC
From-SVN: r125444
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; |