diff options
Diffstat (limited to 'gcc/ada/erroutc.adb')
| -rw-r--r-- | gcc/ada/erroutc.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index ed4d4aa7c3b..2a962964eb9 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 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- -- @@ -40,7 +40,6 @@ with Sinput; use Sinput; with Snames; use Snames; with Targparm; use Targparm; with Table; -with Types; use Types; with Uintp; use Uintp; package body Erroutc is @@ -983,6 +982,11 @@ package body Erroutc is then Is_Warning_Msg := True; + elsif Msg (J) = '<' + and then (J = Msg'First or else Msg (J - 1) /= ''') + then + Is_Warning_Msg := Error_Msg_Warn; + elsif Msg (J) = '|' and then (J = Msg'First or else Msg (J - 1) /= ''') then |