diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-23 10:27:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-23 10:27:31 +0000 |
| commit | 749c967d6eb1d6a059f73179adee60e9ed89a4de (patch) | |
| tree | f0311b1e502afa7ff259258722c48b933768c5bf /gcc/ada/switch-c.adb | |
| parent | 20167aff51290cf332504a1f9c7573d5f31c75b0 (diff) | |
| download | gcc-749c967d6eb1d6a059f73179adee60e9ed89a4de.tar.gz | |
2009-06-23 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb (Valid_Conversion, Full_Designated_Type): Use
Available_View only when designated type of an anonymous access type
is limited view.
2009-06-23 Robert Dewar <dewar@adacore.com>
* sem_ch10.adb: Minor reformatting
* gnat1drv.adb (Adjust_Global_Switches): New procedure (take care of
turning off inlining if ASIS mode active).
* switch-c.adb: Remove fiddling with Inspector_Mode and ASIS_Mode
This belongs in gnat1drv.adb after switches are scanned.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148846 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 41 |
1 files changed, 2 insertions, 39 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 28ed6c50c45..c860af4e410 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2009, 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- -- @@ -228,11 +228,6 @@ package body Switch.C is Ptr := Ptr + 1; Operating_Mode := Check_Semantics; - if Tree_Output then - ASIS_Mode := True; - Inspector_Mode := False; - end if; - -- Processing for d switch when 'd' => @@ -257,25 +252,6 @@ package body Switch.C is if Dot then Set_Dotted_Debug_Flag (C); Store_Compilation_Switch ("-gnatd." & C); - - -- ??? Change this when we use a non debug flag to - -- enable inspector mode. - - if C = 'I' then - if ASIS_Mode then - -- Do not enable inspector mode in ASIS mode, - -- since the two switches are incompatible. - - Inspector_Mode := False; - - else - -- In inspector mode, we need back-end rep info - -- annotations and disable front-end inlining. - - Back_Annotate_Rep_Info := True; - Front_End_Inlining := False; - end if; - end if; else Set_Debug_Flag (C); Store_Compilation_Switch ("-gnatd" & C); @@ -652,14 +628,7 @@ package body Switch.C is when 'N' => Ptr := Ptr + 1; Inline_Active := True; - - -- Do not enable front-end inlining in inspector mode, to - -- generate trees that can be converted to SCIL. We still - -- enable back-end inlining which is fine. - - if not Inspector_Mode then - Front_End_Inlining := True; - end if; + Front_End_Inlining := True; -- Processing for o switch @@ -769,12 +738,6 @@ package body Switch.C is when 't' => Ptr := Ptr + 1; Tree_Output := True; - - if Operating_Mode = Check_Semantics then - ASIS_Mode := True; - Inspector_Mode := False; - end if; - Back_Annotate_Rep_Info := True; -- Processing for T switch |