From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 7 Dec 2021 19:13:15 +0000 (+0100)
Subject: [Ada] Simplify type conversions in source pointer arithmetic
X-Git-Tag: upstream/12.2.0~2391
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d763e11c21d609555e9ef9f2ddb2fab69419e753;p=platform%2Fupstream%2Fgcc.git

[Ada] Simplify type conversions in source pointer arithmetic

gcc/ada/

	* sem_res.adb (Resolve_String_Literal): Simplify pointer
	arithmetic.
---

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index d8784f1..9a63506 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -11737,7 +11737,7 @@ package body Sem_Res is
                         Apply_Compile_Time_Constraint_Error
                           (N, "character out of range??",
                            CE_Range_Check_Failed,
-                           Loc => Source_Ptr (Int (Loc) + J));
+                           Loc => Loc + Source_Ptr (J));
                      end if;
                   end loop;