diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 10:35:16 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 10:35:16 +0200 |
| commit | 26a43556c88b96c608246b39023bc698be3b751d (patch) | |
| tree | 03a933a49c26da19f666673002ba00e9d63f427c /gcc/ada/switch-c.adb | |
| parent | 3f25c54d814c705750dc1535dd935b39afc7b779 (diff) | |
| download | gcc-26a43556c88b96c608246b39023bc698be3b751d.zip gcc-26a43556c88b96c608246b39023bc698be3b751d.tar.gz gcc-26a43556c88b96c608246b39023bc698be3b751d.tar.bz2 | |
[multiple changes]
2009-04-20 Arnaud Charlet <charlet@adacore.com>
* switch-c.adb (Scan_Front_End_Switches): Disable front-end inlining
in inspector mode.
2009-04-20 Javier Miranda <miranda@adacore.com>
* sem_ch6.adb (New_Overloaded_Entity): Minor reformating.
* sem_ch6.ads (Subtype_Conformant, Type_Conformant): Add missing
documentation.
* exp_aggr.adb (Build_Record_Aggr_Code): Code cleanup.
* sem_disp.adb
(Check_Dispatching_Operation): Set attribute Is_Dispatching_Operation
in internally built overriding subprograms.
2009-04-20 Doug Rupp <rupp@adacore.com>
* s-auxdec-vms_64.ads (Integer_{8,16,32,64}_Array): New array types.
* s-auxdec.ads: Likewise
2009-04-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Find_Type_Name): Reject the completion of a private
type by an interface.
* exp_ch6.adb (Expand_Call): Inline To_Address unconditionally, to
minimze difference in expanded tree when compiled as spec of the main
unit, or as a spec in the context of another unit.
From-SVN: r146370
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 8178afc..6c79b94 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -256,6 +256,14 @@ package body Switch.C is if Dot then Set_Dotted_Debug_Flag (C); Store_Compilation_Switch ("-gnatd." & C); + + -- Disable front-end inlining in inspector mode + -- ??? Change this when we use a non debug flag to + -- enable inspector mode. + + if C = 'I' then + Front_End_Inlining := False; + end if; else Set_Debug_Flag (C); Store_Compilation_Switch ("-gnatd" & C); @@ -632,7 +640,14 @@ package body Switch.C is when 'N' => Ptr := Ptr + 1; Inline_Active := True; - Front_End_Inlining := 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; -- Processing for o switch |