OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

exp_ch6.adb (Expand_N_Subprogram_Body): Temporarily restrict the generation of TSDs to the DOTNET compiler. 

2011-08-02  Javier Miranda  <miranda@adacore.com>

	* exp_ch6.adb (Expand_N_Subprogram_Body): Temporarily restrict the
	generation of TSDs to the DOTNET compiler.
	* exp_ch7.adb (Expand_N_Package_Body): Temporarily restrict the
	generation of TSDs to the DOTNET compiler.

From-SVN: r177164
This commit is contained in:
Javier Miranda 2011-08-02 14:42:28 +00:00 committed by Arnaud Charlet
parent 9732e886ed
commit b3b28b0cd6
3 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/ChangeLog
View File

@ -1,3 +1,10 @@
2011-08-02 Javier Miranda <miranda@adacore.com>
* exp_ch6.adb (Expand_N_Subprogram_Body): Temporarily restrict the
generation of TSDs to the DOTNET compiler.
* exp_ch7.adb (Expand_N_Package_Body): Temporarily restrict the
generation of TSDs to the DOTNET compiler.
2011-08-02 Javier Miranda <miranda@adacore.com>
* exp_disp.ads (Build_VM_TSDs): Build the runtime Type Specific Data

3
gcc/ada/exp_ch6.adb
View File

@ -5125,8 +5125,11 @@ package body Exp_Ch6 is
-- VM targets we generate now the Type Specific Data record of all the
-- enclosing tagged type declarations
-- Temporarily restrict this support to the .NET compiler???
if not Tagged_Type_Expansion
and then Unit (Cunit (Main_Unit)) = N
and then VM_Target = CLI_Target
then
Build_VM_TSDs (N);
end if;

12
gcc/ada/exp_ch7.adb
View File

@ -1559,7 +1559,11 @@ package body Exp_Ch7 is
-- In VM targets there is no need to build dispatch tables but
-- we must generate the corresponding Type Specific Data record
elsif Unit (Cunit (Main_Unit)) = N then
-- Temporarily restrict this support to the .NET compiler???
elsif Unit (Cunit (Main_Unit)) = N
and then VM_Target = CLI_Target
then
Build_VM_TSDs (N);
end if;
end if;
@ -1668,7 +1672,11 @@ package body Exp_Ch7 is
-- In VM targets there is no need to build dispatch tables but
-- we must generate the corresponding Type Specific Data record
elsif Unit (Cunit (Main_Unit)) = N then
-- Temporarily restrict this support to the .NET compiler???
elsif Unit (Cunit (Main_Unit)) = N
and then VM_Target = CLI_Target
then
-- Enter the scope of the package because the new declarations
-- are appended at the end of the package and must be analyzed