From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 30 May 2022 22:29:43 +0000 (+0200)
Subject: [Ada] Cleanup in error about unreachable code
X-Git-Tag: basepoints/gcc-14~5732
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4ba48342a3d1b37c651df566543708dae0599b71;p=thirdparty%2Fgcc.git

[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.
---

diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb
index bb1e7b9cede..891c57ae9e2 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