diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-24 17:14:40 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-24 17:14:40 +0000 |
| commit | 021bbd2bc16b248944b941371406f084199dc798 (patch) | |
| tree | 34fe6dca815ec9dd91958e11ac932ebe937b9bf2 /gcc/ada/g-sercom-mingw.adb | |
| parent | 4badeca734f25eca299fc8a2b7dcfdfc4a2ce63e (diff) | |
| download | gcc-021bbd2bc16b248944b941371406f084199dc798.tar.gz | |
2014-02-24 Thomas Quinot <quinot@adacore.com>
* g-sercom-mingw.adb (Open): Fix incorrect test for error return
value.
* erroutc.adb: Minor reformatting.
2014-02-24 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Check_Clause_Syntax): Account
for a solitary input item in a dependency list.
2014-02-24 Yannick Moy <moy@adacore.com>
* gnat1drv.adb (Adjust_Global_Switches): Do not
use validity checks at all in GNATprove_Mode.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@208089 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-sercom-mingw.adb')
| -rw-r--r-- | gcc/ada/g-sercom-mingw.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/g-sercom-mingw.adb b/gcc/ada/g-sercom-mingw.adb index 0144c235697..292ca8f563e 100644 --- a/gcc/ada/g-sercom-mingw.adb +++ b/gcc/ada/g-sercom-mingw.adb @@ -129,7 +129,7 @@ package body GNAT.Serial_Communications is dwFlagsAndAttributes => 0, hTemplateFile => 0); - if Port.H.all = 0 then + if Port.H.all = Port_Data (INVALID_HANDLE_VALUE) then Raise_Error ("cannot open com port"); end if; end Open; |