diff options
| author | Javier Miranda <miranda@adacore.com> | 2019-07-08 08:13:11 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-08 08:13:11 +0000 |
| commit | f56e04e89e809dc34d3f7fd3137f7d35c26e8fee (patch) | |
| tree | c76f6934ec9fc904beccb41ffa83f2e96ad461c4 /gcc/ada/sem_prag.ads | |
| parent | 5291985c00302036cc6d5932fdffb9acab3043cf (diff) | |
| download | gcc-f56e04e89e809dc34d3f7fd3137f7d35c26e8fee.zip gcc-f56e04e89e809dc34d3f7fd3137f7d35c26e8fee.tar.gz gcc-f56e04e89e809dc34d3f7fd3137f7d35c26e8fee.tar.bz2 | |
[Ada] Code reorganization
This patch performs a code reorganization of the implementation of
pragma Compile_Time_Error. No functional change.
No test required.
2019-07-08 Javier Miranda <miranda@adacore.com>
gcc/ada/
* gnat1drv.adb (Post_Compilation_Validation_Checks:
Validate_Compile_Time_Warning_Errors is now located in sem_prag
(instead of sem_ch13).
* sem_ch13.ads (Validate_Compile_Time_Warning_Error,
Validate_Compile_Time_Warning_Errors): Move to sem_prag.
* sem_ch13.adb
(Compile_Time_Warnings_Errors): Move to sem_prag.
(Initialize): Remove initialization of table
Compile_Time_Warning_Errors.
(Validate_Compile_Time_Warning_Error,
Validate_Compile_Time_Warning_Errors): Move to sem_prag.
* sem_prag.ads (Validate_Compile_Time_Warning_Errors): New
procedure.
* sem_prag.adb (Initialize): Initialize table
Compile_Time_Warning_Errors.
From-SVN: r273202
Diffstat (limited to 'gcc/ada/sem_prag.ads')
| -rw-r--r-- | gcc/ada/sem_prag.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads index f2f6d0c..25353b7 100644 --- a/gcc/ada/sem_prag.ads +++ b/gcc/ada/sem_prag.ads @@ -555,4 +555,10 @@ package Sem_Prag is -- -- Empty if there is no such argument + procedure Validate_Compile_Time_Warning_Errors; + -- This routine is called after calling the back end to validate pragmas + -- Compile_Time_Error and Compile_Time_Warning for size and alignment + -- appropriateness. The reason it is called that late is to take advantage + -- of any back-annotation of size and alignment performed by the back end. + end Sem_Prag; |