diff options
Diffstat (limited to 'gcc/ada/a-strfix.adb')
| -rw-r--r-- | gcc/ada/a-strfix.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-strfix.adb b/gcc/ada/a-strfix.adb index 3dad72bcf22..5e5118ace31 100644 --- a/gcc/ada/a-strfix.adb +++ b/gcc/ada/a-strfix.adb @@ -466,7 +466,7 @@ package body Ada.Strings.Fixed is By : String) return String is begin - if Low > Source'Last + 1 or High < Source'First - 1 then + if Low > Source'Last + 1 or else High < Source'First - 1 then raise Index_Error; end if; |