Add a pragma warnings off around constant condition.

ghdl · Jan 6, 2016 · f8a238b · f8a238b
1 parent 36a3b1d
commit f8a238b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/ortho/mcode/binary_file.adb b/src/ortho/mcode/binary_file.adb
@@ -761,13 +761,15 @@ 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
          Gen_64 (Unsigned_64 (Conv (Offset)));
       else
          raise Program_Error;
       end if;
+      pragma Warnings (On);
    end Gen_Addr;
 
    procedure Gen_Abs (Sym : Symbol; Offset : Integer_32) is