From b495347c0d41d0a67a54cdf69adf13b43a305bb1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Wed, 6 Jan 2016 21:25:13 +0100
Subject: Simplify warning Off for gcc 4.6

---
 src/ortho/mcode/symbolizer.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/ortho/mcode/symbolizer.adb b/src/ortho/mcode/symbolizer.adb
index 8f60bf4..e907276 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;
-- 
cgit