diff options
Diffstat (limited to 'gcc/ada/s-errrep.adb')
| -rw-r--r-- | gcc/ada/s-errrep.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/s-errrep.adb b/gcc/ada/s-errrep.adb index 5b9a07618f2..783f845d1e4 100644 --- a/gcc/ada/s-errrep.adb +++ b/gcc/ada/s-errrep.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- GNARL 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- -- @@ -51,7 +50,7 @@ package body System.Error_Reporting is -- Shutdown -- -------------- - function Shutdown (M : in String) return Boolean is + function Shutdown (M : String) return Boolean is begin Write (2, Shutdown_Message'Address, Shutdown_Message'Length); Write (2, M'Address, M'Length); |