2010-01-27 Vincent Celier <celier@adacore.com>

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

diff --git a/gcc/ada/s-bitops.adb b/gcc/ada/s-bitops.adb
index 1cb8756..c49b829 100644 (file)
--- a/gcc/ada/s-bitops.adb
+++ b/gcc/ada/s-bitops.adb
@@ -29,6 +29,8 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+pragma Compiler_Unit;
+
 with System;                 use System;
 with System.Unsigned_Types;  use System.Unsigned_Types;
 
@@ -209,7 +211,7 @@ package body System.Bit_Ops is
 
    procedure Raise_Error is
    begin
-      raise Constraint_Error with "unequal lengths in logical operation";
+      raise Constraint_Error;
    end Raise_Error;
 
 end System.Bit_Ops;