diff options
Diffstat (limited to 'src/ortho/mcode/binary_file.adb')
| -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 c0bc102..e135b3c 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 |