diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-20 07:08:57 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-21 11:46:08 +0100 |
| commit | 122e8753c6218a0adfb8b2a7aef7dd424eb6562a (patch) | |
| tree | a336a6f4924a2c0f0df793d95ae2fedec4d25db5 /src | |
| parent | c7c6cf6e3b420fed0c9074d25e0072a672a66b39 (diff) | |
| download | ghdl-122e8753c6218a0adfb8b2a7aef7dd424eb6562a.tar.gz ghdl-122e8753c6218a0adfb8b2a7aef7dd424eb6562a.tar.bz2 ghdl-122e8753c6218a0adfb8b2a7aef7dd424eb6562a.zip | |
grt-backtraces-gcc: add pragma unreferenced.
Diffstat (limited to 'src')
| -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; |