From 429789acdf2152dde36df18415dc45985f9c1415 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 16 Mar 2016 20:22:11 +0100
Subject: grt-backtraces: fix option prefix check.

---
 src/grt/grt-backtraces.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3