exp_ch6.adb (Expand_N_Subprogram_Body): Temporarily restrict the generation of…

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

gcc/ada/ChangeLog

 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.

gcc/ada/exp_ch6.adb

@@ -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;

gcc/ada/exp_ch7.adb

@@ -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