diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-07 20:13:15 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-06 17:11:37 +0000 |
| commit | d763e11c21d609555e9ef9f2ddb2fab69419e753 (patch) | |
| tree | c40da114ee29e4713b30dc8587cd145fe0256ec0 /gcc | |
| parent | 39521d958f6d114150b0e69288b7454ac57ccfa6 (diff) | |
| download | gcc-d763e11c21d609555e9ef9f2ddb2fab69419e753.zip gcc-d763e11c21d609555e9ef9f2ddb2fab69419e753.tar.gz gcc-d763e11c21d609555e9ef9f2ddb2fab69419e753.tar.bz2 | |
[Ada] Simplify type conversions in source pointer arithmetic
gcc/ada/
* sem_res.adb (Resolve_String_Literal): Simplify pointer
arithmetic.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_res.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |