diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 12:17:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 12:17:53 +0000 |
| commit | dffd0a90b889a398f1ebdf22558d592248439ec8 (patch) | |
| tree | 85a56e9c3d5c1469ea1e28e6aab324892ec6a178 /gcc/ada/prj-err.adb | |
| parent | 4c4697b81e7b74186ae92bbffd6f2b9af05d8f86 (diff) | |
| download | gcc-dffd0a90b889a398f1ebdf22558d592248439ec8.tar.gz | |
2009-07-13 Emmanuel Briot <briot@adacore.com>
* prj-err.adb (Error_Msg): One more case where a message should be
considered as a warning.
* gnatcmd.adb (GNATCmd): Fix previous change, which negated a test.
2009-07-13 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Expand_All_Calls_Remote_Subprogram_Call): Analyze
calling stubs in the (library level) scope of the RCI locator, where it
is attached, not in the caller's scope.
2009-07-13 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Analyze_Object_Declaration): In case of class-wide
interface object declarations we delay the generation of the equivalent
record type declarations until its expansion because there are cases in
which they are not required.
* sem_util.adb (Implements_Interface): Add missing support for subtypes.
* sem_disp.adb (Check_Controlling_Formals): Minor code cleanup plus
addition of assertion.
* exp_util.adb (Expand_Subtype_From_Expr): Renamings of class-wide
interface types require no equivalent constrained type declarations
because the expanded code only references the tag component associated
with the interface.
(Find_Interface_Tag): Improve management of interfaces that are
ancestors of tagged types.
* exp_ch3.adb (Expand_N_Object_Declaration): Improve the expansion of
class-wide object declarations to add missing support to statically
displace the pointer to the object to reference the tag component
associated with the interface.
* exp_disp.adb (Make_Tags) Avoid generation of internally generated
auxiliary types associated with user-defined dispatching calls if the
type has no user-defined primitives.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149574 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-err.adb')
| -rw-r--r-- | gcc/ada/prj-err.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/prj-err.adb b/gcc/ada/prj-err.adb index abe4224f098..c0fa09b220c 100644 --- a/gcc/ada/prj-err.adb +++ b/gcc/ada/prj-err.adb @@ -113,7 +113,9 @@ package body Prj.Err is -- Let the application know there was an error if Flags.Report_Error /= null then - Flags.Report_Error (Project, Is_Warning => Msg (Msg'First) = '?'); + Flags.Report_Error + (Project, + Is_Warning => Msg (Msg'First) = '?' or Msg (Msg'First) = '<'); end if; end Error_Msg; |