From b06f1f839cd54e81ff74be32d30aa702d7b18917 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 6 Jun 2007 12:41:35 +0200 Subject: [PATCH] s-bitops.adb: Get rid of System.Pure_Exceptions. 2007-04-20 Arnaud Charlet * s-bitops.adb: Get rid of System.Pure_Exceptions. Replace UC by Ada.UC From-SVN: r125444 --- gcc/ada/s-bitops.adb | 9 ++++----- 1 file 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; -- 2.30.2