diff options
| author | Jerome Lambourg <lambourg@adacore.com> | 2009-06-22 09:06:25 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-22 11:06:25 +0200 |
| commit | 59366db692450991e990991ac8c369e6cfa9cbe7 (patch) | |
| tree | e9f2d06af212e42c6679d901c682b85d3decbb4e /gcc | |
| parent | 79e9c4aa0eaa2fda5f6a0f5b07c6d6d3b6bb8eab (diff) | |
| download | gcc-59366db692450991e990991ac8c369e6cfa9cbe7.zip gcc-59366db692450991e990991ac8c369e6cfa9cbe7.tar.gz gcc-59366db692450991e990991ac8c369e6cfa9cbe7.tar.bz2 | |
freeze.adb: Add comments.
2009-06-22 Jerome Lambourg <lambourg@adacore.com>
* freeze.adb: Add comments.
From-SVN: r148779
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/freeze.adb | 8 |
2 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 214bd78..ff2e306 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2009-06-22 Jerome Lambourg <lambourg@adacore.com> + + * freeze.adb: Add comments. + 2009-06-21 Thomas Quinot <quinot@adacore.com> * exp_ch3.adb, exp_prag.adb, exp_util.adb, exp_util.ads, freeze.adb, diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 406db64..5fc02c3 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2600,6 +2600,10 @@ package body Freeze is end if; end if; + -- VM functions returning unconstrained arrays are + -- correctly handled with the .NET/JVM compilers. Don't + -- display this warning in those cases. + if Is_Array_Type (R_Type) and then not Is_Constrained (R_Type) and then not Is_Imported (E) @@ -5043,6 +5047,10 @@ package body Freeze is elsif Is_Generic_Type (Etype (E)) then null; + -- VM functions returning unconstrained arrays are + -- correctly handled with the .NET/JVM compilers. Don't + -- display this warning in those cases. + elsif Is_Array_Type (Retype) and then not Is_Constrained (Retype) and then Mechanism (E) not in Descriptor_Codes |