diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 10:29:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 10:29:51 +0000 |
| commit | e173b8330f8732f3e25803e96c453891a593edfa (patch) | |
| tree | ee2abb0a430b9515856a52a22f84ff7947cdb508 /gcc/ada/exp_ch6.adb | |
| parent | 3307de0d18edbcf3c6c28061a06b9c3b0e6dcf74 (diff) | |
| download | gcc-e173b8330f8732f3e25803e96c453891a593edfa.tar.gz | |
2014-08-01 Javier Miranda <miranda@adacore.com>
* gnat1drv.adb (Adjust_Global_Switches): Reverse meaning of
-gnatd.z.
* debug.adb: Updating documentation.
* exp_ch6.adb (Expand_Call): Remove assertion.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213452 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 50bc11a5546..44488fbafce 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -3929,12 +3929,11 @@ package body Exp_Ch6 is Add_Inlined_Body (Subp); Register_Backend_Call (Call_Node); - -- Frontend expands supported functions returning unconstrained types + -- Frontend expansion of supported functions returning unconstrained + -- types and simple renamings inlined by the frontend (see Freeze. + -- Build_Renamed_Entity). else - pragma Assert (Ekind (Subp) = E_Function - and then Returns_Unconstrained_Type (Subp)); - declare Spec : constant Node_Id := Unit_Declaration_Node (Subp); |