diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-03-03 11:51:49 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-09 04:09:06 -0400 |
| commit | 2d6f6e08e69209d3df5b49b738c08ce3e921bf44 (patch) | |
| tree | 455481c607c45040361d76c6139535fc05360d7e /gcc/ada/exp_ch3.adb | |
| parent | 3e6711046ae71601a40636e768c8d9d7def57add (diff) | |
| download | gcc-2d6f6e08e69209d3df5b49b738c08ce3e921bf44.zip gcc-2d6f6e08e69209d3df5b49b738c08ce3e921bf44.tar.gz gcc-2d6f6e08e69209d3df5b49b738c08ce3e921bf44.tar.bz2 | |
[Ada] Code clean ups and comments updates
2020-06-09 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* exp_ch3.adb, exp_ch4.adb, exp_ch6.adb, exp_ch9.adb,
exp_disp.adb, exp_util.adb: Add comments related to errors that
should be moved to semantic analysis. Also replace "?" with "??"
in warning messages.
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 6aaa475..381e4f1 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -4456,6 +4456,8 @@ package body Exp_Ch3 is procedure Check_Attr (Nam : Name_Id; TSS_Nam : TSS_Name_Type) is begin + -- Move this check to sem??? + if not Stream_Attribute_Available (Etype (Comp), TSS_Nam) then Error_Msg_Name_1 := Nam; Error_Msg_N @@ -9039,6 +9041,8 @@ package body Exp_Ch3 is end loop; pragma Assert (Present (Comp)); + + -- Move this check to sem??? Error_Msg_Node_2 := Comp; Error_Msg_NE ("parent type & with dynamic component & cannot be parent" |