aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <gingold@adacore.com>2016-01-06 21:25:13 +0100
committerTristan Gingold <gingold@adacore.com>2016-01-06 21:25:13 +0100
commitb495347c0d41d0a67a54cdf69adf13b43a305bb1 (patch)
treedef6d4283f3783e7edd1991fd1b93361ea3c4a7e
parentf8a238bac88adfe646b06179acf26122d86e7d78 (diff)
downloadghdl-b495347c0d41d0a67a54cdf69adf13b43a305bb1.tar.gz
ghdl-b495347c0d41d0a67a54cdf69adf13b43a305bb1.tar.bz2
ghdl-b495347c0d41d0a67a54cdf69adf13b43a305bb1.zip
Simplify warning Off for gcc 4.6
-rw-r--r--src/ortho/mcode/symbolizer.adb5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/ortho/mcode/symbolizer.adb b/src/ortho/mcode/symbolizer.adb
index 8f60bf4a4..e907276ac 100644
--- a/src/ortho/mcode/symbolizer.adb
+++ b/src/ortho/mcode/symbolizer.adb
@@ -246,7 +246,8 @@ package body Symbolizer is
procedure Read_Addr (Addr : in out Address; Res : out Address) is
begin
- pragma Warnings (Off, "*different size*");
+ -- Turn off warnings for unmatched size.
+ pragma Warnings (Off);
if Address'Size = Unsigned_32'Size then
declare
function To_Address is new Ada.Unchecked_Conversion
@@ -269,7 +270,7 @@ package body Symbolizer is
-- Unhandled address size.
raise Program_Error;
end if;
- pragma Warnings (On, "*different size*");
+ pragma Warnings (On);
end Read_Addr;
procedure Read_Addr (Addr : in out Address;