diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 09:28:48 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 09:28:48 +0000 |
| commit | 16d808f23394835e09f60e5e05027c4c321261e9 (patch) | |
| tree | 03156472b70475e068c50a7528cdfcad587c7b75 /gcc/ada/comperr.adb | |
| parent | d270ce529b4bdd51b952f8ed87746b9e77ada4c2 (diff) | |
| download | gcc-16d808f23394835e09f60e5e05027c4c321261e9.tar.gz | |
2009-08-17 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Access_Definition): Do not create an Itype reference for
an anonymous access type whose designated type is generic.
2009-08-17 Arnaud Charlet <charlet@adacore.com>
* comperr.adb (Compiler_Abort): Do not generate a bug box when in
codepeer mode, friendlier.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150824 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/comperr.adb')
| -rw-r--r-- | gcc/ada/comperr.adb | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index 43680b1b4bb..da6c8a688ed 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -32,6 +32,7 @@ with Debug; use Debug; with Errout; use Errout; with Gnatvsn; use Gnatvsn; with Namet; use Namet; +with Opt; use Opt; with Osint; use Osint; with Output; use Output; with Sinput; use Sinput; @@ -121,19 +122,26 @@ package body Comperr is -- practical interface, since giving scary bug boxes on unsupported -- features is definitely not helpful. + -- Similarly if we are generating SCIL, an error message is sufficient + -- instead of generating a bug box. + -- Note that the call to Error_Msg_N below sets Serious_Errors_Detected -- to 1, so we use the regular mechanism below in order to display a -- "compilation abandoned" message and exit, so we still know we have -- this case (and -gnatdk can still be used to get the bug box). - if VM_Target = CLI_Target + if (VM_Target = CLI_Target or else CodePeer_Mode) and then Serious_Errors_Detected = 0 and then not Debug_Flag_K and then Sloc (Current_Error_Node) > No_Location then - Error_Msg_N - ("unsupported construct in this context", - Current_Error_Node); + if VM_Target = CLI_Target then + Error_Msg_N + ("unsupported construct in this context", + Current_Error_Node); + else + Error_Msg_N ("cannot generate 'S'C'I'L", Current_Error_Node); + end if; end if; -- If any errors have already occurred, then we guess that the abort |