diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-02-09 14:50:50 -0500 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:10:36 -0300 |
| commit | d3ffef91a3ce2909019cf82b4745fa2077a8f01e (patch) | |
| tree | 16191c9d5508ca25c061101d755514d0ff612e87 /gcc | |
| parent | dd8f76ffcdb0bc59a0bae5756e5eaf47e42019ca (diff) | |
| download | gcc-d3ffef91a3ce2909019cf82b4745fa2077a8f01e.zip gcc-d3ffef91a3ce2909019cf82b4745fa2077a8f01e.tar.gz gcc-d3ffef91a3ce2909019cf82b4745fa2077a8f01e.tar.bz2 | |
[Ada] Update comments wrt Ada 83 handling
2020-06-05 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* cstand.adb (Create_Standard): Update comments.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/cstand.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index dcdfe73..ba31bb6 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -1573,7 +1573,9 @@ package body CStand is Build_Exception (S_Tasking_Error); -- Numeric_Error is a normal exception in Ada 83, but in Ada 95 - -- it is a renaming of Constraint_Error. Is this test too early??? + -- it is a renaming of Constraint_Error. This test is too early since + -- it doesn't handle pragma Ada_83. But it's not worth the trouble of + -- fixing this. if Ada_Version = Ada_83 then Build_Exception (S_Numeric_Error); |