diff options
Diffstat (limited to 'src/grt/grt-backtraces.adb')
| -rw-r--r-- | src/grt/grt-backtraces.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/grt-backtraces.adb b/src/grt/grt-backtraces.adb index 471a0a261..80ea5331f 100644 --- a/src/grt/grt-backtraces.adb +++ b/src/grt/grt-backtraces.adb @@ -277,7 +277,7 @@ package body Grt.Backtraces is is F : constant Natural := Opt'First; begin - if Opt'Length < 10 or else Opt (F .. F + 10) /= "--backtrace" then + if Opt'Length < 11 or else Opt (F .. F + 10) /= "--backtrace" then return False; end if; if Opt'Length = 16 and then Opt (F + 11 .. F + 15) = "-addr" then |