From 122e8753c6218a0adfb8b2a7aef7dd424eb6562a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 20 Feb 2016 07:08:57 +0100
Subject: grt-backtraces-gcc: add pragma unreferenced.

---
 src/grt/grt-backtraces-gcc.adb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/grt/grt-backtraces-gcc.adb')

diff --git a/src/grt/grt-backtraces-gcc.adb b/src/grt/grt-backtraces-gcc.adb
index 3ac412b41..b14398195 100644
--- a/src/grt/grt-backtraces-gcc.adb
+++ b/src/grt/grt-backtraces-gcc.adb
@@ -92,7 +92,9 @@ package body Grt.Backtraces.Gcc is
                 Filename : System.Address;
                 Lineno : Integer;
                 Function_Name : System.Address)
-               return Integer is
+               return Integer
+   is
+      pragma Unreferenced (Data, Pc);
    begin
       if Res_Filename = Null_Address then
          Res_Filename := Filename;
@@ -108,6 +110,7 @@ package body Grt.Backtraces.Gcc is
                          Subprg : out System.Address)
    is
       Res : Integer;
+      pragma Unreferenced (Res);
    begin
       if not Initialized then
          Initialized := True;
-- 
cgit v1.2.3