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_ch13.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_ch13.ads')
| -rw-r--r-- | gcc/ada/sem_ch13.ads | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/ada/sem_ch13.ads b/gcc/ada/sem_ch13.ads index 3773a12..eb95e2b 100644 --- a/gcc/ada/sem_ch13.ads +++ b/gcc/ada/sem_ch13.ads @@ -189,18 +189,6 @@ package Sem_Ch13 is -- change. A False result is possible only for array, enumeration or -- record types. - procedure Validate_Compile_Time_Warning_Error (N : Node_Id); - -- N is a pragma Compile_Time_Error or Compile_Warning_Error whose boolean - -- expression is not known at compile time. This procedure makes an entry - -- in a table. The actual checking is performed by Validate_Compile_Time_ - -- Warning_Errors, which is invoked after calling the back end. - - 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. - procedure Validate_Unchecked_Conversion (N : Node_Id; Act_Unit : Entity_Id); |