diff options
| author | Bob Duff <duff@adacore.com> | 2021-07-26 15:26:28 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-22 15:01:50 +0000 |
| commit | c0471c61e1f3bcd86e819f2e6b5e054f80572a41 (patch) | |
| tree | 0713b5f73937f95455f4a901fa09b193f9dbcd77 /gcc/ada/err_vars.ads | |
| parent | 490a987e05da85710ca68f4f30948ec904d745e9 (diff) | |
| download | gcc-c0471c61e1f3bcd86e819f2e6b5e054f80572a41.zip gcc-c0471c61e1f3bcd86e819f2e6b5e054f80572a41.tar.gz gcc-c0471c61e1f3bcd86e819f2e6b5e054f80572a41.tar.bz2 | |
[Ada] Fix conformance errors and erroneous code
gcc/ada/
* contracts.adb, einfo-utils.adb, einfo-utils.ads, exp_ch7.adb,
exp_ch9.adb, exp_disp.adb, exp_prag.adb, exp_smem.adb,
exp_util.adb, freeze.adb, sem_aggr.adb, sem_attr.adb,
sem_ch8.adb, sem_prag.ads, sem_util.adb, sem_util.ads: Fix
conformance errors.
* errout.adb, erroutc.adb: Remove pragmas Suppress.
* err_vars.ads: Initialize variables that were previously being
read uninitialized.
Diffstat (limited to 'gcc/ada/err_vars.ads')
| -rw-r--r-- | gcc/ada/err_vars.ads | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/gcc/ada/err_vars.ads b/gcc/ada/err_vars.ads index 366df62..819d1ad 100644 --- a/gcc/ada/err_vars.ads +++ b/gcc/ada/err_vars.ads @@ -105,12 +105,15 @@ package Err_Vars is -- of the following global variables to appropriate values before making a -- call to one of the error message routines with a string containing the -- insertion character to get the value inserted in an appropriate format. + -- + -- Some of these are initialized below, because they are read before being + -- set by clients. Error_Msg_Col : Column_Number; -- Column for @ insertion character in message Error_Msg_Uint_1 : Uint; - Error_Msg_Uint_2 : Uint; + Error_Msg_Uint_2 : Uint := No_Uint; -- Uint values for ^ insertion characters in message -- WARNING: There is a matching C declaration of these variables in fe.h @@ -119,21 +122,21 @@ package Err_Vars is -- Source location for # insertion character in message Error_Msg_Name_1 : Name_Id; - Error_Msg_Name_2 : Name_Id; - Error_Msg_Name_3 : Name_Id; + Error_Msg_Name_2 : Name_Id := No_Name; + Error_Msg_Name_3 : Name_Id := No_Name; -- Name_Id values for % insertion characters in message Error_Msg_File_1 : File_Name_Type; - Error_Msg_File_2 : File_Name_Type; - Error_Msg_File_3 : File_Name_Type; + Error_Msg_File_2 : File_Name_Type := No_File; + Error_Msg_File_3 : File_Name_Type := No_File; -- File_Name_Type values for { insertion characters in message Error_Msg_Unit_1 : Unit_Name_Type; - Error_Msg_Unit_2 : Unit_Name_Type; + Error_Msg_Unit_2 : Unit_Name_Type := No_Unit_Name; -- Unit_Name_Type values for $ insertion characters in message Error_Msg_Node_1 : Node_Id; - Error_Msg_Node_2 : Node_Id; + Error_Msg_Node_2 : Node_Id := Empty; -- Node_Id values for & insertion characters in message Error_Msg_Warn : Boolean; |