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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177164 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e401f48..f980c73 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,12 @@
 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.

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index aa8775c..cb4b6c8 100644 (file)
--- a/gcc/ada/exp_ch6.adb
+++ b/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;

diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb
index d52740a..40e0221 100644 (file)
--- a/gcc/ada/exp_ch7.adb
+++ b/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