diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-03-16 20:22:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-03-16 20:22:11 +0100 |
| commit | 429789acdf2152dde36df18415dc45985f9c1415 (patch) | |
| tree | 000102192f3174b41b23019f8ed2ec27cdf3774e /src/grt/grt-backtraces.adb | |
| parent | f1ddf165155bd6f9d2ebfe10d08c7988927c4ba3 (diff) | |
| download | ghdl-429789acdf2152dde36df18415dc45985f9c1415.tar.gz ghdl-429789acdf2152dde36df18415dc45985f9c1415.tar.bz2 ghdl-429789acdf2152dde36df18415dc45985f9c1415.zip | |
grt-backtraces: fix option prefix check.
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 |