From 1f11033528b5b35ecc84eb4afa53c64509eb542c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 6 May 2009 17:15:25 +0200 Subject: [multiple changes] 2009-05-06 Robert Dewar * sem_attr.adb: Add processing for Standard'Compiler_Version 2009-05-06 Arnaud Charlet * exp_ch5.adb, exp_util.adb, exp_attr.adb, sem_util.adb, sem_res.adb, targparm.adb, targparm.ads, exp_ch4.adb, exp_ch6.adb, exp_disp.adb, opt.ads, exp_aggr.adb, exp_intr.adb, sem_disp.adb, exp_ch3.adb (Tagged_Type_Expansion): New flag. Replace use of VM_Target related to tagged types expansion by Tagged_Type_Expansion, since tagged type expansion is not necessarily linked to VM targets. From-SVN: r147182 --- gcc/ada/exp_ch5.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/exp_ch5.adb') diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index c77ff05..4cc6630 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -4075,7 +4075,7 @@ package body Exp_Ch5 is -- does not seem to be any practical way to implement this check. elsif Ada_Version >= Ada_05 - and then VM_Target = No_VM + and then Tagged_Type_Expansion and then Is_Class_Wide_Type (R_Type) and then not Scope_Suppress (Accessibility_Check) and then @@ -4285,7 +4285,7 @@ package body Exp_Ch5 is Save_Tag : constant Boolean := Is_Tagged_Type (T) and then not No_Ctrl_Actions (N) - and then VM_Target = No_VM; + and then Tagged_Type_Expansion; -- Tags are not saved and restored when VM_Target because VM tags are -- represented implicitly in objects. -- cgit v1.1