diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-05-31 00:29:43 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-05 08:28:17 +0000 |
| commit | 4ba48342a3d1b37c651df566543708dae0599b71 (patch) | |
| tree | 22b422d49da4db92b924ab28e16459d0b8225738 /gcc | |
| parent | 21d6ec4579056c97953cb22e99056e6e9a5450c4 (diff) | |
| download | gcc-4ba48342a3d1b37c651df566543708dae0599b71.zip gcc-4ba48342a3d1b37c651df566543708dae0599b71.tar.gz gcc-4ba48342a3d1b37c651df566543708dae0599b71.tar.bz2 | |
[Ada] Cleanup in error about unreachable code
Cleanup only; behaviour is unaffected.
gcc/ada/
* sem_ch5.adb (Check_Unreachable_Code): Avoid explicit use of
Sloc; this should also help when we finally use Source_Span for
prettier error messages.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index bb1e7b9..891c57a 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -4468,8 +4468,7 @@ package body Sem_Ch5 is end loop; end if; - Error_Msg - ("??unreachable code!", Sloc (Error_Node), Error_Node); + Error_Msg_N ("??unreachable code!", Error_Node); end if; -- If the unconditional transfer of control instruction is the |