diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-08-06 08:41:41 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-08-06 08:41:41 +0000 |
| commit | 088617480edbbec355bad2aed392f94aa6333f83 (patch) | |
| tree | 299b07e568e65b558c71258870a2d29ec85faa2b /gcc/ada/g-sercom-mingw.adb | |
| parent | b76829e9b0a0ee4dfa02a95af8d45612fbda21b7 (diff) | |
| download | gcc-088617480edbbec355bad2aed392f94aa6333f83.tar.gz | |
2012-08-06 Robert Dewar <dewar@adacore.com>
* xoscons.adb: Minor code reorganization (remove unused variable
E at line 331).
* g-sercom.ads, exp_attr.adb: Minor reformatting.
* sinfo.adb, sinfo.ads: Minor cleanup, remove unused flag
Static_Processing_OK.
2012-08-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Build_Derived_Concurrent_Type): Copy discriminant
constraint when building a constrained subtype, to prevent
undesirable tree sharing betweeb geberated subtype and derived
type definition.
2012-08-06 Thomas Quinot <quinot@adacore.com>
* g-sercom-mingw.adb, s-oscons-tmplt.c: Add missing constants
on Windows.
2012-08-06 Sergey Rybin <rybin@adacore.com frybin>
* tree_io.ads: Update ASIS_Version_Number because of the tree fix
for discriminant constraints for concurrent types.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190171 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-sercom-mingw.adb')
| -rw-r--r-- | gcc/ada/g-sercom-mingw.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/g-sercom-mingw.adb b/gcc/ada/g-sercom-mingw.adb index 726d21f6bbb..afc4d4773be 100644 --- a/gcc/ada/g-sercom-mingw.adb +++ b/gcc/ada/g-sercom-mingw.adb @@ -37,11 +37,14 @@ with Ada.Streams; use Ada.Streams; with System; use System; with System.Communication; use System.Communication; with System.CRTL; use System.CRTL; +with System.OS_Constants; with System.Win32; use System.Win32; with System.Win32.Ext; use System.Win32.Ext; package body GNAT.Serial_Communications is + package OSC renames System.OS_Constants; + -- Common types type Port_Data is new HANDLE; @@ -203,9 +206,9 @@ package body GNAT.Serial_Communications is Com_Settings.fBinary := Bits1 (System.Win32.TRUE); Com_Settings.fOutxDsrFlow := 0; Com_Settings.fDsrSensitivity := 0; - Com_Settings.fDtrControl := DTR_CONTROL_ENABLE; + Com_Settings.fDtrControl := OSC.DTR_CONTROL_ENABLE; Com_Settings.fInX := 0; - Com_Settings.fRtsControl := RTS_CONTROL_ENABLE; + Com_Settings.fRtsControl := OSC.RTS_CONTROL_ENABLE; case Flow is when None => |