diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2021-07-15 17:31:11 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-22 15:01:44 +0000 |
| commit | 326b74705c26a52226bc737cc94be584dd2505e1 (patch) | |
| tree | f54e93f82fc7c9871ef29ccf0713d18bd9461894 | |
| parent | e41e989b42c4f3ddda55b6c2068d14bf5aa7136c (diff) | |
| download | gcc-326b74705c26a52226bc737cc94be584dd2505e1.zip gcc-326b74705c26a52226bc737cc94be584dd2505e1.tar.gz gcc-326b74705c26a52226bc737cc94be584dd2505e1.tar.bz2 | |
[Ada] Allow more cases of import with Relaxed_RM_Semantics
gcc/ada/
* sem_prag.adb (Process_Import_Or_Interface): Relax error when
Relaxed_RM_Semantics.
| -rw-r--r-- | gcc/ada/sem_prag.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 9cad55d..0228717 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -9532,7 +9532,11 @@ package body Sem_Prag is Process_Import_Predefined_Type; - else + -- Emit an error unless Relaxed_RM_Semantics since some legacy Ada + -- compilers may accept more cases, e.g. JGNAT allowed importing + -- a Java package. + + elsif not Relaxed_RM_Semantics then if From_Aspect_Specification (N) then Error_Pragma_Arg ("entity for aspect% must be object, subprogram " |