From f56e04e89e809dc34d3f7fd3137f7d35c26e8fee Mon Sep 17 00:00:00 2001 From: Javier Miranda Date: Mon, 8 Jul 2019 08:13:11 +0000 Subject: [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 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 --- gcc/ada/sem_prag.ads | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/ada/sem_prag.ads') 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; -- cgit v1.1