Commit b06f1f83 by Arnaud Charlet

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
parent 6790c865
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -32,10 +32,9 @@ ...@@ -32,10 +32,9 @@
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with System; use System; with System; use System;
with System.Pure_Exceptions; use System.Pure_Exceptions;
with System.Unsigned_Types; use System.Unsigned_Types; with System.Unsigned_Types; use System.Unsigned_Types;
with Unchecked_Conversion; with Ada.Unchecked_Conversion;
package body System.Bit_Ops is package body System.Bit_Ops is
...@@ -51,7 +50,7 @@ package body System.Bit_Ops is ...@@ -51,7 +50,7 @@ package body System.Bit_Ops is
type Bits is access Bits_Array; type Bits is access Bits_Array;
-- This is the actual type into which address values are converted -- 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; LE : constant := Standard'Default_Bit_Order;
-- Static constant set to 0 for big-endian, 1 for little-endian -- Static constant set to 0 for big-endian, 1 for little-endian
...@@ -212,7 +211,7 @@ package body System.Bit_Ops is ...@@ -212,7 +211,7 @@ package body System.Bit_Ops is
procedure Raise_Error is procedure Raise_Error is
begin begin
Raise_Exception (CE, "unequal lengths in logical operation"); raise Constraint_Error with "unequal lengths in logical operation";
end Raise_Error; end Raise_Error;
end System.Bit_Ops; end System.Bit_Ops;
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