diff options
| author | Javier Miranda <miranda@adacore.com> | 2011-08-02 14:42:28 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 16:42:28 +0200 |
| commit | b3b28b0cd6d53af39cc2dec4d7b6d89d027127a3 (patch) | |
| tree | 7cbe2b0c770d0937ccc3f3b5b7bb6a56be8b2e68 /gcc | |
| parent | 9732e886ede167840b8d8c0302314df336be38e7 (diff) | |
| download | gcc-b3b28b0cd6d53af39cc2dec4d7b6d89d027127a3.zip gcc-b3b28b0cd6d53af39cc2dec4d7b6d89d027127a3.tar.gz gcc-b3b28b0cd6d53af39cc2dec4d7b6d89d027127a3.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 12 |
3 files changed, 20 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e401f48..f980c73 100644 --- 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 --- 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 --- 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 |