diff options
| author | Tristan Gingold <gingold@adacore.com> | 2016-01-06 21:25:13 +0100 |
|---|---|---|
| committer | Tristan Gingold <gingold@adacore.com> | 2016-01-06 21:25:13 +0100 |
| commit | b495347c0d41d0a67a54cdf69adf13b43a305bb1 (patch) | |
| tree | def6d4283f3783e7edd1991fd1b93361ea3c4a7e | |
| parent | f8a238bac88adfe646b06179acf26122d86e7d78 (diff) | |
| download | ghdl-b495347c0d41d0a67a54cdf69adf13b43a305bb1.tar.gz ghdl-b495347c0d41d0a67a54cdf69adf13b43a305bb1.tar.bz2 ghdl-b495347c0d41d0a67a54cdf69adf13b43a305bb1.zip | |
Simplify warning Off for gcc 4.6
| -rw-r--r-- | src/ortho/mcode/symbolizer.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/ortho/mcode/symbolizer.adb b/src/ortho/mcode/symbolizer.adb index 8f60bf4a4..e907276ac 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; |