diff options
author | Tristan Gingold <gingold@adacore.com> | 2016-01-06 21:10:22 +0100 |
---|---|---|
committer | Tristan Gingold <gingold@adacore.com> | 2016-01-06 21:10:22 +0100 |
commit | f8a238bac88adfe646b06179acf26122d86e7d78 (patch) | |
tree | 8f6818a898dc24dc91bc4a27b5e4e5165d77aa1f /src/ortho | |
parent | 36a3b1dda92bf374291e0a03d095c205940b205f (diff) | |
download | ghdl-f8a238bac88adfe646b06179acf26122d86e7d78.tar.gz ghdl-f8a238bac88adfe646b06179acf26122d86e7d78.tar.bz2 ghdl-f8a238bac88adfe646b06179acf26122d86e7d78.zip |
Add a pragma warnings off around constant condition.
Diffstat (limited to 'src/ortho')
-rw-r--r-- | src/ortho/mcode/binary_file.adb | 2 |
1 files changed, 2 insertions, 0 deletions
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 |