[gcc r12-6306] [Ada] Simplify type conversions in source pointer arithmetic

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:d763e11c21d609555e9ef9f2ddb2fab69419e753

commit r12-6306-gd763e11c21d609555e9ef9f2ddb2fab69419e753
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Tue Dec 7 20:13:15 2021 +0100

    [Ada] Simplify type conversions in source pointer arithmetic
    
    gcc/ada/
    
            * sem_res.adb (Resolve_String_Literal): Simplify pointer
            arithmetic.

Diff:
---
 gcc/ada/sem_res.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index d8784f15075..9a635068915 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;