Patch to fix -mcpu=G5 interface to EH runtime library.

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-bitops.adb

diff --git a/gcc/ada/s-bitops.adb b/gcc/ada/s-bitops.adb
index a2bc666..1e00322 100644 (file)
--- a/gcc/ada/s-bitops.adb
+++ b/gcc/ada/s-bitops.adb
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                                                                          --
---         Copyright (C) 1996-2000 Free Software Foundation, Inc.           --
+--         Copyright (C) 1996-2002 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- --
@@ -28,13 +27,14 @@
 -- covered by the  GNU Public License.                                      --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
--- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- Extensive contributions were provided by Ada Core Technologies Inc.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
-with GNAT.Exceptions;       use GNAT.Exceptions;
-with System;                use System;
-with System.Unsigned_Types; use System.Unsigned_Types;
+with System;                 use System;
+with System.Pure_Exceptions; use System.Pure_Exceptions;
+with System.Unsigned_Types;  use System.Unsigned_Types;
+
 with Unchecked_Conversion;
 
 package body System.Bit_Ops is
@@ -67,7 +67,6 @@ package body System.Bit_Ops is
      (1 - LE) * 2#1111_1100# + LE * 2#0011_1111#,
      (1 - LE) * 2#1111_1110# + LE * 2#0111_1111#);
 
-
    -----------------------
    -- Local Subprograms --
    -----------------------