From f8a238bac88adfe646b06179acf26122d86e7d78 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Wed, 6 Jan 2016 21:10:22 +0100
Subject: Add a pragma warnings off around constant condition.

---
 src/ortho/mcode/binary_file.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/ortho/mcode/binary_file.adb b/src/ortho/mcode/binary_file.adb
index c0bc102e9..e135b3cbf 100644
--- a/src/ortho/mcode/binary_file.adb
+++ b/src/ortho/mcode/binary_file.adb
@@ -761,6 +761,7 @@ package body Binary_File is
 
    procedure Gen_Addr (Offset : Integer_32) is
    begin
+      pragma Warnings (Off);  --  Avoid warning on constant condition.
       if Pc_Type'Size = 32 then
          Gen_32 (Conv (Offset));
       elsif Pc_Type'Size = 64 then
@@ -768,6 +769,7 @@ package body Binary_File is
       else
          raise Program_Error;
       end if;
+      pragma Warnings (On);
    end Gen_Addr;
 
    procedure Gen_Abs (Sym : Symbol; Offset : Integer_32) is
-- 
cgit v1.2.3