* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177164
138bc75d-0d04-0410-961f-
82ee72b054a4
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
record of all the tagged types declared inside library level package
declarations, library level package bodies or library level subprograms.
-- 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;
-- 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;
-- 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