summaryrefslogtreecommitdiff
path: root/gcc/ada/s-bitops.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2009-04-22 11:57:03 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2009-04-22 11:57:03 +0200
commit1ef4d0a80a0f685d97c032717c90032f9793f3af (patch)
treef6c48168660afba6763dcb54837b600ff4e8f36e /gcc/ada/s-bitops.adb
parent1cb46af046435fde79f3b2cf351e2bfc654d8422 (diff)
downloadgcc-1ef4d0a80a0f685d97c032717c90032f9793f3af.tar.gz
[multiple changes]
2009-04-22 Robert Dewar <dewar@adacore.com> * lib-load.adb: Minor reformatting 2009-04-22 Arnaud Charlet <charlet@adacore.com> * s-bitops.adb, s-bitops.ads (Raise_Error): Do not use Ada 05 syntax, since this unit is now part of bootstrap units, so must use Ada 95 syntax only. 2009-04-22 Thomas Quinot <quinot@adacore.com> * a-tasatt.adb: Minor reformatting 2009-04-22 Bob Duff <duff@adacore.com> * s-stalib.ads: Remove "with System;" since we're inside System, so it's unnecessary. 2009-04-22 Vincent Celier <celier@adacore.com> * prj-nmsc.adb (Add_Source): Always put the dependency file name in the source record, as there may be a dependency file even if no object file is created. From-SVN: r146558
Diffstat (limited to 'gcc/ada/s-bitops.adb')
-rw-r--r--gcc/ada/s-bitops.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-bitops.adb b/gcc/ada/s-bitops.adb
index 1cb875642a2..a49ffed7b88 100644
--- a/gcc/ada/s-bitops.adb
+++ b/gcc/ada/s-bitops.adb
@@ -209,7 +209,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;