diff options
| -rw-r--r-- | src/grt/grt-backtraces-gcc.adb | 5 |
1 files changed, 4 insertions, 1 deletions
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; |