diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-04 10:37:47 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 10:37:47 +0200 |
| commit | 671985569714a1e9f974e6a56d0b554059420c46 (patch) | |
| tree | 43614e1d687c64fee4d67b07cb5f4b898d4fe399 /gcc/ada | |
| parent | 2ca90ff00c7d0fbfc8107ab2a8a3f565c6d7727c (diff) | |
| download | gcc-671985569714a1e9f974e6a56d0b554059420c46.zip gcc-671985569714a1e9f974e6a56d0b554059420c46.tar.gz gcc-671985569714a1e9f974e6a56d0b554059420c46.tar.bz2 | |
freeze.adb (Freeze_Entity): Check for size clause for boolean warning
2008-08-04 Robert Dewar <dewar@adacore.com>
* freeze.adb (Freeze_Entity): Check for size clause for boolean warning
From-SVN: r138577
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/freeze.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 31f9398..a2dd517 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2398,6 +2398,8 @@ package body Freeze is elsif Root_Type (F_Type) = Standard_Boolean and then Convention (F_Type) = Convention_Ada + and then not Has_Warnings_Off (F_Type) + and then not Has_Size_Clause (F_Type) then Error_Msg_N ("?& is an 8-bit Ada Boolean, " @@ -2543,6 +2545,7 @@ package body Freeze is and then Convention (R_Type) = Convention_Ada and then not Has_Warnings_Off (E) and then not Has_Warnings_Off (R_Type) + and then not Has_Size_Clause (R_Type) then Error_Msg_N ("?return type of & is an 8-bit " |